pic32mx534f064l.pp 2.5 MB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598759976007601760276037604760576067607760876097610761176127613761476157616761776187619762076217622762376247625762676277628762976307631763276337634763576367637763876397640764176427643764476457646764776487649765076517652765376547655765676577658765976607661766276637664766576667667766876697670767176727673767476757676767776787679768076817682768376847685768676877688768976907691769276937694769576967697769876997700770177027703770477057706770777087709771077117712771377147715771677177718771977207721772277237724772577267727772877297730773177327733773477357736773777387739774077417742774377447745774677477748774977507751775277537754775577567757775877597760776177627763776477657766776777687769777077717772777377747775777677777778777977807781778277837784778577867787778877897790779177927793779477957796779777987799780078017802780378047805780678077808780978107811781278137814781578167817781878197820782178227823782478257826782778287829783078317832783378347835783678377838783978407841784278437844784578467847784878497850785178527853785478557856785778587859786078617862786378647865786678677868786978707871787278737874787578767877787878797880788178827883788478857886788778887889789078917892789378947895789678977898789979007901790279037904790579067907790879097910791179127913791479157916791779187919792079217922792379247925792679277928792979307931793279337934793579367937793879397940794179427943794479457946794779487949795079517952795379547955795679577958795979607961796279637964796579667967796879697970797179727973797479757976797779787979798079817982798379847985798679877988798979907991799279937994799579967997799879998000800180028003800480058006800780088009801080118012801380148015801680178018801980208021802280238024802580268027802880298030803180328033803480358036803780388039804080418042804380448045804680478048804980508051805280538054805580568057805880598060806180628063806480658066806780688069807080718072807380748075807680778078807980808081808280838084808580868087808880898090809180928093809480958096809780988099810081018102810381048105810681078108810981108111811281138114811581168117811881198120812181228123812481258126812781288129813081318132813381348135813681378138813981408141814281438144814581468147814881498150815181528153815481558156815781588159816081618162816381648165816681678168816981708171817281738174817581768177817881798180818181828183818481858186818781888189819081918192819381948195819681978198819982008201820282038204820582068207820882098210821182128213821482158216821782188219822082218222822382248225822682278228822982308231823282338234823582368237823882398240824182428243824482458246824782488249825082518252825382548255825682578258825982608261826282638264826582668267826882698270827182728273827482758276827782788279828082818282828382848285828682878288828982908291829282938294829582968297829882998300830183028303830483058306830783088309831083118312831383148315831683178318831983208321832283238324832583268327832883298330833183328333833483358336833783388339834083418342834383448345834683478348834983508351835283538354835583568357835883598360836183628363836483658366836783688369837083718372837383748375837683778378837983808381838283838384838583868387838883898390839183928393839483958396839783988399840084018402840384048405840684078408840984108411841284138414841584168417841884198420842184228423842484258426842784288429843084318432843384348435843684378438843984408441844284438444844584468447844884498450845184528453845484558456845784588459846084618462846384648465846684678468846984708471847284738474847584768477847884798480848184828483848484858486848784888489849084918492849384948495849684978498849985008501850285038504850585068507850885098510851185128513851485158516851785188519852085218522852385248525852685278528852985308531853285338534853585368537853885398540854185428543854485458546854785488549855085518552855385548555855685578558855985608561856285638564856585668567856885698570857185728573857485758576857785788579858085818582858385848585858685878588858985908591859285938594859585968597859885998600860186028603860486058606860786088609861086118612861386148615861686178618861986208621862286238624862586268627862886298630863186328633863486358636863786388639864086418642864386448645864686478648864986508651865286538654865586568657865886598660866186628663866486658666866786688669867086718672867386748675867686778678867986808681868286838684868586868687868886898690869186928693869486958696869786988699870087018702870387048705870687078708870987108711871287138714871587168717871887198720872187228723872487258726872787288729873087318732873387348735873687378738873987408741874287438744874587468747874887498750875187528753875487558756875787588759876087618762876387648765876687678768876987708771877287738774877587768777877887798780878187828783878487858786878787888789879087918792879387948795879687978798879988008801880288038804880588068807880888098810881188128813881488158816881788188819882088218822882388248825882688278828882988308831883288338834883588368837883888398840884188428843884488458846884788488849885088518852885388548855885688578858885988608861886288638864886588668867886888698870887188728873887488758876887788788879888088818882888388848885888688878888888988908891889288938894889588968897889888998900890189028903890489058906890789088909891089118912891389148915891689178918891989208921892289238924892589268927892889298930893189328933893489358936893789388939894089418942894389448945894689478948894989508951895289538954895589568957895889598960896189628963896489658966896789688969897089718972897389748975897689778978897989808981898289838984898589868987898889898990899189928993899489958996899789988999900090019002900390049005900690079008900990109011901290139014901590169017901890199020902190229023902490259026902790289029903090319032903390349035903690379038903990409041904290439044904590469047904890499050905190529053905490559056905790589059906090619062906390649065906690679068906990709071907290739074907590769077907890799080908190829083908490859086908790889089909090919092909390949095909690979098909991009101910291039104910591069107910891099110911191129113911491159116911791189119912091219122912391249125912691279128912991309131913291339134913591369137913891399140914191429143914491459146914791489149915091519152915391549155915691579158915991609161916291639164916591669167916891699170917191729173917491759176917791789179918091819182918391849185918691879188918991909191919291939194919591969197919891999200920192029203920492059206920792089209921092119212921392149215921692179218921992209221922292239224922592269227922892299230923192329233923492359236923792389239924092419242924392449245924692479248924992509251925292539254925592569257925892599260926192629263926492659266926792689269927092719272927392749275927692779278927992809281928292839284928592869287928892899290929192929293929492959296929792989299930093019302930393049305930693079308930993109311931293139314931593169317931893199320932193229323932493259326932793289329933093319332933393349335933693379338933993409341934293439344934593469347934893499350935193529353935493559356935793589359936093619362936393649365936693679368936993709371937293739374937593769377937893799380938193829383938493859386938793889389939093919392939393949395939693979398939994009401940294039404940594069407940894099410941194129413941494159416941794189419942094219422942394249425942694279428942994309431943294339434943594369437943894399440944194429443944494459446944794489449945094519452945394549455945694579458945994609461946294639464946594669467946894699470947194729473947494759476947794789479948094819482948394849485948694879488948994909491949294939494949594969497949894999500950195029503950495059506950795089509951095119512951395149515951695179518951995209521952295239524952595269527952895299530953195329533953495359536953795389539954095419542954395449545954695479548954995509551955295539554955595569557955895599560956195629563956495659566956795689569957095719572957395749575957695779578957995809581958295839584958595869587958895899590959195929593959495959596959795989599960096019602960396049605960696079608960996109611961296139614961596169617961896199620962196229623962496259626962796289629963096319632963396349635963696379638963996409641964296439644964596469647964896499650965196529653965496559656965796589659966096619662966396649665966696679668966996709671967296739674967596769677967896799680968196829683968496859686968796889689969096919692969396949695969696979698969997009701970297039704970597069707970897099710971197129713971497159716971797189719972097219722972397249725972697279728972997309731973297339734973597369737973897399740974197429743974497459746974797489749975097519752975397549755975697579758975997609761976297639764976597669767976897699770977197729773977497759776977797789779978097819782978397849785978697879788978997909791979297939794979597969797979897999800980198029803980498059806980798089809981098119812981398149815981698179818981998209821982298239824982598269827982898299830983198329833983498359836983798389839984098419842984398449845984698479848984998509851985298539854985598569857985898599860986198629863986498659866986798689869987098719872987398749875987698779878987998809881988298839884988598869887988898899890989198929893989498959896989798989899990099019902990399049905990699079908990999109911991299139914991599169917991899199920992199229923992499259926992799289929993099319932993399349935993699379938993999409941994299439944994599469947994899499950995199529953995499559956995799589959996099619962996399649965996699679968996999709971997299739974997599769977997899799980998199829983998499859986998799889989999099919992999399949995999699979998999910000100011000210003100041000510006100071000810009100101001110012100131001410015100161001710018100191002010021100221002310024100251002610027100281002910030100311003210033100341003510036100371003810039100401004110042100431004410045100461004710048100491005010051100521005310054100551005610057100581005910060100611006210063100641006510066100671006810069100701007110072100731007410075100761007710078100791008010081100821008310084100851008610087100881008910090100911009210093100941009510096100971009810099101001010110102101031010410105101061010710108101091011010111101121011310114101151011610117101181011910120101211012210123101241012510126101271012810129101301013110132101331013410135101361013710138101391014010141101421014310144101451014610147101481014910150101511015210153101541015510156101571015810159101601016110162101631016410165101661016710168101691017010171101721017310174101751017610177101781017910180101811018210183101841018510186101871018810189101901019110192101931019410195101961019710198101991020010201102021020310204102051020610207102081020910210102111021210213102141021510216102171021810219102201022110222102231022410225102261022710228102291023010231102321023310234102351023610237102381023910240102411024210243102441024510246102471024810249102501025110252102531025410255102561025710258102591026010261102621026310264102651026610267102681026910270102711027210273102741027510276102771027810279102801028110282102831028410285102861028710288102891029010291102921029310294102951029610297102981029910300103011030210303103041030510306103071030810309103101031110312103131031410315103161031710318103191032010321103221032310324103251032610327103281032910330103311033210333103341033510336103371033810339103401034110342103431034410345103461034710348103491035010351103521035310354103551035610357103581035910360103611036210363103641036510366103671036810369103701037110372103731037410375103761037710378103791038010381103821038310384103851038610387103881038910390103911039210393103941039510396103971039810399104001040110402104031040410405104061040710408104091041010411104121041310414104151041610417104181041910420104211042210423104241042510426104271042810429104301043110432104331043410435104361043710438104391044010441104421044310444104451044610447104481044910450104511045210453104541045510456104571045810459104601046110462104631046410465104661046710468104691047010471104721047310474104751047610477104781047910480104811048210483104841048510486104871048810489104901049110492104931049410495104961049710498104991050010501105021050310504105051050610507105081050910510105111051210513105141051510516105171051810519105201052110522105231052410525105261052710528105291053010531105321053310534105351053610537105381053910540105411054210543105441054510546105471054810549105501055110552105531055410555105561055710558105591056010561105621056310564105651056610567105681056910570105711057210573105741057510576105771057810579105801058110582105831058410585105861058710588105891059010591105921059310594105951059610597105981059910600106011060210603106041060510606106071060810609106101061110612106131061410615106161061710618106191062010621106221062310624106251062610627106281062910630106311063210633106341063510636106371063810639106401064110642106431064410645106461064710648106491065010651106521065310654106551065610657106581065910660106611066210663106641066510666106671066810669106701067110672106731067410675106761067710678106791068010681106821068310684106851068610687106881068910690106911069210693106941069510696106971069810699107001070110702107031070410705107061070710708107091071010711107121071310714107151071610717107181071910720107211072210723107241072510726107271072810729107301073110732107331073410735107361073710738107391074010741107421074310744107451074610747107481074910750107511075210753107541075510756107571075810759107601076110762107631076410765107661076710768107691077010771107721077310774107751077610777107781077910780107811078210783107841078510786107871078810789107901079110792107931079410795107961079710798107991080010801108021080310804108051080610807108081080910810108111081210813108141081510816108171081810819108201082110822108231082410825108261082710828108291083010831108321083310834108351083610837108381083910840108411084210843108441084510846108471084810849108501085110852108531085410855108561085710858108591086010861108621086310864108651086610867108681086910870108711087210873108741087510876108771087810879108801088110882108831088410885108861088710888108891089010891108921089310894108951089610897108981089910900109011090210903109041090510906109071090810909109101091110912109131091410915109161091710918109191092010921109221092310924109251092610927109281092910930109311093210933109341093510936109371093810939109401094110942109431094410945109461094710948109491095010951109521095310954109551095610957109581095910960109611096210963109641096510966109671096810969109701097110972109731097410975109761097710978109791098010981109821098310984109851098610987109881098910990109911099210993109941099510996109971099810999110001100111002110031100411005110061100711008110091101011011110121101311014110151101611017110181101911020110211102211023110241102511026110271102811029110301103111032110331103411035110361103711038110391104011041110421104311044110451104611047110481104911050110511105211053110541105511056110571105811059110601106111062110631106411065110661106711068110691107011071110721107311074110751107611077110781107911080110811108211083110841108511086110871108811089110901109111092110931109411095110961109711098110991110011101111021110311104111051110611107111081110911110111111111211113111141111511116111171111811119111201112111122111231112411125111261112711128111291113011131111321113311134111351113611137111381113911140111411114211143111441114511146111471114811149111501115111152111531115411155111561115711158111591116011161111621116311164111651116611167111681116911170111711117211173111741117511176111771117811179111801118111182111831118411185111861118711188111891119011191111921119311194111951119611197111981119911200112011120211203112041120511206112071120811209112101121111212112131121411215112161121711218112191122011221112221122311224112251122611227112281122911230112311123211233112341123511236112371123811239112401124111242112431124411245112461124711248112491125011251112521125311254112551125611257112581125911260112611126211263112641126511266112671126811269112701127111272112731127411275112761127711278112791128011281112821128311284112851128611287112881128911290112911129211293112941129511296112971129811299113001130111302113031130411305113061130711308113091131011311113121131311314113151131611317113181131911320113211132211323113241132511326113271132811329113301133111332113331133411335113361133711338113391134011341113421134311344113451134611347113481134911350113511135211353113541135511356113571135811359113601136111362113631136411365113661136711368113691137011371113721137311374113751137611377113781137911380113811138211383113841138511386113871138811389113901139111392113931139411395113961139711398113991140011401114021140311404114051140611407114081140911410114111141211413114141141511416114171141811419114201142111422114231142411425114261142711428114291143011431114321143311434114351143611437114381143911440114411144211443114441144511446114471144811449114501145111452114531145411455114561145711458114591146011461114621146311464114651146611467114681146911470114711147211473114741147511476114771147811479114801148111482114831148411485114861148711488114891149011491114921149311494114951149611497114981149911500115011150211503115041150511506115071150811509115101151111512115131151411515115161151711518115191152011521115221152311524115251152611527115281152911530115311153211533115341153511536115371153811539115401154111542115431154411545115461154711548115491155011551115521155311554115551155611557115581155911560115611156211563115641156511566115671156811569115701157111572115731157411575115761157711578115791158011581115821158311584115851158611587115881158911590115911159211593115941159511596115971159811599116001160111602116031160411605116061160711608116091161011611116121161311614116151161611617116181161911620116211162211623116241162511626116271162811629116301163111632116331163411635116361163711638116391164011641116421164311644116451164611647116481164911650116511165211653116541165511656116571165811659116601166111662116631166411665116661166711668116691167011671116721167311674116751167611677116781167911680116811168211683116841168511686116871168811689116901169111692116931169411695116961169711698116991170011701117021170311704117051170611707117081170911710117111171211713117141171511716117171171811719117201172111722117231172411725117261172711728117291173011731117321173311734117351173611737117381173911740117411174211743117441174511746117471174811749117501175111752117531175411755117561175711758117591176011761117621176311764117651176611767117681176911770117711177211773117741177511776117771177811779117801178111782117831178411785117861178711788117891179011791117921179311794117951179611797117981179911800118011180211803118041180511806118071180811809118101181111812118131181411815118161181711818118191182011821118221182311824118251182611827118281182911830118311183211833118341183511836118371183811839118401184111842118431184411845118461184711848118491185011851118521185311854118551185611857118581185911860118611186211863118641186511866118671186811869118701187111872118731187411875118761187711878118791188011881118821188311884118851188611887118881188911890118911189211893118941189511896118971189811899119001190111902119031190411905119061190711908119091191011911119121191311914119151191611917119181191911920119211192211923119241192511926119271192811929119301193111932119331193411935119361193711938119391194011941119421194311944119451194611947119481194911950119511195211953119541195511956119571195811959119601196111962119631196411965119661196711968119691197011971119721197311974119751197611977119781197911980119811198211983119841198511986119871198811989119901199111992119931199411995119961199711998119991200012001120021200312004120051200612007120081200912010120111201212013120141201512016120171201812019120201202112022120231202412025120261202712028120291203012031120321203312034120351203612037120381203912040120411204212043120441204512046120471204812049120501205112052120531205412055120561205712058120591206012061120621206312064120651206612067120681206912070120711207212073120741207512076120771207812079120801208112082120831208412085120861208712088120891209012091120921209312094120951209612097120981209912100121011210212103121041210512106121071210812109121101211112112121131211412115121161211712118121191212012121121221212312124121251212612127121281212912130121311213212133121341213512136121371213812139121401214112142121431214412145121461214712148121491215012151121521215312154121551215612157121581215912160121611216212163121641216512166121671216812169121701217112172121731217412175121761217712178121791218012181121821218312184121851218612187121881218912190121911219212193121941219512196121971219812199122001220112202122031220412205122061220712208122091221012211122121221312214122151221612217122181221912220122211222212223122241222512226122271222812229122301223112232122331223412235122361223712238122391224012241122421224312244122451224612247122481224912250122511225212253122541225512256122571225812259122601226112262122631226412265122661226712268122691227012271122721227312274122751227612277122781227912280122811228212283122841228512286122871228812289122901229112292122931229412295122961229712298122991230012301123021230312304123051230612307123081230912310123111231212313123141231512316123171231812319123201232112322123231232412325123261232712328123291233012331123321233312334123351233612337123381233912340123411234212343123441234512346123471234812349123501235112352123531235412355123561235712358123591236012361123621236312364123651236612367123681236912370123711237212373123741237512376123771237812379123801238112382123831238412385123861238712388123891239012391123921239312394123951239612397123981239912400124011240212403124041240512406124071240812409124101241112412124131241412415124161241712418124191242012421124221242312424124251242612427124281242912430124311243212433124341243512436124371243812439124401244112442124431244412445124461244712448124491245012451124521245312454124551245612457124581245912460124611246212463124641246512466124671246812469124701247112472124731247412475124761247712478124791248012481124821248312484124851248612487124881248912490124911249212493124941249512496124971249812499125001250112502125031250412505125061250712508125091251012511125121251312514125151251612517125181251912520125211252212523125241252512526125271252812529125301253112532125331253412535125361253712538125391254012541125421254312544125451254612547125481254912550125511255212553125541255512556125571255812559125601256112562125631256412565125661256712568125691257012571125721257312574125751257612577125781257912580125811258212583125841258512586125871258812589125901259112592125931259412595125961259712598125991260012601126021260312604126051260612607126081260912610126111261212613126141261512616126171261812619126201262112622126231262412625126261262712628126291263012631126321263312634126351263612637126381263912640126411264212643126441264512646126471264812649126501265112652126531265412655126561265712658126591266012661126621266312664126651266612667126681266912670126711267212673126741267512676126771267812679126801268112682126831268412685126861268712688126891269012691126921269312694126951269612697126981269912700127011270212703127041270512706127071270812709127101271112712127131271412715127161271712718127191272012721127221272312724127251272612727127281272912730127311273212733127341273512736127371273812739127401274112742127431274412745127461274712748127491275012751127521275312754127551275612757127581275912760127611276212763127641276512766127671276812769127701277112772127731277412775127761277712778127791278012781127821278312784127851278612787127881278912790127911279212793127941279512796127971279812799128001280112802128031280412805128061280712808128091281012811128121281312814128151281612817128181281912820128211282212823128241282512826128271282812829128301283112832128331283412835128361283712838128391284012841128421284312844128451284612847128481284912850128511285212853128541285512856128571285812859128601286112862128631286412865128661286712868128691287012871128721287312874128751287612877128781287912880128811288212883128841288512886128871288812889128901289112892128931289412895128961289712898128991290012901129021290312904129051290612907129081290912910129111291212913129141291512916129171291812919129201292112922129231292412925129261292712928129291293012931129321293312934129351293612937129381293912940129411294212943129441294512946129471294812949129501295112952129531295412955129561295712958129591296012961129621296312964129651296612967129681296912970129711297212973129741297512976129771297812979129801298112982129831298412985129861298712988129891299012991129921299312994129951299612997129981299913000130011300213003130041300513006130071300813009130101301113012130131301413015130161301713018130191302013021130221302313024130251302613027130281302913030130311303213033130341303513036130371303813039130401304113042130431304413045130461304713048130491305013051130521305313054130551305613057130581305913060130611306213063130641306513066130671306813069130701307113072130731307413075130761307713078130791308013081130821308313084130851308613087130881308913090130911309213093130941309513096130971309813099131001310113102131031310413105131061310713108131091311013111131121311313114131151311613117131181311913120131211312213123131241312513126131271312813129131301313113132131331313413135131361313713138131391314013141131421314313144131451314613147131481314913150131511315213153131541315513156131571315813159131601316113162131631316413165131661316713168131691317013171131721317313174131751317613177131781317913180131811318213183131841318513186131871318813189131901319113192131931319413195131961319713198131991320013201132021320313204132051320613207132081320913210132111321213213132141321513216132171321813219132201322113222132231322413225132261322713228132291323013231132321323313234132351323613237132381323913240132411324213243132441324513246132471324813249132501325113252132531325413255132561325713258132591326013261132621326313264132651326613267132681326913270132711327213273132741327513276132771327813279132801328113282132831328413285132861328713288132891329013291132921329313294132951329613297132981329913300133011330213303133041330513306133071330813309133101331113312133131331413315133161331713318133191332013321133221332313324133251332613327133281332913330133311333213333133341333513336133371333813339133401334113342133431334413345133461334713348133491335013351133521335313354133551335613357133581335913360133611336213363133641336513366133671336813369133701337113372133731337413375133761337713378133791338013381133821338313384133851338613387133881338913390133911339213393133941339513396133971339813399134001340113402134031340413405134061340713408134091341013411134121341313414134151341613417134181341913420134211342213423134241342513426134271342813429134301343113432134331343413435134361343713438134391344013441134421344313444134451344613447134481344913450134511345213453134541345513456134571345813459134601346113462134631346413465134661346713468134691347013471134721347313474134751347613477134781347913480134811348213483134841348513486134871348813489134901349113492134931349413495134961349713498134991350013501135021350313504135051350613507135081350913510135111351213513135141351513516135171351813519135201352113522135231352413525135261352713528135291353013531135321353313534135351353613537135381353913540135411354213543135441354513546135471354813549135501355113552135531355413555135561355713558135591356013561135621356313564135651356613567135681356913570135711357213573135741357513576135771357813579135801358113582135831358413585135861358713588135891359013591135921359313594135951359613597135981359913600136011360213603136041360513606136071360813609136101361113612136131361413615136161361713618136191362013621136221362313624136251362613627136281362913630136311363213633136341363513636136371363813639136401364113642136431364413645136461364713648136491365013651136521365313654136551365613657136581365913660136611366213663136641366513666136671366813669136701367113672136731367413675136761367713678136791368013681136821368313684136851368613687136881368913690136911369213693136941369513696136971369813699137001370113702137031370413705137061370713708137091371013711137121371313714137151371613717137181371913720137211372213723137241372513726137271372813729137301373113732137331373413735137361373713738137391374013741137421374313744137451374613747137481374913750137511375213753137541375513756137571375813759137601376113762137631376413765137661376713768137691377013771137721377313774137751377613777137781377913780137811378213783137841378513786137871378813789137901379113792137931379413795137961379713798137991380013801138021380313804138051380613807138081380913810138111381213813138141381513816138171381813819138201382113822138231382413825138261382713828138291383013831138321383313834138351383613837138381383913840138411384213843138441384513846138471384813849138501385113852138531385413855138561385713858138591386013861138621386313864138651386613867138681386913870138711387213873138741387513876138771387813879138801388113882138831388413885138861388713888138891389013891138921389313894138951389613897138981389913900139011390213903139041390513906139071390813909139101391113912139131391413915139161391713918139191392013921139221392313924139251392613927139281392913930139311393213933139341393513936139371393813939139401394113942139431394413945139461394713948139491395013951139521395313954139551395613957139581395913960139611396213963139641396513966139671396813969139701397113972139731397413975139761397713978139791398013981139821398313984139851398613987139881398913990139911399213993139941399513996139971399813999140001400114002140031400414005140061400714008140091401014011140121401314014140151401614017140181401914020140211402214023140241402514026140271402814029140301403114032140331403414035140361403714038140391404014041140421404314044140451404614047140481404914050140511405214053140541405514056140571405814059140601406114062140631406414065140661406714068140691407014071140721407314074140751407614077140781407914080140811408214083140841408514086140871408814089140901409114092140931409414095140961409714098140991410014101141021410314104141051410614107141081410914110141111411214113141141411514116141171411814119141201412114122141231412414125141261412714128141291413014131141321413314134141351413614137141381413914140141411414214143141441414514146141471414814149141501415114152141531415414155141561415714158141591416014161141621416314164141651416614167141681416914170141711417214173141741417514176141771417814179141801418114182141831418414185141861418714188141891419014191141921419314194141951419614197141981419914200142011420214203142041420514206142071420814209142101421114212142131421414215142161421714218142191422014221142221422314224142251422614227142281422914230142311423214233142341423514236142371423814239142401424114242142431424414245142461424714248142491425014251142521425314254142551425614257142581425914260142611426214263142641426514266142671426814269142701427114272142731427414275142761427714278142791428014281142821428314284142851428614287142881428914290142911429214293142941429514296142971429814299143001430114302143031430414305143061430714308143091431014311143121431314314143151431614317143181431914320143211432214323143241432514326143271432814329143301433114332143331433414335143361433714338143391434014341143421434314344143451434614347143481434914350143511435214353143541435514356143571435814359143601436114362143631436414365143661436714368143691437014371143721437314374143751437614377143781437914380143811438214383143841438514386143871438814389143901439114392143931439414395143961439714398143991440014401144021440314404144051440614407144081440914410144111441214413144141441514416144171441814419144201442114422144231442414425144261442714428144291443014431144321443314434144351443614437144381443914440144411444214443144441444514446144471444814449144501445114452144531445414455144561445714458144591446014461144621446314464144651446614467144681446914470144711447214473144741447514476144771447814479144801448114482144831448414485144861448714488144891449014491144921449314494144951449614497144981449914500145011450214503145041450514506145071450814509145101451114512145131451414515145161451714518145191452014521145221452314524145251452614527145281452914530145311453214533145341453514536145371453814539145401454114542145431454414545145461454714548145491455014551145521455314554145551455614557145581455914560145611456214563145641456514566145671456814569145701457114572145731457414575145761457714578145791458014581145821458314584145851458614587145881458914590145911459214593145941459514596145971459814599146001460114602146031460414605146061460714608146091461014611146121461314614146151461614617146181461914620146211462214623146241462514626146271462814629146301463114632146331463414635146361463714638146391464014641146421464314644146451464614647146481464914650146511465214653146541465514656146571465814659146601466114662146631466414665146661466714668146691467014671146721467314674146751467614677146781467914680146811468214683146841468514686146871468814689146901469114692146931469414695146961469714698146991470014701147021470314704147051470614707147081470914710147111471214713147141471514716147171471814719147201472114722147231472414725147261472714728147291473014731147321473314734147351473614737147381473914740147411474214743147441474514746147471474814749147501475114752147531475414755147561475714758147591476014761147621476314764147651476614767147681476914770147711477214773147741477514776147771477814779147801478114782147831478414785147861478714788147891479014791147921479314794147951479614797147981479914800148011480214803148041480514806148071480814809148101481114812148131481414815148161481714818148191482014821148221482314824148251482614827148281482914830148311483214833148341483514836148371483814839148401484114842148431484414845148461484714848148491485014851148521485314854148551485614857148581485914860148611486214863148641486514866148671486814869148701487114872148731487414875148761487714878148791488014881148821488314884148851488614887148881488914890148911489214893148941489514896148971489814899149001490114902149031490414905149061490714908149091491014911149121491314914149151491614917149181491914920149211492214923149241492514926149271492814929149301493114932149331493414935149361493714938149391494014941149421494314944149451494614947149481494914950149511495214953149541495514956149571495814959149601496114962149631496414965149661496714968149691497014971149721497314974149751497614977149781497914980149811498214983149841498514986149871498814989149901499114992149931499414995149961499714998149991500015001150021500315004150051500615007150081500915010150111501215013150141501515016150171501815019150201502115022150231502415025150261502715028150291503015031150321503315034150351503615037150381503915040150411504215043150441504515046150471504815049150501505115052150531505415055150561505715058150591506015061150621506315064150651506615067150681506915070150711507215073150741507515076150771507815079150801508115082150831508415085150861508715088150891509015091150921509315094150951509615097150981509915100151011510215103151041510515106151071510815109151101511115112151131511415115151161511715118151191512015121151221512315124151251512615127151281512915130151311513215133151341513515136151371513815139151401514115142151431514415145151461514715148151491515015151151521515315154151551515615157151581515915160151611516215163151641516515166151671516815169151701517115172151731517415175151761517715178151791518015181151821518315184151851518615187151881518915190151911519215193151941519515196151971519815199152001520115202152031520415205152061520715208152091521015211152121521315214152151521615217152181521915220152211522215223152241522515226152271522815229152301523115232152331523415235152361523715238152391524015241152421524315244152451524615247152481524915250152511525215253152541525515256152571525815259152601526115262152631526415265152661526715268152691527015271152721527315274152751527615277152781527915280152811528215283152841528515286152871528815289152901529115292152931529415295152961529715298152991530015301153021530315304153051530615307153081530915310153111531215313153141531515316153171531815319153201532115322153231532415325153261532715328153291533015331153321533315334153351533615337153381533915340153411534215343153441534515346153471534815349153501535115352153531535415355153561535715358153591536015361153621536315364153651536615367153681536915370153711537215373153741537515376153771537815379153801538115382153831538415385153861538715388153891539015391153921539315394153951539615397153981539915400154011540215403154041540515406154071540815409154101541115412154131541415415154161541715418154191542015421154221542315424154251542615427154281542915430154311543215433154341543515436154371543815439154401544115442154431544415445154461544715448154491545015451154521545315454154551545615457154581545915460154611546215463154641546515466154671546815469154701547115472154731547415475154761547715478154791548015481154821548315484154851548615487154881548915490154911549215493154941549515496154971549815499155001550115502155031550415505155061550715508155091551015511155121551315514155151551615517155181551915520155211552215523155241552515526155271552815529155301553115532155331553415535155361553715538155391554015541155421554315544155451554615547155481554915550155511555215553155541555515556155571555815559155601556115562155631556415565155661556715568155691557015571155721557315574155751557615577155781557915580155811558215583155841558515586155871558815589155901559115592155931559415595155961559715598155991560015601156021560315604156051560615607156081560915610156111561215613156141561515616156171561815619156201562115622156231562415625156261562715628156291563015631156321563315634156351563615637156381563915640156411564215643156441564515646156471564815649156501565115652156531565415655156561565715658156591566015661156621566315664156651566615667156681566915670156711567215673156741567515676156771567815679156801568115682156831568415685156861568715688156891569015691156921569315694156951569615697156981569915700157011570215703157041570515706157071570815709157101571115712157131571415715157161571715718157191572015721157221572315724157251572615727157281572915730157311573215733157341573515736157371573815739157401574115742157431574415745157461574715748157491575015751157521575315754157551575615757157581575915760157611576215763157641576515766157671576815769157701577115772157731577415775157761577715778157791578015781157821578315784157851578615787157881578915790157911579215793157941579515796157971579815799158001580115802158031580415805158061580715808158091581015811158121581315814158151581615817158181581915820158211582215823158241582515826158271582815829158301583115832158331583415835158361583715838158391584015841158421584315844158451584615847158481584915850158511585215853158541585515856158571585815859158601586115862158631586415865158661586715868158691587015871158721587315874158751587615877158781587915880158811588215883158841588515886158871588815889158901589115892158931589415895158961589715898158991590015901159021590315904159051590615907159081590915910159111591215913159141591515916159171591815919159201592115922159231592415925159261592715928159291593015931159321593315934159351593615937159381593915940159411594215943159441594515946159471594815949159501595115952159531595415955159561595715958159591596015961159621596315964159651596615967159681596915970159711597215973159741597515976159771597815979159801598115982159831598415985159861598715988159891599015991159921599315994159951599615997159981599916000160011600216003160041600516006160071600816009160101601116012160131601416015160161601716018160191602016021160221602316024160251602616027160281602916030160311603216033160341603516036160371603816039160401604116042160431604416045160461604716048160491605016051160521605316054160551605616057160581605916060160611606216063160641606516066160671606816069160701607116072160731607416075160761607716078160791608016081160821608316084160851608616087160881608916090160911609216093160941609516096160971609816099161001610116102161031610416105161061610716108161091611016111161121611316114161151611616117161181611916120161211612216123161241612516126161271612816129161301613116132161331613416135161361613716138161391614016141161421614316144161451614616147161481614916150161511615216153161541615516156161571615816159161601616116162161631616416165161661616716168161691617016171161721617316174161751617616177161781617916180161811618216183161841618516186161871618816189161901619116192161931619416195161961619716198161991620016201162021620316204162051620616207162081620916210162111621216213162141621516216162171621816219162201622116222162231622416225162261622716228162291623016231162321623316234162351623616237162381623916240162411624216243162441624516246162471624816249162501625116252162531625416255162561625716258162591626016261162621626316264162651626616267162681626916270162711627216273162741627516276162771627816279162801628116282162831628416285162861628716288162891629016291162921629316294162951629616297162981629916300163011630216303163041630516306163071630816309163101631116312163131631416315163161631716318163191632016321163221632316324163251632616327163281632916330163311633216333163341633516336163371633816339163401634116342163431634416345163461634716348163491635016351163521635316354163551635616357163581635916360163611636216363163641636516366163671636816369163701637116372163731637416375163761637716378163791638016381163821638316384163851638616387163881638916390163911639216393163941639516396163971639816399164001640116402164031640416405164061640716408164091641016411164121641316414164151641616417164181641916420164211642216423164241642516426164271642816429164301643116432164331643416435164361643716438164391644016441164421644316444164451644616447164481644916450164511645216453164541645516456164571645816459164601646116462164631646416465164661646716468164691647016471164721647316474164751647616477164781647916480164811648216483164841648516486164871648816489164901649116492164931649416495164961649716498164991650016501165021650316504165051650616507165081650916510165111651216513165141651516516165171651816519165201652116522165231652416525165261652716528165291653016531165321653316534165351653616537165381653916540165411654216543165441654516546165471654816549165501655116552165531655416555165561655716558165591656016561165621656316564165651656616567165681656916570165711657216573165741657516576165771657816579165801658116582165831658416585165861658716588165891659016591165921659316594165951659616597165981659916600166011660216603166041660516606166071660816609166101661116612166131661416615166161661716618166191662016621166221662316624166251662616627166281662916630166311663216633166341663516636166371663816639166401664116642166431664416645166461664716648166491665016651166521665316654166551665616657166581665916660166611666216663166641666516666166671666816669166701667116672166731667416675166761667716678166791668016681166821668316684166851668616687166881668916690166911669216693166941669516696166971669816699167001670116702167031670416705167061670716708167091671016711167121671316714167151671616717167181671916720167211672216723167241672516726167271672816729167301673116732167331673416735167361673716738167391674016741167421674316744167451674616747167481674916750167511675216753167541675516756167571675816759167601676116762167631676416765167661676716768167691677016771167721677316774167751677616777167781677916780167811678216783167841678516786167871678816789167901679116792167931679416795167961679716798167991680016801168021680316804168051680616807168081680916810168111681216813168141681516816168171681816819168201682116822168231682416825168261682716828168291683016831168321683316834168351683616837168381683916840168411684216843168441684516846168471684816849168501685116852168531685416855168561685716858168591686016861168621686316864168651686616867168681686916870168711687216873168741687516876168771687816879168801688116882168831688416885168861688716888168891689016891168921689316894168951689616897168981689916900169011690216903169041690516906169071690816909169101691116912169131691416915169161691716918169191692016921169221692316924169251692616927169281692916930169311693216933169341693516936169371693816939169401694116942169431694416945169461694716948169491695016951169521695316954169551695616957169581695916960169611696216963169641696516966169671696816969169701697116972169731697416975169761697716978169791698016981169821698316984169851698616987169881698916990169911699216993169941699516996169971699816999170001700117002170031700417005170061700717008170091701017011170121701317014170151701617017170181701917020170211702217023170241702517026170271702817029170301703117032170331703417035170361703717038170391704017041170421704317044170451704617047170481704917050170511705217053170541705517056170571705817059170601706117062170631706417065170661706717068170691707017071170721707317074170751707617077170781707917080170811708217083170841708517086170871708817089170901709117092170931709417095170961709717098170991710017101171021710317104171051710617107171081710917110171111711217113171141711517116171171711817119171201712117122171231712417125171261712717128171291713017131171321713317134171351713617137171381713917140171411714217143171441714517146171471714817149171501715117152171531715417155171561715717158171591716017161171621716317164171651716617167171681716917170171711717217173171741717517176171771717817179171801718117182171831718417185171861718717188171891719017191171921719317194171951719617197171981719917200172011720217203172041720517206172071720817209172101721117212172131721417215172161721717218172191722017221172221722317224172251722617227172281722917230172311723217233172341723517236172371723817239172401724117242172431724417245172461724717248172491725017251172521725317254172551725617257172581725917260172611726217263172641726517266172671726817269172701727117272172731727417275172761727717278172791728017281172821728317284172851728617287172881728917290172911729217293172941729517296172971729817299173001730117302173031730417305173061730717308173091731017311173121731317314173151731617317173181731917320173211732217323173241732517326173271732817329173301733117332173331733417335173361733717338173391734017341173421734317344173451734617347173481734917350173511735217353173541735517356173571735817359173601736117362173631736417365173661736717368173691737017371173721737317374173751737617377173781737917380173811738217383173841738517386173871738817389173901739117392173931739417395173961739717398173991740017401174021740317404174051740617407174081740917410174111741217413174141741517416174171741817419174201742117422174231742417425174261742717428174291743017431174321743317434174351743617437174381743917440174411744217443174441744517446174471744817449174501745117452174531745417455174561745717458174591746017461174621746317464174651746617467174681746917470174711747217473174741747517476174771747817479174801748117482174831748417485174861748717488174891749017491174921749317494174951749617497174981749917500175011750217503175041750517506175071750817509175101751117512175131751417515175161751717518175191752017521175221752317524175251752617527175281752917530175311753217533175341753517536175371753817539175401754117542175431754417545175461754717548175491755017551175521755317554175551755617557175581755917560175611756217563175641756517566175671756817569175701757117572175731757417575175761757717578175791758017581175821758317584175851758617587175881758917590175911759217593175941759517596175971759817599176001760117602176031760417605176061760717608176091761017611176121761317614176151761617617176181761917620176211762217623176241762517626176271762817629176301763117632176331763417635176361763717638176391764017641176421764317644176451764617647176481764917650176511765217653176541765517656176571765817659176601766117662176631766417665176661766717668176691767017671176721767317674176751767617677176781767917680176811768217683176841768517686176871768817689176901769117692176931769417695176961769717698176991770017701177021770317704177051770617707177081770917710177111771217713177141771517716177171771817719177201772117722177231772417725177261772717728177291773017731177321773317734177351773617737177381773917740177411774217743177441774517746177471774817749177501775117752177531775417755177561775717758177591776017761177621776317764177651776617767177681776917770177711777217773177741777517776177771777817779177801778117782177831778417785177861778717788177891779017791177921779317794177951779617797177981779917800178011780217803178041780517806178071780817809178101781117812178131781417815178161781717818178191782017821178221782317824178251782617827178281782917830178311783217833178341783517836178371783817839178401784117842178431784417845178461784717848178491785017851178521785317854178551785617857178581785917860178611786217863178641786517866178671786817869178701787117872178731787417875178761787717878178791788017881178821788317884178851788617887178881788917890178911789217893178941789517896178971789817899179001790117902179031790417905179061790717908179091791017911179121791317914179151791617917179181791917920179211792217923179241792517926179271792817929179301793117932179331793417935179361793717938179391794017941179421794317944179451794617947179481794917950179511795217953179541795517956179571795817959179601796117962179631796417965179661796717968179691797017971179721797317974179751797617977179781797917980179811798217983179841798517986179871798817989179901799117992179931799417995179961799717998179991800018001180021800318004180051800618007180081800918010180111801218013180141801518016180171801818019180201802118022180231802418025180261802718028180291803018031180321803318034180351803618037180381803918040180411804218043180441804518046180471804818049180501805118052180531805418055180561805718058180591806018061180621806318064180651806618067180681806918070180711807218073180741807518076180771807818079180801808118082180831808418085180861808718088180891809018091180921809318094180951809618097180981809918100181011810218103181041810518106181071810818109181101811118112181131811418115181161811718118181191812018121181221812318124181251812618127181281812918130181311813218133181341813518136181371813818139181401814118142181431814418145181461814718148181491815018151181521815318154181551815618157181581815918160181611816218163181641816518166181671816818169181701817118172181731817418175181761817718178181791818018181181821818318184181851818618187181881818918190181911819218193181941819518196181971819818199182001820118202182031820418205182061820718208182091821018211182121821318214182151821618217182181821918220182211822218223182241822518226182271822818229182301823118232182331823418235182361823718238182391824018241182421824318244182451824618247182481824918250182511825218253182541825518256182571825818259182601826118262182631826418265182661826718268182691827018271182721827318274182751827618277182781827918280182811828218283182841828518286182871828818289182901829118292182931829418295182961829718298182991830018301183021830318304183051830618307183081830918310183111831218313183141831518316183171831818319183201832118322183231832418325183261832718328183291833018331183321833318334183351833618337183381833918340183411834218343183441834518346183471834818349183501835118352183531835418355183561835718358183591836018361183621836318364183651836618367183681836918370183711837218373183741837518376183771837818379183801838118382183831838418385183861838718388183891839018391183921839318394183951839618397183981839918400184011840218403184041840518406184071840818409184101841118412184131841418415184161841718418184191842018421184221842318424184251842618427184281842918430184311843218433184341843518436184371843818439184401844118442184431844418445184461844718448184491845018451184521845318454184551845618457184581845918460184611846218463184641846518466184671846818469184701847118472184731847418475184761847718478184791848018481184821848318484184851848618487184881848918490184911849218493184941849518496184971849818499185001850118502185031850418505185061850718508185091851018511185121851318514185151851618517185181851918520185211852218523185241852518526185271852818529185301853118532185331853418535185361853718538185391854018541185421854318544185451854618547185481854918550185511855218553185541855518556185571855818559185601856118562185631856418565185661856718568185691857018571185721857318574185751857618577185781857918580185811858218583185841858518586185871858818589185901859118592185931859418595185961859718598185991860018601186021860318604186051860618607186081860918610186111861218613186141861518616186171861818619186201862118622186231862418625186261862718628186291863018631186321863318634186351863618637186381863918640186411864218643186441864518646186471864818649186501865118652186531865418655186561865718658186591866018661186621866318664186651866618667186681866918670186711867218673186741867518676186771867818679186801868118682186831868418685186861868718688186891869018691186921869318694186951869618697186981869918700187011870218703187041870518706187071870818709187101871118712187131871418715187161871718718187191872018721187221872318724187251872618727187281872918730187311873218733187341873518736187371873818739187401874118742187431874418745187461874718748187491875018751187521875318754187551875618757187581875918760187611876218763187641876518766187671876818769187701877118772187731877418775187761877718778187791878018781187821878318784187851878618787187881878918790187911879218793187941879518796187971879818799188001880118802188031880418805188061880718808188091881018811188121881318814188151881618817188181881918820188211882218823188241882518826188271882818829188301883118832188331883418835188361883718838188391884018841188421884318844188451884618847188481884918850188511885218853188541885518856188571885818859188601886118862188631886418865188661886718868188691887018871188721887318874188751887618877188781887918880188811888218883188841888518886188871888818889188901889118892188931889418895188961889718898188991890018901189021890318904189051890618907189081890918910189111891218913189141891518916189171891818919189201892118922189231892418925189261892718928189291893018931189321893318934189351893618937189381893918940189411894218943189441894518946189471894818949189501895118952189531895418955189561895718958189591896018961189621896318964189651896618967189681896918970189711897218973189741897518976189771897818979189801898118982189831898418985189861898718988189891899018991189921899318994189951899618997189981899919000190011900219003190041900519006190071900819009190101901119012190131901419015190161901719018190191902019021190221902319024190251902619027190281902919030190311903219033190341903519036190371903819039190401904119042190431904419045190461904719048190491905019051190521905319054190551905619057190581905919060190611906219063190641906519066190671906819069190701907119072190731907419075190761907719078190791908019081190821908319084190851908619087190881908919090190911909219093190941909519096190971909819099191001910119102191031910419105191061910719108191091911019111191121911319114191151911619117191181911919120191211912219123191241912519126191271912819129191301913119132191331913419135191361913719138191391914019141191421914319144191451914619147191481914919150191511915219153191541915519156191571915819159191601916119162191631916419165191661916719168191691917019171191721917319174191751917619177191781917919180191811918219183191841918519186191871918819189191901919119192191931919419195191961919719198191991920019201192021920319204192051920619207192081920919210192111921219213192141921519216192171921819219192201922119222192231922419225192261922719228192291923019231192321923319234192351923619237192381923919240192411924219243192441924519246192471924819249192501925119252192531925419255192561925719258192591926019261192621926319264192651926619267192681926919270192711927219273192741927519276192771927819279192801928119282192831928419285192861928719288192891929019291192921929319294192951929619297192981929919300193011930219303193041930519306193071930819309193101931119312193131931419315193161931719318193191932019321193221932319324193251932619327193281932919330193311933219333193341933519336193371933819339193401934119342193431934419345193461934719348193491935019351193521935319354193551935619357193581935919360193611936219363193641936519366193671936819369193701937119372193731937419375193761937719378193791938019381193821938319384193851938619387193881938919390193911939219393193941939519396193971939819399194001940119402194031940419405194061940719408194091941019411194121941319414194151941619417194181941919420194211942219423194241942519426194271942819429194301943119432194331943419435194361943719438194391944019441194421944319444194451944619447194481944919450194511945219453194541945519456194571945819459194601946119462194631946419465194661946719468194691947019471194721947319474194751947619477194781947919480194811948219483194841948519486194871948819489194901949119492194931949419495194961949719498194991950019501195021950319504195051950619507195081950919510195111951219513195141951519516195171951819519195201952119522195231952419525195261952719528195291953019531195321953319534195351953619537195381953919540195411954219543195441954519546195471954819549195501955119552195531955419555195561955719558195591956019561195621956319564195651956619567195681956919570195711957219573195741957519576195771957819579195801958119582195831958419585195861958719588195891959019591195921959319594195951959619597195981959919600196011960219603196041960519606196071960819609196101961119612196131961419615196161961719618196191962019621196221962319624196251962619627196281962919630196311963219633196341963519636196371963819639196401964119642196431964419645196461964719648196491965019651196521965319654196551965619657196581965919660196611966219663196641966519666196671966819669196701967119672196731967419675196761967719678196791968019681196821968319684196851968619687196881968919690196911969219693196941969519696196971969819699197001970119702197031970419705197061970719708197091971019711197121971319714197151971619717197181971919720197211972219723197241972519726197271972819729197301973119732197331973419735197361973719738197391974019741197421974319744197451974619747197481974919750197511975219753197541975519756197571975819759197601976119762197631976419765197661976719768197691977019771197721977319774197751977619777197781977919780197811978219783197841978519786197871978819789197901979119792197931979419795197961979719798197991980019801198021980319804198051980619807198081980919810198111981219813198141981519816198171981819819198201982119822198231982419825198261982719828198291983019831198321983319834198351983619837198381983919840198411984219843198441984519846198471984819849198501985119852198531985419855198561985719858198591986019861198621986319864198651986619867198681986919870198711987219873198741987519876198771987819879198801988119882198831988419885198861988719888198891989019891198921989319894198951989619897198981989919900199011990219903199041990519906199071990819909199101991119912199131991419915199161991719918199191992019921199221992319924199251992619927199281992919930199311993219933199341993519936199371993819939199401994119942199431994419945199461994719948199491995019951199521995319954199551995619957199581995919960199611996219963199641996519966199671996819969199701997119972199731997419975199761997719978199791998019981199821998319984199851998619987199881998919990199911999219993199941999519996199971999819999200002000120002200032000420005200062000720008200092001020011200122001320014200152001620017200182001920020200212002220023200242002520026200272002820029200302003120032200332003420035200362003720038200392004020041200422004320044200452004620047200482004920050200512005220053200542005520056200572005820059200602006120062200632006420065200662006720068200692007020071200722007320074200752007620077200782007920080200812008220083200842008520086200872008820089200902009120092200932009420095200962009720098200992010020101201022010320104201052010620107201082010920110201112011220113201142011520116201172011820119201202012120122201232012420125201262012720128201292013020131201322013320134201352013620137201382013920140201412014220143201442014520146201472014820149201502015120152201532015420155201562015720158201592016020161201622016320164201652016620167201682016920170201712017220173201742017520176201772017820179201802018120182201832018420185201862018720188201892019020191201922019320194201952019620197201982019920200202012020220203202042020520206202072020820209202102021120212202132021420215202162021720218202192022020221202222022320224202252022620227202282022920230202312023220233202342023520236202372023820239202402024120242202432024420245202462024720248202492025020251202522025320254202552025620257202582025920260202612026220263202642026520266202672026820269202702027120272202732027420275202762027720278202792028020281202822028320284202852028620287202882028920290202912029220293202942029520296202972029820299203002030120302203032030420305203062030720308203092031020311203122031320314203152031620317203182031920320203212032220323203242032520326203272032820329203302033120332203332033420335203362033720338203392034020341203422034320344203452034620347203482034920350203512035220353203542035520356203572035820359203602036120362203632036420365203662036720368203692037020371203722037320374203752037620377203782037920380203812038220383203842038520386203872038820389203902039120392203932039420395203962039720398203992040020401204022040320404204052040620407204082040920410204112041220413204142041520416204172041820419204202042120422204232042420425204262042720428204292043020431204322043320434204352043620437204382043920440204412044220443204442044520446204472044820449204502045120452204532045420455204562045720458204592046020461204622046320464204652046620467204682046920470204712047220473204742047520476204772047820479204802048120482204832048420485204862048720488204892049020491204922049320494204952049620497204982049920500205012050220503205042050520506205072050820509205102051120512205132051420515205162051720518205192052020521205222052320524205252052620527205282052920530205312053220533205342053520536205372053820539205402054120542205432054420545205462054720548205492055020551205522055320554205552055620557205582055920560205612056220563205642056520566205672056820569205702057120572205732057420575205762057720578205792058020581205822058320584205852058620587205882058920590205912059220593205942059520596205972059820599206002060120602206032060420605206062060720608206092061020611206122061320614206152061620617206182061920620206212062220623206242062520626206272062820629206302063120632206332063420635206362063720638206392064020641206422064320644206452064620647206482064920650206512065220653206542065520656206572065820659206602066120662206632066420665206662066720668206692067020671206722067320674206752067620677206782067920680206812068220683206842068520686206872068820689206902069120692206932069420695206962069720698206992070020701207022070320704207052070620707207082070920710207112071220713207142071520716207172071820719207202072120722207232072420725207262072720728207292073020731207322073320734207352073620737207382073920740207412074220743207442074520746207472074820749207502075120752207532075420755207562075720758207592076020761207622076320764207652076620767207682076920770207712077220773207742077520776207772077820779207802078120782207832078420785207862078720788207892079020791207922079320794207952079620797207982079920800208012080220803208042080520806208072080820809208102081120812208132081420815208162081720818208192082020821208222082320824208252082620827208282082920830208312083220833208342083520836208372083820839208402084120842208432084420845208462084720848208492085020851208522085320854208552085620857208582085920860208612086220863208642086520866208672086820869208702087120872208732087420875208762087720878208792088020881208822088320884208852088620887208882088920890208912089220893208942089520896208972089820899209002090120902209032090420905209062090720908209092091020911209122091320914209152091620917209182091920920209212092220923209242092520926209272092820929209302093120932209332093420935209362093720938209392094020941209422094320944209452094620947209482094920950209512095220953209542095520956209572095820959209602096120962209632096420965209662096720968209692097020971209722097320974209752097620977209782097920980209812098220983209842098520986209872098820989209902099120992209932099420995209962099720998209992100021001210022100321004210052100621007210082100921010210112101221013210142101521016210172101821019210202102121022210232102421025210262102721028210292103021031210322103321034210352103621037210382103921040210412104221043210442104521046210472104821049210502105121052210532105421055210562105721058210592106021061210622106321064210652106621067210682106921070210712107221073210742107521076210772107821079210802108121082210832108421085210862108721088210892109021091210922109321094210952109621097210982109921100211012110221103211042110521106211072110821109211102111121112211132111421115211162111721118211192112021121211222112321124211252112621127211282112921130211312113221133211342113521136211372113821139211402114121142211432114421145211462114721148211492115021151211522115321154211552115621157211582115921160211612116221163211642116521166211672116821169211702117121172211732117421175211762117721178211792118021181211822118321184211852118621187211882118921190211912119221193211942119521196211972119821199212002120121202212032120421205212062120721208212092121021211212122121321214212152121621217212182121921220212212122221223212242122521226212272122821229212302123121232212332123421235212362123721238212392124021241212422124321244212452124621247212482124921250212512125221253212542125521256212572125821259212602126121262212632126421265212662126721268212692127021271212722127321274212752127621277212782127921280212812128221283212842128521286212872128821289212902129121292212932129421295212962129721298212992130021301213022130321304213052130621307213082130921310213112131221313213142131521316213172131821319213202132121322213232132421325213262132721328213292133021331213322133321334213352133621337213382133921340213412134221343213442134521346213472134821349213502135121352213532135421355213562135721358213592136021361213622136321364213652136621367213682136921370213712137221373213742137521376213772137821379213802138121382213832138421385213862138721388213892139021391213922139321394213952139621397213982139921400214012140221403214042140521406214072140821409214102141121412214132141421415214162141721418214192142021421214222142321424214252142621427214282142921430214312143221433214342143521436214372143821439214402144121442214432144421445214462144721448214492145021451214522145321454214552145621457214582145921460214612146221463214642146521466214672146821469214702147121472214732147421475214762147721478214792148021481214822148321484214852148621487214882148921490214912149221493214942149521496214972149821499215002150121502215032150421505215062150721508215092151021511215122151321514215152151621517215182151921520215212152221523215242152521526215272152821529215302153121532215332153421535215362153721538215392154021541215422154321544215452154621547215482154921550215512155221553215542155521556215572155821559215602156121562215632156421565215662156721568215692157021571215722157321574215752157621577215782157921580215812158221583215842158521586215872158821589215902159121592215932159421595215962159721598215992160021601216022160321604216052160621607216082160921610216112161221613216142161521616216172161821619216202162121622216232162421625216262162721628216292163021631216322163321634216352163621637216382163921640216412164221643216442164521646216472164821649216502165121652216532165421655216562165721658216592166021661216622166321664216652166621667216682166921670216712167221673216742167521676216772167821679216802168121682216832168421685216862168721688216892169021691216922169321694216952169621697216982169921700217012170221703217042170521706217072170821709217102171121712217132171421715217162171721718217192172021721217222172321724217252172621727217282172921730217312173221733217342173521736217372173821739217402174121742217432174421745217462174721748217492175021751217522175321754217552175621757217582175921760217612176221763217642176521766217672176821769217702177121772217732177421775217762177721778217792178021781217822178321784217852178621787217882178921790217912179221793217942179521796217972179821799218002180121802218032180421805218062180721808218092181021811218122181321814218152181621817218182181921820218212182221823218242182521826218272182821829218302183121832218332183421835218362183721838218392184021841218422184321844218452184621847218482184921850218512185221853218542185521856218572185821859218602186121862218632186421865218662186721868218692187021871218722187321874218752187621877218782187921880218812188221883218842188521886218872188821889218902189121892218932189421895218962189721898218992190021901219022190321904219052190621907219082190921910219112191221913219142191521916219172191821919219202192121922219232192421925219262192721928219292193021931219322193321934219352193621937219382193921940219412194221943219442194521946219472194821949219502195121952219532195421955219562195721958219592196021961219622196321964219652196621967219682196921970219712197221973219742197521976219772197821979219802198121982219832198421985219862198721988219892199021991219922199321994219952199621997219982199922000220012200222003220042200522006220072200822009220102201122012220132201422015220162201722018220192202022021220222202322024220252202622027220282202922030220312203222033220342203522036220372203822039220402204122042220432204422045220462204722048220492205022051220522205322054220552205622057220582205922060220612206222063220642206522066220672206822069220702207122072220732207422075220762207722078220792208022081220822208322084220852208622087220882208922090220912209222093220942209522096220972209822099221002210122102221032210422105221062210722108221092211022111221122211322114221152211622117221182211922120221212212222123221242212522126221272212822129221302213122132221332213422135221362213722138221392214022141221422214322144221452214622147221482214922150221512215222153221542215522156221572215822159221602216122162221632216422165221662216722168221692217022171221722217322174221752217622177221782217922180221812218222183221842218522186221872218822189221902219122192221932219422195221962219722198221992220022201222022220322204222052220622207222082220922210222112221222213222142221522216222172221822219222202222122222222232222422225222262222722228222292223022231222322223322234222352223622237222382223922240222412224222243222442224522246222472224822249222502225122252222532225422255222562225722258222592226022261222622226322264222652226622267222682226922270222712227222273222742227522276222772227822279222802228122282222832228422285222862228722288222892229022291222922229322294222952229622297222982229922300223012230222303223042230522306223072230822309223102231122312223132231422315223162231722318223192232022321223222232322324223252232622327223282232922330223312233222333223342233522336223372233822339223402234122342223432234422345223462234722348223492235022351223522235322354223552235622357223582235922360223612236222363223642236522366223672236822369223702237122372223732237422375223762237722378223792238022381223822238322384223852238622387223882238922390223912239222393223942239522396223972239822399224002240122402224032240422405224062240722408224092241022411224122241322414224152241622417224182241922420224212242222423224242242522426224272242822429224302243122432224332243422435224362243722438224392244022441224422244322444224452244622447224482244922450224512245222453224542245522456224572245822459224602246122462224632246422465224662246722468224692247022471224722247322474224752247622477224782247922480224812248222483224842248522486224872248822489224902249122492224932249422495224962249722498224992250022501225022250322504225052250622507225082250922510225112251222513225142251522516225172251822519225202252122522225232252422525225262252722528225292253022531225322253322534225352253622537225382253922540225412254222543225442254522546225472254822549225502255122552225532255422555225562255722558225592256022561225622256322564225652256622567225682256922570225712257222573225742257522576225772257822579225802258122582225832258422585225862258722588225892259022591225922259322594225952259622597225982259922600226012260222603226042260522606226072260822609226102261122612226132261422615226162261722618226192262022621226222262322624226252262622627226282262922630226312263222633226342263522636226372263822639226402264122642226432264422645226462264722648226492265022651226522265322654226552265622657226582265922660226612266222663226642266522666226672266822669226702267122672226732267422675226762267722678226792268022681226822268322684226852268622687226882268922690226912269222693226942269522696226972269822699227002270122702227032270422705227062270722708227092271022711227122271322714227152271622717227182271922720227212272222723227242272522726227272272822729227302273122732227332273422735227362273722738227392274022741227422274322744227452274622747227482274922750227512275222753227542275522756227572275822759227602276122762227632276422765227662276722768227692277022771227722277322774227752277622777227782277922780227812278222783227842278522786227872278822789227902279122792227932279422795227962279722798227992280022801228022280322804228052280622807228082280922810228112281222813228142281522816228172281822819228202282122822228232282422825228262282722828228292283022831228322283322834228352283622837228382283922840228412284222843228442284522846228472284822849228502285122852228532285422855228562285722858228592286022861228622286322864228652286622867228682286922870228712287222873228742287522876228772287822879228802288122882228832288422885228862288722888228892289022891228922289322894228952289622897228982289922900229012290222903229042290522906229072290822909229102291122912229132291422915229162291722918229192292022921229222292322924229252292622927229282292922930229312293222933229342293522936229372293822939229402294122942229432294422945229462294722948229492295022951229522295322954229552295622957229582295922960229612296222963229642296522966229672296822969229702297122972229732297422975229762297722978229792298022981229822298322984229852298622987229882298922990229912299222993229942299522996229972299822999230002300123002230032300423005230062300723008230092301023011230122301323014230152301623017230182301923020230212302223023230242302523026230272302823029230302303123032230332303423035230362303723038230392304023041230422304323044230452304623047230482304923050230512305223053230542305523056230572305823059230602306123062230632306423065230662306723068230692307023071230722307323074230752307623077230782307923080230812308223083230842308523086230872308823089230902309123092230932309423095230962309723098230992310023101231022310323104231052310623107231082310923110231112311223113231142311523116231172311823119231202312123122231232312423125231262312723128231292313023131231322313323134231352313623137231382313923140231412314223143231442314523146231472314823149231502315123152231532315423155231562315723158231592316023161231622316323164231652316623167231682316923170231712317223173231742317523176231772317823179231802318123182231832318423185231862318723188231892319023191231922319323194231952319623197231982319923200232012320223203232042320523206232072320823209232102321123212232132321423215232162321723218232192322023221232222322323224232252322623227232282322923230232312323223233232342323523236232372323823239232402324123242232432324423245232462324723248232492325023251232522325323254232552325623257232582325923260232612326223263232642326523266232672326823269232702327123272232732327423275232762327723278232792328023281232822328323284232852328623287232882328923290232912329223293232942329523296232972329823299233002330123302233032330423305233062330723308233092331023311233122331323314233152331623317233182331923320233212332223323233242332523326233272332823329233302333123332233332333423335233362333723338233392334023341233422334323344233452334623347233482334923350233512335223353233542335523356233572335823359233602336123362233632336423365233662336723368233692337023371233722337323374233752337623377233782337923380233812338223383233842338523386233872338823389233902339123392233932339423395233962339723398233992340023401234022340323404234052340623407234082340923410234112341223413234142341523416234172341823419234202342123422234232342423425234262342723428234292343023431234322343323434234352343623437234382343923440234412344223443234442344523446234472344823449234502345123452234532345423455234562345723458234592346023461234622346323464234652346623467234682346923470234712347223473234742347523476234772347823479234802348123482234832348423485234862348723488234892349023491234922349323494234952349623497234982349923500235012350223503235042350523506235072350823509235102351123512235132351423515235162351723518235192352023521235222352323524235252352623527235282352923530235312353223533235342353523536235372353823539235402354123542235432354423545235462354723548235492355023551235522355323554235552355623557235582355923560235612356223563235642356523566235672356823569235702357123572235732357423575235762357723578235792358023581235822358323584235852358623587235882358923590235912359223593235942359523596235972359823599236002360123602236032360423605236062360723608236092361023611236122361323614236152361623617236182361923620236212362223623236242362523626236272362823629236302363123632236332363423635236362363723638236392364023641236422364323644236452364623647236482364923650236512365223653236542365523656236572365823659236602366123662236632366423665236662366723668236692367023671236722367323674236752367623677236782367923680236812368223683236842368523686236872368823689236902369123692236932369423695236962369723698236992370023701237022370323704237052370623707237082370923710237112371223713237142371523716237172371823719237202372123722237232372423725237262372723728237292373023731237322373323734237352373623737237382373923740237412374223743237442374523746237472374823749237502375123752237532375423755237562375723758237592376023761237622376323764237652376623767237682376923770237712377223773237742377523776237772377823779237802378123782237832378423785237862378723788237892379023791237922379323794237952379623797237982379923800238012380223803238042380523806238072380823809238102381123812238132381423815238162381723818238192382023821238222382323824238252382623827238282382923830238312383223833238342383523836238372383823839238402384123842238432384423845238462384723848238492385023851238522385323854238552385623857238582385923860238612386223863238642386523866238672386823869238702387123872238732387423875238762387723878238792388023881238822388323884238852388623887238882388923890238912389223893238942389523896238972389823899239002390123902239032390423905239062390723908239092391023911239122391323914239152391623917239182391923920239212392223923239242392523926239272392823929239302393123932239332393423935239362393723938239392394023941239422394323944239452394623947239482394923950239512395223953239542395523956239572395823959239602396123962239632396423965239662396723968239692397023971239722397323974239752397623977239782397923980239812398223983239842398523986239872398823989239902399123992239932399423995239962399723998239992400024001240022400324004240052400624007240082400924010240112401224013240142401524016240172401824019240202402124022240232402424025240262402724028240292403024031240322403324034240352403624037240382403924040240412404224043240442404524046240472404824049240502405124052240532405424055240562405724058240592406024061240622406324064240652406624067240682406924070240712407224073240742407524076240772407824079240802408124082240832408424085240862408724088240892409024091240922409324094240952409624097240982409924100241012410224103241042410524106241072410824109241102411124112241132411424115241162411724118241192412024121241222412324124241252412624127241282412924130241312413224133241342413524136241372413824139241402414124142241432414424145241462414724148241492415024151241522415324154241552415624157241582415924160241612416224163241642416524166241672416824169241702417124172241732417424175241762417724178241792418024181241822418324184241852418624187241882418924190241912419224193241942419524196241972419824199242002420124202242032420424205242062420724208242092421024211242122421324214242152421624217242182421924220242212422224223242242422524226242272422824229242302423124232242332423424235242362423724238242392424024241242422424324244242452424624247242482424924250242512425224253242542425524256242572425824259242602426124262242632426424265242662426724268242692427024271242722427324274242752427624277242782427924280242812428224283242842428524286242872428824289242902429124292242932429424295242962429724298242992430024301243022430324304243052430624307243082430924310243112431224313243142431524316243172431824319243202432124322243232432424325243262432724328243292433024331243322433324334243352433624337243382433924340243412434224343243442434524346243472434824349243502435124352243532435424355243562435724358243592436024361243622436324364243652436624367243682436924370243712437224373243742437524376243772437824379243802438124382243832438424385243862438724388243892439024391243922439324394243952439624397243982439924400244012440224403244042440524406244072440824409244102441124412244132441424415244162441724418244192442024421244222442324424244252442624427244282442924430244312443224433244342443524436244372443824439244402444124442244432444424445244462444724448244492445024451244522445324454244552445624457244582445924460244612446224463244642446524466244672446824469244702447124472244732447424475244762447724478244792448024481244822448324484244852448624487244882448924490244912449224493244942449524496244972449824499245002450124502245032450424505245062450724508245092451024511245122451324514245152451624517245182451924520245212452224523245242452524526245272452824529245302453124532245332453424535245362453724538245392454024541245422454324544245452454624547245482454924550245512455224553245542455524556245572455824559245602456124562245632456424565245662456724568245692457024571245722457324574245752457624577245782457924580245812458224583245842458524586245872458824589245902459124592245932459424595245962459724598245992460024601246022460324604246052460624607246082460924610246112461224613246142461524616246172461824619246202462124622246232462424625246262462724628246292463024631246322463324634246352463624637246382463924640246412464224643246442464524646246472464824649246502465124652246532465424655246562465724658246592466024661246622466324664246652466624667246682466924670246712467224673246742467524676246772467824679246802468124682246832468424685246862468724688246892469024691246922469324694246952469624697246982469924700247012470224703247042470524706247072470824709247102471124712247132471424715247162471724718247192472024721247222472324724247252472624727247282472924730247312473224733247342473524736247372473824739247402474124742247432474424745247462474724748247492475024751247522475324754247552475624757247582475924760247612476224763247642476524766247672476824769247702477124772247732477424775247762477724778247792478024781247822478324784247852478624787247882478924790247912479224793247942479524796247972479824799248002480124802248032480424805248062480724808248092481024811248122481324814248152481624817248182481924820248212482224823248242482524826248272482824829248302483124832248332483424835248362483724838248392484024841248422484324844248452484624847248482484924850248512485224853248542485524856248572485824859248602486124862248632486424865248662486724868248692487024871248722487324874248752487624877248782487924880248812488224883248842488524886248872488824889248902489124892248932489424895248962489724898248992490024901249022490324904249052490624907249082490924910249112491224913249142491524916249172491824919249202492124922249232492424925249262492724928249292493024931249322493324934249352493624937249382493924940249412494224943249442494524946249472494824949249502495124952249532495424955249562495724958249592496024961249622496324964249652496624967249682496924970249712497224973249742497524976249772497824979249802498124982249832498424985249862498724988249892499024991249922499324994249952499624997249982499925000250012500225003250042500525006250072500825009250102501125012250132501425015250162501725018250192502025021250222502325024250252502625027250282502925030250312503225033250342503525036250372503825039250402504125042250432504425045250462504725048250492505025051250522505325054250552505625057250582505925060250612506225063250642506525066250672506825069250702507125072250732507425075250762507725078250792508025081250822508325084250852508625087250882508925090250912509225093250942509525096250972509825099251002510125102251032510425105251062510725108251092511025111251122511325114251152511625117251182511925120251212512225123251242512525126251272512825129251302513125132251332513425135251362513725138251392514025141251422514325144251452514625147251482514925150251512515225153251542515525156251572515825159251602516125162251632516425165251662516725168251692517025171251722517325174251752517625177251782517925180251812518225183251842518525186251872518825189251902519125192251932519425195251962519725198251992520025201252022520325204252052520625207252082520925210252112521225213252142521525216252172521825219252202522125222252232522425225252262522725228252292523025231252322523325234252352523625237252382523925240252412524225243252442524525246252472524825249252502525125252252532525425255252562525725258252592526025261252622526325264252652526625267252682526925270252712527225273252742527525276252772527825279252802528125282252832528425285252862528725288252892529025291252922529325294252952529625297252982529925300253012530225303253042530525306253072530825309253102531125312253132531425315253162531725318253192532025321253222532325324253252532625327253282532925330253312533225333253342533525336253372533825339253402534125342253432534425345253462534725348253492535025351253522535325354253552535625357253582535925360253612536225363253642536525366253672536825369253702537125372253732537425375253762537725378253792538025381253822538325384253852538625387253882538925390253912539225393253942539525396253972539825399254002540125402254032540425405254062540725408254092541025411254122541325414254152541625417254182541925420254212542225423254242542525426254272542825429254302543125432254332543425435254362543725438254392544025441254422544325444254452544625447254482544925450254512545225453254542545525456254572545825459254602546125462254632546425465254662546725468254692547025471254722547325474254752547625477254782547925480254812548225483254842548525486254872548825489254902549125492254932549425495254962549725498254992550025501255022550325504255052550625507255082550925510255112551225513255142551525516255172551825519255202552125522255232552425525255262552725528255292553025531255322553325534255352553625537255382553925540255412554225543255442554525546255472554825549255502555125552255532555425555255562555725558255592556025561255622556325564255652556625567255682556925570255712557225573255742557525576255772557825579255802558125582255832558425585255862558725588255892559025591255922559325594255952559625597255982559925600256012560225603256042560525606256072560825609256102561125612256132561425615256162561725618256192562025621256222562325624256252562625627256282562925630256312563225633256342563525636256372563825639256402564125642256432564425645256462564725648256492565025651256522565325654256552565625657256582565925660256612566225663256642566525666256672566825669256702567125672256732567425675256762567725678256792568025681256822568325684256852568625687256882568925690256912569225693256942569525696256972569825699257002570125702257032570425705257062570725708257092571025711257122571325714257152571625717257182571925720257212572225723257242572525726257272572825729257302573125732257332573425735257362573725738257392574025741257422574325744257452574625747257482574925750257512575225753257542575525756257572575825759257602576125762257632576425765257662576725768257692577025771257722577325774257752577625777257782577925780257812578225783257842578525786257872578825789257902579125792257932579425795257962579725798257992580025801258022580325804258052580625807258082580925810258112581225813258142581525816258172581825819258202582125822258232582425825258262582725828258292583025831258322583325834258352583625837258382583925840258412584225843258442584525846258472584825849258502585125852258532585425855258562585725858258592586025861258622586325864258652586625867258682586925870258712587225873258742587525876258772587825879258802588125882258832588425885258862588725888258892589025891258922589325894258952589625897258982589925900259012590225903259042590525906259072590825909259102591125912259132591425915259162591725918259192592025921259222592325924259252592625927259282592925930259312593225933259342593525936259372593825939259402594125942259432594425945259462594725948259492595025951259522595325954259552595625957259582595925960259612596225963259642596525966259672596825969259702597125972259732597425975259762597725978259792598025981259822598325984259852598625987259882598925990259912599225993259942599525996259972599825999260002600126002260032600426005260062600726008260092601026011260122601326014260152601626017260182601926020260212602226023260242602526026260272602826029260302603126032260332603426035260362603726038260392604026041260422604326044260452604626047260482604926050260512605226053260542605526056260572605826059260602606126062260632606426065260662606726068260692607026071260722607326074260752607626077260782607926080260812608226083260842608526086260872608826089260902609126092260932609426095260962609726098260992610026101261022610326104261052610626107261082610926110261112611226113261142611526116261172611826119261202612126122261232612426125261262612726128261292613026131261322613326134261352613626137261382613926140261412614226143261442614526146261472614826149261502615126152261532615426155261562615726158261592616026161261622616326164261652616626167261682616926170261712617226173261742617526176261772617826179261802618126182261832618426185261862618726188261892619026191261922619326194261952619626197261982619926200262012620226203262042620526206262072620826209262102621126212262132621426215262162621726218262192622026221262222622326224262252622626227262282622926230262312623226233262342623526236262372623826239262402624126242262432624426245262462624726248262492625026251262522625326254262552625626257262582625926260262612626226263262642626526266262672626826269262702627126272262732627426275262762627726278262792628026281262822628326284262852628626287262882628926290262912629226293262942629526296262972629826299263002630126302263032630426305263062630726308263092631026311263122631326314263152631626317263182631926320263212632226323263242632526326263272632826329263302633126332263332633426335263362633726338263392634026341263422634326344263452634626347263482634926350263512635226353263542635526356263572635826359263602636126362263632636426365263662636726368263692637026371263722637326374263752637626377263782637926380263812638226383263842638526386263872638826389263902639126392263932639426395263962639726398263992640026401264022640326404264052640626407264082640926410264112641226413264142641526416264172641826419264202642126422264232642426425264262642726428264292643026431264322643326434264352643626437264382643926440264412644226443264442644526446264472644826449264502645126452264532645426455264562645726458264592646026461264622646326464264652646626467264682646926470264712647226473264742647526476264772647826479264802648126482264832648426485264862648726488264892649026491264922649326494264952649626497264982649926500265012650226503265042650526506265072650826509265102651126512265132651426515265162651726518265192652026521265222652326524265252652626527265282652926530265312653226533265342653526536265372653826539265402654126542265432654426545265462654726548265492655026551265522655326554265552655626557265582655926560265612656226563265642656526566265672656826569265702657126572265732657426575265762657726578265792658026581265822658326584265852658626587265882658926590265912659226593265942659526596265972659826599266002660126602266032660426605266062660726608266092661026611266122661326614266152661626617266182661926620266212662226623266242662526626266272662826629266302663126632266332663426635266362663726638266392664026641266422664326644266452664626647266482664926650266512665226653266542665526656266572665826659266602666126662266632666426665266662666726668266692667026671266722667326674266752667626677266782667926680266812668226683266842668526686266872668826689266902669126692266932669426695266962669726698266992670026701267022670326704267052670626707267082670926710267112671226713267142671526716267172671826719267202672126722267232672426725267262672726728267292673026731267322673326734267352673626737267382673926740267412674226743267442674526746267472674826749267502675126752267532675426755267562675726758267592676026761267622676326764267652676626767267682676926770267712677226773267742677526776267772677826779267802678126782267832678426785267862678726788267892679026791267922679326794267952679626797267982679926800268012680226803268042680526806268072680826809268102681126812268132681426815268162681726818268192682026821268222682326824268252682626827268282682926830268312683226833268342683526836268372683826839268402684126842268432684426845268462684726848268492685026851268522685326854268552685626857268582685926860268612686226863268642686526866268672686826869268702687126872268732687426875268762687726878268792688026881268822688326884268852688626887268882688926890268912689226893268942689526896268972689826899269002690126902269032690426905269062690726908269092691026911269122691326914269152691626917269182691926920269212692226923269242692526926269272692826929269302693126932269332693426935269362693726938269392694026941269422694326944269452694626947269482694926950269512695226953269542695526956269572695826959269602696126962269632696426965269662696726968269692697026971269722697326974269752697626977269782697926980269812698226983269842698526986269872698826989269902699126992269932699426995269962699726998269992700027001270022700327004270052700627007270082700927010270112701227013270142701527016270172701827019270202702127022270232702427025270262702727028270292703027031270322703327034270352703627037270382703927040270412704227043270442704527046270472704827049270502705127052270532705427055270562705727058270592706027061270622706327064270652706627067270682706927070270712707227073270742707527076270772707827079270802708127082270832708427085270862708727088270892709027091270922709327094270952709627097270982709927100271012710227103271042710527106271072710827109271102711127112271132711427115271162711727118271192712027121271222712327124271252712627127271282712927130271312713227133271342713527136271372713827139271402714127142271432714427145271462714727148271492715027151271522715327154271552715627157271582715927160271612716227163271642716527166271672716827169271702717127172271732717427175271762717727178271792718027181271822718327184271852718627187271882718927190271912719227193271942719527196271972719827199272002720127202272032720427205272062720727208272092721027211272122721327214272152721627217272182721927220272212722227223272242722527226272272722827229272302723127232272332723427235272362723727238272392724027241272422724327244272452724627247272482724927250272512725227253272542725527256272572725827259272602726127262272632726427265272662726727268272692727027271272722727327274272752727627277272782727927280272812728227283272842728527286272872728827289272902729127292272932729427295272962729727298272992730027301273022730327304273052730627307273082730927310273112731227313273142731527316273172731827319273202732127322273232732427325273262732727328273292733027331273322733327334273352733627337273382733927340273412734227343273442734527346273472734827349273502735127352273532735427355273562735727358273592736027361273622736327364273652736627367273682736927370273712737227373273742737527376273772737827379273802738127382273832738427385273862738727388273892739027391273922739327394273952739627397273982739927400274012740227403274042740527406274072740827409274102741127412274132741427415274162741727418274192742027421274222742327424274252742627427274282742927430274312743227433274342743527436274372743827439274402744127442274432744427445274462744727448274492745027451274522745327454274552745627457274582745927460274612746227463274642746527466274672746827469274702747127472274732747427475274762747727478274792748027481274822748327484274852748627487274882748927490274912749227493274942749527496274972749827499275002750127502275032750427505275062750727508275092751027511275122751327514275152751627517275182751927520275212752227523275242752527526275272752827529275302753127532275332753427535275362753727538275392754027541275422754327544275452754627547275482754927550275512755227553275542755527556275572755827559275602756127562275632756427565275662756727568275692757027571275722757327574275752757627577275782757927580275812758227583275842758527586275872758827589275902759127592275932759427595275962759727598275992760027601276022760327604276052760627607276082760927610276112761227613276142761527616276172761827619276202762127622276232762427625276262762727628276292763027631276322763327634276352763627637276382763927640276412764227643276442764527646276472764827649276502765127652276532765427655276562765727658276592766027661276622766327664276652766627667276682766927670276712767227673276742767527676276772767827679276802768127682276832768427685276862768727688276892769027691276922769327694276952769627697276982769927700277012770227703277042770527706277072770827709277102771127712277132771427715277162771727718277192772027721277222772327724277252772627727277282772927730277312773227733277342773527736277372773827739277402774127742277432774427745277462774727748277492775027751277522775327754277552775627757277582775927760277612776227763277642776527766277672776827769277702777127772277732777427775277762777727778277792778027781277822778327784277852778627787277882778927790277912779227793277942779527796277972779827799278002780127802278032780427805278062780727808278092781027811278122781327814278152781627817278182781927820278212782227823278242782527826278272782827829278302783127832278332783427835278362783727838278392784027841278422784327844278452784627847278482784927850278512785227853278542785527856278572785827859278602786127862278632786427865278662786727868278692787027871278722787327874278752787627877278782787927880278812788227883278842788527886278872788827889278902789127892278932789427895278962789727898278992790027901279022790327904279052790627907279082790927910279112791227913279142791527916279172791827919279202792127922279232792427925279262792727928279292793027931279322793327934279352793627937279382793927940279412794227943279442794527946279472794827949279502795127952279532795427955279562795727958279592796027961279622796327964279652796627967279682796927970279712797227973279742797527976279772797827979279802798127982279832798427985279862798727988279892799027991279922799327994279952799627997279982799928000280012800228003280042800528006280072800828009280102801128012280132801428015280162801728018280192802028021280222802328024280252802628027280282802928030280312803228033280342803528036280372803828039280402804128042280432804428045280462804728048280492805028051280522805328054280552805628057280582805928060280612806228063280642806528066280672806828069280702807128072280732807428075280762807728078280792808028081280822808328084280852808628087280882808928090280912809228093280942809528096280972809828099281002810128102281032810428105281062810728108281092811028111281122811328114281152811628117281182811928120281212812228123281242812528126281272812828129281302813128132281332813428135281362813728138281392814028141281422814328144281452814628147281482814928150281512815228153281542815528156281572815828159281602816128162281632816428165281662816728168281692817028171281722817328174281752817628177281782817928180281812818228183281842818528186281872818828189281902819128192281932819428195281962819728198281992820028201282022820328204282052820628207282082820928210282112821228213282142821528216282172821828219282202822128222282232822428225282262822728228282292823028231282322823328234282352823628237282382823928240282412824228243282442824528246282472824828249282502825128252282532825428255282562825728258282592826028261282622826328264282652826628267282682826928270282712827228273282742827528276282772827828279282802828128282282832828428285282862828728288282892829028291282922829328294282952829628297282982829928300283012830228303283042830528306283072830828309283102831128312283132831428315283162831728318283192832028321283222832328324283252832628327283282832928330283312833228333283342833528336283372833828339283402834128342283432834428345283462834728348283492835028351283522835328354283552835628357283582835928360283612836228363283642836528366283672836828369283702837128372283732837428375283762837728378283792838028381283822838328384283852838628387283882838928390283912839228393283942839528396283972839828399284002840128402284032840428405284062840728408284092841028411284122841328414284152841628417284182841928420284212842228423284242842528426284272842828429284302843128432284332843428435284362843728438284392844028441284422844328444284452844628447284482844928450284512845228453284542845528456284572845828459284602846128462284632846428465284662846728468284692847028471284722847328474284752847628477284782847928480284812848228483284842848528486284872848828489284902849128492284932849428495284962849728498284992850028501285022850328504285052850628507285082850928510285112851228513285142851528516285172851828519285202852128522285232852428525285262852728528285292853028531285322853328534285352853628537285382853928540285412854228543285442854528546285472854828549285502855128552285532855428555285562855728558285592856028561285622856328564285652856628567285682856928570285712857228573285742857528576285772857828579285802858128582285832858428585285862858728588285892859028591285922859328594285952859628597285982859928600286012860228603286042860528606286072860828609286102861128612286132861428615286162861728618286192862028621286222862328624286252862628627286282862928630286312863228633286342863528636286372863828639286402864128642286432864428645286462864728648286492865028651286522865328654286552865628657286582865928660286612866228663286642866528666286672866828669286702867128672286732867428675286762867728678286792868028681286822868328684286852868628687286882868928690286912869228693286942869528696286972869828699287002870128702287032870428705287062870728708287092871028711287122871328714287152871628717287182871928720287212872228723287242872528726287272872828729287302873128732287332873428735287362873728738287392874028741287422874328744287452874628747287482874928750287512875228753287542875528756287572875828759287602876128762287632876428765287662876728768287692877028771287722877328774287752877628777287782877928780287812878228783287842878528786287872878828789287902879128792287932879428795287962879728798287992880028801288022880328804288052880628807288082880928810288112881228813288142881528816288172881828819288202882128822288232882428825288262882728828288292883028831288322883328834288352883628837288382883928840288412884228843288442884528846288472884828849288502885128852288532885428855288562885728858288592886028861288622886328864288652886628867288682886928870288712887228873288742887528876288772887828879288802888128882288832888428885288862888728888288892889028891288922889328894288952889628897288982889928900289012890228903289042890528906289072890828909289102891128912289132891428915289162891728918289192892028921289222892328924289252892628927289282892928930289312893228933289342893528936289372893828939289402894128942289432894428945289462894728948289492895028951289522895328954289552895628957289582895928960289612896228963289642896528966289672896828969289702897128972289732897428975289762897728978289792898028981289822898328984289852898628987289882898928990289912899228993289942899528996289972899828999290002900129002290032900429005290062900729008290092901029011290122901329014290152901629017290182901929020290212902229023290242902529026290272902829029290302903129032290332903429035290362903729038290392904029041290422904329044290452904629047290482904929050290512905229053290542905529056290572905829059290602906129062290632906429065290662906729068290692907029071290722907329074290752907629077290782907929080290812908229083290842908529086290872908829089290902909129092290932909429095290962909729098290992910029101291022910329104291052910629107291082910929110291112911229113291142911529116291172911829119291202912129122291232912429125291262912729128291292913029131291322913329134291352913629137291382913929140291412914229143291442914529146291472914829149291502915129152291532915429155291562915729158291592916029161291622916329164291652916629167291682916929170291712917229173291742917529176291772917829179291802918129182291832918429185291862918729188291892919029191291922919329194291952919629197291982919929200292012920229203292042920529206292072920829209292102921129212292132921429215292162921729218292192922029221292222922329224292252922629227292282922929230292312923229233292342923529236292372923829239292402924129242292432924429245292462924729248292492925029251292522925329254292552925629257292582925929260292612926229263292642926529266292672926829269292702927129272292732927429275292762927729278292792928029281292822928329284292852928629287292882928929290292912929229293292942929529296292972929829299293002930129302293032930429305293062930729308293092931029311293122931329314293152931629317293182931929320293212932229323293242932529326293272932829329293302933129332293332933429335293362933729338293392934029341293422934329344293452934629347293482934929350293512935229353293542935529356293572935829359293602936129362293632936429365293662936729368293692937029371293722937329374293752937629377293782937929380293812938229383293842938529386293872938829389293902939129392293932939429395293962939729398293992940029401294022940329404294052940629407294082940929410294112941229413294142941529416294172941829419294202942129422294232942429425294262942729428294292943029431294322943329434294352943629437294382943929440294412944229443294442944529446294472944829449294502945129452294532945429455294562945729458294592946029461294622946329464294652946629467294682946929470294712947229473294742947529476294772947829479294802948129482294832948429485294862948729488294892949029491294922949329494294952949629497294982949929500295012950229503295042950529506295072950829509295102951129512295132951429515295162951729518295192952029521295222952329524295252952629527295282952929530295312953229533295342953529536295372953829539295402954129542295432954429545295462954729548295492955029551295522955329554295552955629557295582955929560295612956229563295642956529566295672956829569295702957129572295732957429575295762957729578295792958029581295822958329584295852958629587295882958929590295912959229593295942959529596295972959829599296002960129602296032960429605296062960729608296092961029611296122961329614296152961629617296182961929620296212962229623296242962529626296272962829629296302963129632296332963429635296362963729638296392964029641296422964329644296452964629647296482964929650296512965229653296542965529656296572965829659296602966129662296632966429665296662966729668296692967029671296722967329674296752967629677296782967929680296812968229683296842968529686296872968829689296902969129692296932969429695296962969729698296992970029701297022970329704297052970629707297082970929710297112971229713297142971529716297172971829719297202972129722297232972429725297262972729728297292973029731297322973329734297352973629737297382973929740297412974229743297442974529746297472974829749297502975129752297532975429755297562975729758297592976029761297622976329764297652976629767297682976929770297712977229773297742977529776297772977829779297802978129782297832978429785297862978729788297892979029791297922979329794297952979629797297982979929800298012980229803298042980529806298072980829809298102981129812298132981429815298162981729818298192982029821298222982329824298252982629827298282982929830298312983229833298342983529836298372983829839298402984129842298432984429845298462984729848298492985029851298522985329854298552985629857298582985929860298612986229863298642986529866298672986829869298702987129872298732987429875298762987729878298792988029881298822988329884298852988629887298882988929890298912989229893298942989529896298972989829899299002990129902299032990429905299062990729908299092991029911299122991329914299152991629917299182991929920299212992229923299242992529926299272992829929299302993129932299332993429935299362993729938299392994029941299422994329944299452994629947299482994929950299512995229953299542995529956299572995829959299602996129962299632996429965299662996729968299692997029971299722997329974299752997629977299782997929980299812998229983299842998529986299872998829989299902999129992299932999429995299962999729998299993000030001300023000330004300053000630007300083000930010300113001230013300143001530016300173001830019300203002130022300233002430025300263002730028300293003030031300323003330034300353003630037300383003930040300413004230043300443004530046300473004830049300503005130052300533005430055300563005730058300593006030061300623006330064300653006630067300683006930070300713007230073300743007530076300773007830079300803008130082300833008430085300863008730088300893009030091300923009330094300953009630097300983009930100301013010230103301043010530106301073010830109301103011130112301133011430115301163011730118301193012030121301223012330124301253012630127301283012930130301313013230133301343013530136301373013830139301403014130142301433014430145301463014730148301493015030151301523015330154301553015630157301583015930160301613016230163301643016530166301673016830169301703017130172301733017430175301763017730178301793018030181301823018330184301853018630187301883018930190301913019230193301943019530196301973019830199302003020130202302033020430205302063020730208302093021030211302123021330214302153021630217302183021930220302213022230223302243022530226302273022830229302303023130232302333023430235302363023730238302393024030241302423024330244302453024630247302483024930250302513025230253302543025530256302573025830259302603026130262302633026430265302663026730268302693027030271302723027330274302753027630277302783027930280302813028230283302843028530286302873028830289302903029130292302933029430295302963029730298302993030030301303023030330304303053030630307303083030930310303113031230313303143031530316303173031830319303203032130322303233032430325303263032730328303293033030331303323033330334303353033630337303383033930340303413034230343303443034530346303473034830349303503035130352303533035430355303563035730358303593036030361303623036330364303653036630367303683036930370303713037230373303743037530376303773037830379303803038130382303833038430385303863038730388303893039030391303923039330394303953039630397303983039930400304013040230403304043040530406304073040830409304103041130412304133041430415304163041730418304193042030421304223042330424304253042630427304283042930430304313043230433304343043530436304373043830439304403044130442304433044430445304463044730448304493045030451304523045330454304553045630457304583045930460304613046230463304643046530466304673046830469304703047130472304733047430475304763047730478304793048030481304823048330484304853048630487304883048930490304913049230493304943049530496304973049830499305003050130502305033050430505305063050730508305093051030511305123051330514305153051630517305183051930520305213052230523305243052530526305273052830529305303053130532305333053430535305363053730538305393054030541305423054330544305453054630547305483054930550305513055230553305543055530556305573055830559305603056130562305633056430565305663056730568305693057030571305723057330574305753057630577305783057930580305813058230583305843058530586305873058830589305903059130592305933059430595305963059730598305993060030601306023060330604306053060630607306083060930610306113061230613306143061530616306173061830619306203062130622306233062430625306263062730628306293063030631306323063330634306353063630637306383063930640306413064230643306443064530646306473064830649306503065130652306533065430655306563065730658306593066030661306623066330664306653066630667306683066930670306713067230673306743067530676306773067830679306803068130682306833068430685306863068730688306893069030691306923069330694306953069630697306983069930700307013070230703307043070530706307073070830709307103071130712307133071430715307163071730718307193072030721307223072330724307253072630727307283072930730307313073230733307343073530736307373073830739307403074130742307433074430745307463074730748307493075030751307523075330754307553075630757307583075930760307613076230763307643076530766307673076830769307703077130772307733077430775307763077730778307793078030781307823078330784307853078630787307883078930790307913079230793307943079530796307973079830799308003080130802308033080430805308063080730808308093081030811308123081330814308153081630817308183081930820308213082230823308243082530826308273082830829308303083130832308333083430835308363083730838308393084030841308423084330844308453084630847308483084930850308513085230853308543085530856308573085830859308603086130862308633086430865308663086730868308693087030871308723087330874308753087630877308783087930880308813088230883308843088530886308873088830889308903089130892308933089430895308963089730898308993090030901309023090330904309053090630907309083090930910309113091230913309143091530916309173091830919309203092130922309233092430925309263092730928309293093030931309323093330934309353093630937309383093930940309413094230943309443094530946309473094830949309503095130952309533095430955309563095730958309593096030961309623096330964309653096630967309683096930970309713097230973309743097530976309773097830979309803098130982309833098430985309863098730988309893099030991309923099330994309953099630997309983099931000310013100231003310043100531006310073100831009310103101131012310133101431015310163101731018310193102031021310223102331024310253102631027310283102931030310313103231033310343103531036310373103831039310403104131042310433104431045310463104731048310493105031051310523105331054310553105631057310583105931060310613106231063310643106531066310673106831069310703107131072310733107431075310763107731078310793108031081310823108331084310853108631087310883108931090310913109231093310943109531096310973109831099311003110131102311033110431105311063110731108311093111031111311123111331114311153111631117311183111931120311213112231123311243112531126311273112831129311303113131132311333113431135311363113731138311393114031141311423114331144311453114631147311483114931150311513115231153311543115531156311573115831159311603116131162311633116431165311663116731168311693117031171311723117331174311753117631177311783117931180311813118231183311843118531186311873118831189311903119131192311933119431195311963119731198311993120031201312023120331204312053120631207312083120931210312113121231213312143121531216312173121831219312203122131222312233122431225312263122731228312293123031231312323123331234312353123631237312383123931240312413124231243312443124531246312473124831249312503125131252312533125431255312563125731258312593126031261312623126331264312653126631267312683126931270312713127231273312743127531276312773127831279312803128131282312833128431285312863128731288312893129031291312923129331294312953129631297312983129931300313013130231303313043130531306313073130831309313103131131312313133131431315313163131731318313193132031321313223132331324313253132631327313283132931330313313133231333313343133531336313373133831339313403134131342313433134431345313463134731348313493135031351313523135331354313553135631357313583135931360313613136231363313643136531366313673136831369313703137131372313733137431375313763137731378313793138031381313823138331384313853138631387313883138931390313913139231393313943139531396313973139831399314003140131402314033140431405314063140731408314093141031411314123141331414314153141631417314183141931420314213142231423314243142531426314273142831429314303143131432314333143431435314363143731438314393144031441314423144331444314453144631447314483144931450314513145231453314543145531456314573145831459314603146131462314633146431465314663146731468314693147031471314723147331474314753147631477314783147931480314813148231483314843148531486314873148831489314903149131492314933149431495314963149731498314993150031501315023150331504315053150631507315083150931510315113151231513315143151531516315173151831519315203152131522315233152431525315263152731528315293153031531315323153331534315353153631537315383153931540315413154231543315443154531546315473154831549315503155131552315533155431555315563155731558315593156031561315623156331564315653156631567315683156931570315713157231573315743157531576315773157831579315803158131582315833158431585315863158731588315893159031591315923159331594315953159631597315983159931600316013160231603316043160531606316073160831609316103161131612316133161431615316163161731618316193162031621316223162331624316253162631627316283162931630316313163231633316343163531636316373163831639316403164131642316433164431645316463164731648316493165031651316523165331654316553165631657316583165931660316613166231663316643166531666316673166831669316703167131672316733167431675316763167731678316793168031681316823168331684316853168631687316883168931690316913169231693316943169531696316973169831699317003170131702317033170431705317063170731708317093171031711317123171331714317153171631717317183171931720317213172231723317243172531726317273172831729317303173131732317333173431735317363173731738317393174031741317423174331744317453174631747317483174931750317513175231753317543175531756317573175831759317603176131762317633176431765317663176731768317693177031771317723177331774317753177631777317783177931780317813178231783317843178531786317873178831789317903179131792317933179431795317963179731798317993180031801318023180331804318053180631807318083180931810318113181231813318143181531816318173181831819318203182131822318233182431825318263182731828318293183031831318323183331834318353183631837318383183931840318413184231843318443184531846318473184831849318503185131852318533185431855318563185731858318593186031861318623186331864318653186631867318683186931870318713187231873318743187531876318773187831879318803188131882318833188431885318863188731888318893189031891318923189331894318953189631897318983189931900319013190231903319043190531906319073190831909319103191131912319133191431915319163191731918319193192031921319223192331924319253192631927319283192931930319313193231933319343193531936319373193831939319403194131942319433194431945319463194731948319493195031951319523195331954319553195631957319583195931960319613196231963319643196531966319673196831969319703197131972319733197431975319763197731978319793198031981319823198331984319853198631987319883198931990319913199231993319943199531996319973199831999320003200132002320033200432005320063200732008320093201032011320123201332014320153201632017320183201932020320213202232023320243202532026320273202832029320303203132032320333203432035320363203732038320393204032041320423204332044320453204632047320483204932050320513205232053320543205532056320573205832059320603206132062320633206432065320663206732068320693207032071320723207332074320753207632077320783207932080320813208232083320843208532086320873208832089320903209132092320933209432095320963209732098320993210032101321023210332104321053210632107321083210932110321113211232113321143211532116321173211832119321203212132122321233212432125321263212732128321293213032131321323213332134321353213632137321383213932140321413214232143321443214532146321473214832149321503215132152321533215432155321563215732158321593216032161321623216332164321653216632167321683216932170321713217232173321743217532176321773217832179321803218132182321833218432185321863218732188321893219032191321923219332194321953219632197321983219932200322013220232203322043220532206322073220832209322103221132212322133221432215322163221732218322193222032221322223222332224322253222632227322283222932230322313223232233322343223532236322373223832239322403224132242322433224432245322463224732248322493225032251322523225332254322553225632257322583225932260322613226232263322643226532266322673226832269322703227132272322733227432275322763227732278322793228032281322823228332284322853228632287322883228932290322913229232293322943229532296322973229832299323003230132302323033230432305323063230732308323093231032311323123231332314323153231632317323183231932320323213232232323323243232532326323273232832329323303233132332323333233432335323363233732338323393234032341323423234332344323453234632347323483234932350323513235232353323543235532356323573235832359323603236132362323633236432365323663236732368323693237032371323723237332374323753237632377323783237932380323813238232383323843238532386323873238832389323903239132392323933239432395323963239732398323993240032401324023240332404324053240632407324083240932410324113241232413324143241532416324173241832419324203242132422324233242432425324263242732428324293243032431324323243332434324353243632437324383243932440324413244232443324443244532446324473244832449324503245132452324533245432455324563245732458324593246032461324623246332464324653246632467324683246932470324713247232473324743247532476324773247832479324803248132482324833248432485324863248732488324893249032491324923249332494324953249632497324983249932500325013250232503325043250532506325073250832509325103251132512325133251432515325163251732518325193252032521325223252332524325253252632527325283252932530325313253232533325343253532536325373253832539325403254132542325433254432545325463254732548325493255032551325523255332554325553255632557325583255932560325613256232563325643256532566325673256832569325703257132572325733257432575325763257732578325793258032581325823258332584325853258632587325883258932590325913259232593325943259532596325973259832599326003260132602326033260432605326063260732608326093261032611326123261332614326153261632617326183261932620326213262232623326243262532626326273262832629326303263132632326333263432635326363263732638326393264032641326423264332644326453264632647326483264932650326513265232653326543265532656326573265832659326603266132662326633266432665326663266732668326693267032671326723267332674326753267632677326783267932680326813268232683326843268532686326873268832689326903269132692326933269432695326963269732698326993270032701327023270332704327053270632707327083270932710327113271232713327143271532716327173271832719327203272132722327233272432725327263272732728327293273032731327323273332734327353273632737327383273932740327413274232743327443274532746327473274832749327503275132752327533275432755327563275732758327593276032761327623276332764327653276632767327683276932770327713277232773327743277532776327773277832779327803278132782327833278432785327863278732788327893279032791327923279332794327953279632797327983279932800328013280232803328043280532806328073280832809328103281132812328133281432815328163281732818328193282032821328223282332824328253282632827328283282932830328313283232833328343283532836328373283832839328403284132842328433284432845328463284732848328493285032851328523285332854328553285632857328583285932860328613286232863328643286532866328673286832869328703287132872328733287432875328763287732878328793288032881328823288332884328853288632887328883288932890328913289232893328943289532896328973289832899329003290132902329033290432905329063290732908329093291032911329123291332914329153291632917329183291932920329213292232923329243292532926329273292832929329303293132932329333293432935329363293732938329393294032941329423294332944329453294632947329483294932950329513295232953329543295532956329573295832959329603296132962329633296432965329663296732968329693297032971329723297332974329753297632977329783297932980329813298232983329843298532986329873298832989329903299132992329933299432995329963299732998329993300033001330023300333004330053300633007330083300933010330113301233013330143301533016330173301833019330203302133022330233302433025330263302733028330293303033031330323303333034330353303633037330383303933040330413304233043330443304533046330473304833049330503305133052330533305433055330563305733058330593306033061330623306333064330653306633067330683306933070330713307233073330743307533076330773307833079330803308133082330833308433085330863308733088330893309033091330923309333094330953309633097330983309933100331013310233103331043310533106331073310833109331103311133112331133311433115331163311733118331193312033121331223312333124331253312633127331283312933130331313313233133331343313533136331373313833139331403314133142331433314433145331463314733148331493315033151331523315333154331553315633157331583315933160331613316233163331643316533166331673316833169331703317133172331733317433175331763317733178331793318033181331823318333184331853318633187331883318933190331913319233193331943319533196331973319833199332003320133202332033320433205332063320733208332093321033211332123321333214332153321633217332183321933220332213322233223332243322533226332273322833229332303323133232332333323433235332363323733238332393324033241332423324333244332453324633247332483324933250332513325233253332543325533256332573325833259332603326133262332633326433265332663326733268332693327033271332723327333274332753327633277332783327933280332813328233283332843328533286332873328833289332903329133292332933329433295332963329733298332993330033301333023330333304333053330633307333083330933310333113331233313333143331533316333173331833319333203332133322333233332433325333263332733328333293333033331333323333333334333353333633337333383333933340333413334233343333443334533346333473334833349333503335133352333533335433355333563335733358333593336033361333623336333364333653336633367333683336933370333713337233373333743337533376333773337833379333803338133382333833338433385333863338733388333893339033391333923339333394333953339633397333983339933400334013340233403334043340533406334073340833409334103341133412334133341433415334163341733418334193342033421334223342333424334253342633427334283342933430334313343233433334343343533436334373343833439334403344133442334433344433445334463344733448334493345033451334523345333454334553345633457334583345933460334613346233463334643346533466334673346833469334703347133472334733347433475334763347733478334793348033481334823348333484334853348633487334883348933490334913349233493334943349533496334973349833499335003350133502335033350433505335063350733508335093351033511335123351333514335153351633517335183351933520335213352233523335243352533526335273352833529335303353133532335333353433535335363353733538335393354033541335423354333544335453354633547335483354933550335513355233553335543355533556335573355833559335603356133562335633356433565335663356733568335693357033571335723357333574335753357633577335783357933580335813358233583335843358533586335873358833589335903359133592335933359433595335963359733598335993360033601336023360333604336053360633607336083360933610336113361233613336143361533616336173361833619336203362133622336233362433625336263362733628336293363033631336323363333634336353363633637336383363933640336413364233643336443364533646336473364833649336503365133652336533365433655336563365733658336593366033661336623366333664336653366633667336683366933670336713367233673336743367533676336773367833679336803368133682336833368433685336863368733688336893369033691336923369333694336953369633697336983369933700337013370233703337043370533706337073370833709337103371133712337133371433715337163371733718337193372033721337223372333724337253372633727337283372933730337313373233733337343373533736337373373833739337403374133742337433374433745337463374733748337493375033751337523375333754337553375633757337583375933760337613376233763337643376533766337673376833769337703377133772337733377433775337763377733778337793378033781337823378333784337853378633787337883378933790337913379233793337943379533796337973379833799338003380133802338033380433805338063380733808338093381033811338123381333814338153381633817338183381933820338213382233823338243382533826338273382833829338303383133832338333383433835338363383733838338393384033841338423384333844338453384633847338483384933850338513385233853338543385533856338573385833859338603386133862338633386433865338663386733868338693387033871338723387333874338753387633877338783387933880338813388233883338843388533886338873388833889338903389133892338933389433895338963389733898338993390033901339023390333904339053390633907339083390933910339113391233913339143391533916339173391833919339203392133922339233392433925339263392733928339293393033931339323393333934339353393633937339383393933940339413394233943339443394533946339473394833949339503395133952339533395433955339563395733958339593396033961339623396333964339653396633967339683396933970339713397233973339743397533976339773397833979339803398133982339833398433985339863398733988339893399033991339923399333994339953399633997339983399934000340013400234003340043400534006340073400834009340103401134012340133401434015340163401734018340193402034021340223402334024340253402634027340283402934030340313403234033340343403534036340373403834039340403404134042340433404434045340463404734048340493405034051340523405334054340553405634057340583405934060340613406234063340643406534066340673406834069340703407134072340733407434075340763407734078340793408034081340823408334084340853408634087340883408934090340913409234093340943409534096340973409834099341003410134102341033410434105341063410734108341093411034111341123411334114341153411634117341183411934120341213412234123341243412534126341273412834129341303413134132341333413434135341363413734138341393414034141341423414334144341453414634147341483414934150341513415234153341543415534156341573415834159341603416134162341633416434165341663416734168341693417034171341723417334174341753417634177341783417934180341813418234183341843418534186341873418834189341903419134192341933419434195341963419734198341993420034201342023420334204342053420634207342083420934210342113421234213342143421534216342173421834219342203422134222342233422434225342263422734228342293423034231342323423334234342353423634237342383423934240342413424234243342443424534246342473424834249342503425134252342533425434255342563425734258342593426034261342623426334264342653426634267342683426934270342713427234273342743427534276342773427834279342803428134282342833428434285342863428734288342893429034291342923429334294342953429634297342983429934300343013430234303343043430534306343073430834309343103431134312343133431434315343163431734318343193432034321343223432334324343253432634327343283432934330343313433234333343343433534336343373433834339343403434134342343433434434345343463434734348343493435034351343523435334354343553435634357343583435934360343613436234363343643436534366343673436834369343703437134372343733437434375343763437734378343793438034381343823438334384343853438634387343883438934390343913439234393343943439534396343973439834399344003440134402344033440434405344063440734408344093441034411344123441334414344153441634417344183441934420344213442234423344243442534426344273442834429344303443134432344333443434435344363443734438344393444034441344423444334444344453444634447344483444934450344513445234453344543445534456344573445834459344603446134462344633446434465344663446734468344693447034471344723447334474344753447634477344783447934480344813448234483344843448534486344873448834489344903449134492344933449434495344963449734498344993450034501345023450334504345053450634507345083450934510345113451234513345143451534516345173451834519345203452134522345233452434525345263452734528345293453034531345323453334534345353453634537345383453934540345413454234543345443454534546345473454834549345503455134552345533455434555345563455734558345593456034561345623456334564345653456634567345683456934570345713457234573345743457534576345773457834579345803458134582345833458434585345863458734588345893459034591345923459334594345953459634597345983459934600346013460234603346043460534606346073460834609346103461134612346133461434615346163461734618346193462034621346223462334624346253462634627346283462934630346313463234633346343463534636346373463834639346403464134642346433464434645346463464734648346493465034651346523465334654346553465634657346583465934660346613466234663346643466534666346673466834669346703467134672346733467434675346763467734678346793468034681346823468334684346853468634687346883468934690346913469234693346943469534696346973469834699347003470134702347033470434705347063470734708347093471034711347123471334714347153471634717347183471934720347213472234723347243472534726347273472834729347303473134732347333473434735347363473734738347393474034741347423474334744347453474634747347483474934750347513475234753347543475534756347573475834759347603476134762347633476434765347663476734768347693477034771347723477334774347753477634777347783477934780347813478234783347843478534786347873478834789347903479134792347933479434795347963479734798347993480034801348023480334804348053480634807348083480934810348113481234813348143481534816348173481834819348203482134822348233482434825348263482734828348293483034831348323483334834348353483634837348383483934840348413484234843348443484534846348473484834849348503485134852348533485434855348563485734858348593486034861348623486334864348653486634867348683486934870348713487234873348743487534876348773487834879348803488134882348833488434885348863488734888348893489034891348923489334894348953489634897348983489934900349013490234903349043490534906349073490834909349103491134912349133491434915349163491734918349193492034921349223492334924349253492634927349283492934930349313493234933349343493534936349373493834939349403494134942349433494434945349463494734948349493495034951349523495334954349553495634957349583495934960349613496234963349643496534966349673496834969349703497134972349733497434975349763497734978349793498034981349823498334984349853498634987349883498934990349913499234993349943499534996349973499834999350003500135002350033500435005350063500735008350093501035011350123501335014350153501635017350183501935020350213502235023350243502535026350273502835029350303503135032350333503435035350363503735038350393504035041350423504335044350453504635047350483504935050350513505235053350543505535056350573505835059350603506135062350633506435065350663506735068350693507035071350723507335074350753507635077350783507935080350813508235083350843508535086350873508835089350903509135092350933509435095350963509735098350993510035101351023510335104351053510635107351083510935110351113511235113351143511535116351173511835119351203512135122351233512435125351263512735128351293513035131351323513335134351353513635137351383513935140351413514235143351443514535146351473514835149351503515135152351533515435155351563515735158351593516035161351623516335164351653516635167351683516935170351713517235173351743517535176351773517835179351803518135182351833518435185351863518735188351893519035191351923519335194351953519635197351983519935200352013520235203352043520535206352073520835209352103521135212352133521435215352163521735218352193522035221352223522335224352253522635227352283522935230352313523235233352343523535236352373523835239352403524135242352433524435245352463524735248352493525035251352523525335254352553525635257352583525935260352613526235263352643526535266352673526835269352703527135272352733527435275352763527735278352793528035281352823528335284352853528635287352883528935290352913529235293352943529535296352973529835299353003530135302353033530435305353063530735308353093531035311353123531335314353153531635317353183531935320353213532235323353243532535326353273532835329353303533135332353333533435335353363533735338353393534035341353423534335344353453534635347353483534935350353513535235353353543535535356353573535835359353603536135362353633536435365353663536735368353693537035371353723537335374353753537635377353783537935380353813538235383353843538535386353873538835389353903539135392353933539435395353963539735398353993540035401354023540335404354053540635407354083540935410354113541235413354143541535416354173541835419354203542135422354233542435425354263542735428354293543035431354323543335434354353543635437354383543935440354413544235443354443544535446354473544835449354503545135452354533545435455354563545735458354593546035461354623546335464354653546635467354683546935470354713547235473354743547535476354773547835479354803548135482354833548435485354863548735488354893549035491354923549335494354953549635497354983549935500355013550235503355043550535506355073550835509355103551135512355133551435515355163551735518355193552035521355223552335524355253552635527355283552935530355313553235533355343553535536355373553835539355403554135542355433554435545355463554735548355493555035551355523555335554355553555635557355583555935560355613556235563355643556535566355673556835569355703557135572355733557435575355763557735578355793558035581355823558335584355853558635587355883558935590355913559235593355943559535596355973559835599356003560135602356033560435605356063560735608356093561035611356123561335614356153561635617356183561935620356213562235623356243562535626356273562835629356303563135632356333563435635356363563735638356393564035641356423564335644356453564635647356483564935650356513565235653356543565535656356573565835659356603566135662356633566435665356663566735668356693567035671356723567335674356753567635677356783567935680356813568235683356843568535686356873568835689356903569135692356933569435695356963569735698356993570035701357023570335704357053570635707357083570935710357113571235713357143571535716357173571835719357203572135722357233572435725357263572735728357293573035731357323573335734357353573635737357383573935740357413574235743357443574535746357473574835749357503575135752357533575435755357563575735758357593576035761357623576335764357653576635767357683576935770357713577235773357743577535776357773577835779357803578135782357833578435785357863578735788357893579035791357923579335794357953579635797357983579935800358013580235803358043580535806358073580835809358103581135812358133581435815358163581735818358193582035821358223582335824358253582635827358283582935830358313583235833358343583535836358373583835839358403584135842358433584435845358463584735848358493585035851358523585335854358553585635857358583585935860358613586235863358643586535866358673586835869358703587135872358733587435875358763587735878358793588035881358823588335884358853588635887358883588935890358913589235893358943589535896358973589835899359003590135902359033590435905359063590735908359093591035911359123591335914359153591635917359183591935920359213592235923359243592535926359273592835929359303593135932359333593435935359363593735938359393594035941359423594335944359453594635947359483594935950359513595235953359543595535956359573595835959359603596135962359633596435965359663596735968359693597035971359723597335974359753597635977359783597935980359813598235983359843598535986359873598835989359903599135992359933599435995359963599735998359993600036001360023600336004360053600636007360083600936010360113601236013360143601536016360173601836019360203602136022360233602436025360263602736028360293603036031360323603336034360353603636037360383603936040360413604236043360443604536046360473604836049360503605136052360533605436055360563605736058360593606036061360623606336064360653606636067360683606936070360713607236073360743607536076360773607836079360803608136082360833608436085360863608736088360893609036091360923609336094360953609636097360983609936100361013610236103361043610536106361073610836109361103611136112361133611436115361163611736118361193612036121361223612336124361253612636127361283612936130361313613236133361343613536136361373613836139361403614136142361433614436145361463614736148361493615036151361523615336154361553615636157361583615936160361613616236163361643616536166361673616836169361703617136172361733617436175361763617736178361793618036181361823618336184361853618636187361883618936190361913619236193361943619536196361973619836199362003620136202362033620436205362063620736208362093621036211362123621336214362153621636217362183621936220362213622236223362243622536226362273622836229362303623136232362333623436235362363623736238362393624036241362423624336244362453624636247362483624936250362513625236253362543625536256362573625836259362603626136262362633626436265362663626736268362693627036271362723627336274362753627636277362783627936280362813628236283362843628536286362873628836289362903629136292362933629436295362963629736298362993630036301363023630336304363053630636307363083630936310363113631236313363143631536316363173631836319363203632136322363233632436325363263632736328363293633036331363323633336334363353633636337363383633936340363413634236343363443634536346363473634836349363503635136352363533635436355363563635736358363593636036361363623636336364363653636636367363683636936370363713637236373363743637536376363773637836379363803638136382363833638436385363863638736388363893639036391363923639336394363953639636397363983639936400364013640236403364043640536406364073640836409364103641136412364133641436415364163641736418364193642036421364223642336424364253642636427364283642936430364313643236433364343643536436364373643836439364403644136442364433644436445364463644736448364493645036451364523645336454364553645636457364583645936460364613646236463364643646536466364673646836469364703647136472364733647436475364763647736478364793648036481364823648336484364853648636487364883648936490364913649236493364943649536496364973649836499365003650136502365033650436505365063650736508365093651036511365123651336514365153651636517365183651936520365213652236523365243652536526365273652836529365303653136532365333653436535365363653736538365393654036541365423654336544365453654636547365483654936550365513655236553365543655536556365573655836559365603656136562365633656436565365663656736568365693657036571365723657336574365753657636577365783657936580365813658236583365843658536586365873658836589365903659136592365933659436595365963659736598365993660036601366023660336604366053660636607366083660936610366113661236613366143661536616366173661836619366203662136622366233662436625366263662736628366293663036631366323663336634366353663636637366383663936640366413664236643366443664536646366473664836649366503665136652366533665436655366563665736658366593666036661366623666336664366653666636667366683666936670366713667236673366743667536676366773667836679366803668136682366833668436685366863668736688366893669036691366923669336694366953669636697366983669936700367013670236703367043670536706367073670836709367103671136712367133671436715367163671736718367193672036721367223672336724367253672636727367283672936730367313673236733367343673536736367373673836739367403674136742367433674436745367463674736748367493675036751367523675336754367553675636757367583675936760367613676236763367643676536766367673676836769367703677136772367733677436775367763677736778367793678036781367823678336784367853678636787367883678936790367913679236793367943679536796367973679836799368003680136802368033680436805368063680736808368093681036811368123681336814368153681636817368183681936820368213682236823368243682536826368273682836829368303683136832368333683436835368363683736838368393684036841368423684336844368453684636847368483684936850368513685236853368543685536856368573685836859368603686136862368633686436865368663686736868368693687036871368723687336874368753687636877368783687936880368813688236883368843688536886368873688836889368903689136892368933689436895368963689736898368993690036901369023690336904369053690636907369083690936910369113691236913369143691536916369173691836919369203692136922369233692436925369263692736928369293693036931369323693336934369353693636937369383693936940369413694236943369443694536946369473694836949369503695136952369533695436955369563695736958369593696036961369623696336964369653696636967369683696936970369713697236973369743697536976369773697836979369803698136982369833698436985369863698736988369893699036991369923699336994369953699636997369983699937000370013700237003370043700537006370073700837009370103701137012370133701437015370163701737018370193702037021370223702337024370253702637027370283702937030370313703237033370343703537036370373703837039370403704137042370433704437045370463704737048370493705037051370523705337054370553705637057370583705937060370613706237063370643706537066370673706837069370703707137072370733707437075370763707737078370793708037081370823708337084370853708637087370883708937090370913709237093370943709537096370973709837099371003710137102371033710437105371063710737108371093711037111371123711337114371153711637117371183711937120371213712237123371243712537126371273712837129371303713137132371333713437135371363713737138371393714037141371423714337144371453714637147371483714937150371513715237153371543715537156371573715837159371603716137162371633716437165371663716737168371693717037171371723717337174371753717637177371783717937180371813718237183371843718537186371873718837189371903719137192371933719437195371963719737198371993720037201372023720337204372053720637207372083720937210372113721237213372143721537216372173721837219372203722137222372233722437225372263722737228372293723037231372323723337234372353723637237372383723937240372413724237243372443724537246372473724837249372503725137252372533725437255372563725737258372593726037261372623726337264372653726637267372683726937270372713727237273372743727537276372773727837279372803728137282372833728437285372863728737288372893729037291372923729337294372953729637297372983729937300373013730237303373043730537306373073730837309373103731137312373133731437315373163731737318373193732037321373223732337324373253732637327373283732937330373313733237333373343733537336373373733837339373403734137342373433734437345373463734737348373493735037351373523735337354373553735637357373583735937360373613736237363373643736537366373673736837369373703737137372373733737437375373763737737378373793738037381373823738337384373853738637387373883738937390373913739237393373943739537396373973739837399374003740137402374033740437405374063740737408374093741037411374123741337414374153741637417374183741937420374213742237423374243742537426374273742837429374303743137432374333743437435374363743737438374393744037441374423744337444374453744637447374483744937450374513745237453374543745537456374573745837459374603746137462374633746437465374663746737468374693747037471374723747337474374753747637477374783747937480374813748237483374843748537486374873748837489374903749137492374933749437495374963749737498374993750037501375023750337504375053750637507375083750937510375113751237513375143751537516375173751837519375203752137522375233752437525375263752737528375293753037531375323753337534375353753637537375383753937540375413754237543375443754537546375473754837549375503755137552375533755437555375563755737558375593756037561375623756337564375653756637567375683756937570375713757237573375743757537576375773757837579375803758137582375833758437585375863758737588375893759037591375923759337594375953759637597375983759937600376013760237603376043760537606376073760837609376103761137612376133761437615376163761737618376193762037621376223762337624376253762637627376283762937630376313763237633376343763537636376373763837639376403764137642376433764437645376463764737648376493765037651376523765337654376553765637657376583765937660376613766237663376643766537666376673766837669376703767137672376733767437675376763767737678376793768037681376823768337684376853768637687376883768937690376913769237693376943769537696376973769837699377003770137702377033770437705377063770737708377093771037711377123771337714377153771637717377183771937720377213772237723377243772537726377273772837729377303773137732377333773437735377363773737738377393774037741377423774337744377453774637747377483774937750377513775237753377543775537756377573775837759377603776137762377633776437765377663776737768377693777037771377723777337774377753777637777377783777937780377813778237783377843778537786377873778837789377903779137792377933779437795377963779737798377993780037801378023780337804378053780637807378083780937810378113781237813378143781537816378173781837819378203782137822378233782437825378263782737828378293783037831378323783337834378353783637837378383783937840378413784237843378443784537846378473784837849378503785137852378533785437855378563785737858378593786037861378623786337864378653786637867378683786937870378713787237873378743787537876378773787837879378803788137882378833788437885378863788737888378893789037891378923789337894378953789637897378983789937900379013790237903379043790537906379073790837909379103791137912379133791437915379163791737918379193792037921379223792337924379253792637927379283792937930379313793237933379343793537936379373793837939379403794137942379433794437945379463794737948379493795037951379523795337954379553795637957379583795937960379613796237963379643796537966379673796837969379703797137972379733797437975379763797737978379793798037981379823798337984379853798637987379883798937990379913799237993379943799537996379973799837999380003800138002380033800438005380063800738008380093801038011380123801338014380153801638017380183801938020380213802238023380243802538026380273802838029380303803138032380333803438035380363803738038380393804038041380423804338044380453804638047380483804938050380513805238053380543805538056380573805838059380603806138062380633806438065380663806738068380693807038071380723807338074380753807638077380783807938080380813808238083380843808538086380873808838089380903809138092380933809438095380963809738098380993810038101381023810338104381053810638107381083810938110381113811238113381143811538116381173811838119381203812138122381233812438125381263812738128381293813038131381323813338134381353813638137381383813938140381413814238143381443814538146381473814838149381503815138152381533815438155381563815738158381593816038161381623816338164381653816638167381683816938170381713817238173381743817538176381773817838179381803818138182381833818438185381863818738188381893819038191381923819338194381953819638197381983819938200382013820238203382043820538206382073820838209382103821138212382133821438215382163821738218382193822038221382223822338224382253822638227382283822938230382313823238233382343823538236382373823838239382403824138242382433824438245382463824738248382493825038251382523825338254382553825638257382583825938260382613826238263382643826538266382673826838269382703827138272382733827438275382763827738278382793828038281382823828338284382853828638287382883828938290382913829238293382943829538296382973829838299383003830138302383033830438305383063830738308383093831038311383123831338314383153831638317383183831938320383213832238323383243832538326383273832838329383303833138332383333833438335383363833738338383393834038341383423834338344383453834638347383483834938350383513835238353383543835538356383573835838359383603836138362383633836438365383663836738368383693837038371383723837338374383753837638377383783837938380383813838238383383843838538386383873838838389383903839138392383933839438395383963839738398383993840038401384023840338404384053840638407384083840938410384113841238413384143841538416384173841838419384203842138422384233842438425384263842738428384293843038431384323843338434384353843638437384383843938440384413844238443384443844538446384473844838449384503845138452384533845438455384563845738458384593846038461384623846338464384653846638467384683846938470384713847238473384743847538476384773847838479384803848138482384833848438485384863848738488384893849038491384923849338494384953849638497384983849938500385013850238503385043850538506385073850838509385103851138512385133851438515385163851738518385193852038521385223852338524385253852638527385283852938530385313853238533385343853538536385373853838539385403854138542385433854438545385463854738548385493855038551385523855338554385553855638557385583855938560385613856238563385643856538566385673856838569385703857138572385733857438575385763857738578385793858038581385823858338584385853858638587385883858938590385913859238593385943859538596385973859838599386003860138602386033860438605386063860738608386093861038611386123861338614386153861638617386183861938620386213862238623386243862538626386273862838629386303863138632386333863438635386363863738638386393864038641386423864338644386453864638647386483864938650386513865238653386543865538656386573865838659386603866138662386633866438665386663866738668386693867038671386723867338674386753867638677386783867938680386813868238683386843868538686386873868838689386903869138692386933869438695386963869738698386993870038701387023870338704387053870638707387083870938710387113871238713387143871538716387173871838719387203872138722387233872438725387263872738728387293873038731387323873338734387353873638737387383873938740387413874238743387443874538746387473874838749387503875138752387533875438755387563875738758387593876038761387623876338764387653876638767387683876938770387713877238773387743877538776387773877838779387803878138782387833878438785387863878738788387893879038791387923879338794387953879638797387983879938800388013880238803388043880538806388073880838809388103881138812388133881438815388163881738818388193882038821388223882338824388253882638827388283882938830388313883238833388343883538836388373883838839388403884138842388433884438845388463884738848388493885038851388523885338854388553885638857388583885938860388613886238863388643886538866388673886838869388703887138872388733887438875388763887738878388793888038881388823888338884388853888638887388883888938890388913889238893388943889538896388973889838899389003890138902389033890438905389063890738908389093891038911389123891338914389153891638917389183891938920389213892238923389243892538926389273892838929389303893138932389333893438935389363893738938389393894038941389423894338944389453894638947389483894938950389513895238953389543895538956389573895838959389603896138962389633896438965389663896738968389693897038971389723897338974389753897638977389783897938980389813898238983389843898538986389873898838989389903899138992389933899438995389963899738998389993900039001390023900339004390053900639007390083900939010390113901239013390143901539016390173901839019390203902139022390233902439025390263902739028390293903039031390323903339034390353903639037390383903939040390413904239043390443904539046390473904839049390503905139052390533905439055390563905739058390593906039061390623906339064390653906639067390683906939070390713907239073390743907539076390773907839079390803908139082390833908439085390863908739088390893909039091390923909339094390953909639097390983909939100391013910239103391043910539106391073910839109391103911139112391133911439115391163911739118391193912039121391223912339124391253912639127391283912939130391313913239133391343913539136391373913839139391403914139142391433914439145391463914739148391493915039151391523915339154391553915639157391583915939160391613916239163391643916539166391673916839169391703917139172391733917439175391763917739178391793918039181391823918339184391853918639187391883918939190391913919239193391943919539196391973919839199392003920139202392033920439205392063920739208392093921039211392123921339214392153921639217392183921939220392213922239223392243922539226392273922839229392303923139232392333923439235392363923739238392393924039241392423924339244392453924639247392483924939250392513925239253392543925539256392573925839259392603926139262392633926439265392663926739268392693927039271392723927339274392753927639277392783927939280392813928239283392843928539286392873928839289392903929139292392933929439295392963929739298392993930039301393023930339304393053930639307393083930939310393113931239313393143931539316393173931839319393203932139322393233932439325393263932739328393293933039331393323933339334393353933639337393383933939340393413934239343393443934539346393473934839349393503935139352393533935439355393563935739358393593936039361393623936339364393653936639367393683936939370393713937239373393743937539376393773937839379393803938139382393833938439385393863938739388393893939039391393923939339394393953939639397393983939939400394013940239403394043940539406394073940839409394103941139412394133941439415394163941739418394193942039421394223942339424394253942639427394283942939430394313943239433394343943539436394373943839439394403944139442394433944439445394463944739448394493945039451394523945339454394553945639457394583945939460394613946239463394643946539466394673946839469394703947139472394733947439475394763947739478394793948039481394823948339484394853948639487394883948939490394913949239493394943949539496394973949839499395003950139502395033950439505395063950739508395093951039511395123951339514395153951639517395183951939520395213952239523395243952539526395273952839529395303953139532395333953439535395363953739538395393954039541395423954339544395453954639547395483954939550395513955239553395543955539556395573955839559395603956139562395633956439565395663956739568395693957039571395723957339574395753957639577395783957939580395813958239583395843958539586395873958839589395903959139592395933959439595395963959739598395993960039601396023960339604396053960639607396083960939610396113961239613396143961539616396173961839619396203962139622396233962439625396263962739628396293963039631396323963339634396353963639637396383963939640396413964239643396443964539646396473964839649396503965139652396533965439655396563965739658396593966039661396623966339664396653966639667396683966939670396713967239673396743967539676396773967839679396803968139682396833968439685396863968739688396893969039691396923969339694396953969639697396983969939700397013970239703397043970539706397073970839709397103971139712397133971439715397163971739718397193972039721397223972339724397253972639727397283972939730397313973239733397343973539736397373973839739397403974139742397433974439745397463974739748397493975039751397523975339754397553975639757397583975939760397613976239763397643976539766397673976839769397703977139772397733977439775397763977739778397793978039781397823978339784397853978639787397883978939790397913979239793397943979539796397973979839799398003980139802398033980439805398063980739808398093981039811398123981339814398153981639817398183981939820398213982239823398243982539826398273982839829398303983139832398333983439835398363983739838398393984039841398423984339844398453984639847398483984939850398513985239853398543985539856398573985839859398603986139862398633986439865398663986739868398693987039871398723987339874398753987639877398783987939880398813988239883398843988539886398873988839889398903989139892398933989439895398963989739898398993990039901399023990339904399053990639907399083990939910399113991239913399143991539916399173991839919399203992139922399233992439925399263992739928399293993039931399323993339934399353993639937399383993939940399413994239943399443994539946399473994839949399503995139952399533995439955399563995739958399593996039961399623996339964399653996639967399683996939970399713997239973399743997539976399773997839979399803998139982399833998439985399863998739988399893999039991399923999339994399953999639997399983999940000400014000240003400044000540006400074000840009400104001140012400134001440015400164001740018400194002040021400224002340024400254002640027400284002940030400314003240033400344003540036400374003840039400404004140042400434004440045400464004740048400494005040051400524005340054400554005640057400584005940060400614006240063400644006540066400674006840069400704007140072400734007440075400764007740078400794008040081400824008340084400854008640087400884008940090400914009240093400944009540096400974009840099401004010140102401034010440105401064010740108401094011040111401124011340114401154011640117401184011940120401214012240123401244012540126401274012840129401304013140132401334013440135401364013740138401394014040141401424014340144401454014640147401484014940150401514015240153401544015540156401574015840159401604016140162401634016440165401664016740168401694017040171401724017340174401754017640177401784017940180401814018240183401844018540186401874018840189401904019140192401934019440195401964019740198401994020040201402024020340204402054020640207402084020940210402114021240213402144021540216402174021840219402204022140222402234022440225402264022740228402294023040231402324023340234402354023640237402384023940240402414024240243402444024540246402474024840249402504025140252402534025440255402564025740258402594026040261402624026340264402654026640267402684026940270402714027240273402744027540276402774027840279402804028140282402834028440285402864028740288402894029040291402924029340294402954029640297402984029940300403014030240303403044030540306403074030840309403104031140312403134031440315403164031740318403194032040321403224032340324403254032640327403284032940330403314033240333403344033540336403374033840339403404034140342403434034440345403464034740348403494035040351403524035340354403554035640357403584035940360403614036240363403644036540366403674036840369403704037140372403734037440375403764037740378403794038040381403824038340384403854038640387403884038940390403914039240393403944039540396403974039840399404004040140402404034040440405404064040740408404094041040411404124041340414404154041640417404184041940420404214042240423404244042540426404274042840429404304043140432404334043440435404364043740438404394044040441404424044340444404454044640447404484044940450404514045240453404544045540456404574045840459404604046140462404634046440465404664046740468404694047040471404724047340474404754047640477404784047940480404814048240483404844048540486404874048840489404904049140492404934049440495404964049740498404994050040501405024050340504405054050640507405084050940510405114051240513405144051540516405174051840519405204052140522405234052440525405264052740528405294053040531405324053340534405354053640537405384053940540405414054240543405444054540546405474054840549405504055140552405534055440555405564055740558405594056040561405624056340564405654056640567405684056940570405714057240573405744057540576405774057840579405804058140582405834058440585405864058740588405894059040591405924059340594405954059640597405984059940600406014060240603406044060540606406074060840609406104061140612406134061440615406164061740618406194062040621406224062340624406254062640627406284062940630406314063240633406344063540636406374063840639406404064140642406434064440645406464064740648406494065040651406524065340654406554065640657406584065940660406614066240663406644066540666406674066840669406704067140672406734067440675406764067740678406794068040681406824068340684406854068640687406884068940690406914069240693406944069540696406974069840699407004070140702407034070440705407064070740708407094071040711407124071340714407154071640717407184071940720407214072240723407244072540726407274072840729407304073140732407334073440735407364073740738407394074040741407424074340744407454074640747407484074940750407514075240753407544075540756407574075840759407604076140762407634076440765407664076740768407694077040771407724077340774407754077640777407784077940780407814078240783407844078540786407874078840789407904079140792407934079440795407964079740798407994080040801408024080340804408054080640807408084080940810408114081240813408144081540816408174081840819408204082140822408234082440825408264082740828408294083040831408324083340834408354083640837408384083940840408414084240843408444084540846408474084840849408504085140852408534085440855408564085740858408594086040861408624086340864408654086640867408684086940870408714087240873408744087540876408774087840879408804088140882408834088440885408864088740888408894089040891408924089340894408954089640897408984089940900409014090240903409044090540906409074090840909409104091140912409134091440915409164091740918409194092040921409224092340924409254092640927409284092940930409314093240933409344093540936409374093840939409404094140942409434094440945409464094740948409494095040951409524095340954409554095640957409584095940960409614096240963409644096540966409674096840969409704097140972409734097440975409764097740978409794098040981409824098340984409854098640987409884098940990409914099240993409944099540996409974099840999410004100141002410034100441005410064100741008410094101041011410124101341014410154101641017410184101941020410214102241023410244102541026410274102841029410304103141032410334103441035410364103741038410394104041041410424104341044410454104641047410484104941050410514105241053410544105541056410574105841059410604106141062410634106441065410664106741068410694107041071410724107341074410754107641077410784107941080410814108241083410844108541086410874108841089410904109141092410934109441095410964109741098410994110041101411024110341104411054110641107411084110941110411114111241113411144111541116411174111841119411204112141122411234112441125411264112741128411294113041131411324113341134411354113641137411384113941140411414114241143411444114541146411474114841149411504115141152411534115441155411564115741158411594116041161411624116341164411654116641167411684116941170411714117241173411744117541176411774117841179411804118141182411834118441185411864118741188411894119041191411924119341194411954119641197411984119941200412014120241203412044120541206412074120841209412104121141212412134121441215412164121741218412194122041221412224122341224412254122641227412284122941230412314123241233412344123541236412374123841239412404124141242412434124441245412464124741248412494125041251412524125341254412554125641257412584125941260412614126241263412644126541266412674126841269412704127141272412734127441275412764127741278412794128041281412824128341284412854128641287412884128941290412914129241293412944129541296412974129841299413004130141302413034130441305413064130741308413094131041311413124131341314413154131641317413184131941320413214132241323413244132541326413274132841329413304133141332413334133441335413364133741338413394134041341413424134341344413454134641347413484134941350413514135241353413544135541356413574135841359413604136141362413634136441365413664136741368413694137041371413724137341374413754137641377413784137941380413814138241383413844138541386413874138841389413904139141392413934139441395413964139741398413994140041401414024140341404414054140641407414084140941410414114141241413414144141541416414174141841419414204142141422414234142441425414264142741428414294143041431414324143341434414354143641437414384143941440414414144241443414444144541446414474144841449414504145141452414534145441455414564145741458414594146041461414624146341464414654146641467414684146941470414714147241473414744147541476414774147841479414804148141482414834148441485414864148741488414894149041491414924149341494414954149641497414984149941500415014150241503415044150541506415074150841509415104151141512415134151441515415164151741518415194152041521415224152341524415254152641527415284152941530415314153241533415344153541536415374153841539415404154141542415434154441545415464154741548415494155041551415524155341554415554155641557415584155941560415614156241563415644156541566415674156841569415704157141572415734157441575415764157741578415794158041581415824158341584415854158641587415884158941590415914159241593415944159541596415974159841599416004160141602416034160441605416064160741608416094161041611416124161341614416154161641617416184161941620416214162241623416244162541626416274162841629416304163141632416334163441635416364163741638416394164041641416424164341644416454164641647416484164941650416514165241653416544165541656416574165841659416604166141662416634166441665416664166741668416694167041671416724167341674416754167641677416784167941680416814168241683416844168541686416874168841689416904169141692416934169441695416964169741698416994170041701417024170341704417054170641707417084170941710417114171241713417144171541716417174171841719417204172141722417234172441725417264172741728417294173041731417324173341734417354173641737417384173941740417414174241743417444174541746417474174841749417504175141752417534175441755417564175741758417594176041761417624176341764417654176641767417684176941770417714177241773417744177541776417774177841779417804178141782417834178441785417864178741788417894179041791417924179341794417954179641797417984179941800418014180241803418044180541806418074180841809418104181141812418134181441815418164181741818418194182041821418224182341824418254182641827418284182941830418314183241833418344183541836418374183841839418404184141842418434184441845418464184741848418494185041851418524185341854418554185641857418584185941860418614186241863418644186541866418674186841869418704187141872418734187441875418764187741878418794188041881418824188341884418854188641887418884188941890418914189241893418944189541896418974189841899419004190141902419034190441905419064190741908419094191041911419124191341914419154191641917419184191941920419214192241923419244192541926419274192841929419304193141932419334193441935419364193741938419394194041941419424194341944419454194641947419484194941950419514195241953419544195541956419574195841959419604196141962419634196441965419664196741968419694197041971419724197341974419754197641977419784197941980419814198241983419844198541986419874198841989419904199141992419934199441995419964199741998419994200042001420024200342004420054200642007420084200942010420114201242013420144201542016420174201842019420204202142022420234202442025420264202742028420294203042031420324203342034420354203642037420384203942040420414204242043420444204542046420474204842049420504205142052420534205442055420564205742058420594206042061420624206342064420654206642067420684206942070420714207242073420744207542076420774207842079420804208142082420834208442085420864208742088420894209042091420924209342094420954209642097420984209942100421014210242103421044210542106421074210842109421104211142112421134211442115421164211742118421194212042121421224212342124421254212642127421284212942130421314213242133421344213542136421374213842139421404214142142421434214442145421464214742148421494215042151421524215342154421554215642157421584215942160421614216242163421644216542166421674216842169421704217142172421734217442175421764217742178421794218042181421824218342184421854218642187421884218942190421914219242193421944219542196421974219842199422004220142202422034220442205422064220742208422094221042211422124221342214422154221642217422184221942220422214222242223422244222542226422274222842229422304223142232422334223442235422364223742238422394224042241422424224342244422454224642247422484224942250422514225242253422544225542256422574225842259422604226142262422634226442265422664226742268422694227042271422724227342274422754227642277422784227942280422814228242283422844228542286422874228842289422904229142292422934229442295422964229742298422994230042301423024230342304423054230642307423084230942310423114231242313423144231542316423174231842319423204232142322423234232442325423264232742328423294233042331423324233342334423354233642337423384233942340423414234242343423444234542346423474234842349423504235142352423534235442355423564235742358423594236042361423624236342364423654236642367423684236942370423714237242373423744237542376423774237842379423804238142382423834238442385423864238742388423894239042391423924239342394423954239642397423984239942400424014240242403424044240542406424074240842409424104241142412424134241442415424164241742418424194242042421424224242342424424254242642427424284242942430424314243242433424344243542436424374243842439424404244142442424434244442445424464244742448424494245042451424524245342454424554245642457424584245942460424614246242463424644246542466424674246842469424704247142472424734247442475424764247742478424794248042481424824248342484424854248642487424884248942490424914249242493424944249542496424974249842499425004250142502425034250442505425064250742508425094251042511425124251342514425154251642517425184251942520425214252242523425244252542526425274252842529425304253142532425334253442535425364253742538425394254042541425424254342544425454254642547425484254942550425514255242553425544255542556425574255842559425604256142562425634256442565425664256742568425694257042571425724257342574425754257642577425784257942580425814258242583425844258542586425874258842589425904259142592425934259442595425964259742598425994260042601426024260342604426054260642607426084260942610426114261242613426144261542616426174261842619426204262142622426234262442625426264262742628426294263042631426324263342634426354263642637426384263942640426414264242643426444264542646426474264842649426504265142652426534265442655426564265742658426594266042661426624266342664426654266642667426684266942670426714267242673426744267542676426774267842679426804268142682426834268442685426864268742688426894269042691426924269342694426954269642697426984269942700427014270242703427044270542706427074270842709427104271142712427134271442715427164271742718427194272042721427224272342724427254272642727427284272942730427314273242733427344273542736427374273842739427404274142742427434274442745427464274742748427494275042751427524275342754427554275642757427584275942760427614276242763427644276542766427674276842769427704277142772427734277442775427764277742778427794278042781427824278342784427854278642787427884278942790427914279242793427944279542796427974279842799428004280142802428034280442805428064280742808428094281042811428124281342814428154281642817428184281942820428214282242823428244282542826428274282842829428304283142832428334283442835428364283742838428394284042841428424284342844428454284642847428484284942850428514285242853428544285542856428574285842859428604286142862428634286442865428664286742868428694287042871428724287342874428754287642877428784287942880428814288242883428844288542886428874288842889428904289142892428934289442895428964289742898428994290042901429024290342904429054290642907429084290942910429114291242913429144291542916429174291842919429204292142922429234292442925429264292742928429294293042931429324293342934429354293642937429384293942940429414294242943429444294542946429474294842949429504295142952429534295442955429564295742958429594296042961429624296342964429654296642967429684296942970429714297242973429744297542976429774297842979429804298142982429834298442985429864298742988429894299042991429924299342994429954299642997429984299943000430014300243003430044300543006430074300843009430104301143012430134301443015430164301743018430194302043021430224302343024430254302643027430284302943030430314303243033430344303543036430374303843039430404304143042430434304443045430464304743048430494305043051430524305343054430554305643057430584305943060430614306243063430644306543066430674306843069430704307143072430734307443075430764307743078430794308043081430824308343084430854308643087430884308943090430914309243093430944309543096430974309843099431004310143102431034310443105431064310743108431094311043111431124311343114431154311643117431184311943120431214312243123431244312543126431274312843129431304313143132431334313443135431364313743138431394314043141431424314343144431454314643147431484314943150431514315243153431544315543156431574315843159431604316143162431634316443165431664316743168431694317043171431724317343174431754317643177431784317943180431814318243183431844318543186431874318843189431904319143192431934319443195431964319743198431994320043201432024320343204432054320643207432084320943210432114321243213432144321543216432174321843219432204322143222432234322443225432264322743228432294323043231432324323343234432354323643237432384323943240432414324243243432444324543246432474324843249432504325143252432534325443255432564325743258432594326043261432624326343264432654326643267432684326943270432714327243273432744327543276432774327843279432804328143282432834328443285432864328743288432894329043291432924329343294432954329643297432984329943300433014330243303433044330543306433074330843309433104331143312433134331443315433164331743318433194332043321433224332343324433254332643327433284332943330433314333243333433344333543336433374333843339433404334143342433434334443345433464334743348433494335043351433524335343354433554335643357433584335943360433614336243363433644336543366433674336843369433704337143372433734337443375433764337743378433794338043381433824338343384433854338643387433884338943390433914339243393433944339543396433974339843399434004340143402434034340443405434064340743408434094341043411434124341343414434154341643417434184341943420434214342243423434244342543426434274342843429434304343143432434334343443435434364343743438434394344043441434424344343444434454344643447434484344943450434514345243453434544345543456434574345843459434604346143462434634346443465434664346743468434694347043471434724347343474434754347643477434784347943480434814348243483434844348543486434874348843489434904349143492434934349443495434964349743498434994350043501435024350343504435054350643507435084350943510435114351243513435144351543516435174351843519435204352143522435234352443525435264352743528435294353043531435324353343534435354353643537435384353943540435414354243543435444354543546435474354843549435504355143552435534355443555435564355743558435594356043561435624356343564435654356643567435684356943570435714357243573435744357543576435774357843579435804358143582435834358443585435864358743588435894359043591435924359343594435954359643597435984359943600436014360243603436044360543606436074360843609436104361143612436134361443615436164361743618436194362043621436224362343624436254362643627436284362943630436314363243633436344363543636436374363843639436404364143642436434364443645436464364743648436494365043651436524365343654436554365643657436584365943660436614366243663436644366543666436674366843669436704367143672436734367443675436764367743678436794368043681436824368343684436854368643687436884368943690436914369243693436944369543696436974369843699437004370143702437034370443705437064370743708437094371043711437124371343714437154371643717437184371943720437214372243723437244372543726437274372843729437304373143732437334373443735437364373743738437394374043741437424374343744437454374643747437484374943750437514375243753437544375543756437574375843759437604376143762437634376443765437664376743768437694377043771437724377343774437754377643777437784377943780437814378243783437844378543786437874378843789437904379143792437934379443795437964379743798437994380043801438024380343804438054380643807438084380943810438114381243813438144381543816438174381843819438204382143822438234382443825438264382743828438294383043831438324383343834438354383643837438384383943840438414384243843438444384543846438474384843849438504385143852438534385443855438564385743858438594386043861438624386343864438654386643867438684386943870438714387243873438744387543876438774387843879438804388143882438834388443885438864388743888438894389043891438924389343894438954389643897438984389943900439014390243903439044390543906439074390843909439104391143912439134391443915439164391743918439194392043921439224392343924439254392643927439284392943930439314393243933439344393543936439374393843939439404394143942439434394443945439464394743948439494395043951439524395343954439554395643957439584395943960439614396243963439644396543966439674396843969439704397143972439734397443975439764397743978439794398043981439824398343984439854398643987439884398943990439914399243993439944399543996439974399843999440004400144002440034400444005440064400744008440094401044011440124401344014440154401644017440184401944020440214402244023440244402544026440274402844029440304403144032440334403444035440364403744038440394404044041440424404344044440454404644047440484404944050440514405244053440544405544056440574405844059440604406144062440634406444065440664406744068440694407044071440724407344074440754407644077440784407944080440814408244083440844408544086440874408844089440904409144092440934409444095440964409744098440994410044101441024410344104441054410644107441084410944110441114411244113441144411544116441174411844119441204412144122441234412444125441264412744128441294413044131441324413344134441354413644137441384413944140441414414244143441444414544146441474414844149441504415144152441534415444155441564415744158441594416044161441624416344164441654416644167441684416944170441714417244173441744417544176441774417844179441804418144182441834418444185441864418744188441894419044191441924419344194441954419644197441984419944200442014420244203442044420544206442074420844209442104421144212442134421444215442164421744218442194422044221442224422344224442254422644227442284422944230442314423244233442344423544236442374423844239442404424144242442434424444245442464424744248442494425044251442524425344254442554425644257442584425944260442614426244263442644426544266442674426844269442704427144272442734427444275442764427744278442794428044281442824428344284442854428644287442884428944290442914429244293442944429544296442974429844299443004430144302443034430444305443064430744308443094431044311443124431344314443154431644317443184431944320443214432244323443244432544326443274432844329443304433144332443334433444335443364433744338443394434044341443424434344344443454434644347443484434944350443514435244353443544435544356443574435844359443604436144362443634436444365443664436744368443694437044371443724437344374443754437644377443784437944380443814438244383443844438544386443874438844389443904439144392443934439444395443964439744398443994440044401444024440344404444054440644407444084440944410444114441244413444144441544416444174441844419444204442144422444234442444425444264442744428444294443044431444324443344434444354443644437444384443944440444414444244443444444444544446444474444844449444504445144452444534445444455444564445744458444594446044461444624446344464444654446644467444684446944470444714447244473444744447544476444774447844479444804448144482444834448444485444864448744488444894449044491444924449344494444954449644497444984449944500445014450244503445044450544506445074450844509445104451144512445134451444515445164451744518445194452044521445224452344524445254452644527445284452944530445314453244533445344453544536445374453844539445404454144542445434454444545445464454744548445494455044551445524455344554445554455644557445584455944560445614456244563445644456544566445674456844569445704457144572445734457444575445764457744578445794458044581445824458344584445854458644587445884458944590445914459244593445944459544596445974459844599446004460144602446034460444605446064460744608446094461044611446124461344614446154461644617446184461944620446214462244623446244462544626446274462844629446304463144632446334463444635446364463744638446394464044641446424464344644446454464644647446484464944650446514465244653446544465544656446574465844659446604466144662446634466444665446664466744668446694467044671446724467344674446754467644677446784467944680446814468244683446844468544686446874468844689446904469144692446934469444695446964469744698446994470044701447024470344704447054470644707447084470944710447114471244713447144471544716447174471844719447204472144722447234472444725447264472744728447294473044731447324473344734447354473644737447384473944740447414474244743447444474544746447474474844749447504475144752447534475444755447564475744758447594476044761447624476344764447654476644767447684476944770447714477244773447744477544776447774477844779447804478144782447834478444785447864478744788447894479044791447924479344794447954479644797447984479944800448014480244803448044480544806448074480844809448104481144812448134481444815448164481744818448194482044821448224482344824448254482644827448284482944830448314483244833448344483544836448374483844839448404484144842448434484444845448464484744848448494485044851448524485344854448554485644857448584485944860448614486244863448644486544866448674486844869448704487144872448734487444875448764487744878448794488044881448824488344884448854488644887448884488944890448914489244893448944489544896448974489844899449004490144902449034490444905449064490744908449094491044911449124491344914449154491644917449184491944920449214492244923449244492544926449274492844929449304493144932449334493444935449364493744938449394494044941449424494344944449454494644947449484494944950449514495244953449544495544956449574495844959449604496144962449634496444965449664496744968449694497044971449724497344974449754497644977449784497944980449814498244983449844498544986449874498844989449904499144992449934499444995449964499744998449994500045001450024500345004450054500645007450084500945010450114501245013450144501545016450174501845019450204502145022450234502445025450264502745028450294503045031450324503345034450354503645037450384503945040450414504245043450444504545046450474504845049450504505145052450534505445055450564505745058450594506045061450624506345064450654506645067450684506945070450714507245073450744507545076450774507845079450804508145082450834508445085450864508745088450894509045091450924509345094450954509645097450984509945100451014510245103451044510545106451074510845109451104511145112451134511445115451164511745118451194512045121451224512345124451254512645127451284512945130451314513245133451344513545136451374513845139451404514145142451434514445145451464514745148451494515045151451524515345154451554515645157451584515945160451614516245163451644516545166451674516845169451704517145172451734517445175451764517745178451794518045181451824518345184451854518645187451884518945190451914519245193451944519545196451974519845199452004520145202452034520445205452064520745208452094521045211452124521345214452154521645217452184521945220452214522245223452244522545226452274522845229452304523145232452334523445235452364523745238452394524045241452424524345244452454524645247452484524945250452514525245253452544525545256452574525845259452604526145262452634526445265452664526745268452694527045271452724527345274452754527645277452784527945280452814528245283452844528545286452874528845289452904529145292452934529445295452964529745298452994530045301453024530345304453054530645307453084530945310453114531245313453144531545316453174531845319453204532145322453234532445325453264532745328453294533045331453324533345334453354533645337453384533945340453414534245343453444534545346453474534845349453504535145352453534535445355453564535745358453594536045361453624536345364453654536645367453684536945370453714537245373453744537545376453774537845379453804538145382453834538445385453864538745388453894539045391453924539345394453954539645397453984539945400454014540245403454044540545406454074540845409454104541145412454134541445415454164541745418454194542045421454224542345424454254542645427454284542945430454314543245433454344543545436454374543845439454404544145442454434544445445454464544745448454494545045451454524545345454454554545645457454584545945460454614546245463454644546545466454674546845469454704547145472454734547445475454764547745478454794548045481454824548345484454854548645487454884548945490454914549245493454944549545496454974549845499455004550145502455034550445505455064550745508455094551045511455124551345514455154551645517455184551945520455214552245523455244552545526455274552845529455304553145532455334553445535455364553745538455394554045541455424554345544455454554645547455484554945550455514555245553455544555545556455574555845559455604556145562455634556445565455664556745568455694557045571455724557345574455754557645577455784557945580455814558245583455844558545586455874558845589455904559145592455934559445595455964559745598455994560045601456024560345604456054560645607456084560945610456114561245613456144561545616456174561845619456204562145622456234562445625456264562745628456294563045631456324563345634456354563645637456384563945640456414564245643456444564545646456474564845649456504565145652456534565445655456564565745658456594566045661456624566345664456654566645667456684566945670456714567245673456744567545676456774567845679456804568145682456834568445685456864568745688456894569045691456924569345694456954569645697456984569945700457014570245703457044570545706457074570845709457104571145712457134571445715457164571745718457194572045721457224572345724457254572645727457284572945730457314573245733457344573545736457374573845739457404574145742457434574445745457464574745748457494575045751457524575345754457554575645757457584575945760457614576245763457644576545766457674576845769457704577145772457734577445775457764577745778457794578045781457824578345784457854578645787457884578945790457914579245793457944579545796457974579845799458004580145802458034580445805458064580745808458094581045811458124581345814458154581645817458184581945820458214582245823458244582545826458274582845829458304583145832458334583445835458364583745838458394584045841458424584345844458454584645847458484584945850458514585245853458544585545856458574585845859458604586145862458634586445865458664586745868458694587045871458724587345874458754587645877458784587945880458814588245883458844588545886458874588845889458904589145892458934589445895458964589745898458994590045901459024590345904459054590645907459084590945910459114591245913459144591545916459174591845919459204592145922459234592445925459264592745928459294593045931459324593345934459354593645937459384593945940459414594245943459444594545946459474594845949459504595145952459534595445955459564595745958459594596045961459624596345964459654596645967459684596945970459714597245973459744597545976459774597845979459804598145982459834598445985459864598745988459894599045991459924599345994459954599645997459984599946000460014600246003460044600546006460074600846009460104601146012460134601446015460164601746018460194602046021460224602346024460254602646027460284602946030460314603246033460344603546036460374603846039460404604146042460434604446045460464604746048460494605046051460524605346054460554605646057460584605946060460614606246063460644606546066460674606846069460704607146072460734607446075460764607746078460794608046081460824608346084460854608646087460884608946090460914609246093460944609546096460974609846099461004610146102461034610446105461064610746108461094611046111461124611346114461154611646117461184611946120461214612246123461244612546126461274612846129461304613146132461334613446135461364613746138461394614046141461424614346144461454614646147461484614946150461514615246153461544615546156461574615846159461604616146162461634616446165461664616746168461694617046171461724617346174461754617646177461784617946180461814618246183461844618546186461874618846189461904619146192461934619446195461964619746198461994620046201462024620346204462054620646207462084620946210462114621246213462144621546216462174621846219462204622146222462234622446225462264622746228462294623046231462324623346234462354623646237462384623946240462414624246243462444624546246462474624846249462504625146252462534625446255462564625746258462594626046261462624626346264462654626646267462684626946270462714627246273462744627546276462774627846279462804628146282462834628446285462864628746288462894629046291462924629346294462954629646297462984629946300463014630246303463044630546306463074630846309463104631146312463134631446315463164631746318463194632046321463224632346324463254632646327463284632946330463314633246333463344633546336463374633846339463404634146342463434634446345463464634746348463494635046351463524635346354463554635646357463584635946360463614636246363463644636546366463674636846369463704637146372463734637446375463764637746378463794638046381463824638346384463854638646387463884638946390463914639246393463944639546396463974639846399464004640146402464034640446405464064640746408464094641046411464124641346414464154641646417464184641946420464214642246423464244642546426464274642846429464304643146432464334643446435464364643746438464394644046441464424644346444464454644646447464484644946450464514645246453464544645546456464574645846459464604646146462464634646446465464664646746468464694647046471464724647346474464754647646477464784647946480464814648246483464844648546486464874648846489464904649146492464934649446495464964649746498464994650046501465024650346504465054650646507465084650946510465114651246513465144651546516465174651846519465204652146522465234652446525465264652746528465294653046531465324653346534465354653646537465384653946540465414654246543465444654546546465474654846549465504655146552465534655446555465564655746558465594656046561465624656346564465654656646567465684656946570465714657246573465744657546576465774657846579465804658146582465834658446585465864658746588465894659046591465924659346594465954659646597465984659946600466014660246603466044660546606466074660846609466104661146612466134661446615466164661746618466194662046621466224662346624466254662646627466284662946630466314663246633466344663546636466374663846639466404664146642466434664446645466464664746648466494665046651466524665346654466554665646657466584665946660466614666246663466644666546666466674666846669466704667146672466734667446675466764667746678466794668046681466824668346684466854668646687466884668946690466914669246693466944669546696466974669846699467004670146702467034670446705467064670746708467094671046711467124671346714467154671646717467184671946720467214672246723467244672546726467274672846729467304673146732467334673446735467364673746738467394674046741467424674346744467454674646747467484674946750467514675246753467544675546756467574675846759467604676146762467634676446765467664676746768467694677046771467724677346774467754677646777467784677946780467814678246783467844678546786467874678846789467904679146792467934679446795467964679746798467994680046801468024680346804468054680646807468084680946810468114681246813468144681546816468174681846819468204682146822468234682446825468264682746828468294683046831468324683346834468354683646837468384683946840468414684246843468444684546846468474684846849468504685146852468534685446855468564685746858468594686046861468624686346864468654686646867468684686946870468714687246873468744687546876468774687846879468804688146882468834688446885468864688746888468894689046891468924689346894468954689646897468984689946900469014690246903469044690546906469074690846909469104691146912469134691446915469164691746918469194692046921469224692346924469254692646927469284692946930469314693246933469344693546936469374693846939469404694146942469434694446945469464694746948469494695046951469524695346954469554695646957469584695946960469614696246963469644696546966469674696846969469704697146972469734697446975469764697746978469794698046981469824698346984469854698646987469884698946990469914699246993469944699546996469974699846999470004700147002470034700447005470064700747008470094701047011470124701347014470154701647017470184701947020470214702247023470244702547026470274702847029470304703147032470334703447035470364703747038470394704047041470424704347044470454704647047470484704947050470514705247053470544705547056470574705847059470604706147062470634706447065470664706747068470694707047071470724707347074470754707647077470784707947080470814708247083470844708547086470874708847089470904709147092470934709447095470964709747098470994710047101471024710347104471054710647107471084710947110471114711247113471144711547116471174711847119471204712147122471234712447125471264712747128471294713047131471324713347134471354713647137471384713947140471414714247143471444714547146471474714847149471504715147152471534715447155471564715747158471594716047161471624716347164471654716647167471684716947170471714717247173471744717547176471774717847179471804718147182471834718447185471864718747188471894719047191471924719347194471954719647197471984719947200472014720247203472044720547206472074720847209472104721147212472134721447215472164721747218472194722047221472224722347224472254722647227472284722947230472314723247233472344723547236472374723847239472404724147242472434724447245472464724747248472494725047251472524725347254472554725647257472584725947260472614726247263472644726547266472674726847269472704727147272472734727447275472764727747278472794728047281472824728347284472854728647287472884728947290472914729247293472944729547296472974729847299473004730147302473034730447305473064730747308473094731047311473124731347314473154731647317473184731947320473214732247323473244732547326473274732847329473304733147332473334733447335473364733747338473394734047341473424734347344473454734647347473484734947350473514735247353473544735547356473574735847359473604736147362473634736447365473664736747368473694737047371473724737347374473754737647377473784737947380473814738247383473844738547386473874738847389473904739147392473934739447395473964739747398473994740047401474024740347404474054740647407474084740947410474114741247413474144741547416474174741847419474204742147422474234742447425474264742747428474294743047431474324743347434474354743647437474384743947440474414744247443474444744547446474474744847449474504745147452474534745447455474564745747458474594746047461474624746347464474654746647467474684746947470474714747247473474744747547476474774747847479474804748147482474834748447485474864748747488474894749047491474924749347494474954749647497474984749947500475014750247503475044750547506475074750847509475104751147512475134751447515475164751747518475194752047521475224752347524475254752647527475284752947530475314753247533475344753547536475374753847539475404754147542475434754447545475464754747548475494755047551475524755347554475554755647557475584755947560475614756247563475644756547566475674756847569475704757147572475734757447575475764757747578475794758047581475824758347584475854758647587475884758947590475914759247593475944759547596475974759847599476004760147602476034760447605476064760747608476094761047611476124761347614476154761647617476184761947620476214762247623476244762547626476274762847629476304763147632476334763447635476364763747638476394764047641476424764347644476454764647647476484764947650476514765247653476544765547656476574765847659476604766147662476634766447665476664766747668476694767047671476724767347674476754767647677476784767947680476814768247683476844768547686476874768847689476904769147692476934769447695476964769747698476994770047701477024770347704477054770647707477084770947710477114771247713477144771547716477174771847719477204772147722477234772447725477264772747728477294773047731477324773347734477354773647737477384773947740477414774247743477444774547746477474774847749477504775147752477534775447755477564775747758477594776047761477624776347764477654776647767477684776947770477714777247773477744777547776477774777847779477804778147782477834778447785477864778747788477894779047791477924779347794477954779647797477984779947800478014780247803478044780547806478074780847809478104781147812478134781447815478164781747818478194782047821478224782347824478254782647827478284782947830478314783247833478344783547836478374783847839478404784147842478434784447845478464784747848478494785047851478524785347854478554785647857478584785947860478614786247863478644786547866478674786847869478704787147872478734787447875478764787747878478794788047881478824788347884478854788647887478884788947890478914789247893478944789547896478974789847899479004790147902479034790447905479064790747908479094791047911479124791347914479154791647917479184791947920479214792247923479244792547926479274792847929479304793147932479334793447935479364793747938479394794047941479424794347944479454794647947479484794947950479514795247953479544795547956479574795847959479604796147962479634796447965479664796747968479694797047971479724797347974479754797647977479784797947980479814798247983479844798547986479874798847989479904799147992479934799447995479964799747998479994800048001480024800348004480054800648007480084800948010480114801248013480144801548016480174801848019480204802148022480234802448025480264802748028480294803048031480324803348034480354803648037480384803948040480414804248043480444804548046480474804848049480504805148052480534805448055480564805748058480594806048061480624806348064480654806648067480684806948070480714807248073480744807548076480774807848079480804808148082480834808448085480864808748088480894809048091480924809348094480954809648097480984809948100481014810248103481044810548106481074810848109481104811148112481134811448115481164811748118481194812048121481224812348124481254812648127481284812948130481314813248133481344813548136481374813848139481404814148142481434814448145481464814748148481494815048151481524815348154481554815648157481584815948160481614816248163481644816548166481674816848169481704817148172481734817448175481764817748178481794818048181481824818348184481854818648187481884818948190481914819248193481944819548196481974819848199482004820148202482034820448205482064820748208482094821048211482124821348214482154821648217482184821948220482214822248223482244822548226482274822848229482304823148232482334823448235482364823748238482394824048241482424824348244482454824648247482484824948250482514825248253482544825548256482574825848259482604826148262482634826448265482664826748268482694827048271482724827348274482754827648277482784827948280482814828248283482844828548286482874828848289482904829148292482934829448295482964829748298482994830048301483024830348304483054830648307483084830948310483114831248313483144831548316483174831848319483204832148322483234832448325483264832748328483294833048331483324833348334483354833648337483384833948340483414834248343483444834548346483474834848349483504835148352483534835448355483564835748358483594836048361483624836348364483654836648367483684836948370483714837248373483744837548376483774837848379483804838148382483834838448385483864838748388483894839048391483924839348394483954839648397483984839948400484014840248403484044840548406484074840848409484104841148412484134841448415484164841748418484194842048421484224842348424484254842648427484284842948430484314843248433484344843548436484374843848439484404844148442484434844448445484464844748448484494845048451484524845348454484554845648457484584845948460484614846248463484644846548466484674846848469484704847148472484734847448475484764847748478484794848048481484824848348484484854848648487484884848948490484914849248493484944849548496484974849848499485004850148502485034850448505485064850748508485094851048511485124851348514485154851648517485184851948520485214852248523485244852548526485274852848529485304853148532485334853448535485364853748538485394854048541485424854348544485454854648547485484854948550485514855248553485544855548556485574855848559485604856148562485634856448565485664856748568485694857048571485724857348574485754857648577485784857948580485814858248583485844858548586485874858848589485904859148592485934859448595485964859748598485994860048601486024860348604486054860648607486084860948610486114861248613486144861548616486174861848619486204862148622486234862448625486264862748628486294863048631486324863348634486354863648637486384863948640486414864248643486444864548646486474864848649486504865148652486534865448655486564865748658486594866048661486624866348664486654866648667486684866948670486714867248673486744867548676486774867848679486804868148682486834868448685486864868748688486894869048691486924869348694486954869648697486984869948700487014870248703487044870548706487074870848709487104871148712487134871448715487164871748718487194872048721487224872348724487254872648727487284872948730487314873248733487344873548736487374873848739487404874148742487434874448745487464874748748487494875048751487524875348754487554875648757487584875948760487614876248763487644876548766487674876848769487704877148772487734877448775487764877748778487794878048781487824878348784487854878648787487884878948790487914879248793487944879548796487974879848799488004880148802488034880448805488064880748808488094881048811488124881348814488154881648817488184881948820488214882248823488244882548826488274882848829488304883148832488334883448835488364883748838488394884048841488424884348844488454884648847488484884948850488514885248853488544885548856488574885848859488604886148862488634886448865488664886748868488694887048871488724887348874488754887648877488784887948880488814888248883488844888548886488874888848889488904889148892488934889448895488964889748898488994890048901489024890348904489054890648907489084890948910489114891248913489144891548916489174891848919489204892148922489234892448925489264892748928489294893048931489324893348934489354893648937489384893948940489414894248943489444894548946489474894848949489504895148952489534895448955489564895748958489594896048961489624896348964489654896648967489684896948970489714897248973489744897548976489774897848979489804898148982489834898448985489864898748988489894899048991489924899348994489954899648997489984899949000490014900249003490044900549006490074900849009490104901149012490134901449015490164901749018490194902049021490224902349024490254902649027490284902949030490314903249033490344903549036490374903849039490404904149042490434904449045490464904749048490494905049051490524905349054490554905649057490584905949060490614906249063490644906549066490674906849069490704907149072490734907449075490764907749078490794908049081490824908349084490854908649087490884908949090490914909249093490944909549096490974909849099491004910149102491034910449105491064910749108491094911049111491124911349114491154911649117491184911949120491214912249123491244912549126491274912849129491304913149132491334913449135491364913749138491394914049141491424914349144491454914649147491484914949150491514915249153491544915549156491574915849159491604916149162491634916449165491664916749168491694917049171491724917349174491754917649177491784917949180491814918249183491844918549186491874918849189491904919149192491934919449195491964919749198491994920049201492024920349204492054920649207492084920949210492114921249213492144921549216492174921849219492204922149222492234922449225492264922749228492294923049231492324923349234492354923649237492384923949240492414924249243492444924549246492474924849249492504925149252492534925449255492564925749258492594926049261492624926349264492654926649267492684926949270492714927249273492744927549276492774927849279492804928149282492834928449285492864928749288492894929049291492924929349294492954929649297492984929949300493014930249303493044930549306493074930849309493104931149312493134931449315493164931749318493194932049321493224932349324493254932649327493284932949330493314933249333493344933549336493374933849339493404934149342493434934449345493464934749348493494935049351493524935349354493554935649357493584935949360493614936249363493644936549366493674936849369493704937149372493734937449375493764937749378493794938049381493824938349384493854938649387493884938949390493914939249393493944939549396493974939849399494004940149402494034940449405494064940749408494094941049411494124941349414494154941649417494184941949420494214942249423494244942549426494274942849429494304943149432494334943449435494364943749438494394944049441494424944349444494454944649447494484944949450494514945249453494544945549456494574945849459494604946149462494634946449465494664946749468494694947049471494724947349474494754947649477494784947949480494814948249483494844948549486494874948849489494904949149492494934949449495494964949749498494994950049501495024950349504495054950649507495084950949510495114951249513495144951549516495174951849519495204952149522495234952449525495264952749528495294953049531495324953349534495354953649537495384953949540495414954249543495444954549546495474954849549495504955149552495534955449555495564955749558495594956049561495624956349564495654956649567495684956949570495714957249573495744957549576495774957849579495804958149582495834958449585495864958749588495894959049591495924959349594495954959649597495984959949600496014960249603496044960549606496074960849609496104961149612496134961449615496164961749618496194962049621496224962349624496254962649627496284962949630496314963249633496344963549636496374963849639496404964149642496434964449645496464964749648496494965049651496524965349654496554965649657496584965949660496614966249663496644966549666496674966849669496704967149672496734967449675496764967749678496794968049681496824968349684496854968649687496884968949690496914969249693496944969549696496974969849699497004970149702497034970449705497064970749708497094971049711497124971349714497154971649717497184971949720497214972249723497244972549726497274972849729497304973149732497334973449735497364973749738497394974049741497424974349744497454974649747497484974949750497514975249753497544975549756497574975849759497604976149762497634976449765497664976749768497694977049771497724977349774497754977649777497784977949780497814978249783497844978549786497874978849789497904979149792497934979449795497964979749798497994980049801498024980349804498054980649807498084980949810498114981249813498144981549816498174981849819498204982149822498234982449825498264982749828498294983049831498324983349834498354983649837498384983949840498414984249843498444984549846498474984849849498504985149852498534985449855498564985749858498594986049861498624986349864498654986649867498684986949870498714987249873498744987549876498774987849879498804988149882498834988449885498864988749888498894989049891498924989349894498954989649897498984989949900499014990249903499044990549906499074990849909499104991149912499134991449915499164991749918499194992049921499224992349924499254992649927499284992949930499314993249933499344993549936499374993849939499404994149942499434994449945499464994749948499494995049951499524995349954499554995649957499584995949960499614996249963499644996549966499674996849969499704997149972499734997449975499764997749978499794998049981499824998349984499854998649987499884998949990499914999249993499944999549996499974999849999500005000150002500035000450005500065000750008500095001050011500125001350014500155001650017500185001950020500215002250023500245002550026500275002850029500305003150032500335003450035500365003750038500395004050041500425004350044500455004650047500485004950050500515005250053500545005550056500575005850059500605006150062500635006450065500665006750068500695007050071500725007350074500755007650077500785007950080500815008250083500845008550086500875008850089500905009150092500935009450095500965009750098500995010050101501025010350104501055010650107501085010950110501115011250113501145011550116501175011850119501205012150122501235012450125501265012750128501295013050131501325013350134501355013650137501385013950140501415014250143501445014550146501475014850149501505015150152501535015450155501565015750158501595016050161501625016350164501655016650167501685016950170501715017250173501745017550176501775017850179501805018150182501835018450185501865018750188501895019050191501925019350194501955019650197501985019950200502015020250203502045020550206502075020850209502105021150212502135021450215502165021750218502195022050221502225022350224502255022650227502285022950230502315023250233502345023550236502375023850239502405024150242502435024450245502465024750248502495025050251502525025350254502555025650257502585025950260502615026250263502645026550266502675026850269502705027150272502735027450275502765027750278502795028050281502825028350284502855028650287502885028950290502915029250293502945029550296502975029850299503005030150302503035030450305503065030750308503095031050311503125031350314503155031650317503185031950320503215032250323503245032550326503275032850329503305033150332503335033450335503365033750338503395034050341503425034350344503455034650347503485034950350503515035250353503545035550356503575035850359503605036150362503635036450365503665036750368503695037050371503725037350374503755037650377503785037950380503815038250383503845038550386503875038850389503905039150392503935039450395503965039750398503995040050401504025040350404504055040650407504085040950410504115041250413504145041550416504175041850419504205042150422504235042450425504265042750428504295043050431504325043350434504355043650437504385043950440504415044250443504445044550446504475044850449504505045150452504535045450455504565045750458504595046050461504625046350464504655046650467504685046950470504715047250473504745047550476504775047850479504805048150482504835048450485504865048750488504895049050491504925049350494504955049650497504985049950500505015050250503505045050550506505075050850509505105051150512505135051450515505165051750518505195052050521505225052350524505255052650527505285052950530505315053250533505345053550536505375053850539505405054150542505435054450545505465054750548505495055050551505525055350554505555055650557505585055950560505615056250563505645056550566505675056850569505705057150572505735057450575505765057750578505795058050581505825058350584505855058650587505885058950590505915059250593505945059550596505975059850599506005060150602506035060450605506065060750608506095061050611506125061350614506155061650617506185061950620506215062250623506245062550626506275062850629506305063150632506335063450635506365063750638506395064050641506425064350644506455064650647506485064950650506515065250653506545065550656506575065850659506605066150662506635066450665506665066750668506695067050671506725067350674506755067650677506785067950680506815068250683506845068550686506875068850689506905069150692506935069450695506965069750698506995070050701507025070350704507055070650707507085070950710507115071250713507145071550716507175071850719507205072150722507235072450725507265072750728507295073050731507325073350734507355073650737507385073950740507415074250743507445074550746507475074850749507505075150752507535075450755507565075750758507595076050761507625076350764507655076650767507685076950770507715077250773507745077550776507775077850779507805078150782507835078450785507865078750788507895079050791507925079350794507955079650797507985079950800508015080250803508045080550806508075080850809508105081150812508135081450815508165081750818508195082050821508225082350824508255082650827508285082950830508315083250833508345083550836508375083850839508405084150842508435084450845508465084750848508495085050851508525085350854508555085650857508585085950860508615086250863508645086550866508675086850869508705087150872508735087450875508765087750878508795088050881508825088350884508855088650887508885088950890508915089250893508945089550896508975089850899509005090150902509035090450905509065090750908509095091050911509125091350914509155091650917509185091950920509215092250923509245092550926509275092850929509305093150932509335093450935509365093750938509395094050941509425094350944509455094650947509485094950950509515095250953509545095550956509575095850959509605096150962509635096450965509665096750968509695097050971509725097350974509755097650977509785097950980509815098250983509845098550986509875098850989509905099150992509935099450995509965099750998509995100051001510025100351004510055100651007510085100951010510115101251013510145101551016510175101851019510205102151022510235102451025510265102751028510295103051031510325103351034510355103651037510385103951040510415104251043510445104551046510475104851049510505105151052510535105451055510565105751058510595106051061510625106351064510655106651067510685106951070510715107251073510745107551076510775107851079510805108151082510835108451085510865108751088510895109051091510925109351094510955109651097510985109951100511015110251103511045110551106511075110851109511105111151112511135111451115511165111751118511195112051121511225112351124511255112651127511285112951130511315113251133511345113551136511375113851139511405114151142511435114451145511465114751148511495115051151511525115351154511555115651157511585115951160511615116251163511645116551166511675116851169511705117151172511735117451175511765117751178511795118051181511825118351184511855118651187511885118951190511915119251193511945119551196511975119851199512005120151202512035120451205512065120751208512095121051211512125121351214512155121651217512185121951220512215122251223512245122551226512275122851229512305123151232512335123451235512365123751238512395124051241512425124351244512455124651247512485124951250512515125251253512545125551256512575125851259512605126151262512635126451265512665126751268512695127051271512725127351274512755127651277512785127951280512815128251283512845128551286512875128851289512905129151292512935129451295512965129751298512995130051301513025130351304513055130651307513085130951310513115131251313513145131551316513175131851319513205132151322513235132451325513265132751328513295133051331513325133351334513355133651337513385133951340513415134251343513445134551346513475134851349513505135151352513535135451355513565135751358513595136051361513625136351364513655136651367513685136951370513715137251373513745137551376513775137851379513805138151382513835138451385513865138751388513895139051391513925139351394513955139651397513985139951400514015140251403514045140551406514075140851409514105141151412514135141451415514165141751418514195142051421514225142351424514255142651427514285142951430514315143251433514345143551436514375143851439514405144151442514435144451445514465144751448514495145051451514525145351454514555145651457514585145951460514615146251463514645146551466514675146851469514705147151472514735147451475514765147751478514795148051481514825148351484514855148651487514885148951490514915149251493514945149551496514975149851499515005150151502515035150451505515065150751508515095151051511515125151351514515155151651517515185151951520515215152251523515245152551526515275152851529515305153151532515335153451535515365153751538515395154051541515425154351544515455154651547515485154951550515515155251553515545155551556515575155851559515605156151562515635156451565515665156751568515695157051571515725157351574515755157651577515785157951580515815158251583515845158551586515875158851589515905159151592515935159451595515965159751598515995160051601516025160351604516055160651607516085160951610516115161251613516145161551616516175161851619516205162151622516235162451625516265162751628516295163051631516325163351634516355163651637516385163951640516415164251643516445164551646516475164851649516505165151652516535165451655516565165751658516595166051661516625166351664516655166651667516685166951670516715167251673516745167551676516775167851679516805168151682516835168451685516865168751688516895169051691516925169351694516955169651697516985169951700517015170251703517045170551706517075170851709517105171151712517135171451715517165171751718517195172051721517225172351724517255172651727517285172951730517315173251733517345173551736517375173851739517405174151742517435174451745517465174751748517495175051751517525175351754517555175651757517585175951760517615176251763517645176551766517675176851769517705177151772517735177451775517765177751778517795178051781517825178351784517855178651787517885178951790517915179251793517945179551796517975179851799518005180151802518035180451805518065180751808518095181051811518125181351814518155181651817518185181951820518215182251823518245182551826518275182851829518305183151832518335183451835518365183751838518395184051841518425184351844518455184651847518485184951850518515185251853518545185551856518575185851859518605186151862518635186451865518665186751868518695187051871518725187351874518755187651877518785187951880518815188251883518845188551886518875188851889518905189151892518935189451895518965189751898518995190051901519025190351904519055190651907519085190951910519115191251913519145191551916519175191851919519205192151922519235192451925519265192751928519295193051931519325193351934519355193651937519385193951940519415194251943519445194551946519475194851949519505195151952519535195451955519565195751958519595196051961519625196351964519655196651967519685196951970519715197251973519745197551976519775197851979519805198151982519835198451985519865198751988519895199051991519925199351994519955199651997519985199952000520015200252003520045200552006520075200852009520105201152012520135201452015520165201752018520195202052021520225202352024520255202652027520285202952030520315203252033520345203552036520375203852039520405204152042520435204452045520465204752048520495205052051520525205352054520555205652057520585205952060520615206252063520645206552066520675206852069520705207152072520735207452075520765207752078520795208052081520825208352084520855208652087520885208952090520915209252093520945209552096520975209852099521005210152102521035210452105521065210752108521095211052111521125211352114521155211652117521185211952120521215212252123521245212552126521275212852129521305213152132521335213452135521365213752138521395214052141521425214352144521455214652147521485214952150521515215252153521545215552156521575215852159521605216152162521635216452165521665216752168521695217052171521725217352174521755217652177521785217952180521815218252183521845218552186521875218852189521905219152192521935219452195521965219752198521995220052201522025220352204522055220652207522085220952210522115221252213522145221552216522175221852219522205222152222522235222452225522265222752228522295223052231522325223352234522355223652237522385223952240522415224252243522445224552246522475224852249522505225152252522535225452255522565225752258522595226052261522625226352264522655226652267522685226952270522715227252273522745227552276522775227852279522805228152282522835228452285522865228752288522895229052291522925229352294522955229652297522985229952300523015230252303523045230552306523075230852309523105231152312523135231452315523165231752318523195232052321523225232352324523255232652327523285232952330523315233252333523345233552336523375233852339523405234152342523435234452345523465234752348523495235052351523525235352354523555235652357523585235952360523615236252363523645236552366523675236852369523705237152372523735237452375523765237752378523795238052381523825238352384523855238652387523885238952390523915239252393523945239552396523975239852399524005240152402524035240452405524065240752408524095241052411524125241352414524155241652417524185241952420524215242252423524245242552426524275242852429524305243152432524335243452435524365243752438524395244052441524425244352444524455244652447524485244952450524515245252453524545245552456524575245852459524605246152462524635246452465524665246752468524695247052471524725247352474524755247652477524785247952480524815248252483524845248552486524875248852489524905249152492524935249452495524965249752498524995250052501525025250352504525055250652507525085250952510525115251252513525145251552516525175251852519525205252152522525235252452525525265252752528525295253052531525325253352534525355253652537525385253952540525415254252543525445254552546525475254852549525505255152552525535255452555525565255752558525595256052561525625256352564525655256652567525685256952570525715257252573525745257552576525775257852579525805258152582525835258452585525865258752588525895259052591525925259352594525955259652597525985259952600526015260252603526045260552606526075260852609526105261152612526135261452615526165261752618526195262052621526225262352624526255262652627526285262952630526315263252633526345263552636526375263852639526405264152642526435264452645526465264752648526495265052651526525265352654526555265652657526585265952660526615266252663526645266552666526675266852669526705267152672526735267452675526765267752678526795268052681526825268352684526855268652687526885268952690526915269252693526945269552696526975269852699527005270152702527035270452705527065270752708527095271052711527125271352714527155271652717527185271952720527215272252723527245272552726527275272852729527305273152732527335273452735527365273752738527395274052741527425274352744527455274652747527485274952750527515275252753527545275552756527575275852759527605276152762527635276452765527665276752768527695277052771527725277352774527755277652777527785277952780527815278252783527845278552786527875278852789527905279152792527935279452795527965279752798527995280052801528025280352804528055280652807528085280952810528115281252813528145281552816528175281852819528205282152822528235282452825528265282752828528295283052831528325283352834528355283652837528385283952840528415284252843528445284552846528475284852849528505285152852528535285452855528565285752858528595286052861528625286352864528655286652867528685286952870528715287252873528745287552876528775287852879528805288152882528835288452885528865288752888528895289052891528925289352894528955289652897528985289952900529015290252903529045290552906529075290852909529105291152912529135291452915529165291752918529195292052921529225292352924529255292652927529285292952930529315293252933529345293552936529375293852939529405294152942529435294452945529465294752948529495295052951529525295352954529555295652957529585295952960529615296252963529645296552966529675296852969529705297152972529735297452975529765297752978529795298052981529825298352984529855298652987529885298952990529915299252993529945299552996529975299852999530005300153002530035300453005530065300753008530095301053011530125301353014530155301653017530185301953020530215302253023530245302553026530275302853029530305303153032530335303453035530365303753038530395304053041530425304353044530455304653047530485304953050530515305253053530545305553056530575305853059530605306153062530635306453065530665306753068530695307053071530725307353074530755307653077530785307953080530815308253083530845308553086530875308853089530905309153092530935309453095530965309753098530995310053101531025310353104531055310653107531085310953110531115311253113531145311553116531175311853119531205312153122531235312453125531265312753128531295313053131531325313353134531355313653137531385313953140531415314253143531445314553146531475314853149531505315153152531535315453155531565315753158531595316053161531625316353164531655316653167531685316953170531715317253173531745317553176531775317853179531805318153182531835318453185531865318753188531895319053191531925319353194531955319653197531985319953200532015320253203532045320553206532075320853209532105321153212532135321453215532165321753218532195322053221532225322353224532255322653227532285322953230532315323253233532345323553236532375323853239532405324153242532435324453245532465324753248532495325053251532525325353254532555325653257532585325953260532615326253263532645326553266532675326853269532705327153272532735327453275532765327753278532795328053281532825328353284532855328653287532885328953290532915329253293532945329553296532975329853299533005330153302533035330453305533065330753308533095331053311533125331353314533155331653317533185331953320533215332253323533245332553326533275332853329533305333153332533335333453335533365333753338533395334053341533425334353344533455334653347533485334953350533515335253353533545335553356533575335853359533605336153362533635336453365533665336753368533695337053371533725337353374533755337653377533785337953380533815338253383533845338553386533875338853389533905339153392533935339453395533965339753398533995340053401534025340353404534055340653407534085340953410534115341253413534145341553416534175341853419534205342153422534235342453425534265342753428534295343053431534325343353434534355343653437534385343953440534415344253443534445344553446534475344853449534505345153452534535345453455534565345753458534595346053461534625346353464534655346653467534685346953470534715347253473534745347553476534775347853479534805348153482534835348453485534865348753488534895349053491534925349353494534955349653497534985349953500535015350253503535045350553506535075350853509535105351153512535135351453515535165351753518535195352053521535225352353524535255352653527535285352953530535315353253533535345353553536535375353853539535405354153542535435354453545535465354753548535495355053551535525355353554535555355653557535585355953560535615356253563535645356553566535675356853569535705357153572535735357453575535765357753578535795358053581535825358353584535855358653587535885358953590535915359253593535945359553596535975359853599536005360153602536035360453605536065360753608536095361053611536125361353614536155361653617536185361953620536215362253623536245362553626536275362853629536305363153632536335363453635536365363753638536395364053641536425364353644536455364653647536485364953650536515365253653536545365553656536575365853659536605366153662536635366453665536665366753668536695367053671536725367353674536755367653677536785367953680536815368253683536845368553686536875368853689536905369153692536935369453695536965369753698536995370053701537025370353704537055370653707537085370953710537115371253713537145371553716537175371853719537205372153722537235372453725537265372753728537295373053731537325373353734537355373653737537385373953740537415374253743537445374553746537475374853749537505375153752537535375453755537565375753758537595376053761537625376353764537655376653767537685376953770537715377253773537745377553776537775377853779537805378153782537835378453785537865378753788537895379053791537925379353794537955379653797537985379953800538015380253803538045380553806538075380853809538105381153812538135381453815538165381753818538195382053821538225382353824538255382653827538285382953830538315383253833538345383553836538375383853839538405384153842538435384453845538465384753848538495385053851538525385353854538555385653857538585385953860538615386253863538645386553866538675386853869538705387153872538735387453875538765387753878538795388053881538825388353884538855388653887538885388953890538915389253893538945389553896538975389853899539005390153902539035390453905539065390753908539095391053911539125391353914539155391653917539185391953920539215392253923539245392553926539275392853929539305393153932539335393453935539365393753938539395394053941539425394353944539455394653947539485394953950539515395253953539545395553956539575395853959539605396153962539635396453965539665396753968539695397053971539725397353974539755397653977539785397953980539815398253983539845398553986539875398853989539905399153992539935399453995539965399753998539995400054001540025400354004540055400654007540085400954010540115401254013540145401554016540175401854019540205402154022540235402454025540265402754028540295403054031540325403354034540355403654037540385403954040540415404254043540445404554046540475404854049540505405154052540535405454055540565405754058540595406054061540625406354064540655406654067540685406954070540715407254073540745407554076540775407854079540805408154082540835408454085540865408754088540895409054091540925409354094540955409654097540985409954100541015410254103541045410554106541075410854109541105411154112541135411454115541165411754118541195412054121541225412354124541255412654127541285412954130541315413254133541345413554136541375413854139541405414154142541435414454145541465414754148541495415054151541525415354154541555415654157541585415954160541615416254163541645416554166541675416854169541705417154172541735417454175541765417754178541795418054181541825418354184541855418654187541885418954190541915419254193541945419554196541975419854199542005420154202542035420454205542065420754208542095421054211542125421354214542155421654217542185421954220542215422254223542245422554226542275422854229542305423154232542335423454235542365423754238542395424054241542425424354244542455424654247542485424954250542515425254253542545425554256542575425854259542605426154262542635426454265542665426754268542695427054271542725427354274542755427654277542785427954280542815428254283542845428554286542875428854289542905429154292542935429454295542965429754298542995430054301543025430354304543055430654307543085430954310543115431254313543145431554316543175431854319543205432154322543235432454325543265432754328543295433054331543325433354334543355433654337543385433954340543415434254343543445434554346543475434854349543505435154352543535435454355543565435754358543595436054361543625436354364543655436654367543685436954370543715437254373543745437554376543775437854379543805438154382543835438454385543865438754388543895439054391543925439354394543955439654397543985439954400544015440254403544045440554406544075440854409544105441154412544135441454415544165441754418544195442054421544225442354424544255442654427544285442954430544315443254433544345443554436544375443854439544405444154442544435444454445544465444754448544495445054451544525445354454544555445654457544585445954460544615446254463544645446554466544675446854469544705447154472544735447454475544765447754478544795448054481544825448354484544855448654487544885448954490544915449254493544945449554496544975449854499545005450154502545035450454505545065450754508545095451054511545125451354514545155451654517545185451954520545215452254523545245452554526545275452854529545305453154532545335453454535545365453754538545395454054541545425454354544545455454654547545485454954550545515455254553545545455554556545575455854559545605456154562545635456454565545665456754568545695457054571545725457354574545755457654577545785457954580545815458254583545845458554586545875458854589545905459154592545935459454595545965459754598545995460054601546025460354604546055460654607546085460954610546115461254613546145461554616546175461854619546205462154622546235462454625546265462754628546295463054631546325463354634546355463654637546385463954640546415464254643546445464554646546475464854649546505465154652546535465454655546565465754658546595466054661546625466354664546655466654667546685466954670546715467254673546745467554676546775467854679546805468154682546835468454685546865468754688546895469054691546925469354694546955469654697546985469954700547015470254703547045470554706547075470854709547105471154712547135471454715547165471754718547195472054721547225472354724547255472654727547285472954730547315473254733547345473554736547375473854739547405474154742547435474454745547465474754748547495475054751547525475354754547555475654757547585475954760547615476254763547645476554766547675476854769547705477154772547735477454775547765477754778547795478054781547825478354784547855478654787547885478954790547915479254793547945479554796547975479854799548005480154802548035480454805548065480754808548095481054811548125481354814548155481654817548185481954820548215482254823548245482554826548275482854829548305483154832548335483454835548365483754838548395484054841548425484354844548455484654847548485484954850548515485254853548545485554856548575485854859548605486154862548635486454865548665486754868548695487054871548725487354874548755487654877548785487954880548815488254883548845488554886548875488854889548905489154892548935489454895548965489754898548995490054901549025490354904549055490654907549085490954910549115491254913549145491554916549175491854919549205492154922549235492454925549265492754928549295493054931549325493354934549355493654937549385493954940549415494254943549445494554946549475494854949549505495154952549535495454955549565495754958549595496054961549625496354964549655496654967549685496954970549715497254973549745497554976549775497854979549805498154982549835498454985549865498754988549895499054991549925499354994549955499654997549985499955000550015500255003550045500555006550075500855009550105501155012550135501455015550165501755018550195502055021550225502355024550255502655027550285502955030550315503255033550345503555036550375503855039550405504155042550435504455045550465504755048550495505055051550525505355054550555505655057550585505955060550615506255063550645506555066550675506855069550705507155072550735507455075550765507755078550795508055081550825508355084550855508655087550885508955090550915509255093550945509555096550975509855099551005510155102551035510455105551065510755108551095511055111551125511355114551155511655117551185511955120551215512255123551245512555126551275512855129551305513155132551335513455135551365513755138551395514055141551425514355144551455514655147551485514955150551515515255153551545515555156551575515855159551605516155162551635516455165551665516755168551695517055171551725517355174551755517655177551785517955180551815518255183551845518555186551875518855189551905519155192551935519455195551965519755198551995520055201552025520355204552055520655207552085520955210552115521255213552145521555216552175521855219552205522155222552235522455225552265522755228552295523055231552325523355234552355523655237552385523955240552415524255243552445524555246552475524855249552505525155252552535525455255552565525755258552595526055261552625526355264552655526655267552685526955270552715527255273552745527555276552775527855279552805528155282552835528455285552865528755288552895529055291552925529355294552955529655297552985529955300553015530255303553045530555306553075530855309553105531155312553135531455315553165531755318553195532055321553225532355324553255532655327553285532955330553315533255333553345533555336553375533855339553405534155342553435534455345553465534755348553495535055351553525535355354553555535655357553585535955360553615536255363553645536555366553675536855369553705537155372553735537455375553765537755378553795538055381553825538355384553855538655387553885538955390553915539255393553945539555396553975539855399554005540155402554035540455405554065540755408554095541055411554125541355414554155541655417554185541955420554215542255423554245542555426554275542855429554305543155432554335543455435554365543755438554395544055441554425544355444554455544655447554485544955450554515545255453554545545555456554575545855459554605546155462554635546455465554665546755468554695547055471554725547355474554755547655477554785547955480554815548255483554845548555486554875548855489554905549155492554935549455495554965549755498554995550055501555025550355504555055550655507555085550955510555115551255513555145551555516555175551855519555205552155522555235552455525555265552755528555295553055531555325553355534555355553655537555385553955540555415554255543555445554555546555475554855549555505555155552555535555455555555565555755558555595556055561555625556355564555655556655567555685556955570555715557255573555745557555576555775557855579555805558155582555835558455585555865558755588555895559055591555925559355594555955559655597555985559955600556015560255603556045560555606556075560855609556105561155612556135561455615556165561755618556195562055621556225562355624556255562655627556285562955630556315563255633556345563555636556375563855639556405564155642556435564455645556465564755648556495565055651556525565355654556555565655657556585565955660556615566255663556645566555666556675566855669556705567155672556735567455675556765567755678556795568055681556825568355684556855568655687556885568955690556915569255693556945569555696556975569855699557005570155702557035570455705557065570755708557095571055711557125571355714557155571655717557185571955720557215572255723557245572555726557275572855729557305573155732557335573455735557365573755738557395574055741557425574355744557455574655747557485574955750557515575255753557545575555756557575575855759557605576155762557635576455765557665576755768557695577055771557725577355774557755577655777557785577955780557815578255783557845578555786557875578855789557905579155792557935579455795557965579755798557995580055801558025580355804558055580655807558085580955810558115581255813558145581555816558175581855819558205582155822558235582455825558265582755828558295583055831558325583355834558355583655837558385583955840558415584255843558445584555846558475584855849558505585155852558535585455855558565585755858558595586055861558625586355864558655586655867558685586955870558715587255873558745587555876558775587855879558805588155882558835588455885558865588755888558895589055891558925589355894558955589655897558985589955900559015590255903559045590555906559075590855909559105591155912559135591455915559165591755918559195592055921559225592355924559255592655927559285592955930559315593255933559345593555936559375593855939559405594155942559435594455945559465594755948559495595055951559525595355954559555595655957559585595955960559615596255963559645596555966559675596855969559705597155972559735597455975559765597755978559795598055981559825598355984559855598655987559885598955990559915599255993559945599555996559975599855999560005600156002560035600456005560065600756008560095601056011560125601356014560155601656017560185601956020560215602256023560245602556026560275602856029560305603156032560335603456035560365603756038560395604056041560425604356044560455604656047560485604956050560515605256053560545605556056560575605856059560605606156062560635606456065560665606756068560695607056071560725607356074560755607656077560785607956080560815608256083560845608556086560875608856089560905609156092560935609456095560965609756098560995610056101561025610356104561055610656107561085610956110561115611256113561145611556116561175611856119561205612156122561235612456125561265612756128561295613056131561325613356134561355613656137561385613956140561415614256143561445614556146561475614856149561505615156152561535615456155561565615756158561595616056161561625616356164561655616656167561685616956170561715617256173561745617556176561775617856179561805618156182561835618456185561865618756188561895619056191561925619356194561955619656197561985619956200562015620256203562045620556206562075620856209562105621156212562135621456215562165621756218562195622056221562225622356224562255622656227562285622956230562315623256233562345623556236562375623856239562405624156242562435624456245562465624756248562495625056251562525625356254562555625656257562585625956260562615626256263562645626556266562675626856269562705627156272562735627456275562765627756278562795628056281562825628356284562855628656287562885628956290562915629256293562945629556296562975629856299563005630156302563035630456305563065630756308563095631056311563125631356314563155631656317563185631956320563215632256323563245632556326563275632856329563305633156332563335633456335563365633756338563395634056341563425634356344563455634656347563485634956350563515635256353563545635556356563575635856359563605636156362563635636456365563665636756368563695637056371563725637356374563755637656377563785637956380563815638256383563845638556386563875638856389563905639156392563935639456395563965639756398563995640056401564025640356404564055640656407564085640956410564115641256413564145641556416564175641856419564205642156422564235642456425564265642756428564295643056431564325643356434564355643656437564385643956440564415644256443564445644556446564475644856449564505645156452564535645456455564565645756458564595646056461564625646356464564655646656467564685646956470564715647256473564745647556476564775647856479564805648156482564835648456485564865648756488564895649056491564925649356494564955649656497564985649956500565015650256503565045650556506565075650856509565105651156512565135651456515565165651756518565195652056521565225652356524565255652656527565285652956530565315653256533565345653556536565375653856539565405654156542565435654456545565465654756548565495655056551565525655356554565555655656557565585655956560565615656256563565645656556566565675656856569565705657156572565735657456575565765657756578565795658056581565825658356584565855658656587565885658956590565915659256593565945659556596565975659856599566005660156602566035660456605566065660756608566095661056611566125661356614566155661656617566185661956620566215662256623566245662556626566275662856629566305663156632566335663456635566365663756638566395664056641566425664356644566455664656647566485664956650566515665256653566545665556656566575665856659566605666156662566635666456665566665666756668566695667056671566725667356674566755667656677566785667956680566815668256683566845668556686566875668856689566905669156692566935669456695566965669756698566995670056701567025670356704567055670656707567085670956710567115671256713567145671556716567175671856719567205672156722567235672456725567265672756728567295673056731567325673356734567355673656737567385673956740567415674256743567445674556746567475674856749567505675156752567535675456755567565675756758567595676056761567625676356764567655676656767567685676956770567715677256773567745677556776567775677856779567805678156782567835678456785567865678756788567895679056791567925679356794567955679656797567985679956800568015680256803568045680556806568075680856809568105681156812568135681456815568165681756818568195682056821568225682356824568255682656827568285682956830568315683256833568345683556836568375683856839568405684156842568435684456845568465684756848568495685056851568525685356854568555685656857568585685956860568615686256863568645686556866568675686856869568705687156872568735687456875568765687756878568795688056881568825688356884568855688656887568885688956890568915689256893568945689556896568975689856899569005690156902569035690456905569065690756908569095691056911569125691356914569155691656917569185691956920569215692256923569245692556926569275692856929569305693156932569335693456935569365693756938569395694056941569425694356944569455694656947569485694956950569515695256953569545695556956569575695856959569605696156962569635696456965569665696756968569695697056971569725697356974569755697656977569785697956980569815698256983569845698556986569875698856989569905699156992569935699456995569965699756998569995700057001570025700357004570055700657007570085700957010570115701257013570145701557016570175701857019570205702157022570235702457025570265702757028570295703057031570325703357034570355703657037570385703957040570415704257043570445704557046570475704857049570505705157052570535705457055570565705757058570595706057061570625706357064570655706657067570685706957070570715707257073570745707557076570775707857079570805708157082570835708457085570865708757088570895709057091570925709357094570955709657097570985709957100571015710257103571045710557106571075710857109571105711157112571135711457115571165711757118571195712057121571225712357124571255712657127571285712957130571315713257133571345713557136571375713857139571405714157142571435714457145571465714757148571495715057151571525715357154571555715657157571585715957160571615716257163571645716557166571675716857169571705717157172571735717457175571765717757178571795718057181571825718357184571855718657187571885718957190571915719257193571945719557196571975719857199572005720157202572035720457205572065720757208572095721057211572125721357214572155721657217572185721957220572215722257223572245722557226572275722857229572305723157232572335723457235572365723757238572395724057241572425724357244572455724657247572485724957250572515725257253572545725557256572575725857259572605726157262572635726457265572665726757268572695727057271572725727357274572755727657277572785727957280572815728257283572845728557286572875728857289572905729157292572935729457295572965729757298572995730057301573025730357304573055730657307573085730957310573115731257313573145731557316573175731857319573205732157322573235732457325573265732757328573295733057331573325733357334573355733657337573385733957340573415734257343573445734557346573475734857349573505735157352573535735457355573565735757358573595736057361573625736357364573655736657367573685736957370573715737257373573745737557376573775737857379573805738157382573835738457385573865738757388573895739057391573925739357394573955739657397573985739957400574015740257403574045740557406574075740857409574105741157412574135741457415574165741757418574195742057421574225742357424574255742657427574285742957430574315743257433574345743557436574375743857439574405744157442574435744457445574465744757448574495745057451574525745357454574555745657457574585745957460574615746257463574645746557466574675746857469574705747157472574735747457475574765747757478574795748057481574825748357484574855748657487574885748957490574915749257493574945749557496574975749857499575005750157502575035750457505575065750757508575095751057511575125751357514575155751657517575185751957520575215752257523575245752557526575275752857529575305753157532575335753457535575365753757538575395754057541575425754357544575455754657547575485754957550575515755257553575545755557556575575755857559575605756157562575635756457565575665756757568575695757057571575725757357574575755757657577575785757957580575815758257583575845758557586575875758857589575905759157592575935759457595575965759757598575995760057601576025760357604576055760657607576085760957610576115761257613576145761557616576175761857619576205762157622576235762457625576265762757628576295763057631576325763357634576355763657637576385763957640576415764257643576445764557646576475764857649576505765157652576535765457655576565765757658576595766057661576625766357664576655766657667576685766957670576715767257673576745767557676576775767857679576805768157682576835768457685576865768757688576895769057691576925769357694576955769657697576985769957700577015770257703577045770557706577075770857709577105771157712577135771457715577165771757718577195772057721577225772357724577255772657727577285772957730577315773257733577345773557736577375773857739577405774157742577435774457745577465774757748577495775057751577525775357754577555775657757577585775957760577615776257763577645776557766577675776857769577705777157772577735777457775577765777757778577795778057781577825778357784577855778657787577885778957790577915779257793577945779557796577975779857799578005780157802578035780457805578065780757808578095781057811578125781357814578155781657817578185781957820578215782257823578245782557826578275782857829578305783157832578335783457835578365783757838578395784057841578425784357844578455784657847578485784957850578515785257853578545785557856578575785857859578605786157862578635786457865578665786757868578695787057871578725787357874578755787657877578785787957880578815788257883578845788557886578875788857889578905789157892578935789457895578965789757898578995790057901579025790357904579055790657907579085790957910579115791257913579145791557916579175791857919579205792157922579235792457925579265792757928579295793057931579325793357934579355793657937579385793957940579415794257943579445794557946579475794857949579505795157952579535795457955579565795757958579595796057961579625796357964579655796657967579685796957970579715797257973579745797557976579775797857979579805798157982579835798457985579865798757988579895799057991579925799357994579955799657997579985799958000580015800258003580045800558006580075800858009580105801158012580135801458015580165801758018580195802058021580225802358024580255802658027580285802958030580315803258033580345803558036580375803858039580405804158042580435804458045580465804758048580495805058051580525805358054580555805658057580585805958060580615806258063580645806558066580675806858069580705807158072580735807458075580765807758078580795808058081580825808358084580855808658087580885808958090580915809258093580945809558096580975809858099581005810158102581035810458105581065810758108581095811058111581125811358114581155811658117581185811958120581215812258123581245812558126581275812858129581305813158132581335813458135581365813758138581395814058141581425814358144581455814658147581485814958150581515815258153581545815558156581575815858159581605816158162581635816458165581665816758168581695817058171581725817358174581755817658177581785817958180581815818258183581845818558186581875818858189581905819158192581935819458195581965819758198581995820058201582025820358204582055820658207582085820958210582115821258213582145821558216582175821858219582205822158222582235822458225582265822758228582295823058231582325823358234582355823658237582385823958240582415824258243582445824558246582475824858249582505825158252582535825458255582565825758258582595826058261582625826358264582655826658267582685826958270582715827258273582745827558276582775827858279582805828158282582835828458285582865828758288582895829058291582925829358294582955829658297582985829958300583015830258303583045830558306583075830858309583105831158312583135831458315583165831758318583195832058321583225832358324583255832658327583285832958330583315833258333583345833558336583375833858339583405834158342583435834458345583465834758348583495835058351583525835358354583555835658357583585835958360583615836258363583645836558366583675836858369583705837158372583735837458375583765837758378583795838058381583825838358384583855838658387583885838958390583915839258393583945839558396583975839858399584005840158402584035840458405584065840758408584095841058411584125841358414584155841658417584185841958420584215842258423584245842558426584275842858429584305843158432584335843458435584365843758438584395844058441584425844358444584455844658447584485844958450584515845258453584545845558456584575845858459584605846158462584635846458465584665846758468584695847058471584725847358474584755847658477584785847958480584815848258483584845848558486584875848858489584905849158492584935849458495584965849758498584995850058501585025850358504585055850658507585085850958510585115851258513585145851558516585175851858519585205852158522585235852458525585265852758528585295853058531585325853358534585355853658537585385853958540585415854258543585445854558546585475854858549585505855158552585535855458555585565855758558585595856058561585625856358564585655856658567585685856958570585715857258573585745857558576585775857858579585805858158582585835858458585585865858758588585895859058591585925859358594585955859658597585985859958600586015860258603586045860558606586075860858609586105861158612586135861458615586165861758618586195862058621586225862358624586255862658627586285862958630586315863258633586345863558636586375863858639586405864158642586435864458645586465864758648586495865058651586525865358654586555865658657586585865958660586615866258663586645866558666586675866858669586705867158672586735867458675586765867758678586795868058681586825868358684586855868658687586885868958690586915869258693586945869558696586975869858699587005870158702587035870458705587065870758708587095871058711587125871358714587155871658717587185871958720587215872258723587245872558726587275872858729587305873158732587335873458735587365873758738587395874058741587425874358744587455874658747587485874958750587515875258753587545875558756587575875858759587605876158762587635876458765587665876758768587695877058771587725877358774587755877658777587785877958780587815878258783587845878558786587875878858789587905879158792587935879458795587965879758798587995880058801588025880358804588055880658807588085880958810588115881258813588145881558816588175881858819588205882158822588235882458825588265882758828588295883058831588325883358834588355883658837588385883958840588415884258843588445884558846588475884858849588505885158852588535885458855588565885758858588595886058861588625886358864588655886658867588685886958870588715887258873588745887558876588775887858879588805888158882588835888458885588865888758888588895889058891588925889358894588955889658897588985889958900589015890258903589045890558906589075890858909589105891158912589135891458915589165891758918589195892058921589225892358924589255892658927589285892958930589315893258933589345893558936589375893858939589405894158942589435894458945589465894758948589495895058951589525895358954589555895658957589585895958960589615896258963589645896558966589675896858969589705897158972589735897458975589765897758978589795898058981589825898358984589855898658987589885898958990589915899258993589945899558996589975899858999590005900159002590035900459005590065900759008590095901059011590125901359014590155901659017590185901959020590215902259023590245902559026590275902859029590305903159032590335903459035590365903759038590395904059041590425904359044590455904659047590485904959050590515905259053590545905559056590575905859059590605906159062590635906459065590665906759068590695907059071590725907359074590755907659077590785907959080590815908259083590845908559086590875908859089590905909159092590935909459095590965909759098590995910059101591025910359104591055910659107591085910959110591115911259113591145911559116591175911859119591205912159122591235912459125591265912759128591295913059131591325913359134591355913659137591385913959140591415914259143591445914559146591475914859149591505915159152591535915459155591565915759158591595916059161591625916359164591655916659167591685916959170591715917259173591745917559176591775917859179591805918159182591835918459185591865918759188591895919059191591925919359194591955919659197591985919959200592015920259203592045920559206592075920859209592105921159212592135921459215592165921759218592195922059221592225922359224592255922659227592285922959230592315923259233592345923559236592375923859239592405924159242592435924459245592465924759248592495925059251592525925359254592555925659257592585925959260592615926259263592645926559266592675926859269592705927159272592735927459275592765927759278592795928059281592825928359284592855928659287592885928959290592915929259293592945929559296592975929859299593005930159302593035930459305593065930759308593095931059311593125931359314593155931659317593185931959320593215932259323593245932559326593275932859329593305933159332593335933459335593365933759338593395934059341593425934359344593455934659347593485934959350593515935259353593545935559356593575935859359593605936159362593635936459365593665936759368593695937059371593725937359374593755937659377593785937959380593815938259383593845938559386593875938859389593905939159392593935939459395593965939759398593995940059401594025940359404594055940659407594085940959410594115941259413594145941559416594175941859419594205942159422594235942459425594265942759428594295943059431594325943359434594355943659437594385943959440594415944259443594445944559446594475944859449594505945159452594535945459455594565945759458594595946059461594625946359464594655946659467594685946959470594715947259473594745947559476594775947859479594805948159482594835948459485594865948759488594895949059491594925949359494594955949659497594985949959500595015950259503595045950559506595075950859509595105951159512595135951459515595165951759518595195952059521595225952359524595255952659527595285952959530595315953259533595345953559536595375953859539595405954159542595435954459545595465954759548595495955059551595525955359554595555955659557595585955959560595615956259563595645956559566595675956859569595705957159572595735957459575595765957759578595795958059581595825958359584595855958659587595885958959590595915959259593595945959559596595975959859599596005960159602596035960459605596065960759608596095961059611596125961359614596155961659617596185961959620596215962259623596245962559626596275962859629596305963159632596335963459635596365963759638596395964059641596425964359644596455964659647596485964959650596515965259653596545965559656596575965859659596605966159662596635966459665596665966759668596695967059671596725967359674596755967659677596785967959680596815968259683596845968559686596875968859689596905969159692596935969459695596965969759698596995970059701597025970359704597055970659707597085970959710597115971259713597145971559716597175971859719597205972159722597235972459725597265972759728597295973059731597325973359734597355973659737597385973959740597415974259743597445974559746597475974859749597505975159752597535975459755597565975759758597595976059761597625976359764597655976659767597685976959770597715977259773597745977559776597775977859779597805978159782597835978459785597865978759788597895979059791597925979359794597955979659797597985979959800598015980259803598045980559806598075980859809598105981159812598135981459815598165981759818598195982059821598225982359824598255982659827598285982959830598315983259833598345983559836598375983859839598405984159842598435984459845598465984759848598495985059851598525985359854598555985659857598585985959860598615986259863598645986559866598675986859869598705987159872598735987459875598765987759878598795988059881598825988359884598855988659887598885988959890598915989259893598945989559896598975989859899599005990159902599035990459905599065990759908599095991059911599125991359914599155991659917599185991959920599215992259923599245992559926599275992859929599305993159932599335993459935599365993759938599395994059941599425994359944599455994659947599485994959950599515995259953599545995559956599575995859959599605996159962599635996459965599665996759968599695997059971599725997359974599755997659977599785997959980599815998259983599845998559986599875998859989599905999159992599935999459995599965999759998599996000060001600026000360004600056000660007600086000960010600116001260013600146001560016600176001860019600206002160022600236002460025600266002760028600296003060031600326003360034600356003660037600386003960040600416004260043600446004560046600476004860049600506005160052600536005460055600566005760058600596006060061600626006360064600656006660067600686006960070600716007260073600746007560076600776007860079600806008160082600836008460085600866008760088600896009060091600926009360094600956009660097600986009960100601016010260103601046010560106601076010860109601106011160112601136011460115601166011760118601196012060121601226012360124601256012660127601286012960130601316013260133601346013560136601376013860139601406014160142601436014460145601466014760148601496015060151601526015360154601556015660157601586015960160601616016260163601646016560166601676016860169601706017160172601736017460175601766017760178601796018060181601826018360184601856018660187601886018960190601916019260193601946019560196601976019860199602006020160202602036020460205602066020760208602096021060211602126021360214602156021660217602186021960220602216022260223602246022560226602276022860229602306023160232602336023460235602366023760238602396024060241602426024360244602456024660247602486024960250602516025260253602546025560256602576025860259602606026160262602636026460265602666026760268602696027060271602726027360274602756027660277602786027960280602816028260283602846028560286602876028860289602906029160292602936029460295602966029760298602996030060301603026030360304603056030660307603086030960310603116031260313603146031560316603176031860319603206032160322603236032460325603266032760328603296033060331603326033360334603356033660337603386033960340603416034260343603446034560346603476034860349603506035160352603536035460355603566035760358603596036060361603626036360364603656036660367603686036960370603716037260373603746037560376603776037860379603806038160382603836038460385603866038760388603896039060391603926039360394603956039660397603986039960400604016040260403604046040560406604076040860409604106041160412604136041460415604166041760418604196042060421604226042360424604256042660427604286042960430604316043260433604346043560436604376043860439604406044160442604436044460445604466044760448604496045060451604526045360454604556045660457604586045960460604616046260463604646046560466604676046860469604706047160472604736047460475604766047760478604796048060481604826048360484604856048660487604886048960490604916049260493604946049560496604976049860499605006050160502605036050460505605066050760508605096051060511605126051360514605156051660517605186051960520605216052260523605246052560526605276052860529605306053160532605336053460535605366053760538605396054060541605426054360544605456054660547605486054960550605516055260553605546055560556605576055860559605606056160562605636056460565605666056760568605696057060571605726057360574605756057660577605786057960580605816058260583605846058560586605876058860589605906059160592605936059460595605966059760598605996060060601606026060360604606056060660607606086060960610606116061260613606146061560616606176061860619606206062160622606236062460625606266062760628606296063060631606326063360634606356063660637606386063960640606416064260643606446064560646606476064860649606506065160652606536065460655606566065760658606596066060661606626066360664606656066660667606686066960670606716067260673606746067560676606776067860679606806068160682606836068460685606866068760688606896069060691606926069360694606956069660697606986069960700607016070260703607046070560706607076070860709607106071160712607136071460715607166071760718607196072060721607226072360724607256072660727607286072960730607316073260733607346073560736607376073860739607406074160742607436074460745607466074760748607496075060751607526075360754607556075660757607586075960760607616076260763607646076560766607676076860769607706077160772607736077460775607766077760778607796078060781607826078360784607856078660787607886078960790607916079260793607946079560796607976079860799608006080160802608036080460805608066080760808608096081060811608126081360814608156081660817608186081960820608216082260823608246082560826608276082860829608306083160832608336083460835608366083760838608396084060841608426084360844608456084660847608486084960850608516085260853608546085560856608576085860859608606086160862608636086460865608666086760868608696087060871608726087360874608756087660877608786087960880608816088260883608846088560886608876088860889608906089160892608936089460895608966089760898608996090060901609026090360904609056090660907609086090960910609116091260913609146091560916609176091860919609206092160922609236092460925609266092760928609296093060931609326093360934609356093660937609386093960940609416094260943609446094560946609476094860949609506095160952609536095460955609566095760958609596096060961609626096360964609656096660967609686096960970609716097260973609746097560976609776097860979609806098160982609836098460985609866098760988609896099060991609926099360994609956099660997609986099961000610016100261003610046100561006610076100861009610106101161012610136101461015610166101761018610196102061021610226102361024610256102661027610286102961030610316103261033610346103561036610376103861039610406104161042610436104461045610466104761048610496105061051610526105361054610556105661057610586105961060610616106261063610646106561066610676106861069610706107161072610736107461075610766107761078610796108061081610826108361084610856108661087610886108961090610916109261093610946109561096610976109861099611006110161102611036110461105611066110761108611096111061111611126111361114611156111661117611186111961120611216112261123611246112561126611276112861129611306113161132611336113461135611366113761138611396114061141611426114361144611456114661147611486114961150611516115261153611546115561156611576115861159611606116161162611636116461165611666116761168611696117061171611726117361174611756117661177611786117961180611816118261183611846118561186611876118861189611906119161192611936119461195611966119761198611996120061201612026120361204612056120661207612086120961210612116121261213612146121561216612176121861219612206122161222612236122461225612266122761228612296123061231612326123361234612356123661237612386123961240612416124261243612446124561246612476124861249612506125161252612536125461255612566125761258612596126061261612626126361264612656126661267612686126961270612716127261273612746127561276612776127861279612806128161282612836128461285612866128761288612896129061291612926129361294612956129661297612986129961300613016130261303613046130561306613076130861309613106131161312613136131461315613166131761318613196132061321613226132361324613256132661327613286132961330613316133261333613346133561336613376133861339613406134161342613436134461345613466134761348613496135061351613526135361354613556135661357613586135961360613616136261363613646136561366613676136861369613706137161372613736137461375613766137761378613796138061381613826138361384613856138661387613886138961390613916139261393613946139561396613976139861399614006140161402614036140461405614066140761408614096141061411614126141361414614156141661417614186141961420614216142261423614246142561426614276142861429614306143161432614336143461435614366143761438614396144061441614426144361444614456144661447614486144961450614516145261453614546145561456614576145861459614606146161462614636146461465614666146761468614696147061471614726147361474614756147661477614786147961480614816148261483614846148561486614876148861489614906149161492614936149461495614966149761498614996150061501615026150361504615056150661507615086150961510615116151261513615146151561516615176151861519615206152161522615236152461525615266152761528615296153061531615326153361534615356153661537615386153961540615416154261543615446154561546615476154861549615506155161552615536155461555615566155761558615596156061561615626156361564615656156661567615686156961570615716157261573615746157561576615776157861579615806158161582615836158461585615866158761588615896159061591615926159361594615956159661597615986159961600616016160261603616046160561606616076160861609616106161161612616136161461615616166161761618616196162061621616226162361624616256162661627616286162961630616316163261633616346163561636616376163861639616406164161642616436164461645616466164761648616496165061651616526165361654616556165661657616586165961660616616166261663616646166561666616676166861669616706167161672616736167461675616766167761678616796168061681616826168361684616856168661687616886168961690616916169261693616946169561696616976169861699617006170161702617036170461705617066170761708617096171061711617126171361714617156171661717617186171961720617216172261723617246172561726617276172861729617306173161732617336173461735617366173761738617396174061741617426174361744617456174661747617486174961750617516175261753617546175561756617576175861759617606176161762617636176461765617666176761768617696177061771617726177361774617756177661777617786177961780617816178261783617846178561786617876178861789617906179161792617936179461795617966179761798617996180061801618026180361804618056180661807618086180961810618116181261813618146181561816618176181861819618206182161822618236182461825618266182761828618296183061831618326183361834618356183661837618386183961840618416184261843618446184561846618476184861849618506185161852618536185461855618566185761858618596186061861618626186361864618656186661867618686186961870618716187261873618746187561876618776187861879618806188161882618836188461885618866188761888618896189061891618926189361894618956189661897618986189961900619016190261903619046190561906619076190861909619106191161912619136191461915619166191761918619196192061921619226192361924619256192661927619286192961930619316193261933619346193561936619376193861939619406194161942619436194461945619466194761948619496195061951619526195361954619556195661957619586195961960619616196261963619646196561966619676196861969619706197161972619736197461975619766197761978619796198061981619826198361984619856198661987619886198961990619916199261993619946199561996619976199861999620006200162002620036200462005620066200762008620096201062011620126201362014620156201662017620186201962020620216202262023620246202562026620276202862029620306203162032620336203462035620366203762038620396204062041620426204362044620456204662047620486204962050620516205262053620546205562056620576205862059620606206162062620636206462065620666206762068620696207062071620726207362074620756207662077620786207962080620816208262083620846208562086620876208862089620906209162092620936209462095620966209762098620996210062101621026210362104621056210662107621086210962110621116211262113621146211562116621176211862119621206212162122621236212462125621266212762128621296213062131621326213362134621356213662137621386213962140621416214262143621446214562146621476214862149621506215162152621536215462155621566215762158621596216062161621626216362164621656216662167621686216962170621716217262173621746217562176621776217862179621806218162182621836218462185621866218762188621896219062191621926219362194621956219662197621986219962200622016220262203622046220562206622076220862209622106221162212622136221462215622166221762218622196222062221622226222362224622256222662227622286222962230622316223262233622346223562236622376223862239622406224162242622436224462245622466224762248622496225062251622526225362254622556225662257622586225962260622616226262263622646226562266622676226862269622706227162272622736227462275622766227762278622796228062281622826228362284622856228662287622886228962290622916229262293622946229562296622976229862299623006230162302623036230462305623066230762308623096231062311623126231362314623156231662317623186231962320623216232262323623246232562326623276232862329623306233162332623336233462335623366233762338623396234062341623426234362344623456234662347623486234962350623516235262353623546235562356623576235862359623606236162362623636236462365623666236762368623696237062371623726237362374623756237662377623786237962380623816238262383623846238562386623876238862389623906239162392623936239462395623966239762398623996240062401624026240362404624056240662407624086240962410624116241262413624146241562416624176241862419624206242162422624236242462425624266242762428624296243062431624326243362434624356243662437624386243962440624416244262443624446244562446624476244862449624506245162452624536245462455624566245762458624596246062461624626246362464624656246662467624686246962470624716247262473624746247562476624776247862479624806248162482624836248462485624866248762488624896249062491624926249362494624956249662497624986249962500625016250262503625046250562506625076250862509625106251162512625136251462515625166251762518625196252062521625226252362524625256252662527625286252962530625316253262533625346253562536625376253862539625406254162542625436254462545625466254762548625496255062551625526255362554625556255662557625586255962560625616256262563625646256562566625676256862569625706257162572625736257462575625766257762578625796258062581625826258362584625856258662587625886258962590625916259262593625946259562596625976259862599626006260162602626036260462605626066260762608626096261062611626126261362614626156261662617626186261962620626216262262623626246262562626626276262862629626306263162632626336263462635626366263762638626396264062641626426264362644626456264662647626486264962650626516265262653626546265562656626576265862659626606266162662626636266462665626666266762668626696267062671626726267362674626756267662677626786267962680626816268262683626846268562686626876268862689626906269162692626936269462695626966269762698626996270062701627026270362704627056270662707627086270962710627116271262713627146271562716627176271862719627206272162722627236272462725627266272762728627296273062731627326273362734627356273662737627386273962740627416274262743627446274562746627476274862749627506275162752627536275462755627566275762758627596276062761627626276362764627656276662767627686276962770627716277262773627746277562776627776277862779627806278162782627836278462785627866278762788627896279062791627926279362794627956279662797627986279962800628016280262803628046280562806628076280862809628106281162812628136281462815628166281762818628196282062821628226282362824628256282662827628286282962830628316283262833628346283562836628376283862839628406284162842628436284462845628466284762848628496285062851628526285362854628556285662857628586285962860628616286262863628646286562866628676286862869628706287162872628736287462875628766287762878628796288062881628826288362884628856288662887628886288962890628916289262893628946289562896628976289862899629006290162902629036290462905629066290762908629096291062911629126291362914629156291662917629186291962920629216292262923629246292562926629276292862929629306293162932629336293462935629366293762938629396294062941629426294362944629456294662947629486294962950629516295262953629546295562956629576295862959629606296162962629636296462965629666296762968629696297062971629726297362974629756297662977629786297962980629816298262983629846298562986629876298862989629906299162992629936299462995629966299762998629996300063001630026300363004630056300663007630086300963010630116301263013630146301563016630176301863019630206302163022630236302463025630266302763028630296303063031630326303363034630356303663037630386303963040630416304263043630446304563046630476304863049630506305163052630536305463055630566305763058630596306063061630626306363064630656306663067630686306963070630716307263073630746307563076630776307863079630806308163082630836308463085630866308763088630896309063091630926309363094630956309663097630986309963100631016310263103631046310563106631076310863109631106311163112631136311463115631166311763118631196312063121631226312363124631256312663127631286312963130631316313263133631346313563136631376313863139631406314163142631436314463145631466314763148631496315063151631526315363154631556315663157631586315963160631616316263163631646316563166631676316863169631706317163172631736317463175631766317763178631796318063181631826318363184631856318663187631886318963190631916319263193631946319563196631976319863199632006320163202632036320463205632066320763208632096321063211632126321363214632156321663217632186321963220632216322263223632246322563226632276322863229632306323163232632336323463235632366323763238632396324063241632426324363244632456324663247632486324963250632516325263253632546325563256632576325863259632606326163262632636326463265632666326763268632696327063271632726327363274632756327663277632786327963280632816328263283632846328563286632876328863289632906329163292632936329463295632966329763298632996330063301633026330363304633056330663307633086330963310633116331263313633146331563316633176331863319633206332163322633236332463325633266332763328633296333063331633326333363334633356333663337633386333963340633416334263343633446334563346633476334863349633506335163352633536335463355633566335763358633596336063361633626336363364633656336663367633686336963370633716337263373633746337563376633776337863379633806338163382633836338463385633866338763388633896339063391633926339363394633956339663397633986339963400634016340263403634046340563406634076340863409634106341163412634136341463415634166341763418634196342063421634226342363424634256342663427634286342963430634316343263433634346343563436634376343863439634406344163442634436344463445634466344763448634496345063451634526345363454634556345663457634586345963460634616346263463634646346563466634676346863469634706347163472634736347463475634766347763478634796348063481634826348363484634856348663487634886348963490634916349263493634946349563496634976349863499635006350163502635036350463505635066350763508635096351063511635126351363514635156351663517635186351963520635216352263523635246352563526635276352863529635306353163532635336353463535635366353763538635396354063541635426354363544635456354663547635486354963550635516355263553635546355563556635576355863559635606356163562635636356463565635666356763568635696357063571635726357363574635756357663577635786357963580635816358263583635846358563586635876358863589635906359163592635936359463595635966359763598635996360063601636026360363604636056360663607636086360963610636116361263613636146361563616636176361863619636206362163622636236362463625636266362763628636296363063631636326363363634636356363663637636386363963640636416364263643636446364563646636476364863649636506365163652636536365463655636566365763658636596366063661636626366363664636656366663667636686366963670636716367263673636746367563676636776367863679636806368163682636836368463685636866368763688636896369063691636926369363694636956369663697636986369963700637016370263703637046370563706637076370863709637106371163712637136371463715637166371763718637196372063721637226372363724637256372663727637286372963730637316373263733637346373563736637376373863739637406374163742637436374463745637466374763748637496375063751637526375363754637556375663757637586375963760637616376263763637646376563766637676376863769637706377163772637736377463775637766377763778637796378063781637826378363784637856378663787637886378963790637916379263793637946379563796637976379863799638006380163802638036380463805638066380763808638096381063811638126381363814638156381663817638186381963820638216382263823638246382563826638276382863829638306383163832638336383463835638366383763838638396384063841638426384363844638456384663847638486384963850638516385263853638546385563856638576385863859638606386163862638636386463865638666386763868638696387063871638726387363874638756387663877638786387963880638816388263883638846388563886638876388863889638906389163892638936389463895638966389763898638996390063901639026390363904639056390663907639086390963910639116391263913639146391563916639176391863919639206392163922639236392463925639266392763928639296393063931639326393363934639356393663937639386393963940639416394263943639446394563946639476394863949639506395163952639536395463955639566395763958639596396063961639626396363964639656396663967639686396963970639716397263973639746397563976639776397863979639806398163982639836398463985639866398763988639896399063991639926399363994639956399663997639986399964000640016400264003640046400564006640076400864009640106401164012640136401464015640166401764018640196402064021640226402364024640256402664027640286402964030640316403264033640346403564036640376403864039640406404164042640436404464045640466404764048640496405064051640526405364054640556405664057640586405964060640616406264063640646406564066640676406864069640706407164072640736407464075640766407764078640796408064081640826408364084640856408664087640886408964090640916409264093640946409564096640976409864099641006410164102641036410464105641066410764108641096411064111641126411364114641156411664117641186411964120641216412264123641246412564126641276412864129641306413164132641336413464135641366413764138641396414064141641426414364144641456414664147641486414964150641516415264153641546415564156641576415864159641606416164162641636416464165641666416764168641696417064171641726417364174641756417664177641786417964180641816418264183641846418564186641876418864189641906419164192641936419464195641966419764198641996420064201642026420364204642056420664207642086420964210642116421264213642146421564216642176421864219642206422164222642236422464225642266422764228642296423064231642326423364234642356423664237642386423964240642416424264243642446424564246642476424864249642506425164252642536425464255642566425764258642596426064261642626426364264642656426664267642686426964270642716427264273642746427564276642776427864279642806428164282642836428464285642866428764288642896429064291642926429364294642956429664297642986429964300643016430264303643046430564306643076430864309643106431164312643136431464315643166431764318643196432064321643226432364324643256432664327643286432964330643316433264333643346433564336643376433864339643406434164342643436434464345643466434764348643496435064351643526435364354643556435664357643586435964360643616436264363643646436564366643676436864369643706437164372643736437464375643766437764378643796438064381643826438364384643856438664387643886438964390643916439264393643946439564396643976439864399644006440164402644036440464405644066440764408644096441064411644126441364414644156441664417644186441964420644216442264423644246442564426644276442864429644306443164432644336443464435644366443764438644396444064441644426444364444644456444664447644486444964450644516445264453644546445564456644576445864459644606446164462644636446464465644666446764468644696447064471644726447364474644756447664477644786447964480644816448264483644846448564486644876448864489644906449164492644936449464495644966449764498644996450064501645026450364504645056450664507645086450964510645116451264513645146451564516645176451864519645206452164522645236452464525645266452764528645296453064531645326453364534645356453664537645386453964540645416454264543645446454564546645476454864549645506455164552645536455464555645566455764558645596456064561645626456364564645656456664567645686456964570645716457264573645746457564576645776457864579645806458164582645836458464585645866458764588645896459064591645926459364594645956459664597645986459964600646016460264603646046460564606646076460864609646106461164612646136461464615646166461764618646196462064621646226462364624646256462664627646286462964630646316463264633646346463564636646376463864639646406464164642646436464464645646466464764648646496465064651646526465364654646556465664657646586465964660646616466264663646646466564666646676466864669646706467164672646736467464675646766467764678646796468064681646826468364684646856468664687646886468964690646916469264693646946469564696646976469864699647006470164702647036470464705647066470764708647096471064711647126471364714647156471664717647186471964720647216472264723647246472564726647276472864729647306473164732647336473464735647366473764738647396474064741647426474364744647456474664747647486474964750647516475264753647546475564756647576475864759647606476164762647636476464765647666476764768647696477064771647726477364774647756477664777647786477964780647816478264783647846478564786647876478864789647906479164792647936479464795647966479764798647996480064801648026480364804648056480664807648086480964810648116481264813648146481564816648176481864819648206482164822648236482464825648266482764828648296483064831648326483364834648356483664837648386483964840648416484264843648446484564846648476484864849648506485164852648536485464855648566485764858648596486064861648626486364864648656486664867648686486964870648716487264873648746487564876648776487864879648806488164882648836488464885648866488764888648896489064891648926489364894648956489664897648986489964900649016490264903649046490564906649076490864909649106491164912649136491464915649166491764918649196492064921649226492364924649256492664927649286492964930649316493264933649346493564936649376493864939649406494164942649436494464945649466494764948649496495064951649526495364954649556495664957649586495964960649616496264963649646496564966649676496864969649706497164972649736497464975649766497764978649796498064981649826498364984649856498664987649886498964990649916499264993649946499564996649976499864999650006500165002650036500465005650066500765008650096501065011650126501365014650156501665017650186501965020650216502265023650246502565026650276502865029650306503165032650336503465035650366503765038650396504065041650426504365044650456504665047650486504965050650516505265053650546505565056650576505865059650606506165062650636506465065650666506765068650696507065071650726507365074650756507665077650786507965080650816508265083650846508565086650876508865089650906509165092650936509465095650966509765098650996510065101651026510365104651056510665107651086510965110651116511265113651146511565116651176511865119651206512165122651236512465125651266512765128651296513065131651326513365134651356513665137651386513965140651416514265143651446514565146651476514865149651506515165152651536515465155651566515765158651596516065161651626516365164651656516665167651686516965170651716517265173651746517565176651776517865179651806518165182651836518465185651866518765188651896519065191651926519365194651956519665197651986519965200652016520265203652046520565206652076520865209652106521165212652136521465215652166521765218652196522065221652226522365224652256522665227652286522965230652316523265233652346523565236652376523865239652406524165242652436524465245652466524765248652496525065251652526525365254652556525665257652586525965260652616526265263652646526565266652676526865269652706527165272652736527465275652766527765278652796528065281652826528365284652856528665287652886528965290652916529265293652946529565296652976529865299653006530165302653036530465305653066530765308653096531065311653126531365314653156531665317653186531965320653216532265323653246532565326653276532865329653306533165332653336533465335653366533765338653396534065341653426534365344653456534665347653486534965350653516535265353653546535565356653576535865359653606536165362653636536465365653666536765368653696537065371653726537365374653756537665377653786537965380653816538265383653846538565386653876538865389653906539165392653936539465395653966539765398653996540065401654026540365404654056540665407654086540965410654116541265413654146541565416654176541865419654206542165422654236542465425654266542765428654296543065431654326543365434654356543665437654386543965440654416544265443654446544565446654476544865449654506545165452654536545465455654566545765458654596546065461654626546365464654656546665467654686546965470654716547265473654746547565476654776547865479654806548165482654836548465485654866548765488654896549065491654926549365494654956549665497654986549965500655016550265503655046550565506655076550865509655106551165512655136551465515655166551765518655196552065521655226552365524655256552665527655286552965530655316553265533655346553565536655376553865539655406554165542655436554465545655466554765548655496555065551655526555365554655556555665557655586555965560655616556265563655646556565566655676556865569655706557165572655736557465575655766557765578655796558065581655826558365584655856558665587655886558965590655916559265593655946559565596655976559865599656006560165602656036560465605656066560765608656096561065611656126561365614656156561665617656186561965620656216562265623656246562565626656276562865629656306563165632656336563465635656366563765638656396564065641656426564365644656456564665647656486564965650656516565265653656546565565656656576565865659656606566165662656636566465665656666566765668656696567065671656726567365674656756567665677656786567965680656816568265683656846568565686656876568865689656906569165692656936569465695656966569765698656996570065701657026570365704657056570665707657086570965710657116571265713657146571565716657176571865719657206572165722657236572465725657266572765728657296573065731657326573365734657356573665737657386573965740657416574265743657446574565746657476574865749657506575165752657536575465755657566575765758657596576065761657626576365764657656576665767657686576965770657716577265773657746577565776657776577865779657806578165782657836578465785657866578765788657896579065791657926579365794657956579665797657986579965800658016580265803658046580565806658076580865809658106581165812658136581465815658166581765818658196582065821658226582365824658256582665827658286582965830658316583265833658346583565836658376583865839658406584165842658436584465845658466584765848658496585065851658526585365854658556585665857658586585965860658616586265863658646586565866658676586865869658706587165872658736587465875658766587765878658796588065881658826588365884658856588665887658886588965890658916589265893658946589565896658976589865899659006590165902659036590465905659066590765908659096591065911659126591365914659156591665917659186591965920659216592265923659246592565926659276592865929659306593165932659336593465935659366593765938659396594065941659426594365944659456594665947659486594965950659516595265953659546595565956659576595865959659606596165962659636596465965659666596765968659696597065971659726597365974659756597665977659786597965980659816598265983659846598565986659876598865989659906599165992659936599465995659966599765998659996600066001660026600366004660056600666007660086600966010660116601266013660146601566016660176601866019660206602166022660236602466025660266602766028660296603066031660326603366034660356603666037660386603966040660416604266043660446604566046660476604866049660506605166052660536605466055660566605766058660596606066061660626606366064660656606666067660686606966070660716607266073660746607566076660776607866079660806608166082660836608466085660866608766088660896609066091660926609366094660956609666097660986609966100661016610266103661046610566106661076610866109661106611166112661136611466115661166611766118661196612066121661226612366124661256612666127661286612966130661316613266133661346613566136661376613866139661406614166142661436614466145661466614766148661496615066151661526615366154661556615666157661586615966160661616616266163661646616566166661676616866169661706617166172661736617466175661766617766178661796618066181661826618366184661856618666187661886618966190661916619266193661946619566196661976619866199662006620166202662036620466205662066620766208662096621066211662126621366214662156621666217662186621966220662216622266223662246622566226662276622866229662306623166232662336623466235662366623766238662396624066241662426624366244662456624666247662486624966250662516625266253662546625566256662576625866259662606626166262662636626466265662666626766268662696627066271662726627366274662756627666277662786627966280662816628266283662846628566286662876628866289662906629166292662936629466295662966629766298662996630066301663026630366304663056630666307663086630966310663116631266313663146631566316663176631866319663206632166322663236632466325663266632766328663296633066331663326633366334663356633666337663386633966340663416634266343663446634566346663476634866349663506635166352663536635466355663566635766358663596636066361663626636366364663656636666367663686636966370663716637266373663746637566376663776637866379663806638166382663836638466385663866638766388663896639066391663926639366394663956639666397663986639966400664016640266403664046640566406664076640866409664106641166412664136641466415664166641766418664196642066421664226642366424664256642666427664286642966430664316643266433664346643566436664376643866439664406644166442664436644466445664466644766448664496645066451664526645366454664556645666457664586645966460664616646266463664646646566466664676646866469664706647166472664736647466475664766647766478664796648066481664826648366484664856648666487664886648966490664916649266493664946649566496664976649866499665006650166502665036650466505665066650766508665096651066511665126651366514665156651666517665186651966520665216652266523665246652566526665276652866529665306653166532665336653466535665366653766538665396654066541665426654366544665456654666547665486654966550665516655266553665546655566556665576655866559665606656166562665636656466565665666656766568665696657066571665726657366574665756657666577665786657966580665816658266583665846658566586665876658866589665906659166592665936659466595665966659766598665996660066601666026660366604666056660666607666086660966610666116661266613666146661566616666176661866619666206662166622666236662466625666266662766628666296663066631666326663366634666356663666637666386663966640666416664266643666446664566646666476664866649666506665166652666536665466655666566665766658666596666066661666626666366664666656666666667666686666966670666716667266673666746667566676666776667866679666806668166682666836668466685666866668766688666896669066691666926669366694666956669666697666986669966700667016670266703667046670566706667076670866709667106671166712667136671466715667166671766718667196672066721667226672366724667256672666727667286672966730667316673266733667346673566736667376673866739667406674166742667436674466745667466674766748667496675066751667526675366754667556675666757667586675966760667616676266763667646676566766667676676866769667706677166772667736677466775667766677766778667796678066781667826678366784667856678666787667886678966790667916679266793667946679566796667976679866799668006680166802668036680466805668066680766808668096681066811668126681366814668156681666817668186681966820668216682266823668246682566826668276682866829668306683166832668336683466835668366683766838668396684066841668426684366844668456684666847668486684966850668516685266853668546685566856668576685866859668606686166862668636686466865668666686766868668696687066871668726687366874668756687666877668786687966880668816688266883668846688566886668876688866889668906689166892668936689466895668966689766898668996690066901669026690366904669056690666907669086690966910669116691266913669146691566916669176691866919669206692166922669236692466925669266692766928669296693066931669326693366934669356693666937669386693966940669416694266943669446694566946669476694866949669506695166952669536695466955669566695766958669596696066961669626696366964669656696666967669686696966970669716697266973669746697566976669776697866979669806698166982669836698466985669866698766988669896699066991669926699366994669956699666997669986699967000670016700267003670046700567006670076700867009670106701167012670136701467015670166701767018670196702067021670226702367024670256702667027670286702967030670316703267033670346703567036670376703867039670406704167042670436704467045670466704767048670496705067051670526705367054670556705667057670586705967060670616706267063670646706567066670676706867069670706707167072670736707467075670766707767078670796708067081670826708367084670856708667087670886708967090670916709267093670946709567096670976709867099671006710167102671036710467105671066710767108671096711067111671126711367114671156711667117671186711967120671216712267123671246712567126671276712867129671306713167132671336713467135671366713767138671396714067141671426714367144671456714667147671486714967150671516715267153671546715567156671576715867159671606716167162671636716467165671666716767168671696717067171671726717367174671756717667177671786717967180671816718267183671846718567186671876718867189671906719167192671936719467195671966719767198671996720067201672026720367204672056720667207672086720967210672116721267213672146721567216672176721867219672206722167222672236722467225672266722767228672296723067231672326723367234672356723667237672386723967240672416724267243672446724567246672476724867249672506725167252672536725467255672566725767258672596726067261672626726367264672656726667267672686726967270672716727267273672746727567276672776727867279672806728167282672836728467285672866728767288672896729067291672926729367294672956729667297672986729967300673016730267303673046730567306673076730867309673106731167312673136731467315673166731767318673196732067321673226732367324673256732667327673286732967330673316733267333673346733567336673376733867339673406734167342673436734467345673466734767348673496735067351673526735367354673556735667357673586735967360673616736267363673646736567366673676736867369673706737167372673736737467375673766737767378673796738067381673826738367384673856738667387673886738967390673916739267393673946739567396673976739867399674006740167402674036740467405674066740767408674096741067411674126741367414674156741667417674186741967420674216742267423674246742567426674276742867429674306743167432674336743467435674366743767438674396744067441674426744367444674456744667447674486744967450674516745267453674546745567456674576745867459674606746167462674636746467465674666746767468674696747067471674726747367474674756747667477674786747967480674816748267483674846748567486674876748867489674906749167492674936749467495674966749767498674996750067501675026750367504675056750667507675086750967510675116751267513675146751567516675176751867519675206752167522675236752467525675266752767528675296753067531675326753367534675356753667537675386753967540675416754267543675446754567546675476754867549675506755167552675536755467555675566755767558675596756067561675626756367564675656756667567675686756967570675716757267573675746757567576675776757867579675806758167582675836758467585675866758767588675896759067591675926759367594675956759667597675986759967600676016760267603676046760567606676076760867609676106761167612676136761467615676166761767618676196762067621676226762367624676256762667627676286762967630676316763267633676346763567636676376763867639676406764167642676436764467645676466764767648676496765067651676526765367654676556765667657676586765967660676616766267663676646766567666676676766867669676706767167672676736767467675676766767767678676796768067681676826768367684676856768667687676886768967690676916769267693676946769567696676976769867699677006770167702677036770467705677066770767708677096771067711677126771367714677156771667717677186771967720677216772267723677246772567726677276772867729677306773167732677336773467735677366773767738677396774067741677426774367744677456774667747677486774967750677516775267753677546775567756677576775867759677606776167762677636776467765677666776767768677696777067771677726777367774677756777667777677786777967780677816778267783677846778567786677876778867789677906779167792677936779467795677966779767798677996780067801678026780367804678056780667807678086780967810678116781267813678146781567816678176781867819678206782167822678236782467825678266782767828678296783067831678326783367834678356783667837678386783967840678416784267843678446784567846678476784867849678506785167852678536785467855678566785767858678596786067861678626786367864678656786667867678686786967870678716787267873678746787567876678776787867879678806788167882678836788467885678866788767888678896789067891678926789367894678956789667897678986789967900679016790267903679046790567906679076790867909679106791167912679136791467915679166791767918679196792067921679226792367924679256792667927679286792967930679316793267933679346793567936679376793867939679406794167942679436794467945679466794767948679496795067951679526795367954679556795667957679586795967960679616796267963679646796567966679676796867969679706797167972679736797467975679766797767978679796798067981679826798367984679856798667987679886798967990679916799267993679946799567996679976799867999680006800168002680036800468005680066800768008680096801068011680126801368014680156801668017680186801968020680216802268023680246802568026680276802868029680306803168032680336803468035680366803768038680396804068041680426804368044680456804668047680486804968050680516805268053680546805568056680576805868059680606806168062680636806468065680666806768068680696807068071680726807368074680756807668077680786807968080680816808268083680846808568086680876808868089680906809168092680936809468095680966809768098680996810068101681026810368104681056810668107681086810968110681116811268113681146811568116681176811868119681206812168122681236812468125681266812768128681296813068131681326813368134681356813668137681386813968140681416814268143681446814568146681476814868149681506815168152681536815468155681566815768158681596816068161681626816368164681656816668167681686816968170681716817268173681746817568176681776817868179681806818168182681836818468185681866818768188681896819068191681926819368194681956819668197681986819968200682016820268203682046820568206682076820868209682106821168212682136821468215682166821768218682196822068221682226822368224682256822668227682286822968230682316823268233682346823568236682376823868239682406824168242682436824468245682466824768248682496825068251682526825368254682556825668257682586825968260682616826268263682646826568266682676826868269682706827168272682736827468275682766827768278682796828068281682826828368284682856828668287682886828968290682916829268293682946829568296682976829868299683006830168302683036830468305683066830768308683096831068311683126831368314683156831668317683186831968320683216832268323683246832568326683276832868329683306833168332683336833468335683366833768338683396834068341683426834368344683456834668347683486834968350683516835268353683546835568356683576835868359683606836168362683636836468365683666836768368683696837068371683726837368374683756837668377683786837968380683816838268383683846838568386683876838868389683906839168392683936839468395683966839768398683996840068401684026840368404684056840668407684086840968410684116841268413684146841568416684176841868419684206842168422684236842468425684266842768428684296843068431684326843368434684356843668437684386843968440684416844268443684446844568446684476844868449684506845168452684536845468455684566845768458684596846068461684626846368464684656846668467684686846968470684716847268473684746847568476684776847868479684806848168482684836848468485684866848768488684896849068491684926849368494684956849668497684986849968500685016850268503685046850568506685076850868509685106851168512685136851468515685166851768518685196852068521685226852368524685256852668527685286852968530685316853268533685346853568536685376853868539685406854168542685436854468545685466854768548685496855068551685526855368554685556855668557685586855968560685616856268563685646856568566685676856868569685706857168572685736857468575685766857768578685796858068581685826858368584685856858668587685886858968590685916859268593685946859568596685976859868599686006860168602686036860468605686066860768608686096861068611686126861368614686156861668617686186861968620686216862268623686246862568626686276862868629686306863168632686336863468635686366863768638686396864068641686426864368644686456864668647686486864968650686516865268653686546865568656686576865868659686606866168662686636866468665686666866768668686696867068671686726867368674686756867668677686786867968680686816868268683686846868568686686876868868689686906869168692686936869468695686966869768698686996870068701687026870368704687056870668707687086870968710687116871268713687146871568716687176871868719687206872168722687236872468725687266872768728687296873068731687326873368734687356873668737687386873968740687416874268743687446874568746687476874868749687506875168752687536875468755687566875768758687596876068761687626876368764687656876668767687686876968770687716877268773687746877568776687776877868779687806878168782687836878468785687866878768788687896879068791687926879368794687956879668797687986879968800688016880268803688046880568806688076880868809688106881168812688136881468815688166881768818688196882068821688226882368824688256882668827688286882968830688316883268833688346883568836688376883868839688406884168842688436884468845688466884768848688496885068851688526885368854688556885668857688586885968860688616886268863688646886568866688676886868869688706887168872688736887468875688766887768878688796888068881688826888368884688856888668887688886888968890688916889268893688946889568896688976889868899689006890168902689036890468905689066890768908689096891068911689126891368914689156891668917689186891968920689216892268923689246892568926689276892868929689306893168932689336893468935689366893768938689396894068941689426894368944689456894668947689486894968950689516895268953689546895568956689576895868959689606896168962689636896468965689666896768968689696897068971689726897368974689756897668977689786897968980689816898268983689846898568986689876898868989689906899168992689936899468995689966899768998689996900069001690026900369004690056900669007690086900969010690116901269013690146901569016690176901869019690206902169022690236902469025690266902769028690296903069031690326903369034690356903669037690386903969040690416904269043690446904569046690476904869049690506905169052690536905469055690566905769058690596906069061690626906369064690656906669067690686906969070690716907269073690746907569076690776907869079690806908169082690836908469085690866908769088690896909069091690926909369094690956909669097690986909969100691016910269103691046910569106691076910869109691106911169112691136911469115691166911769118691196912069121691226912369124691256912669127691286912969130691316913269133691346913569136691376913869139691406914169142691436914469145691466914769148691496915069151691526915369154691556915669157691586915969160691616916269163691646916569166691676916869169691706917169172691736917469175691766917769178691796918069181691826918369184691856918669187691886918969190691916919269193691946919569196691976919869199692006920169202692036920469205692066920769208692096921069211692126921369214692156921669217692186921969220692216922269223692246922569226692276922869229692306923169232692336923469235692366923769238692396924069241692426924369244692456924669247692486924969250692516925269253692546925569256692576925869259692606926169262692636926469265692666926769268692696927069271692726927369274692756927669277692786927969280692816928269283692846928569286692876928869289692906929169292692936929469295692966929769298692996930069301693026930369304693056930669307693086930969310693116931269313693146931569316693176931869319693206932169322693236932469325693266932769328693296933069331693326933369334693356933669337693386933969340693416934269343693446934569346693476934869349693506935169352693536935469355693566935769358693596936069361693626936369364693656936669367693686936969370693716937269373693746937569376693776937869379693806938169382693836938469385693866938769388693896939069391693926939369394693956939669397693986939969400694016940269403694046940569406694076940869409694106941169412694136941469415694166941769418694196942069421694226942369424694256942669427694286942969430694316943269433694346943569436694376943869439694406944169442694436944469445694466944769448694496945069451694526945369454694556945669457694586945969460694616946269463694646946569466694676946869469694706947169472694736947469475694766947769478694796948069481694826948369484694856948669487694886948969490694916949269493694946949569496694976949869499695006950169502695036950469505695066950769508695096951069511695126951369514695156951669517695186951969520695216952269523695246952569526695276952869529695306953169532695336953469535695366953769538695396954069541695426954369544695456954669547695486954969550695516955269553695546955569556695576955869559695606956169562695636956469565695666956769568695696957069571695726957369574695756957669577695786957969580695816958269583695846958569586695876958869589695906959169592695936959469595695966959769598695996960069601696026960369604696056960669607696086960969610696116961269613696146961569616696176961869619696206962169622696236962469625696266962769628696296963069631696326963369634696356963669637696386963969640696416964269643696446964569646696476964869649696506965169652696536965469655696566965769658696596966069661696626966369664696656966669667696686966969670696716967269673696746967569676696776967869679696806968169682696836968469685696866968769688696896969069691696926969369694696956969669697696986969969700697016970269703697046970569706697076970869709697106971169712697136971469715697166971769718697196972069721697226972369724697256972669727697286972969730697316973269733697346973569736697376973869739697406974169742697436974469745697466974769748697496975069751697526975369754697556975669757697586975969760697616976269763697646976569766697676976869769697706977169772697736977469775697766977769778697796978069781697826978369784697856978669787697886978969790697916979269793697946979569796697976979869799698006980169802698036980469805698066980769808698096981069811698126981369814698156981669817698186981969820698216982269823698246982569826698276982869829698306983169832698336983469835698366983769838698396984069841698426984369844698456984669847698486984969850698516985269853698546985569856698576985869859698606986169862698636986469865698666986769868698696987069871698726987369874698756987669877698786987969880698816988269883698846988569886698876988869889698906989169892698936989469895698966989769898698996990069901699026990369904699056990669907699086990969910699116991269913699146991569916699176991869919699206992169922699236992469925699266992769928699296993069931699326993369934699356993669937699386993969940699416994269943699446994569946699476994869949699506995169952699536995469955699566995769958699596996069961699626996369964699656996669967699686996969970699716997269973699746997569976699776997869979699806998169982699836998469985699866998769988699896999069991699926999369994699956999669997699986999970000700017000270003700047000570006700077000870009700107001170012700137001470015700167001770018700197002070021700227002370024700257002670027700287002970030700317003270033700347003570036700377003870039700407004170042700437004470045700467004770048700497005070051700527005370054700557005670057700587005970060700617006270063700647006570066700677006870069700707007170072700737007470075700767007770078700797008070081700827008370084700857008670087700887008970090700917009270093700947009570096700977009870099701007010170102701037010470105701067010770108701097011070111701127011370114701157011670117701187011970120701217012270123701247012570126701277012870129701307013170132701337013470135701367013770138701397014070141701427014370144701457014670147701487014970150701517015270153701547015570156701577015870159701607016170162701637016470165701667016770168701697017070171701727017370174701757017670177701787017970180701817018270183701847018570186701877018870189701907019170192701937019470195701967019770198701997020070201702027020370204702057020670207702087020970210702117021270213702147021570216702177021870219702207022170222702237022470225702267022770228702297023070231702327023370234702357023670237702387023970240702417024270243702447024570246702477024870249702507025170252702537025470255702567025770258702597026070261702627026370264702657026670267702687026970270702717027270273702747027570276702777027870279702807028170282702837028470285702867028770288702897029070291702927029370294702957029670297702987029970300703017030270303703047030570306703077030870309703107031170312703137031470315703167031770318703197032070321703227032370324703257032670327703287032970330703317033270333703347033570336703377033870339703407034170342703437034470345703467034770348703497035070351703527035370354703557035670357703587035970360703617036270363703647036570366703677036870369703707037170372703737037470375703767037770378703797038070381703827038370384703857038670387703887038970390703917039270393703947039570396703977039870399704007040170402704037040470405704067040770408704097041070411704127041370414704157041670417704187041970420704217042270423704247042570426704277042870429704307043170432704337043470435704367043770438704397044070441704427044370444704457044670447704487044970450704517045270453704547045570456704577045870459704607046170462704637046470465704667046770468704697047070471704727047370474704757047670477704787047970480704817048270483704847048570486704877048870489704907049170492704937049470495704967049770498704997050070501705027050370504705057050670507705087050970510705117051270513705147051570516705177051870519705207052170522705237052470525705267052770528705297053070531705327053370534705357053670537705387053970540705417054270543705447054570546705477054870549705507055170552705537055470555705567055770558705597056070561705627056370564705657056670567705687056970570705717057270573705747057570576705777057870579705807058170582705837058470585705867058770588705897059070591705927059370594705957059670597705987059970600706017060270603706047060570606706077060870609706107061170612706137061470615706167061770618706197062070621706227062370624706257062670627706287062970630706317063270633706347063570636706377063870639706407064170642706437064470645706467064770648706497065070651706527065370654706557065670657706587065970660706617066270663706647066570666706677066870669706707067170672706737067470675706767067770678706797068070681706827068370684706857068670687706887068970690706917069270693706947069570696706977069870699707007070170702707037070470705707067070770708707097071070711707127071370714707157071670717707187071970720707217072270723707247072570726707277072870729707307073170732707337073470735707367073770738707397074070741707427074370744707457074670747707487074970750707517075270753707547075570756707577075870759707607076170762707637076470765707667076770768707697077070771707727077370774707757077670777707787077970780707817078270783707847078570786707877078870789707907079170792707937079470795707967079770798707997080070801708027080370804708057080670807708087080970810708117081270813708147081570816708177081870819708207082170822708237082470825708267082770828708297083070831708327083370834708357083670837708387083970840708417084270843708447084570846708477084870849708507085170852708537085470855708567085770858708597086070861708627086370864708657086670867708687086970870708717087270873708747087570876708777087870879708807088170882708837088470885708867088770888708897089070891708927089370894708957089670897708987089970900709017090270903709047090570906709077090870909709107091170912709137091470915709167091770918709197092070921709227092370924709257092670927709287092970930709317093270933709347093570936709377093870939709407094170942709437094470945709467094770948709497095070951709527095370954709557095670957709587095970960709617096270963709647096570966709677096870969709707097170972709737097470975709767097770978709797098070981709827098370984709857098670987709887098970990709917099270993709947099570996709977099870999710007100171002710037100471005710067100771008710097101071011710127101371014710157101671017710187101971020710217102271023710247102571026710277102871029710307103171032710337103471035710367103771038710397104071041710427104371044710457104671047710487104971050710517105271053710547105571056710577105871059710607106171062710637106471065710667106771068710697107071071710727107371074710757107671077710787107971080710817108271083710847108571086710877108871089710907109171092710937109471095710967109771098710997110071101711027110371104711057110671107711087110971110711117111271113711147111571116711177111871119711207112171122711237112471125711267112771128711297113071131711327113371134711357113671137711387113971140711417114271143711447114571146711477114871149711507115171152711537115471155711567115771158711597116071161711627116371164711657116671167711687116971170711717117271173711747117571176711777117871179711807118171182711837118471185711867118771188711897119071191711927119371194711957119671197711987119971200712017120271203712047120571206712077120871209712107121171212712137121471215712167121771218712197122071221712227122371224712257122671227712287122971230712317123271233712347123571236712377123871239712407124171242712437124471245712467124771248712497125071251712527125371254712557125671257712587125971260712617126271263712647126571266712677126871269712707127171272712737127471275712767127771278712797128071281712827128371284712857128671287712887128971290712917129271293712947129571296712977129871299713007130171302713037130471305713067130771308713097131071311713127131371314713157131671317713187131971320713217132271323713247132571326713277132871329713307133171332713337133471335713367133771338713397134071341713427134371344713457134671347713487134971350713517135271353713547135571356713577135871359713607136171362713637136471365713667136771368713697137071371713727137371374713757137671377713787137971380713817138271383713847138571386713877138871389713907139171392713937139471395713967139771398713997140071401714027140371404714057140671407714087140971410714117141271413714147141571416714177141871419714207142171422714237142471425714267142771428714297143071431714327143371434714357143671437714387143971440714417144271443714447144571446714477144871449714507145171452714537145471455714567145771458714597146071461714627146371464714657146671467714687146971470714717147271473714747147571476714777147871479714807148171482714837148471485714867148771488714897149071491714927149371494714957149671497714987149971500715017150271503715047150571506715077150871509715107151171512715137151471515715167151771518715197152071521715227152371524715257152671527715287152971530715317153271533715347153571536715377153871539715407154171542715437154471545715467154771548715497155071551715527155371554715557155671557715587155971560715617156271563715647156571566715677156871569715707157171572715737157471575715767157771578715797158071581715827158371584715857158671587715887158971590715917159271593715947159571596715977159871599716007160171602716037160471605716067160771608716097161071611716127161371614716157161671617716187161971620716217162271623716247162571626716277162871629716307163171632716337163471635716367163771638716397164071641716427164371644716457164671647716487164971650716517165271653716547165571656716577165871659716607166171662716637166471665716667166771668716697167071671716727167371674716757167671677716787167971680716817168271683716847168571686716877168871689716907169171692716937169471695716967169771698716997170071701717027170371704717057170671707717087170971710717117171271713717147171571716717177171871719717207172171722717237172471725717267172771728717297173071731717327173371734717357173671737717387173971740717417174271743717447174571746717477174871749717507175171752717537175471755717567175771758717597176071761717627176371764717657176671767717687176971770717717177271773717747177571776717777177871779717807178171782717837178471785717867178771788717897179071791717927179371794717957179671797717987179971800718017180271803718047180571806718077180871809718107181171812718137181471815718167181771818718197182071821718227182371824718257182671827718287182971830718317183271833718347183571836718377183871839718407184171842718437184471845718467184771848718497185071851718527185371854718557185671857718587185971860718617186271863718647186571866718677186871869718707187171872718737187471875718767187771878718797188071881718827188371884718857188671887718887188971890718917189271893718947189571896718977189871899719007190171902719037190471905719067190771908719097191071911719127191371914719157191671917719187191971920719217192271923719247192571926719277192871929719307193171932719337193471935719367193771938719397194071941719427194371944719457194671947719487194971950719517195271953719547195571956719577195871959719607196171962719637196471965719667196771968719697197071971719727197371974719757197671977719787197971980719817198271983719847198571986719877198871989719907199171992719937199471995719967199771998719997200072001720027200372004720057200672007720087200972010720117201272013720147201572016720177201872019720207202172022720237202472025720267202772028720297203072031720327203372034720357203672037720387203972040720417204272043720447204572046720477204872049720507205172052720537205472055720567205772058720597206072061720627206372064720657206672067720687206972070720717207272073720747207572076720777207872079720807208172082720837208472085720867208772088720897209072091720927209372094720957209672097720987209972100721017210272103721047210572106721077210872109721107211172112721137211472115721167211772118721197212072121721227212372124721257212672127721287212972130721317213272133721347213572136721377213872139721407214172142721437214472145721467214772148721497215072151721527215372154721557215672157721587215972160721617216272163721647216572166721677216872169721707217172172721737217472175721767217772178721797218072181721827218372184721857218672187721887218972190721917219272193721947219572196721977219872199722007220172202722037220472205722067220772208722097221072211722127221372214722157221672217722187221972220722217222272223722247222572226722277222872229722307223172232722337223472235722367223772238722397224072241722427224372244722457224672247722487224972250722517225272253722547225572256722577225872259722607226172262722637226472265722667226772268722697227072271722727227372274722757227672277722787227972280722817228272283722847228572286722877228872289722907229172292722937229472295722967229772298722997230072301723027230372304723057230672307723087230972310723117231272313723147231572316723177231872319723207232172322723237232472325723267232772328723297233072331723327233372334723357233672337723387233972340723417234272343723447234572346723477234872349723507235172352723537235472355723567235772358723597236072361723627236372364723657236672367723687236972370723717237272373723747237572376723777237872379723807238172382723837238472385723867238772388723897239072391723927239372394723957239672397723987239972400724017240272403724047240572406724077240872409724107241172412724137241472415724167241772418724197242072421724227242372424724257242672427724287242972430724317243272433724347243572436724377243872439724407244172442724437244472445724467244772448724497245072451724527245372454724557245672457724587245972460724617246272463724647246572466724677246872469724707247172472724737247472475724767247772478724797248072481724827248372484724857248672487724887248972490724917249272493724947249572496724977249872499725007250172502725037250472505725067250772508725097251072511725127251372514725157251672517725187251972520725217252272523725247252572526725277252872529725307253172532725337253472535725367253772538725397254072541725427254372544725457254672547725487254972550725517255272553725547255572556725577255872559725607256172562725637256472565725667256772568725697257072571725727257372574725757257672577725787257972580725817258272583725847258572586725877258872589725907259172592725937259472595725967259772598725997260072601726027260372604726057260672607726087260972610726117261272613726147261572616726177261872619726207262172622726237262472625726267262772628726297263072631726327263372634726357263672637726387263972640726417264272643726447264572646726477264872649726507265172652726537265472655726567265772658726597266072661726627266372664726657266672667726687266972670726717267272673726747267572676726777267872679726807268172682726837268472685726867268772688726897269072691726927269372694726957269672697726987269972700727017270272703727047270572706727077270872709727107271172712727137271472715727167271772718727197272072721727227272372724727257272672727727287272972730727317273272733727347273572736727377273872739727407274172742727437274472745727467274772748727497275072751727527275372754727557275672757727587275972760727617276272763727647276572766727677276872769727707277172772727737277472775727767277772778727797278072781727827278372784727857278672787727887278972790727917279272793727947279572796727977279872799728007280172802728037280472805728067280772808728097281072811728127281372814728157281672817728187281972820728217282272823728247282572826728277282872829728307283172832728337283472835728367283772838728397284072841728427284372844728457284672847728487284972850728517285272853728547285572856728577285872859728607286172862728637286472865728667286772868728697287072871728727287372874728757287672877728787287972880728817288272883728847288572886728877288872889728907289172892728937289472895728967289772898728997290072901729027290372904729057290672907729087290972910729117291272913729147291572916729177291872919729207292172922729237292472925729267292772928729297293072931729327293372934729357293672937729387293972940729417294272943729447294572946729477294872949729507295172952729537295472955729567295772958729597296072961729627296372964729657296672967729687296972970729717297272973729747297572976729777297872979729807298172982729837298472985729867298772988729897299072991729927299372994729957299672997729987299973000730017300273003730047300573006730077300873009730107301173012730137301473015730167301773018730197302073021730227302373024730257302673027730287302973030730317303273033730347303573036730377303873039730407304173042730437304473045730467304773048730497305073051730527305373054730557305673057730587305973060730617306273063730647306573066730677306873069730707307173072730737307473075730767307773078730797308073081730827308373084730857308673087730887308973090730917309273093730947309573096730977309873099731007310173102731037310473105731067310773108731097311073111731127311373114731157311673117731187311973120731217312273123731247312573126731277312873129731307313173132731337313473135731367313773138731397314073141731427314373144731457314673147731487314973150731517315273153731547315573156731577315873159731607316173162731637316473165731667316773168731697317073171731727317373174731757317673177731787317973180731817318273183731847318573186731877318873189731907319173192731937319473195731967319773198731997320073201732027320373204732057320673207732087320973210732117321273213732147321573216732177321873219732207322173222732237322473225732267322773228732297323073231732327323373234732357323673237732387323973240732417324273243732447324573246732477324873249732507325173252732537325473255732567325773258732597326073261732627326373264732657326673267732687326973270732717327273273732747327573276732777327873279732807328173282732837328473285732867328773288732897329073291732927329373294732957329673297732987329973300733017330273303733047330573306733077330873309733107331173312733137331473315733167331773318733197332073321733227332373324733257332673327733287332973330733317333273333733347333573336733377333873339733407334173342733437334473345733467334773348733497335073351733527335373354733557335673357733587335973360733617336273363733647336573366733677336873369733707337173372733737337473375733767337773378733797338073381733827338373384733857338673387733887338973390733917339273393733947339573396733977339873399734007340173402734037340473405734067340773408734097341073411734127341373414734157341673417734187341973420734217342273423734247342573426734277342873429734307343173432734337343473435734367343773438734397344073441734427344373444734457344673447734487344973450734517345273453734547345573456734577345873459734607346173462734637346473465734667346773468734697347073471734727347373474734757347673477734787347973480734817348273483734847348573486734877348873489734907349173492734937349473495734967349773498734997350073501735027350373504735057350673507735087350973510735117351273513735147351573516735177351873519735207352173522735237352473525735267352773528735297353073531735327353373534735357353673537735387353973540735417354273543735447354573546735477354873549735507355173552735537355473555735567355773558735597356073561735627356373564735657356673567735687356973570735717357273573735747357573576735777357873579735807358173582735837358473585735867358773588735897359073591735927359373594735957359673597735987359973600736017360273603736047360573606736077360873609736107361173612736137361473615736167361773618736197362073621736227362373624736257362673627736287362973630736317363273633736347363573636736377363873639736407364173642736437364473645736467364773648736497365073651736527365373654736557365673657736587365973660736617366273663736647366573666736677366873669736707367173672736737367473675736767367773678736797368073681736827368373684736857368673687736887368973690736917369273693736947369573696736977369873699737007370173702737037370473705737067370773708737097371073711737127371373714737157371673717737187371973720737217372273723737247372573726737277372873729737307373173732737337373473735737367373773738737397374073741737427374373744737457374673747737487374973750737517375273753737547375573756737577375873759737607376173762737637376473765737667376773768737697377073771737727377373774737757377673777737787377973780737817378273783737847378573786737877378873789737907379173792737937379473795737967379773798737997380073801738027380373804738057380673807738087380973810738117381273813738147381573816738177381873819738207382173822738237382473825738267382773828738297383073831738327383373834738357383673837738387383973840738417384273843738447384573846738477384873849738507385173852738537385473855738567385773858738597386073861738627386373864738657386673867738687386973870738717387273873738747387573876738777387873879738807388173882738837388473885738867388773888738897389073891738927389373894738957389673897738987389973900739017390273903739047390573906739077390873909739107391173912739137391473915739167391773918739197392073921739227392373924739257392673927739287392973930739317393273933739347393573936739377393873939739407394173942739437394473945739467394773948739497395073951739527395373954739557395673957739587395973960739617396273963739647396573966739677396873969739707397173972739737397473975739767397773978739797398073981739827398373984739857398673987739887398973990739917399273993739947399573996739977399873999740007400174002740037400474005740067400774008740097401074011740127401374014740157401674017740187401974020740217402274023740247402574026740277402874029740307403174032740337403474035740367403774038740397404074041740427404374044740457404674047740487404974050740517405274053740547405574056740577405874059740607406174062740637406474065740667406774068740697407074071740727407374074740757407674077740787407974080740817408274083740847408574086740877408874089740907409174092740937409474095740967409774098740997410074101741027410374104741057410674107741087410974110741117411274113741147411574116741177411874119741207412174122741237412474125741267412774128741297413074131741327413374134741357413674137741387413974140741417414274143741447414574146741477414874149741507415174152741537415474155741567415774158741597416074161741627416374164741657416674167741687416974170741717417274173741747417574176741777417874179741807418174182741837418474185741867418774188741897419074191741927419374194741957419674197741987419974200742017420274203742047420574206742077420874209742107421174212742137421474215742167421774218742197422074221742227422374224742257422674227742287422974230742317423274233742347423574236742377423874239742407424174242742437424474245742467424774248742497425074251742527425374254742557425674257742587425974260742617426274263742647426574266742677426874269742707427174272742737427474275742767427774278742797428074281742827428374284742857428674287742887428974290742917429274293742947429574296742977429874299743007430174302743037430474305743067430774308743097431074311743127431374314743157431674317743187431974320743217432274323743247432574326743277432874329743307433174332743337433474335743367433774338743397434074341743427434374344743457434674347743487434974350743517435274353743547435574356743577435874359743607436174362743637436474365743667436774368743697437074371743727437374374743757437674377743787437974380743817438274383743847438574386743877438874389743907439174392743937439474395743967439774398743997440074401744027440374404744057440674407744087440974410744117441274413744147441574416744177441874419744207442174422744237442474425744267442774428744297443074431744327443374434744357443674437744387443974440744417444274443744447444574446744477444874449744507445174452744537445474455744567445774458744597446074461744627446374464744657446674467744687446974470744717447274473744747447574476744777447874479744807448174482744837448474485744867448774488744897449074491744927449374494744957449674497744987449974500745017450274503745047450574506745077450874509745107451174512745137451474515745167451774518745197452074521745227452374524745257452674527745287452974530745317453274533745347453574536745377453874539745407454174542745437454474545745467454774548745497455074551745527455374554745557455674557745587455974560745617456274563745647456574566745677456874569745707457174572745737457474575745767457774578745797458074581745827458374584745857458674587745887458974590745917459274593745947459574596745977459874599746007460174602746037460474605746067460774608746097461074611746127461374614746157461674617746187461974620746217462274623746247462574626746277462874629746307463174632746337463474635746367463774638746397464074641746427464374644746457464674647746487464974650746517465274653746547465574656746577465874659746607466174662746637466474665746667466774668746697467074671746727467374674746757467674677746787467974680746817468274683746847468574686746877468874689746907469174692746937469474695746967469774698746997470074701747027470374704747057470674707747087470974710747117471274713747147471574716747177471874719747207472174722747237472474725747267472774728747297473074731747327473374734747357473674737747387473974740747417474274743747447474574746747477474874749747507475174752747537475474755747567475774758747597476074761747627476374764747657476674767747687476974770747717477274773747747477574776747777477874779747807478174782747837478474785747867478774788747897479074791747927479374794747957479674797747987479974800748017480274803748047480574806748077480874809748107481174812748137481474815748167481774818748197482074821748227482374824748257482674827748287482974830748317483274833748347483574836748377483874839748407484174842748437484474845748467484774848748497485074851748527485374854748557485674857748587485974860748617486274863748647486574866748677486874869748707487174872748737487474875748767487774878748797488074881748827488374884748857488674887748887488974890748917489274893748947489574896748977489874899749007490174902749037490474905749067490774908749097491074911749127491374914749157491674917749187491974920749217492274923749247492574926749277492874929749307493174932749337493474935749367493774938749397494074941749427494374944749457494674947749487494974950749517495274953749547495574956749577495874959749607496174962749637496474965749667496774968749697497074971749727497374974749757497674977749787497974980749817498274983749847498574986749877498874989749907499174992749937499474995749967499774998749997500075001750027500375004750057500675007750087500975010750117501275013750147501575016750177501875019750207502175022750237502475025750267502775028750297503075031750327503375034750357503675037750387503975040750417504275043750447504575046750477504875049750507505175052750537505475055750567505775058750597506075061750627506375064750657506675067750687506975070750717507275073750747507575076750777507875079750807508175082750837508475085750867508775088750897509075091750927509375094750957509675097750987509975100751017510275103751047510575106751077510875109751107511175112751137511475115751167511775118751197512075121751227512375124751257512675127751287512975130751317513275133751347513575136751377513875139751407514175142751437514475145751467514775148751497515075151751527515375154751557515675157751587515975160751617516275163751647516575166751677516875169751707517175172751737517475175751767517775178751797518075181751827518375184751857518675187751887518975190751917519275193751947519575196751977519875199752007520175202752037520475205752067520775208752097521075211752127521375214752157521675217752187521975220752217522275223752247522575226752277522875229752307523175232752337523475235752367523775238752397524075241752427524375244752457524675247752487524975250752517525275253752547525575256752577525875259752607526175262752637526475265752667526775268752697527075271752727527375274752757527675277752787527975280752817528275283752847528575286752877528875289752907529175292752937529475295752967529775298752997530075301753027530375304753057530675307753087530975310753117531275313753147531575316753177531875319753207532175322753237532475325753267532775328753297533075331753327533375334753357533675337753387533975340753417534275343753447534575346753477534875349753507535175352753537535475355753567535775358753597536075361753627536375364753657536675367753687536975370753717537275373753747537575376753777537875379753807538175382753837538475385753867538775388753897539075391753927539375394753957539675397753987539975400754017540275403754047540575406754077540875409754107541175412754137541475415754167541775418754197542075421754227542375424754257542675427754287542975430754317543275433754347543575436754377543875439754407544175442754437544475445754467544775448754497545075451754527545375454754557545675457754587545975460754617546275463754647546575466754677546875469754707547175472754737547475475754767547775478754797548075481754827548375484754857548675487754887548975490754917549275493754947549575496754977549875499755007550175502755037550475505755067550775508755097551075511755127551375514755157551675517755187551975520755217552275523755247552575526755277552875529755307553175532755337553475535755367553775538755397554075541755427554375544755457554675547755487554975550755517555275553755547555575556755577555875559755607556175562755637556475565755667556775568755697557075571755727557375574755757557675577755787557975580755817558275583755847558575586755877558875589755907559175592755937559475595755967559775598755997560075601756027560375604756057560675607756087560975610756117561275613756147561575616756177561875619756207562175622756237562475625756267562775628756297563075631756327563375634756357563675637756387563975640756417564275643756447564575646756477564875649756507565175652756537565475655756567565775658756597566075661756627566375664756657566675667756687566975670756717567275673756747567575676756777567875679756807568175682756837568475685756867568775688756897569075691756927569375694756957569675697756987569975700757017570275703757047570575706757077570875709757107571175712757137571475715757167571775718757197572075721757227572375724757257572675727757287572975730757317573275733757347573575736757377573875739757407574175742757437574475745757467574775748757497575075751757527575375754757557575675757757587575975760757617576275763757647576575766757677576875769757707577175772757737577475775757767577775778757797578075781757827578375784757857578675787757887578975790757917579275793757947579575796757977579875799758007580175802758037580475805758067580775808758097581075811758127581375814758157581675817758187581975820758217582275823758247582575826758277582875829758307583175832758337583475835758367583775838758397584075841758427584375844758457584675847758487584975850758517585275853758547585575856758577585875859758607586175862758637586475865758667586775868758697587075871758727587375874758757587675877758787587975880758817588275883758847588575886758877588875889758907589175892758937589475895758967589775898758997590075901759027590375904759057590675907759087590975910759117591275913759147591575916759177591875919759207592175922759237592475925759267592775928759297593075931759327593375934759357593675937759387593975940759417594275943759447594575946759477594875949759507595175952759537595475955759567595775958759597596075961759627596375964759657596675967759687596975970759717597275973759747597575976759777597875979759807598175982759837598475985759867598775988759897599075991759927599375994759957599675997759987599976000760017600276003760047600576006760077600876009760107601176012760137601476015760167601776018760197602076021760227602376024760257602676027760287602976030760317603276033760347603576036760377603876039760407604176042760437604476045760467604776048760497605076051760527605376054760557605676057760587605976060760617606276063760647606576066760677606876069760707607176072760737607476075760767607776078760797608076081760827608376084760857608676087760887608976090760917609276093760947609576096760977609876099761007610176102761037610476105761067610776108761097611076111761127611376114761157611676117761187611976120761217612276123761247612576126761277612876129761307613176132761337613476135761367613776138761397614076141761427614376144761457614676147761487614976150761517615276153761547615576156761577615876159761607616176162761637616476165761667616776168761697617076171761727617376174761757617676177761787617976180761817618276183761847618576186761877618876189761907619176192761937619476195761967619776198761997620076201762027620376204762057620676207762087620976210762117621276213762147621576216762177621876219762207622176222762237622476225762267622776228762297623076231762327623376234762357623676237762387623976240762417624276243762447624576246762477624876249762507625176252762537625476255762567625776258762597626076261762627626376264762657626676267762687626976270762717627276273762747627576276762777627876279762807628176282762837628476285762867628776288762897629076291762927629376294762957629676297762987629976300763017630276303763047630576306763077630876309763107631176312763137631476315763167631776318763197632076321763227632376324763257632676327763287632976330763317633276333763347633576336763377633876339763407634176342763437634476345763467634776348763497635076351763527635376354763557635676357763587635976360763617636276363763647636576366763677636876369763707637176372763737637476375763767637776378763797638076381763827638376384763857638676387763887638976390763917639276393763947639576396763977639876399764007640176402764037640476405764067640776408764097641076411764127641376414764157641676417764187641976420764217642276423764247642576426764277642876429764307643176432764337643476435764367643776438764397644076441764427644376444764457644676447764487644976450764517645276453764547645576456764577645876459764607646176462764637646476465764667646776468764697647076471764727647376474764757647676477764787647976480764817648276483764847648576486764877648876489764907649176492764937649476495764967649776498764997650076501765027650376504765057650676507765087650976510765117651276513765147651576516765177651876519765207652176522765237652476525765267652776528765297653076531765327653376534765357653676537765387653976540765417654276543765447654576546765477654876549765507655176552765537655476555765567655776558765597656076561765627656376564765657656676567765687656976570765717657276573765747657576576765777657876579765807658176582765837658476585765867658776588765897659076591765927659376594765957659676597765987659976600766017660276603766047660576606766077660876609766107661176612766137661476615766167661776618766197662076621766227662376624766257662676627766287662976630766317663276633766347663576636766377663876639766407664176642766437664476645766467664776648766497665076651766527665376654766557665676657766587665976660766617666276663766647666576666766677666876669766707667176672766737667476675766767667776678766797668076681766827668376684766857668676687766887668976690766917669276693766947669576696766977669876699767007670176702767037670476705767067670776708767097671076711767127671376714767157671676717767187671976720767217672276723767247672576726767277672876729767307673176732767337673476735767367673776738767397674076741767427674376744767457674676747767487674976750767517675276753767547675576756767577675876759767607676176762767637676476765767667676776768767697677076771767727677376774767757677676777767787677976780767817678276783767847678576786767877678876789767907679176792767937679476795767967679776798767997680076801768027680376804768057680676807768087680976810768117681276813768147681576816768177681876819768207682176822768237682476825768267682776828768297683076831768327683376834768357683676837768387683976840768417684276843768447684576846768477684876849768507685176852768537685476855768567685776858768597686076861768627686376864768657686676867768687686976870768717687276873768747687576876768777687876879768807688176882768837688476885768867688776888768897689076891768927689376894768957689676897768987689976900769017690276903769047690576906769077690876909769107691176912769137691476915769167691776918769197692076921769227692376924769257692676927769287692976930769317693276933769347693576936769377693876939769407694176942769437694476945769467694776948769497695076951769527695376954769557695676957769587695976960769617696276963769647696576966769677696876969769707697176972769737697476975769767697776978769797698076981769827698376984769857698676987769887698976990769917699276993769947699576996769977699876999770007700177002770037700477005770067700777008770097701077011770127701377014770157701677017770187701977020770217702277023770247702577026770277702877029770307703177032770337703477035770367703777038770397704077041770427704377044770457704677047770487704977050770517705277053770547705577056770577705877059770607706177062770637706477065770667706777068770697707077071770727707377074770757707677077770787707977080770817708277083770847708577086770877708877089770907709177092770937709477095770967709777098770997710077101771027710377104771057710677107771087710977110771117711277113771147711577116771177711877119771207712177122771237712477125771267712777128771297713077131771327713377134771357713677137771387713977140771417714277143771447714577146771477714877149771507715177152771537715477155771567715777158771597716077161771627716377164771657716677167771687716977170771717717277173771747717577176771777717877179771807718177182771837718477185771867718777188771897719077191771927719377194771957719677197771987719977200772017720277203772047720577206772077720877209772107721177212772137721477215772167721777218772197722077221772227722377224772257722677227772287722977230772317723277233772347723577236772377723877239772407724177242772437724477245772467724777248772497725077251772527725377254772557725677257772587725977260772617726277263772647726577266772677726877269772707727177272772737727477275772767727777278772797728077281772827728377284772857728677287772887728977290772917729277293772947729577296772977729877299773007730177302773037730477305773067730777308773097731077311773127731377314773157731677317773187731977320773217732277323773247732577326773277732877329773307733177332773337733477335773367733777338773397734077341773427734377344773457734677347773487734977350773517735277353773547735577356773577735877359773607736177362773637736477365773667736777368773697737077371773727737377374773757737677377773787737977380773817738277383773847738577386773877738877389773907739177392773937739477395773967739777398773997740077401774027740377404774057740677407774087740977410774117741277413774147741577416774177741877419774207742177422774237742477425774267742777428774297743077431774327743377434774357743677437774387743977440774417744277443774447744577446774477744877449774507745177452774537745477455774567745777458774597746077461774627746377464774657746677467774687746977470774717747277473774747747577476774777747877479774807748177482774837748477485774867748777488774897749077491774927749377494774957749677497774987749977500775017750277503775047750577506775077750877509775107751177512775137751477515775167751777518775197752077521775227752377524775257752677527775287752977530775317753277533775347753577536775377753877539775407754177542775437754477545775467754777548775497755077551775527755377554775557755677557775587755977560775617756277563775647756577566775677756877569775707757177572775737757477575775767757777578775797758077581775827758377584775857758677587775887758977590775917759277593775947759577596775977759877599776007760177602776037760477605776067760777608776097761077611776127761377614776157761677617776187761977620776217762277623776247762577626776277762877629776307763177632776337763477635776367763777638776397764077641776427764377644776457764677647776487764977650776517765277653776547765577656776577765877659776607766177662776637766477665776667766777668776697767077671776727767377674776757767677677776787767977680776817768277683776847768577686776877768877689776907769177692776937769477695776967769777698776997770077701777027770377704777057770677707777087770977710777117771277713777147771577716777177771877719777207772177722777237772477725777267772777728777297773077731777327773377734777357773677737777387773977740777417774277743777447774577746777477774877749777507775177752777537775477755777567775777758777597776077761777627776377764777657776677767777687776977770777717777277773777747777577776777777777877779777807778177782777837778477785777867778777788777897779077791777927779377794777957779677797777987779977800778017780277803778047780577806778077780877809778107781177812778137781477815778167781777818778197782077821778227782377824778257782677827778287782977830778317783277833778347783577836778377783877839778407784177842778437784477845778467784777848778497785077851778527785377854778557785677857778587785977860778617786277863778647786577866778677786877869778707787177872778737787477875778767787777878778797788077881778827788377884778857788677887778887788977890778917789277893778947789577896778977789877899779007790177902779037790477905779067790777908779097791077911779127791377914779157791677917779187791977920779217792277923779247792577926779277792877929779307793177932779337793477935779367793777938779397794077941779427794377944779457794677947779487794977950779517795277953779547795577956779577795877959779607796177962779637796477965779667796777968779697797077971779727797377974779757797677977779787797977980779817798277983779847798577986779877798877989779907799177992779937799477995779967799777998779997800078001780027800378004780057800678007780087800978010780117801278013780147801578016780177801878019780207802178022780237802478025780267802778028780297803078031780327803378034780357803678037780387803978040780417804278043780447804578046780477804878049780507805178052780537805478055780567805778058780597806078061780627806378064780657806678067780687806978070780717807278073780747807578076780777807878079780807808178082780837808478085780867808778088780897809078091780927809378094780957809678097780987809978100781017810278103781047810578106781077810878109781107811178112781137811478115781167811778118781197812078121781227812378124781257812678127781287812978130781317813278133781347813578136781377813878139781407814178142781437814478145781467814778148781497815078151781527815378154781557815678157781587815978160781617816278163781647816578166781677816878169781707817178172781737817478175781767817778178781797818078181781827818378184781857818678187781887818978190781917819278193781947819578196781977819878199782007820178202782037820478205782067820778208782097821078211782127821378214782157821678217782187821978220782217822278223782247822578226782277822878229782307823178232782337823478235782367823778238782397824078241782427824378244782457824678247782487824978250782517825278253782547825578256782577825878259782607826178262782637826478265782667826778268782697827078271782727827378274782757827678277782787827978280782817828278283782847828578286782877828878289782907829178292782937829478295782967829778298782997830078301783027830378304783057830678307783087830978310783117831278313783147831578316783177831878319783207832178322783237832478325783267832778328783297833078331783327833378334783357833678337783387833978340783417834278343783447834578346783477834878349783507835178352783537835478355783567835778358783597836078361783627836378364783657836678367783687836978370783717837278373783747837578376783777837878379783807838178382783837838478385783867838778388783897839078391783927839378394783957839678397783987839978400784017840278403784047840578406784077840878409784107841178412784137841478415784167841778418784197842078421784227842378424784257842678427784287842978430784317843278433784347843578436784377843878439784407844178442784437844478445784467844778448784497845078451784527845378454784557845678457784587845978460784617846278463784647846578466784677846878469784707847178472784737847478475784767847778478784797848078481784827848378484784857848678487784887848978490784917849278493784947849578496784977849878499785007850178502785037850478505785067850778508785097851078511785127851378514785157851678517785187851978520785217852278523785247852578526785277852878529785307853178532785337853478535785367853778538785397854078541785427854378544785457854678547785487854978550785517855278553785547855578556785577855878559785607856178562785637856478565785667856778568785697857078571785727857378574785757857678577785787857978580785817858278583785847858578586785877858878589785907859178592785937859478595785967859778598785997860078601786027860378604786057860678607786087860978610786117861278613786147861578616786177861878619786207862178622786237862478625786267862778628786297863078631786327863378634786357863678637786387863978640786417864278643786447864578646786477864878649786507865178652786537865478655786567865778658786597866078661786627866378664786657866678667786687866978670786717867278673786747867578676786777867878679786807868178682786837868478685786867868778688786897869078691786927869378694786957869678697786987869978700787017870278703787047870578706787077870878709787107871178712787137871478715787167871778718787197872078721787227872378724787257872678727787287872978730787317873278733787347873578736787377873878739787407874178742787437874478745787467874778748787497875078751787527875378754787557875678757787587875978760787617876278763787647876578766787677876878769787707877178772787737877478775787767877778778787797878078781787827878378784787857878678787787887878978790787917879278793787947879578796787977879878799788007880178802788037880478805788067880778808788097881078811788127881378814788157881678817788187881978820788217882278823788247882578826788277882878829788307883178832788337883478835788367883778838788397884078841788427884378844788457884678847788487884978850788517885278853788547885578856788577885878859788607886178862788637886478865788667886778868788697887078871788727887378874788757887678877788787887978880788817888278883788847888578886788877888878889788907889178892788937889478895788967889778898788997890078901789027890378904789057890678907789087890978910789117891278913789147891578916789177891878919789207892178922789237892478925789267892778928789297893078931789327893378934789357893678937789387893978940789417894278943789447894578946789477894878949789507895178952789537895478955789567895778958789597896078961789627896378964789657896678967789687896978970789717897278973789747897578976789777897878979789807898178982789837898478985789867898778988789897899078991789927899378994789957899678997789987899979000790017900279003790047900579006790077900879009790107901179012790137901479015790167901779018790197902079021790227902379024790257902679027790287902979030790317903279033790347903579036790377903879039790407904179042790437904479045790467904779048790497905079051790527905379054790557905679057790587905979060790617906279063790647906579066790677906879069790707907179072790737907479075790767907779078790797908079081790827908379084790857908679087790887908979090790917909279093790947909579096790977909879099791007910179102791037910479105791067910779108791097911079111791127911379114791157911679117791187911979120791217912279123791247912579126791277912879129791307913179132791337913479135791367913779138791397914079141791427914379144791457914679147791487914979150791517915279153791547915579156791577915879159791607916179162791637916479165791667916779168791697917079171791727917379174791757917679177791787917979180791817918279183791847918579186791877918879189791907919179192791937919479195791967919779198791997920079201792027920379204792057920679207792087920979210792117921279213792147921579216792177921879219792207922179222792237922479225792267922779228792297923079231792327923379234792357923679237792387923979240792417924279243792447924579246792477924879249792507925179252792537925479255792567925779258792597926079261792627926379264792657926679267792687926979270792717927279273792747927579276792777927879279792807928179282792837928479285792867928779288792897929079291792927929379294792957929679297792987929979300793017930279303793047930579306793077930879309793107931179312793137931479315793167931779318793197932079321793227932379324793257932679327793287932979330793317933279333793347933579336793377933879339793407934179342793437934479345793467934779348793497935079351793527935379354793557935679357793587935979360793617936279363793647936579366793677936879369793707937179372793737937479375793767937779378793797938079381793827938379384793857938679387793887938979390793917939279393793947939579396793977939879399794007940179402794037940479405794067940779408794097941079411794127941379414794157941679417794187941979420794217942279423794247942579426794277942879429794307943179432794337943479435794367943779438794397944079441794427944379444794457944679447794487944979450794517945279453794547945579456794577945879459794607946179462794637946479465794667946779468794697947079471794727947379474794757947679477794787947979480794817948279483794847948579486794877948879489794907949179492794937949479495794967949779498794997950079501795027950379504795057950679507795087950979510795117951279513795147951579516795177951879519795207952179522795237952479525795267952779528795297953079531795327953379534795357953679537795387953979540795417954279543795447954579546795477954879549795507955179552795537955479555795567955779558795597956079561795627956379564795657956679567795687956979570795717957279573795747957579576795777957879579795807958179582795837958479585795867958779588795897959079591795927959379594795957959679597795987959979600796017960279603796047960579606796077960879609796107961179612796137961479615796167961779618796197962079621796227962379624796257962679627796287962979630796317963279633796347963579636796377963879639796407964179642796437964479645796467964779648796497965079651796527965379654796557965679657796587965979660796617966279663796647966579666796677966879669796707967179672796737967479675796767967779678796797968079681796827968379684796857968679687796887968979690796917969279693796947969579696796977969879699797007970179702797037970479705797067970779708797097971079711797127971379714797157971679717797187971979720797217972279723797247972579726797277972879729797307973179732797337973479735797367973779738797397974079741797427974379744797457974679747797487974979750797517975279753797547975579756797577975879759797607976179762797637976479765797667976779768797697977079771797727977379774797757977679777797787977979780797817978279783797847978579786797877978879789797907979179792797937979479795797967979779798797997980079801798027980379804798057980679807798087980979810798117981279813798147981579816798177981879819798207982179822798237982479825798267982779828798297983079831798327983379834798357983679837798387983979840798417984279843798447984579846798477984879849798507985179852798537985479855798567985779858798597986079861798627986379864798657986679867798687986979870798717987279873798747987579876798777987879879798807988179882798837988479885798867988779888798897989079891798927989379894798957989679897798987989979900799017990279903799047990579906799077990879909799107991179912799137991479915799167991779918799197992079921799227992379924799257992679927799287992979930799317993279933799347993579936799377993879939799407994179942799437994479945799467994779948799497995079951799527995379954799557995679957799587995979960799617996279963799647996579966799677996879969799707997179972799737997479975799767997779978799797998079981799827998379984799857998679987799887998979990799917999279993799947999579996799977999879999800008000180002800038000480005800068000780008800098001080011800128001380014800158001680017800188001980020800218002280023800248002580026800278002880029800308003180032800338003480035800368003780038800398004080041800428004380044800458004680047800488004980050800518005280053800548005580056800578005880059800608006180062800638006480065800668006780068800698007080071800728007380074800758007680077800788007980080800818008280083800848008580086800878008880089800908009180092800938009480095800968009780098800998010080101801028010380104801058010680107801088010980110801118011280113801148011580116801178011880119801208012180122801238012480125801268012780128801298013080131801328013380134801358013680137801388013980140801418014280143801448014580146801478014880149801508015180152801538015480155801568015780158801598016080161801628016380164801658016680167801688016980170801718017280173801748017580176801778017880179801808018180182801838018480185801868018780188801898019080191801928019380194801958019680197801988019980200802018020280203802048020580206802078020880209802108021180212802138021480215802168021780218802198022080221802228022380224802258022680227802288022980230802318023280233802348023580236802378023880239802408024180242802438024480245802468024780248802498025080251802528025380254802558025680257802588025980260802618026280263802648026580266802678026880269802708027180272802738027480275802768027780278802798028080281802828028380284802858028680287802888028980290802918029280293802948029580296802978029880299803008030180302803038030480305803068030780308803098031080311803128031380314803158031680317803188031980320803218032280323803248032580326803278032880329803308033180332803338033480335803368033780338803398034080341803428034380344803458034680347803488034980350803518035280353803548035580356803578035880359803608036180362803638036480365803668036780368803698037080371803728037380374803758037680377803788037980380803818038280383803848038580386803878038880389803908039180392803938039480395803968039780398803998040080401804028040380404804058040680407804088040980410804118041280413804148041580416804178041880419804208042180422804238042480425804268042780428804298043080431804328043380434804358043680437804388043980440804418044280443804448044580446804478044880449804508045180452804538045480455804568045780458804598046080461804628046380464804658046680467804688046980470804718047280473804748047580476804778047880479804808048180482804838048480485804868048780488804898049080491804928049380494804958049680497804988049980500805018050280503805048050580506805078050880509805108051180512805138051480515805168051780518805198052080521805228052380524805258052680527805288052980530805318053280533805348053580536805378053880539805408054180542805438054480545805468054780548805498055080551805528055380554805558055680557805588055980560805618056280563805648056580566805678056880569805708057180572805738057480575805768057780578805798058080581805828058380584805858058680587805888058980590805918059280593805948059580596805978059880599806008060180602806038060480605806068060780608806098061080611806128061380614806158061680617806188061980620806218062280623806248062580626806278062880629806308063180632806338063480635806368063780638806398064080641806428064380644806458064680647806488064980650806518065280653806548065580656806578065880659806608066180662806638066480665806668066780668806698067080671806728067380674806758067680677806788067980680806818068280683806848068580686806878068880689806908069180692806938069480695806968069780698806998070080701807028070380704807058070680707807088070980710807118071280713807148071580716807178071880719807208072180722807238072480725807268072780728807298073080731807328073380734807358073680737807388073980740807418074280743807448074580746807478074880749807508075180752807538075480755807568075780758807598076080761807628076380764807658076680767807688076980770807718077280773807748077580776807778077880779807808078180782807838078480785807868078780788807898079080791807928079380794807958079680797807988079980800808018080280803808048080580806808078080880809808108081180812808138081480815808168081780818808198082080821808228082380824808258082680827808288082980830808318083280833808348083580836808378083880839808408084180842808438084480845808468084780848808498085080851808528085380854808558085680857808588085980860808618086280863808648086580866808678086880869808708087180872808738087480875808768087780878808798088080881808828088380884808858088680887808888088980890808918089280893808948089580896808978089880899809008090180902809038090480905809068090780908809098091080911809128091380914809158091680917809188091980920809218092280923809248092580926809278092880929809308093180932809338093480935809368093780938809398094080941809428094380944809458094680947809488094980950809518095280953809548095580956809578095880959809608096180962809638096480965809668096780968809698097080971809728097380974809758097680977809788097980980809818098280983809848098580986809878098880989809908099180992809938099480995809968099780998809998100081001810028100381004810058100681007810088100981010810118101281013810148101581016810178101881019810208102181022810238102481025810268102781028810298103081031810328103381034810358103681037810388103981040810418104281043810448104581046810478104881049810508105181052810538105481055810568105781058810598106081061810628106381064810658106681067810688106981070810718107281073810748107581076810778107881079810808108181082810838108481085810868108781088810898109081091810928109381094810958109681097810988109981100811018110281103811048110581106811078110881109811108111181112811138111481115811168111781118811198112081121811228112381124811258112681127811288112981130811318113281133811348113581136811378113881139811408114181142811438114481145811468114781148811498115081151811528115381154811558115681157811588115981160811618116281163811648116581166811678116881169811708117181172811738117481175811768117781178811798118081181811828118381184811858118681187811888118981190811918119281193811948119581196811978119881199812008120181202812038120481205812068120781208812098121081211812128121381214812158121681217812188121981220812218122281223812248122581226812278122881229812308123181232812338123481235812368123781238812398124081241812428124381244812458124681247812488124981250812518125281253812548125581256812578125881259812608126181262812638126481265812668126781268812698127081271812728127381274812758127681277812788127981280812818128281283812848128581286812878128881289812908129181292812938129481295812968129781298812998130081301813028130381304813058130681307813088130981310813118131281313813148131581316813178131881319813208132181322813238132481325813268132781328813298133081331813328133381334813358133681337813388133981340813418134281343813448134581346813478134881349813508135181352813538135481355813568135781358813598136081361813628136381364813658136681367813688136981370813718137281373813748137581376813778137881379813808138181382813838138481385813868138781388813898139081391813928139381394813958139681397813988139981400814018140281403814048140581406814078140881409814108141181412814138141481415814168141781418814198142081421814228142381424814258142681427814288142981430814318143281433814348143581436814378143881439814408144181442814438144481445814468144781448814498145081451814528145381454814558145681457814588145981460814618146281463814648146581466814678146881469814708147181472814738147481475814768147781478814798148081481814828148381484814858148681487814888148981490814918149281493814948149581496814978149881499815008150181502815038150481505815068150781508815098151081511815128151381514815158151681517815188151981520815218152281523815248152581526815278152881529815308153181532815338153481535815368153781538815398154081541815428154381544815458154681547815488154981550815518155281553815548155581556815578155881559815608156181562815638156481565815668156781568815698157081571815728157381574815758157681577815788157981580815818158281583815848158581586815878158881589815908159181592815938159481595815968159781598815998160081601816028160381604816058160681607816088160981610816118161281613816148161581616816178161881619816208162181622816238162481625816268162781628816298163081631816328163381634816358163681637816388163981640816418164281643816448164581646816478164881649816508165181652816538165481655816568165781658816598166081661816628166381664816658166681667816688166981670816718167281673816748167581676816778167881679816808168181682816838168481685816868168781688816898169081691816928169381694816958169681697816988169981700817018170281703817048170581706817078170881709817108171181712817138171481715817168171781718817198172081721817228172381724817258172681727817288172981730817318173281733817348173581736817378173881739817408174181742817438174481745817468174781748817498175081751817528175381754817558175681757817588175981760817618176281763817648176581766817678176881769817708177181772817738177481775817768177781778817798178081781817828178381784817858178681787817888178981790817918179281793817948179581796817978179881799818008180181802818038180481805818068180781808818098181081811818128181381814818158181681817818188181981820818218182281823818248182581826818278182881829818308183181832818338183481835818368183781838818398184081841818428184381844818458184681847818488184981850818518185281853818548185581856818578185881859818608186181862818638186481865818668186781868818698187081871818728187381874818758187681877818788187981880818818188281883818848188581886818878188881889818908189181892818938189481895818968189781898818998190081901819028190381904819058190681907819088190981910819118191281913819148191581916819178191881919819208192181922819238192481925819268192781928819298193081931819328193381934819358193681937819388193981940819418194281943819448194581946819478194881949819508195181952819538195481955819568195781958819598196081961819628196381964819658196681967819688196981970819718197281973819748197581976819778197881979819808198181982819838198481985819868198781988819898199081991819928199381994819958199681997819988199982000820018200282003820048200582006820078200882009820108201182012820138201482015820168201782018820198202082021820228202382024820258202682027820288202982030820318203282033820348203582036820378203882039820408204182042820438204482045820468204782048820498205082051820528205382054820558205682057820588205982060820618206282063820648206582066820678206882069820708207182072820738207482075820768207782078820798208082081820828208382084820858208682087820888208982090820918209282093820948209582096820978209882099821008210182102821038210482105821068210782108821098211082111821128211382114821158211682117821188211982120821218212282123821248212582126821278212882129821308213182132821338213482135821368213782138821398214082141821428214382144821458214682147821488214982150821518215282153821548215582156821578215882159821608216182162821638216482165821668216782168821698217082171821728217382174821758217682177821788217982180821818218282183821848218582186821878218882189821908219182192821938219482195821968219782198821998220082201822028220382204822058220682207822088220982210822118221282213822148221582216822178221882219822208222182222822238222482225822268222782228822298223082231822328223382234822358223682237822388223982240822418224282243822448224582246822478224882249822508225182252822538225482255822568225782258822598226082261822628226382264822658226682267822688226982270822718227282273822748227582276822778227882279822808228182282822838228482285822868228782288822898229082291822928229382294822958229682297822988229982300823018230282303823048230582306823078230882309823108231182312823138231482315823168231782318823198232082321823228232382324823258232682327823288232982330823318233282333823348233582336823378233882339823408234182342823438234482345823468234782348823498235082351823528235382354823558235682357823588235982360823618236282363823648236582366823678236882369823708237182372823738237482375823768237782378823798238082381823828238382384823858238682387823888238982390823918239282393823948239582396823978239882399824008240182402824038240482405824068240782408824098241082411824128241382414824158241682417824188241982420824218242282423824248242582426824278242882429824308243182432824338243482435824368243782438824398244082441824428244382444824458244682447824488244982450824518245282453824548245582456824578245882459824608246182462824638246482465824668246782468824698247082471824728247382474824758247682477824788247982480824818248282483824848248582486824878248882489824908249182492824938249482495824968249782498824998250082501825028250382504825058250682507825088250982510825118251282513825148251582516825178251882519825208252182522825238252482525825268252782528825298253082531825328253382534825358253682537825388253982540825418254282543825448254582546825478254882549825508255182552825538255482555825568255782558825598256082561825628256382564825658256682567825688256982570825718257282573825748257582576825778257882579825808258182582825838258482585825868258782588825898259082591825928259382594825958259682597825988259982600826018260282603826048260582606826078260882609826108261182612826138261482615826168261782618826198262082621826228262382624826258262682627826288262982630826318263282633826348263582636826378263882639826408264182642826438264482645826468264782648826498265082651826528265382654826558265682657826588265982660826618266282663826648266582666826678266882669826708267182672826738267482675826768267782678826798268082681826828268382684826858268682687826888268982690826918269282693826948269582696826978269882699827008270182702827038270482705827068270782708827098271082711827128271382714827158271682717827188271982720827218272282723827248272582726827278272882729827308273182732827338273482735827368273782738827398274082741827428274382744827458274682747827488274982750827518275282753827548275582756827578275882759827608276182762827638276482765827668276782768827698277082771827728277382774827758277682777827788277982780827818278282783827848278582786827878278882789827908279182792827938279482795827968279782798827998280082801828028280382804828058280682807828088280982810828118281282813828148281582816828178281882819828208282182822828238282482825828268282782828828298283082831828328283382834828358283682837828388283982840828418284282843828448284582846828478284882849828508285182852828538285482855828568285782858828598286082861828628286382864828658286682867828688286982870828718287282873828748287582876828778287882879828808288182882828838288482885828868288782888828898289082891828928289382894828958289682897828988289982900829018290282903829048290582906829078290882909829108291182912829138291482915829168291782918829198292082921829228292382924829258292682927829288292982930829318293282933829348293582936829378293882939829408294182942829438294482945829468294782948829498295082951829528295382954829558295682957829588295982960829618296282963829648296582966829678296882969829708297182972829738297482975829768297782978829798298082981829828298382984829858298682987829888298982990829918299282993829948299582996829978299882999830008300183002830038300483005830068300783008830098301083011830128301383014830158301683017830188301983020830218302283023830248302583026830278302883029830308303183032830338303483035830368303783038830398304083041830428304383044830458304683047830488304983050830518305283053830548305583056830578305883059830608306183062830638306483065830668306783068830698307083071830728307383074830758307683077830788307983080830818308283083830848308583086830878308883089830908309183092830938309483095830968309783098830998310083101831028310383104831058310683107831088310983110831118311283113831148311583116831178311883119831208312183122831238312483125831268312783128831298313083131831328313383134831358313683137831388313983140831418314283143831448314583146831478314883149831508315183152831538315483155831568315783158831598316083161831628316383164831658316683167831688316983170831718317283173831748317583176831778317883179831808318183182831838318483185831868318783188831898319083191831928319383194831958319683197831988319983200832018320283203832048320583206832078320883209832108321183212832138321483215832168321783218832198322083221832228322383224832258322683227832288322983230832318323283233832348323583236832378323883239832408324183242832438324483245832468324783248832498325083251832528325383254832558325683257832588325983260832618326283263832648326583266832678326883269832708327183272832738327483275832768327783278832798328083281832828328383284832858328683287832888328983290832918329283293832948329583296832978329883299833008330183302833038330483305833068330783308833098331083311833128331383314833158331683317833188331983320833218332283323833248332583326833278332883329833308333183332833338333483335833368333783338833398334083341833428334383344833458334683347833488334983350833518335283353833548335583356833578335883359833608336183362833638336483365833668336783368833698337083371833728337383374833758337683377833788337983380833818338283383833848338583386833878338883389833908339183392833938339483395833968339783398833998340083401834028340383404834058340683407834088340983410834118341283413834148341583416834178341883419834208342183422834238342483425834268342783428834298343083431834328343383434834358343683437834388343983440834418344283443834448344583446834478344883449834508345183452834538345483455834568345783458834598346083461834628346383464834658346683467834688346983470834718347283473834748347583476834778347883479834808348183482834838348483485834868348783488834898349083491834928349383494834958349683497834988349983500835018350283503835048350583506835078350883509835108351183512835138351483515835168351783518835198352083521835228352383524835258352683527835288352983530835318353283533835348353583536835378353883539835408354183542835438354483545835468354783548835498355083551835528355383554835558355683557835588355983560835618356283563835648356583566835678356883569835708357183572835738357483575835768357783578835798358083581835828358383584835858358683587835888358983590835918359283593835948359583596835978359883599836008360183602836038360483605836068360783608836098361083611836128361383614836158361683617836188361983620836218362283623836248362583626836278362883629836308363183632836338363483635836368363783638836398364083641836428364383644836458364683647836488364983650836518365283653836548365583656836578365883659836608366183662836638366483665836668366783668836698367083671836728367383674836758367683677836788367983680836818368283683836848368583686836878368883689836908369183692836938369483695836968369783698836998370083701837028370383704837058370683707837088370983710837118371283713837148371583716837178371883719837208372183722837238372483725837268372783728837298373083731837328373383734837358373683737837388373983740837418374283743837448374583746837478374883749837508375183752837538375483755837568375783758837598376083761837628376383764837658376683767837688376983770837718377283773837748377583776837778377883779837808378183782837838378483785837868378783788837898379083791837928379383794837958379683797837988379983800838018380283803838048380583806838078380883809838108381183812838138381483815838168381783818838198382083821838228382383824838258382683827838288382983830838318383283833838348383583836838378383883839838408384183842838438384483845838468384783848838498385083851838528385383854838558385683857838588385983860838618386283863838648386583866838678386883869838708387183872838738387483875838768387783878838798388083881838828388383884838858388683887838888388983890838918389283893838948389583896838978389883899839008390183902839038390483905839068390783908839098391083911839128391383914839158391683917839188391983920839218392283923839248392583926839278392883929839308393183932839338393483935839368393783938839398394083941839428394383944839458394683947839488394983950839518395283953839548395583956839578395883959839608396183962839638396483965839668396783968839698397083971839728397383974839758397683977839788397983980839818398283983839848398583986839878398883989839908399183992839938399483995839968399783998839998400084001840028400384004840058400684007840088400984010840118401284013840148401584016840178401884019840208402184022840238402484025840268402784028840298403084031840328403384034840358403684037840388403984040840418404284043840448404584046840478404884049840508405184052840538405484055840568405784058840598406084061840628406384064840658406684067840688406984070840718407284073840748407584076840778407884079840808408184082840838408484085840868408784088840898409084091840928409384094840958409684097840988409984100841018410284103841048410584106841078410884109841108411184112841138411484115841168411784118841198412084121841228412384124841258412684127841288412984130841318413284133841348413584136841378413884139841408414184142841438414484145841468414784148841498415084151841528415384154841558415684157841588415984160841618416284163841648416584166841678416884169841708417184172841738417484175841768417784178841798418084181841828418384184841858418684187841888418984190841918419284193841948419584196841978419884199842008420184202842038420484205842068420784208842098421084211842128421384214842158421684217842188421984220842218422284223842248422584226842278422884229842308423184232842338423484235842368423784238842398424084241842428424384244842458424684247842488424984250842518425284253842548425584256842578425884259842608426184262842638426484265842668426784268842698427084271842728427384274842758427684277842788427984280842818428284283842848428584286842878428884289842908429184292842938429484295842968429784298842998430084301843028430384304843058430684307843088430984310843118431284313843148431584316843178431884319843208432184322843238432484325843268432784328843298433084331843328433384334843358433684337843388433984340843418434284343843448434584346843478434884349843508435184352843538435484355843568435784358843598436084361843628436384364843658436684367843688436984370843718437284373843748437584376843778437884379843808438184382843838438484385843868438784388843898439084391843928439384394843958439684397843988439984400844018440284403844048440584406844078440884409844108441184412844138441484415844168441784418844198442084421844228442384424844258442684427844288442984430844318443284433844348443584436844378443884439844408444184442844438444484445844468444784448844498445084451844528445384454844558445684457844588445984460844618446284463844648446584466844678446884469844708447184472844738447484475844768447784478844798448084481844828448384484844858448684487844888448984490844918449284493844948449584496844978449884499845008450184502845038450484505845068450784508845098451084511845128451384514845158451684517845188451984520845218452284523845248452584526845278452884529845308453184532845338453484535845368453784538845398454084541845428454384544845458454684547845488454984550845518455284553845548455584556845578455884559845608456184562845638456484565845668456784568845698457084571845728457384574845758457684577845788457984580845818458284583845848458584586845878458884589845908459184592845938459484595845968459784598845998460084601846028460384604846058460684607846088460984610846118461284613846148461584616846178461884619846208462184622846238462484625846268462784628846298463084631846328463384634846358463684637846388463984640846418464284643846448464584646846478464884649846508465184652846538465484655846568465784658846598466084661846628466384664846658466684667846688466984670846718467284673846748467584676846778467884679846808468184682846838468484685846868468784688846898469084691846928469384694846958469684697846988469984700847018470284703847048470584706847078470884709847108471184712847138471484715847168471784718847198472084721847228472384724847258472684727847288472984730847318473284733847348473584736847378473884739847408474184742847438474484745847468474784748847498475084751847528475384754847558475684757847588475984760847618476284763847648476584766847678476884769847708477184772847738477484775847768477784778847798478084781847828478384784847858478684787847888478984790847918479284793847948479584796847978479884799848008480184802848038480484805848068480784808848098481084811848128481384814848158481684817848188481984820848218482284823848248482584826848278482884829848308483184832848338483484835848368483784838848398484084841848428484384844848458484684847848488484984850848518485284853848548485584856848578485884859848608486184862848638486484865848668486784868848698487084871848728487384874848758487684877848788487984880848818488284883848848488584886848878488884889848908489184892848938489484895848968489784898848998490084901849028490384904849058490684907849088490984910849118491284913849148491584916849178491884919849208492184922849238492484925849268492784928849298493084931849328493384934849358493684937849388493984940849418494284943849448494584946849478494884949849508495184952849538495484955849568495784958849598496084961849628496384964849658496684967849688496984970849718497284973849748497584976849778497884979849808498184982849838498484985849868498784988849898499084991849928499384994849958499684997849988499985000850018500285003850048500585006850078500885009850108501185012850138501485015850168501785018850198502085021850228502385024850258502685027850288502985030850318503285033850348503585036850378503885039850408504185042850438504485045850468504785048850498505085051850528505385054850558505685057850588505985060850618506285063850648506585066850678506885069850708507185072850738507485075850768507785078850798508085081850828508385084850858508685087850888508985090850918509285093850948509585096850978509885099851008510185102851038510485105851068510785108851098511085111851128511385114851158511685117851188511985120851218512285123851248512585126851278512885129851308513185132851338513485135851368513785138851398514085141851428514385144851458514685147851488514985150851518515285153851548515585156851578515885159851608516185162851638516485165851668516785168851698517085171851728517385174851758517685177851788517985180851818518285183851848518585186851878518885189851908519185192851938519485195851968519785198851998520085201852028520385204852058520685207852088520985210852118521285213852148521585216852178521885219852208522185222852238522485225852268522785228852298523085231852328523385234852358523685237852388523985240852418524285243852448524585246852478524885249852508525185252852538525485255852568525785258852598526085261852628526385264852658526685267852688526985270852718527285273852748527585276852778527885279852808528185282852838528485285852868528785288852898529085291852928529385294852958529685297852988529985300853018530285303853048530585306853078530885309853108531185312853138531485315853168531785318853198532085321853228532385324853258532685327853288532985330853318533285333853348533585336853378533885339853408534185342853438534485345853468534785348853498535085351853528535385354853558535685357853588535985360853618536285363853648536585366853678536885369853708537185372853738537485375853768537785378853798538085381853828538385384853858538685387853888538985390853918539285393853948539585396853978539885399854008540185402854038540485405854068540785408854098541085411854128541385414854158541685417854188541985420854218542285423854248542585426854278542885429854308543185432854338543485435854368543785438854398544085441854428544385444854458544685447854488544985450854518545285453854548545585456854578545885459854608546185462854638546485465854668546785468854698547085471854728547385474854758547685477854788547985480854818548285483854848548585486854878548885489854908549185492854938549485495854968549785498854998550085501855028550385504855058550685507855088550985510855118551285513855148551585516855178551885519855208552185522855238552485525855268552785528855298553085531855328553385534855358553685537855388553985540855418554285543855448554585546855478554885549855508555185552855538555485555855568555785558855598556085561855628556385564855658556685567855688556985570855718557285573855748557585576855778557885579855808558185582855838558485585855868558785588855898559085591855928559385594855958559685597855988559985600856018560285603856048560585606856078560885609856108561185612856138561485615856168561785618856198562085621856228562385624856258562685627856288562985630856318563285633856348563585636856378563885639856408564185642856438564485645856468564785648856498565085651856528565385654856558565685657856588565985660856618566285663856648566585666856678566885669856708567185672856738567485675856768567785678856798568085681856828568385684856858568685687856888568985690856918569285693856948569585696856978569885699857008570185702857038570485705857068570785708857098571085711857128571385714857158571685717857188571985720857218572285723857248572585726857278572885729857308573185732857338573485735857368573785738857398574085741857428574385744857458574685747857488574985750857518575285753857548575585756857578575885759857608576185762857638576485765857668576785768857698577085771857728577385774857758577685777857788577985780857818578285783857848578585786857878578885789857908579185792857938579485795857968579785798857998580085801858028580385804858058580685807858088580985810858118581285813858148581585816858178581885819858208582185822858238582485825858268582785828858298583085831858328583385834858358583685837858388583985840858418584285843858448584585846858478584885849858508585185852858538585485855858568585785858858598586085861858628586385864858658586685867858688586985870858718587285873858748587585876858778587885879858808588185882858838588485885858868588785888858898589085891858928589385894858958589685897858988589985900859018590285903859048590585906859078590885909859108591185912859138591485915859168591785918859198592085921859228592385924859258592685927859288592985930859318593285933859348593585936859378593885939859408594185942859438594485945859468594785948859498595085951859528595385954859558595685957859588595985960859618596285963859648596585966859678596885969859708597185972859738597485975859768597785978859798598085981859828598385984859858598685987859888598985990859918599285993859948599585996859978599885999860008600186002860038600486005860068600786008860098601086011860128601386014860158601686017860188601986020860218602286023860248602586026860278602886029860308603186032860338603486035860368603786038860398604086041860428604386044860458604686047860488604986050860518605286053860548605586056860578605886059860608606186062860638606486065860668606786068860698607086071860728607386074860758607686077860788607986080860818608286083860848608586086860878608886089860908609186092860938609486095860968609786098860998610086101861028610386104861058610686107861088610986110861118611286113861148611586116861178611886119861208612186122861238612486125861268612786128861298613086131861328613386134861358613686137861388613986140861418614286143861448614586146861478614886149861508615186152861538615486155861568615786158861598616086161861628616386164861658616686167861688616986170861718617286173861748617586176861778617886179861808618186182861838618486185861868618786188861898619086191861928619386194861958619686197861988619986200862018620286203862048620586206862078620886209862108621186212862138621486215862168621786218862198622086221862228622386224862258622686227862288622986230862318623286233862348623586236862378623886239862408624186242862438624486245862468624786248862498625086251862528625386254862558625686257862588625986260862618626286263862648626586266862678626886269862708627186272862738627486275862768627786278862798628086281862828628386284862858628686287862888628986290862918629286293862948629586296862978629886299863008630186302863038630486305863068630786308863098631086311863128631386314863158631686317863188631986320863218632286323863248632586326863278632886329863308633186332863338633486335863368633786338863398634086341863428634386344863458634686347863488634986350863518635286353863548635586356863578635886359863608636186362863638636486365863668636786368863698637086371863728637386374863758637686377863788637986380863818638286383863848638586386863878638886389863908639186392863938639486395863968639786398863998640086401864028640386404864058640686407864088640986410864118641286413864148641586416864178641886419864208642186422864238642486425864268642786428864298643086431864328643386434864358643686437864388643986440864418644286443864448644586446864478644886449864508645186452864538645486455864568645786458864598646086461864628646386464864658646686467864688646986470864718647286473864748647586476864778647886479864808648186482864838648486485864868648786488864898649086491864928649386494864958649686497864988649986500865018650286503865048650586506865078650886509865108651186512865138651486515865168651786518865198652086521865228652386524865258652686527865288652986530865318653286533865348653586536865378653886539865408654186542865438654486545865468654786548865498655086551865528655386554865558655686557865588655986560865618656286563865648656586566865678656886569865708657186572865738657486575865768657786578865798658086581865828658386584865858658686587865888658986590865918659286593865948659586596865978659886599866008660186602866038660486605866068660786608866098661086611866128661386614866158661686617866188661986620
  1. unit pic32mx534f064l;
  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. TI2C1A_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. TI2C1A_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. TI2C1A_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. TI2C1A_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. TI2C1ARegisters = record
  1832. I2C1ACONbits : TI2C1A_I2C1ACON;
  1833. I2C1ACON : longWord;
  1834. I2C3CONbits : TI2C1A_I2C3CON;
  1835. I2C3CON : longWord;
  1836. I2C1ACONCLR : longWord;
  1837. I2C3CONCLR : longWord;
  1838. I2C1ACONSET : longWord;
  1839. I2C3CONSET : longWord;
  1840. I2C1ACONINV : longWord;
  1841. I2C3CONINV : longWord;
  1842. I2C1ASTATbits : TI2C1A_I2C1ASTAT;
  1843. I2C1ASTAT : longWord;
  1844. I2C3STATbits : TI2C1A_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. TSPI1A_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. TSPI1A_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. TSPI1A_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. TSPI1A_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. TSPI1ARegisters = record
  3415. SPI1ACONbits : TSPI1A_SPI1ACON;
  3416. SPI1ACON : longWord;
  3417. SPI3CONbits : TSPI1A_SPI3CON;
  3418. SPI3CON : longWord;
  3419. SPI1ACONCLR : longWord;
  3420. SPI3CONCLR : longWord;
  3421. SPI1ACONSET : longWord;
  3422. SPI3CONSET : longWord;
  3423. SPI1ACONINV : longWord;
  3424. SPI3CONINV : longWord;
  3425. SPI1ASTATbits : TSPI1A_SPI1ASTAT;
  3426. SPI1ASTAT : longWord;
  3427. SPI3STATbits : TSPI1A_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. TUART6_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. TUART6_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. TUART6_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. TUART6_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. TUART6Registers = record
  5911. U2BMODEbits : TUART6_U2BMODE;
  5912. U2BMODE : longWord;
  5913. U6MODEbits : TUART6_U6MODE;
  5914. U6MODE : longWord;
  5915. U2BMODECLR : longWord;
  5916. U6MODECLR : longWord;
  5917. U2BMODESET : longWord;
  5918. U6MODESET : longWord;
  5919. U2BMODEINV : longWord;
  5920. U6MODEINV : longWord;
  5921. U2BSTAbits : TUART6_U2BSTA;
  5922. U2BSTA : longWord;
  5923. U6STAbits : TUART6_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. TUART3A_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. TUART3A_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. TUART3A_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. TUART3A_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. TUART3ARegisters = record
  6340. U2MODEbits : TUART3A_U2MODE;
  6341. U2MODE : longWord;
  6342. U3AMODEbits : TUART3A_U3AMODE;
  6343. U3AMODE : longWord;
  6344. U2MODECLR : longWord;
  6345. U3AMODECLR : longWord;
  6346. U2MODESET : longWord;
  6347. U3AMODESET : longWord;
  6348. U2MODEINV : longWord;
  6349. U3AMODEINV : longWord;
  6350. U2STAbits : TUART3A_U2STA;
  6351. U2STA : longWord;
  6352. U3ASTAbits : TUART3A_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. TUART3B_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. TUART3B_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. TUART3B_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. TUART3B_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. TUART3BRegisters = record
  6733. U3BMODEbits : TUART3B_U3BMODE;
  6734. U3BMODE : longWord;
  6735. U5MODEbits : TUART3B_U5MODE;
  6736. U5MODE : longWord;
  6737. U3BMODECLR : longWord;
  6738. U5MODECLR : longWord;
  6739. U3BMODESET : longWord;
  6740. U5MODESET : longWord;
  6741. U3BMODEINV : longWord;
  6742. U5MODEINV : longWord;
  6743. U3BSTAbits : TUART3B_U3BSTA;
  6744. U3BSTA : longWord;
  6745. U5STAbits : TUART3B_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 getFCEIF : TBits_1; inline;
  8681. function getFSCMIF : TBits_1; inline;
  8682. function getI2C2ABIF : TBits_1; inline;
  8683. function getI2C2AMIF : TBits_1; inline;
  8684. function getI2C2ASIF : TBits_1; inline;
  8685. function getI2C2BIF : TBits_1; inline;
  8686. function getI2C2MIF : TBits_1; inline;
  8687. function getI2C2SIF : TBits_1; inline;
  8688. function getI2C3ABIF : TBits_1; inline;
  8689. function getI2C3AMIF : TBits_1; inline;
  8690. function getI2C3ASIF : TBits_1; inline;
  8691. function getI2C4BIF : TBits_1; inline;
  8692. function getI2C4MIF : TBits_1; inline;
  8693. function getI2C4SIF : TBits_1; inline;
  8694. function getI2C5BIF : TBits_1; inline;
  8695. function getI2C5MIF : TBits_1; inline;
  8696. function getI2C5SIF : TBits_1; inline;
  8697. function getIC1EIF : TBits_1; inline;
  8698. function getIC2EIF : TBits_1; inline;
  8699. function getIC3EIF : TBits_1; inline;
  8700. function getPMPIF : TBits_1; inline;
  8701. function getRTCCIF : TBits_1; inline;
  8702. function getSPI2AEIF : TBits_1; inline;
  8703. function getSPI2ARXIF : TBits_1; inline;
  8704. function getSPI2ATXIF : TBits_1; inline;
  8705. function getSPI2EIF : TBits_1; inline;
  8706. function getSPI2RXIF : TBits_1; inline;
  8707. function getSPI2TXIF : TBits_1; inline;
  8708. function getSPI3AEIF : TBits_1; inline;
  8709. function getSPI3ARXIF : TBits_1; inline;
  8710. function getSPI3ATXIF : TBits_1; inline;
  8711. function getSPI4EIF : TBits_1; inline;
  8712. function getSPI4RXIF : TBits_1; inline;
  8713. function getSPI4TXIF : TBits_1; inline;
  8714. function getU2AEIF : TBits_1; inline;
  8715. function getU2ARXIF : TBits_1; inline;
  8716. function getU2ATXIF : TBits_1; inline;
  8717. function getU2EIF : TBits_1; inline;
  8718. function getU2RXIF : TBits_1; inline;
  8719. function getU2TXIF : TBits_1; inline;
  8720. function getU3AEIF : TBits_1; inline;
  8721. function getU3ARXIF : TBits_1; inline;
  8722. function getU3ATXIF : TBits_1; inline;
  8723. function getU3EIF : TBits_1; inline;
  8724. function getU3RXIF : TBits_1; inline;
  8725. function getU3TXIF : TBits_1; inline;
  8726. function getUSBIF : TBits_1; inline;
  8727. function getw : TBits_32; inline;
  8728. procedure setAD1IF(thebits : TBits_1); inline;
  8729. procedure setCAN1IF(thebits : TBits_1); inline;
  8730. procedure setCMP1IF(thebits : TBits_1); inline;
  8731. procedure setCMP2IF(thebits : TBits_1); inline;
  8732. procedure setCNIF(thebits : TBits_1); inline;
  8733. procedure setDMA0IF(thebits : TBits_1); inline;
  8734. procedure setDMA1IF(thebits : TBits_1); inline;
  8735. procedure setDMA2IF(thebits : TBits_1); inline;
  8736. procedure setDMA3IF(thebits : TBits_1); inline;
  8737. procedure setFCEIF(thebits : TBits_1); inline;
  8738. procedure setFSCMIF(thebits : TBits_1); inline;
  8739. procedure setI2C2ABIF(thebits : TBits_1); inline;
  8740. procedure setI2C2AMIF(thebits : TBits_1); inline;
  8741. procedure setI2C2ASIF(thebits : TBits_1); inline;
  8742. procedure setI2C2BIF(thebits : TBits_1); inline;
  8743. procedure setI2C2MIF(thebits : TBits_1); inline;
  8744. procedure setI2C2SIF(thebits : TBits_1); inline;
  8745. procedure setI2C3ABIF(thebits : TBits_1); inline;
  8746. procedure setI2C3AMIF(thebits : TBits_1); inline;
  8747. procedure setI2C3ASIF(thebits : TBits_1); inline;
  8748. procedure setI2C4BIF(thebits : TBits_1); inline;
  8749. procedure setI2C4MIF(thebits : TBits_1); inline;
  8750. procedure setI2C4SIF(thebits : TBits_1); inline;
  8751. procedure setI2C5BIF(thebits : TBits_1); inline;
  8752. procedure setI2C5MIF(thebits : TBits_1); inline;
  8753. procedure setI2C5SIF(thebits : TBits_1); inline;
  8754. procedure setIC1EIF(thebits : TBits_1); inline;
  8755. procedure setIC2EIF(thebits : TBits_1); inline;
  8756. procedure setIC3EIF(thebits : TBits_1); inline;
  8757. procedure setPMPIF(thebits : TBits_1); inline;
  8758. procedure setRTCCIF(thebits : TBits_1); inline;
  8759. procedure setSPI2AEIF(thebits : TBits_1); inline;
  8760. procedure setSPI2ARXIF(thebits : TBits_1); inline;
  8761. procedure setSPI2ATXIF(thebits : TBits_1); inline;
  8762. procedure setSPI2EIF(thebits : TBits_1); inline;
  8763. procedure setSPI2RXIF(thebits : TBits_1); inline;
  8764. procedure setSPI2TXIF(thebits : TBits_1); inline;
  8765. procedure setSPI3AEIF(thebits : TBits_1); inline;
  8766. procedure setSPI3ARXIF(thebits : TBits_1); inline;
  8767. procedure setSPI3ATXIF(thebits : TBits_1); inline;
  8768. procedure setSPI4EIF(thebits : TBits_1); inline;
  8769. procedure setSPI4RXIF(thebits : TBits_1); inline;
  8770. procedure setSPI4TXIF(thebits : TBits_1); inline;
  8771. procedure setU2AEIF(thebits : TBits_1); inline;
  8772. procedure setU2ARXIF(thebits : TBits_1); inline;
  8773. procedure setU2ATXIF(thebits : TBits_1); inline;
  8774. procedure setU2EIF(thebits : TBits_1); inline;
  8775. procedure setU2RXIF(thebits : TBits_1); inline;
  8776. procedure setU2TXIF(thebits : TBits_1); inline;
  8777. procedure setU3AEIF(thebits : TBits_1); inline;
  8778. procedure setU3ARXIF(thebits : TBits_1); inline;
  8779. procedure setU3ATXIF(thebits : TBits_1); inline;
  8780. procedure setU3EIF(thebits : TBits_1); inline;
  8781. procedure setU3RXIF(thebits : TBits_1); inline;
  8782. procedure setU3TXIF(thebits : TBits_1); inline;
  8783. procedure setUSBIF(thebits : TBits_1); inline;
  8784. procedure setw(thebits : TBits_32); inline;
  8785. public
  8786. procedure clearAD1IF; inline;
  8787. procedure clearCAN1IF; inline;
  8788. procedure clearCMP1IF; inline;
  8789. procedure clearCMP2IF; inline;
  8790. procedure clearCNIF; inline;
  8791. procedure clearDMA0IF; inline;
  8792. procedure clearDMA1IF; inline;
  8793. procedure clearDMA2IF; inline;
  8794. procedure clearDMA3IF; inline;
  8795. procedure clearFCEIF; inline;
  8796. procedure clearFSCMIF; inline;
  8797. procedure clearI2C2ABIF; inline;
  8798. procedure clearI2C2AMIF; inline;
  8799. procedure clearI2C2ASIF; inline;
  8800. procedure clearI2C2BIF; inline;
  8801. procedure clearI2C2MIF; inline;
  8802. procedure clearI2C2SIF; inline;
  8803. procedure clearI2C3ABIF; inline;
  8804. procedure clearI2C3AMIF; inline;
  8805. procedure clearI2C3ASIF; inline;
  8806. procedure clearI2C4BIF; inline;
  8807. procedure clearI2C4MIF; inline;
  8808. procedure clearI2C4SIF; inline;
  8809. procedure clearI2C5BIF; inline;
  8810. procedure clearI2C5MIF; inline;
  8811. procedure clearI2C5SIF; inline;
  8812. procedure clearIC1EIF; inline;
  8813. procedure clearIC2EIF; inline;
  8814. procedure clearIC3EIF; inline;
  8815. procedure clearPMPIF; inline;
  8816. procedure clearRTCCIF; inline;
  8817. procedure clearSPI2AEIF; inline;
  8818. procedure clearSPI2ARXIF; inline;
  8819. procedure clearSPI2ATXIF; inline;
  8820. procedure clearSPI2EIF; inline;
  8821. procedure clearSPI2RXIF; inline;
  8822. procedure clearSPI2TXIF; inline;
  8823. procedure clearSPI3AEIF; inline;
  8824. procedure clearSPI3ARXIF; inline;
  8825. procedure clearSPI3ATXIF; inline;
  8826. procedure clearSPI4EIF; inline;
  8827. procedure clearSPI4RXIF; inline;
  8828. procedure clearSPI4TXIF; inline;
  8829. procedure clearU2AEIF; inline;
  8830. procedure clearU2ARXIF; inline;
  8831. procedure clearU2ATXIF; inline;
  8832. procedure clearU2EIF; inline;
  8833. procedure clearU2RXIF; inline;
  8834. procedure clearU2TXIF; inline;
  8835. procedure clearU3AEIF; inline;
  8836. procedure clearU3ARXIF; inline;
  8837. procedure clearU3ATXIF; inline;
  8838. procedure clearU3EIF; inline;
  8839. procedure clearU3RXIF; inline;
  8840. procedure clearU3TXIF; inline;
  8841. procedure clearUSBIF; inline;
  8842. procedure setAD1IF; inline;
  8843. procedure setCAN1IF; inline;
  8844. procedure setCMP1IF; inline;
  8845. procedure setCMP2IF; inline;
  8846. procedure setCNIF; inline;
  8847. procedure setDMA0IF; inline;
  8848. procedure setDMA1IF; inline;
  8849. procedure setDMA2IF; inline;
  8850. procedure setDMA3IF; inline;
  8851. procedure setFCEIF; inline;
  8852. procedure setFSCMIF; inline;
  8853. procedure setI2C2ABIF; inline;
  8854. procedure setI2C2AMIF; inline;
  8855. procedure setI2C2ASIF; inline;
  8856. procedure setI2C2BIF; inline;
  8857. procedure setI2C2MIF; inline;
  8858. procedure setI2C2SIF; inline;
  8859. procedure setI2C3ABIF; inline;
  8860. procedure setI2C3AMIF; inline;
  8861. procedure setI2C3ASIF; inline;
  8862. procedure setI2C4BIF; inline;
  8863. procedure setI2C4MIF; inline;
  8864. procedure setI2C4SIF; inline;
  8865. procedure setI2C5BIF; inline;
  8866. procedure setI2C5MIF; inline;
  8867. procedure setI2C5SIF; inline;
  8868. procedure setIC1EIF; inline;
  8869. procedure setIC2EIF; inline;
  8870. procedure setIC3EIF; inline;
  8871. procedure setPMPIF; inline;
  8872. procedure setRTCCIF; inline;
  8873. procedure setSPI2AEIF; inline;
  8874. procedure setSPI2ARXIF; inline;
  8875. procedure setSPI2ATXIF; inline;
  8876. procedure setSPI2EIF; inline;
  8877. procedure setSPI2RXIF; inline;
  8878. procedure setSPI2TXIF; inline;
  8879. procedure setSPI3AEIF; inline;
  8880. procedure setSPI3ARXIF; inline;
  8881. procedure setSPI3ATXIF; inline;
  8882. procedure setSPI4EIF; inline;
  8883. procedure setSPI4RXIF; inline;
  8884. procedure setSPI4TXIF; inline;
  8885. procedure setU2AEIF; inline;
  8886. procedure setU2ARXIF; inline;
  8887. procedure setU2ATXIF; inline;
  8888. procedure setU2EIF; inline;
  8889. procedure setU2RXIF; inline;
  8890. procedure setU2TXIF; inline;
  8891. procedure setU3AEIF; inline;
  8892. procedure setU3ARXIF; inline;
  8893. procedure setU3ATXIF; inline;
  8894. procedure setU3EIF; inline;
  8895. procedure setU3RXIF; inline;
  8896. procedure setU3TXIF; inline;
  8897. procedure setUSBIF; inline;
  8898. property AD1IF : TBits_1 read getAD1IF write setAD1IF;
  8899. property CAN1IF : TBits_1 read getCAN1IF write setCAN1IF;
  8900. property CMP1IF : TBits_1 read getCMP1IF write setCMP1IF;
  8901. property CMP2IF : TBits_1 read getCMP2IF write setCMP2IF;
  8902. property CNIF : TBits_1 read getCNIF write setCNIF;
  8903. property DMA0IF : TBits_1 read getDMA0IF write setDMA0IF;
  8904. property DMA1IF : TBits_1 read getDMA1IF write setDMA1IF;
  8905. property DMA2IF : TBits_1 read getDMA2IF write setDMA2IF;
  8906. property DMA3IF : TBits_1 read getDMA3IF write setDMA3IF;
  8907. property FCEIF : TBits_1 read getFCEIF write setFCEIF;
  8908. property FSCMIF : TBits_1 read getFSCMIF write setFSCMIF;
  8909. property I2C2ABIF : TBits_1 read getI2C2ABIF write setI2C2ABIF;
  8910. property I2C2AMIF : TBits_1 read getI2C2AMIF write setI2C2AMIF;
  8911. property I2C2ASIF : TBits_1 read getI2C2ASIF write setI2C2ASIF;
  8912. property I2C2BIF : TBits_1 read getI2C2BIF write setI2C2BIF;
  8913. property I2C2MIF : TBits_1 read getI2C2MIF write setI2C2MIF;
  8914. property I2C2SIF : TBits_1 read getI2C2SIF write setI2C2SIF;
  8915. property I2C3ABIF : TBits_1 read getI2C3ABIF write setI2C3ABIF;
  8916. property I2C3AMIF : TBits_1 read getI2C3AMIF write setI2C3AMIF;
  8917. property I2C3ASIF : TBits_1 read getI2C3ASIF write setI2C3ASIF;
  8918. property I2C4BIF : TBits_1 read getI2C4BIF write setI2C4BIF;
  8919. property I2C4MIF : TBits_1 read getI2C4MIF write setI2C4MIF;
  8920. property I2C4SIF : TBits_1 read getI2C4SIF write setI2C4SIF;
  8921. property I2C5BIF : TBits_1 read getI2C5BIF write setI2C5BIF;
  8922. property I2C5MIF : TBits_1 read getI2C5MIF write setI2C5MIF;
  8923. property I2C5SIF : TBits_1 read getI2C5SIF write setI2C5SIF;
  8924. property IC1EIF : TBits_1 read getIC1EIF write setIC1EIF;
  8925. property IC2EIF : TBits_1 read getIC2EIF write setIC2EIF;
  8926. property IC3EIF : TBits_1 read getIC3EIF write setIC3EIF;
  8927. property PMPIF : TBits_1 read getPMPIF write setPMPIF;
  8928. property RTCCIF : TBits_1 read getRTCCIF write setRTCCIF;
  8929. property SPI2AEIF : TBits_1 read getSPI2AEIF write setSPI2AEIF;
  8930. property SPI2ARXIF : TBits_1 read getSPI2ARXIF write setSPI2ARXIF;
  8931. property SPI2ATXIF : TBits_1 read getSPI2ATXIF write setSPI2ATXIF;
  8932. property SPI2EIF : TBits_1 read getSPI2EIF write setSPI2EIF;
  8933. property SPI2RXIF : TBits_1 read getSPI2RXIF write setSPI2RXIF;
  8934. property SPI2TXIF : TBits_1 read getSPI2TXIF write setSPI2TXIF;
  8935. property SPI3AEIF : TBits_1 read getSPI3AEIF write setSPI3AEIF;
  8936. property SPI3ARXIF : TBits_1 read getSPI3ARXIF write setSPI3ARXIF;
  8937. property SPI3ATXIF : TBits_1 read getSPI3ATXIF write setSPI3ATXIF;
  8938. property SPI4EIF : TBits_1 read getSPI4EIF write setSPI4EIF;
  8939. property SPI4RXIF : TBits_1 read getSPI4RXIF write setSPI4RXIF;
  8940. property SPI4TXIF : TBits_1 read getSPI4TXIF write setSPI4TXIF;
  8941. property U2AEIF : TBits_1 read getU2AEIF write setU2AEIF;
  8942. property U2ARXIF : TBits_1 read getU2ARXIF write setU2ARXIF;
  8943. property U2ATXIF : TBits_1 read getU2ATXIF write setU2ATXIF;
  8944. property U2EIF : TBits_1 read getU2EIF write setU2EIF;
  8945. property U2RXIF : TBits_1 read getU2RXIF write setU2RXIF;
  8946. property U2TXIF : TBits_1 read getU2TXIF write setU2TXIF;
  8947. property U3AEIF : TBits_1 read getU3AEIF write setU3AEIF;
  8948. property U3ARXIF : TBits_1 read getU3ARXIF write setU3ARXIF;
  8949. property U3ATXIF : TBits_1 read getU3ATXIF write setU3ATXIF;
  8950. property U3EIF : TBits_1 read getU3EIF write setU3EIF;
  8951. property U3RXIF : TBits_1 read getU3RXIF write setU3RXIF;
  8952. property U3TXIF : TBits_1 read getU3TXIF write setU3TXIF;
  8953. property USBIF : TBits_1 read getUSBIF write setUSBIF;
  8954. property w : TBits_32 read getw write setw;
  8955. end;
  8956. TINT_IFS2 = record
  8957. private
  8958. function getIC4EIF : TBits_1; inline;
  8959. function getIC5EIF : TBits_1; inline;
  8960. function getPMPEIF : TBits_1; inline;
  8961. function getU1BEIF : TBits_1; inline;
  8962. function getU1BRXIF : TBits_1; inline;
  8963. function getU1BTXIF : TBits_1; inline;
  8964. function getU2BEIF : TBits_1; inline;
  8965. function getU2BRXIF : TBits_1; inline;
  8966. function getU2BTXIF : TBits_1; inline;
  8967. function getU3BEIF : TBits_1; inline;
  8968. function getU3BRXIF : TBits_1; inline;
  8969. function getU3BTXIF : TBits_1; inline;
  8970. function getU4EIF : TBits_1; inline;
  8971. function getU4RXIF : TBits_1; inline;
  8972. function getU4TXIF : TBits_1; inline;
  8973. function getU5EIF : TBits_1; inline;
  8974. function getU5RXIF : TBits_1; inline;
  8975. function getU5TXIF : TBits_1; inline;
  8976. function getU6EIF : TBits_1; inline;
  8977. function getU6RXIF : TBits_1; inline;
  8978. function getU6TXIF : TBits_1; inline;
  8979. function getw : TBits_32; inline;
  8980. procedure setIC4EIF(thebits : TBits_1); inline;
  8981. procedure setIC5EIF(thebits : TBits_1); inline;
  8982. procedure setPMPEIF(thebits : TBits_1); inline;
  8983. procedure setU1BEIF(thebits : TBits_1); inline;
  8984. procedure setU1BRXIF(thebits : TBits_1); inline;
  8985. procedure setU1BTXIF(thebits : TBits_1); inline;
  8986. procedure setU2BEIF(thebits : TBits_1); inline;
  8987. procedure setU2BRXIF(thebits : TBits_1); inline;
  8988. procedure setU2BTXIF(thebits : TBits_1); inline;
  8989. procedure setU3BEIF(thebits : TBits_1); inline;
  8990. procedure setU3BRXIF(thebits : TBits_1); inline;
  8991. procedure setU3BTXIF(thebits : TBits_1); inline;
  8992. procedure setU4EIF(thebits : TBits_1); inline;
  8993. procedure setU4RXIF(thebits : TBits_1); inline;
  8994. procedure setU4TXIF(thebits : TBits_1); inline;
  8995. procedure setU5EIF(thebits : TBits_1); inline;
  8996. procedure setU5RXIF(thebits : TBits_1); inline;
  8997. procedure setU5TXIF(thebits : TBits_1); inline;
  8998. procedure setU6EIF(thebits : TBits_1); inline;
  8999. procedure setU6RXIF(thebits : TBits_1); inline;
  9000. procedure setU6TXIF(thebits : TBits_1); inline;
  9001. procedure setw(thebits : TBits_32); inline;
  9002. public
  9003. procedure clearIC4EIF; inline;
  9004. procedure clearIC5EIF; inline;
  9005. procedure clearPMPEIF; inline;
  9006. procedure clearU1BEIF; inline;
  9007. procedure clearU1BRXIF; inline;
  9008. procedure clearU1BTXIF; inline;
  9009. procedure clearU2BEIF; inline;
  9010. procedure clearU2BRXIF; inline;
  9011. procedure clearU2BTXIF; inline;
  9012. procedure clearU3BEIF; inline;
  9013. procedure clearU3BRXIF; inline;
  9014. procedure clearU3BTXIF; inline;
  9015. procedure clearU4EIF; inline;
  9016. procedure clearU4RXIF; inline;
  9017. procedure clearU4TXIF; inline;
  9018. procedure clearU5EIF; inline;
  9019. procedure clearU5RXIF; inline;
  9020. procedure clearU5TXIF; inline;
  9021. procedure clearU6EIF; inline;
  9022. procedure clearU6RXIF; inline;
  9023. procedure clearU6TXIF; inline;
  9024. procedure setIC4EIF; inline;
  9025. procedure setIC5EIF; inline;
  9026. procedure setPMPEIF; inline;
  9027. procedure setU1BEIF; inline;
  9028. procedure setU1BRXIF; inline;
  9029. procedure setU1BTXIF; inline;
  9030. procedure setU2BEIF; inline;
  9031. procedure setU2BRXIF; inline;
  9032. procedure setU2BTXIF; inline;
  9033. procedure setU3BEIF; inline;
  9034. procedure setU3BRXIF; inline;
  9035. procedure setU3BTXIF; inline;
  9036. procedure setU4EIF; inline;
  9037. procedure setU4RXIF; inline;
  9038. procedure setU4TXIF; inline;
  9039. procedure setU5EIF; inline;
  9040. procedure setU5RXIF; inline;
  9041. procedure setU5TXIF; inline;
  9042. procedure setU6EIF; inline;
  9043. procedure setU6RXIF; inline;
  9044. procedure setU6TXIF; inline;
  9045. property IC4EIF : TBits_1 read getIC4EIF write setIC4EIF;
  9046. property IC5EIF : TBits_1 read getIC5EIF write setIC5EIF;
  9047. property PMPEIF : TBits_1 read getPMPEIF write setPMPEIF;
  9048. property U1BEIF : TBits_1 read getU1BEIF write setU1BEIF;
  9049. property U1BRXIF : TBits_1 read getU1BRXIF write setU1BRXIF;
  9050. property U1BTXIF : TBits_1 read getU1BTXIF write setU1BTXIF;
  9051. property U2BEIF : TBits_1 read getU2BEIF write setU2BEIF;
  9052. property U2BRXIF : TBits_1 read getU2BRXIF write setU2BRXIF;
  9053. property U2BTXIF : TBits_1 read getU2BTXIF write setU2BTXIF;
  9054. property U3BEIF : TBits_1 read getU3BEIF write setU3BEIF;
  9055. property U3BRXIF : TBits_1 read getU3BRXIF write setU3BRXIF;
  9056. property U3BTXIF : TBits_1 read getU3BTXIF write setU3BTXIF;
  9057. property U4EIF : TBits_1 read getU4EIF write setU4EIF;
  9058. property U4RXIF : TBits_1 read getU4RXIF write setU4RXIF;
  9059. property U4TXIF : TBits_1 read getU4TXIF write setU4TXIF;
  9060. property U5EIF : TBits_1 read getU5EIF write setU5EIF;
  9061. property U5RXIF : TBits_1 read getU5RXIF write setU5RXIF;
  9062. property U5TXIF : TBits_1 read getU5TXIF write setU5TXIF;
  9063. property U6EIF : TBits_1 read getU6EIF write setU6EIF;
  9064. property U6RXIF : TBits_1 read getU6RXIF write setU6RXIF;
  9065. property U6TXIF : TBits_1 read getU6TXIF write setU6TXIF;
  9066. property w : TBits_32 read getw write setw;
  9067. end;
  9068. TINT_IEC0 = record
  9069. private
  9070. function getCS0IE : TBits_1; inline;
  9071. function getCS1IE : TBits_1; inline;
  9072. function getCTIE : TBits_1; inline;
  9073. function getI2C1ABIE : TBits_1; inline;
  9074. function getI2C1AMIE : TBits_1; inline;
  9075. function getI2C1ASIE : TBits_1; inline;
  9076. function getI2C1BIE : TBits_1; inline;
  9077. function getI2C1MIE : TBits_1; inline;
  9078. function getI2C1SIE : TBits_1; inline;
  9079. function getI2C3BIE : TBits_1; inline;
  9080. function getI2C3MIE : TBits_1; inline;
  9081. function getI2C3SIE : TBits_1; inline;
  9082. function getIC1IE : TBits_1; inline;
  9083. function getIC2IE : TBits_1; inline;
  9084. function getIC3IE : TBits_1; inline;
  9085. function getIC4IE : TBits_1; inline;
  9086. function getIC5IE : TBits_1; inline;
  9087. function getINT0IE : TBits_1; inline;
  9088. function getINT1IE : TBits_1; inline;
  9089. function getINT2IE : TBits_1; inline;
  9090. function getINT3IE : TBits_1; inline;
  9091. function getINT4IE : TBits_1; inline;
  9092. function getOC1IE : TBits_1; inline;
  9093. function getOC2IE : TBits_1; inline;
  9094. function getOC3IE : TBits_1; inline;
  9095. function getOC4IE : TBits_1; inline;
  9096. function getOC5IE : TBits_1; inline;
  9097. function getSPI1AEIE : TBits_1; inline;
  9098. function getSPI1ARXIE : TBits_1; inline;
  9099. function getSPI1ATXIE : TBits_1; inline;
  9100. function getSPI1EIE : TBits_1; inline;
  9101. function getSPI1RXIE : TBits_1; inline;
  9102. function getSPI1TXIE : TBits_1; inline;
  9103. function getSPI3EIE : TBits_1; inline;
  9104. function getSPI3RXIE : TBits_1; inline;
  9105. function getSPI3TXIE : TBits_1; inline;
  9106. function getT1IE : TBits_1; inline;
  9107. function getT2IE : TBits_1; inline;
  9108. function getT3IE : TBits_1; inline;
  9109. function getT4IE : TBits_1; inline;
  9110. function getT5IE : TBits_1; inline;
  9111. function getU1AEIE : TBits_1; inline;
  9112. function getU1ARXIE : TBits_1; inline;
  9113. function getU1ATXIE : TBits_1; inline;
  9114. function getU1EIE : TBits_1; inline;
  9115. function getU1RXIE : TBits_1; inline;
  9116. function getU1TXIE : TBits_1; inline;
  9117. function getw : TBits_32; inline;
  9118. procedure setCS0IE(thebits : TBits_1); inline;
  9119. procedure setCS1IE(thebits : TBits_1); inline;
  9120. procedure setCTIE(thebits : TBits_1); inline;
  9121. procedure setI2C1ABIE(thebits : TBits_1); inline;
  9122. procedure setI2C1AMIE(thebits : TBits_1); inline;
  9123. procedure setI2C1ASIE(thebits : TBits_1); inline;
  9124. procedure setI2C1BIE(thebits : TBits_1); inline;
  9125. procedure setI2C1MIE(thebits : TBits_1); inline;
  9126. procedure setI2C1SIE(thebits : TBits_1); inline;
  9127. procedure setI2C3BIE(thebits : TBits_1); inline;
  9128. procedure setI2C3MIE(thebits : TBits_1); inline;
  9129. procedure setI2C3SIE(thebits : TBits_1); inline;
  9130. procedure setIC1IE(thebits : TBits_1); inline;
  9131. procedure setIC2IE(thebits : TBits_1); inline;
  9132. procedure setIC3IE(thebits : TBits_1); inline;
  9133. procedure setIC4IE(thebits : TBits_1); inline;
  9134. procedure setIC5IE(thebits : TBits_1); inline;
  9135. procedure setINT0IE(thebits : TBits_1); inline;
  9136. procedure setINT1IE(thebits : TBits_1); inline;
  9137. procedure setINT2IE(thebits : TBits_1); inline;
  9138. procedure setINT3IE(thebits : TBits_1); inline;
  9139. procedure setINT4IE(thebits : TBits_1); inline;
  9140. procedure setOC1IE(thebits : TBits_1); inline;
  9141. procedure setOC2IE(thebits : TBits_1); inline;
  9142. procedure setOC3IE(thebits : TBits_1); inline;
  9143. procedure setOC4IE(thebits : TBits_1); inline;
  9144. procedure setOC5IE(thebits : TBits_1); inline;
  9145. procedure setSPI1AEIE(thebits : TBits_1); inline;
  9146. procedure setSPI1ARXIE(thebits : TBits_1); inline;
  9147. procedure setSPI1ATXIE(thebits : TBits_1); inline;
  9148. procedure setSPI1EIE(thebits : TBits_1); inline;
  9149. procedure setSPI1RXIE(thebits : TBits_1); inline;
  9150. procedure setSPI1TXIE(thebits : TBits_1); inline;
  9151. procedure setSPI3EIE(thebits : TBits_1); inline;
  9152. procedure setSPI3RXIE(thebits : TBits_1); inline;
  9153. procedure setSPI3TXIE(thebits : TBits_1); inline;
  9154. procedure setT1IE(thebits : TBits_1); inline;
  9155. procedure setT2IE(thebits : TBits_1); inline;
  9156. procedure setT3IE(thebits : TBits_1); inline;
  9157. procedure setT4IE(thebits : TBits_1); inline;
  9158. procedure setT5IE(thebits : TBits_1); inline;
  9159. procedure setU1AEIE(thebits : TBits_1); inline;
  9160. procedure setU1ARXIE(thebits : TBits_1); inline;
  9161. procedure setU1ATXIE(thebits : TBits_1); inline;
  9162. procedure setU1EIE(thebits : TBits_1); inline;
  9163. procedure setU1RXIE(thebits : TBits_1); inline;
  9164. procedure setU1TXIE(thebits : TBits_1); inline;
  9165. procedure setw(thebits : TBits_32); inline;
  9166. public
  9167. procedure clearCS0IE; inline;
  9168. procedure clearCS1IE; inline;
  9169. procedure clearCTIE; inline;
  9170. procedure clearI2C1ABIE; inline;
  9171. procedure clearI2C1AMIE; inline;
  9172. procedure clearI2C1ASIE; inline;
  9173. procedure clearI2C1BIE; inline;
  9174. procedure clearI2C1MIE; inline;
  9175. procedure clearI2C1SIE; inline;
  9176. procedure clearI2C3BIE; inline;
  9177. procedure clearI2C3MIE; inline;
  9178. procedure clearI2C3SIE; inline;
  9179. procedure clearIC1IE; inline;
  9180. procedure clearIC2IE; inline;
  9181. procedure clearIC3IE; inline;
  9182. procedure clearIC4IE; inline;
  9183. procedure clearIC5IE; inline;
  9184. procedure clearINT0IE; inline;
  9185. procedure clearINT1IE; inline;
  9186. procedure clearINT2IE; inline;
  9187. procedure clearINT3IE; inline;
  9188. procedure clearINT4IE; inline;
  9189. procedure clearOC1IE; inline;
  9190. procedure clearOC2IE; inline;
  9191. procedure clearOC3IE; inline;
  9192. procedure clearOC4IE; inline;
  9193. procedure clearOC5IE; inline;
  9194. procedure clearSPI1AEIE; inline;
  9195. procedure clearSPI1ARXIE; inline;
  9196. procedure clearSPI1ATXIE; inline;
  9197. procedure clearSPI1EIE; inline;
  9198. procedure clearSPI1RXIE; inline;
  9199. procedure clearSPI1TXIE; inline;
  9200. procedure clearSPI3EIE; inline;
  9201. procedure clearSPI3RXIE; inline;
  9202. procedure clearSPI3TXIE; inline;
  9203. procedure clearT1IE; inline;
  9204. procedure clearT2IE; inline;
  9205. procedure clearT3IE; inline;
  9206. procedure clearT4IE; inline;
  9207. procedure clearT5IE; inline;
  9208. procedure clearU1AEIE; inline;
  9209. procedure clearU1ARXIE; inline;
  9210. procedure clearU1ATXIE; inline;
  9211. procedure clearU1EIE; inline;
  9212. procedure clearU1RXIE; inline;
  9213. procedure clearU1TXIE; inline;
  9214. procedure setCS0IE; inline;
  9215. procedure setCS1IE; inline;
  9216. procedure setCTIE; inline;
  9217. procedure setI2C1ABIE; inline;
  9218. procedure setI2C1AMIE; inline;
  9219. procedure setI2C1ASIE; inline;
  9220. procedure setI2C1BIE; inline;
  9221. procedure setI2C1MIE; inline;
  9222. procedure setI2C1SIE; inline;
  9223. procedure setI2C3BIE; inline;
  9224. procedure setI2C3MIE; inline;
  9225. procedure setI2C3SIE; inline;
  9226. procedure setIC1IE; inline;
  9227. procedure setIC2IE; inline;
  9228. procedure setIC3IE; inline;
  9229. procedure setIC4IE; inline;
  9230. procedure setIC5IE; inline;
  9231. procedure setINT0IE; inline;
  9232. procedure setINT1IE; inline;
  9233. procedure setINT2IE; inline;
  9234. procedure setINT3IE; inline;
  9235. procedure setINT4IE; inline;
  9236. procedure setOC1IE; inline;
  9237. procedure setOC2IE; inline;
  9238. procedure setOC3IE; inline;
  9239. procedure setOC4IE; inline;
  9240. procedure setOC5IE; inline;
  9241. procedure setSPI1AEIE; inline;
  9242. procedure setSPI1ARXIE; inline;
  9243. procedure setSPI1ATXIE; inline;
  9244. procedure setSPI1EIE; inline;
  9245. procedure setSPI1RXIE; inline;
  9246. procedure setSPI1TXIE; inline;
  9247. procedure setSPI3EIE; inline;
  9248. procedure setSPI3RXIE; inline;
  9249. procedure setSPI3TXIE; inline;
  9250. procedure setT1IE; inline;
  9251. procedure setT2IE; inline;
  9252. procedure setT3IE; inline;
  9253. procedure setT4IE; inline;
  9254. procedure setT5IE; inline;
  9255. procedure setU1AEIE; inline;
  9256. procedure setU1ARXIE; inline;
  9257. procedure setU1ATXIE; inline;
  9258. procedure setU1EIE; inline;
  9259. procedure setU1RXIE; inline;
  9260. procedure setU1TXIE; inline;
  9261. property CS0IE : TBits_1 read getCS0IE write setCS0IE;
  9262. property CS1IE : TBits_1 read getCS1IE write setCS1IE;
  9263. property CTIE : TBits_1 read getCTIE write setCTIE;
  9264. property I2C1ABIE : TBits_1 read getI2C1ABIE write setI2C1ABIE;
  9265. property I2C1AMIE : TBits_1 read getI2C1AMIE write setI2C1AMIE;
  9266. property I2C1ASIE : TBits_1 read getI2C1ASIE write setI2C1ASIE;
  9267. property I2C1BIE : TBits_1 read getI2C1BIE write setI2C1BIE;
  9268. property I2C1MIE : TBits_1 read getI2C1MIE write setI2C1MIE;
  9269. property I2C1SIE : TBits_1 read getI2C1SIE write setI2C1SIE;
  9270. property I2C3BIE : TBits_1 read getI2C3BIE write setI2C3BIE;
  9271. property I2C3MIE : TBits_1 read getI2C3MIE write setI2C3MIE;
  9272. property I2C3SIE : TBits_1 read getI2C3SIE write setI2C3SIE;
  9273. property IC1IE : TBits_1 read getIC1IE write setIC1IE;
  9274. property IC2IE : TBits_1 read getIC2IE write setIC2IE;
  9275. property IC3IE : TBits_1 read getIC3IE write setIC3IE;
  9276. property IC4IE : TBits_1 read getIC4IE write setIC4IE;
  9277. property IC5IE : TBits_1 read getIC5IE write setIC5IE;
  9278. property INT0IE : TBits_1 read getINT0IE write setINT0IE;
  9279. property INT1IE : TBits_1 read getINT1IE write setINT1IE;
  9280. property INT2IE : TBits_1 read getINT2IE write setINT2IE;
  9281. property INT3IE : TBits_1 read getINT3IE write setINT3IE;
  9282. property INT4IE : TBits_1 read getINT4IE write setINT4IE;
  9283. property OC1IE : TBits_1 read getOC1IE write setOC1IE;
  9284. property OC2IE : TBits_1 read getOC2IE write setOC2IE;
  9285. property OC3IE : TBits_1 read getOC3IE write setOC3IE;
  9286. property OC4IE : TBits_1 read getOC4IE write setOC4IE;
  9287. property OC5IE : TBits_1 read getOC5IE write setOC5IE;
  9288. property SPI1AEIE : TBits_1 read getSPI1AEIE write setSPI1AEIE;
  9289. property SPI1ARXIE : TBits_1 read getSPI1ARXIE write setSPI1ARXIE;
  9290. property SPI1ATXIE : TBits_1 read getSPI1ATXIE write setSPI1ATXIE;
  9291. property SPI1EIE : TBits_1 read getSPI1EIE write setSPI1EIE;
  9292. property SPI1RXIE : TBits_1 read getSPI1RXIE write setSPI1RXIE;
  9293. property SPI1TXIE : TBits_1 read getSPI1TXIE write setSPI1TXIE;
  9294. property SPI3EIE : TBits_1 read getSPI3EIE write setSPI3EIE;
  9295. property SPI3RXIE : TBits_1 read getSPI3RXIE write setSPI3RXIE;
  9296. property SPI3TXIE : TBits_1 read getSPI3TXIE write setSPI3TXIE;
  9297. property T1IE : TBits_1 read getT1IE write setT1IE;
  9298. property T2IE : TBits_1 read getT2IE write setT2IE;
  9299. property T3IE : TBits_1 read getT3IE write setT3IE;
  9300. property T4IE : TBits_1 read getT4IE write setT4IE;
  9301. property T5IE : TBits_1 read getT5IE write setT5IE;
  9302. property U1AEIE : TBits_1 read getU1AEIE write setU1AEIE;
  9303. property U1ARXIE : TBits_1 read getU1ARXIE write setU1ARXIE;
  9304. property U1ATXIE : TBits_1 read getU1ATXIE write setU1ATXIE;
  9305. property U1EIE : TBits_1 read getU1EIE write setU1EIE;
  9306. property U1RXIE : TBits_1 read getU1RXIE write setU1RXIE;
  9307. property U1TXIE : TBits_1 read getU1TXIE write setU1TXIE;
  9308. property w : TBits_32 read getw write setw;
  9309. end;
  9310. TINT_IEC1 = record
  9311. private
  9312. function getAD1IE : TBits_1; inline;
  9313. function getCAN1IE : TBits_1; inline;
  9314. function getCMP1IE : TBits_1; inline;
  9315. function getCMP2IE : TBits_1; inline;
  9316. function getCNIE : TBits_1; inline;
  9317. function getDMA0IE : TBits_1; inline;
  9318. function getDMA1IE : TBits_1; inline;
  9319. function getDMA2IE : TBits_1; inline;
  9320. function getDMA3IE : TBits_1; inline;
  9321. function getFCEIE : TBits_1; inline;
  9322. function getFSCMIE : TBits_1; inline;
  9323. function getI2C2ABIE : TBits_1; inline;
  9324. function getI2C2AMIE : TBits_1; inline;
  9325. function getI2C2ASIE : TBits_1; inline;
  9326. function getI2C2BIE : TBits_1; inline;
  9327. function getI2C2MIE : TBits_1; inline;
  9328. function getI2C2SIE : TBits_1; inline;
  9329. function getI2C3ABIE : TBits_1; inline;
  9330. function getI2C3AMIE : TBits_1; inline;
  9331. function getI2C3ASIE : TBits_1; inline;
  9332. function getI2C4BIE : TBits_1; inline;
  9333. function getI2C4MIE : TBits_1; inline;
  9334. function getI2C4SIE : TBits_1; inline;
  9335. function getI2C5BIE : TBits_1; inline;
  9336. function getI2C5MIE : TBits_1; inline;
  9337. function getI2C5SIE : TBits_1; inline;
  9338. function getIC1EIE : TBits_1; inline;
  9339. function getIC2EIE : TBits_1; inline;
  9340. function getIC3EIE : TBits_1; inline;
  9341. function getPMPIE : TBits_1; inline;
  9342. function getRTCCIE : TBits_1; inline;
  9343. function getSPI2AEIE : TBits_1; inline;
  9344. function getSPI2ARXIE : TBits_1; inline;
  9345. function getSPI2ATXIE : TBits_1; inline;
  9346. function getSPI2EIE : TBits_1; inline;
  9347. function getSPI2RXIE : TBits_1; inline;
  9348. function getSPI2TXIE : TBits_1; inline;
  9349. function getSPI3AEIE : TBits_1; inline;
  9350. function getSPI3ARXIE : TBits_1; inline;
  9351. function getSPI3ATXIE : TBits_1; inline;
  9352. function getSPI4EIE : TBits_1; inline;
  9353. function getSPI4RXIE : TBits_1; inline;
  9354. function getSPI4TXIE : TBits_1; inline;
  9355. function getU2AEIE : TBits_1; inline;
  9356. function getU2ARXIE : TBits_1; inline;
  9357. function getU2ATXIE : TBits_1; inline;
  9358. function getU2EIE : TBits_1; inline;
  9359. function getU2RXIE : TBits_1; inline;
  9360. function getU2TXIE : TBits_1; inline;
  9361. function getU3AEIE : TBits_1; inline;
  9362. function getU3ARXIE : TBits_1; inline;
  9363. function getU3ATXIE : TBits_1; inline;
  9364. function getU3EIE : TBits_1; inline;
  9365. function getU3RXIE : TBits_1; inline;
  9366. function getU3TXIE : TBits_1; inline;
  9367. function getUSBIE : TBits_1; inline;
  9368. function getw : TBits_32; inline;
  9369. procedure setAD1IE(thebits : TBits_1); inline;
  9370. procedure setCAN1IE(thebits : TBits_1); inline;
  9371. procedure setCMP1IE(thebits : TBits_1); inline;
  9372. procedure setCMP2IE(thebits : TBits_1); inline;
  9373. procedure setCNIE(thebits : TBits_1); inline;
  9374. procedure setDMA0IE(thebits : TBits_1); inline;
  9375. procedure setDMA1IE(thebits : TBits_1); inline;
  9376. procedure setDMA2IE(thebits : TBits_1); inline;
  9377. procedure setDMA3IE(thebits : TBits_1); inline;
  9378. procedure setFCEIE(thebits : TBits_1); inline;
  9379. procedure setFSCMIE(thebits : TBits_1); inline;
  9380. procedure setI2C2ABIE(thebits : TBits_1); inline;
  9381. procedure setI2C2AMIE(thebits : TBits_1); inline;
  9382. procedure setI2C2ASIE(thebits : TBits_1); inline;
  9383. procedure setI2C2BIE(thebits : TBits_1); inline;
  9384. procedure setI2C2MIE(thebits : TBits_1); inline;
  9385. procedure setI2C2SIE(thebits : TBits_1); inline;
  9386. procedure setI2C3ABIE(thebits : TBits_1); inline;
  9387. procedure setI2C3AMIE(thebits : TBits_1); inline;
  9388. procedure setI2C3ASIE(thebits : TBits_1); inline;
  9389. procedure setI2C4BIE(thebits : TBits_1); inline;
  9390. procedure setI2C4MIE(thebits : TBits_1); inline;
  9391. procedure setI2C4SIE(thebits : TBits_1); inline;
  9392. procedure setI2C5BIE(thebits : TBits_1); inline;
  9393. procedure setI2C5MIE(thebits : TBits_1); inline;
  9394. procedure setI2C5SIE(thebits : TBits_1); inline;
  9395. procedure setIC1EIE(thebits : TBits_1); inline;
  9396. procedure setIC2EIE(thebits : TBits_1); inline;
  9397. procedure setIC3EIE(thebits : TBits_1); inline;
  9398. procedure setPMPIE(thebits : TBits_1); inline;
  9399. procedure setRTCCIE(thebits : TBits_1); inline;
  9400. procedure setSPI2AEIE(thebits : TBits_1); inline;
  9401. procedure setSPI2ARXIE(thebits : TBits_1); inline;
  9402. procedure setSPI2ATXIE(thebits : TBits_1); inline;
  9403. procedure setSPI2EIE(thebits : TBits_1); inline;
  9404. procedure setSPI2RXIE(thebits : TBits_1); inline;
  9405. procedure setSPI2TXIE(thebits : TBits_1); inline;
  9406. procedure setSPI3AEIE(thebits : TBits_1); inline;
  9407. procedure setSPI3ARXIE(thebits : TBits_1); inline;
  9408. procedure setSPI3ATXIE(thebits : TBits_1); inline;
  9409. procedure setSPI4EIE(thebits : TBits_1); inline;
  9410. procedure setSPI4RXIE(thebits : TBits_1); inline;
  9411. procedure setSPI4TXIE(thebits : TBits_1); inline;
  9412. procedure setU2AEIE(thebits : TBits_1); inline;
  9413. procedure setU2ARXIE(thebits : TBits_1); inline;
  9414. procedure setU2ATXIE(thebits : TBits_1); inline;
  9415. procedure setU2EIE(thebits : TBits_1); inline;
  9416. procedure setU2RXIE(thebits : TBits_1); inline;
  9417. procedure setU2TXIE(thebits : TBits_1); inline;
  9418. procedure setU3AEIE(thebits : TBits_1); inline;
  9419. procedure setU3ARXIE(thebits : TBits_1); inline;
  9420. procedure setU3ATXIE(thebits : TBits_1); inline;
  9421. procedure setU3EIE(thebits : TBits_1); inline;
  9422. procedure setU3RXIE(thebits : TBits_1); inline;
  9423. procedure setU3TXIE(thebits : TBits_1); inline;
  9424. procedure setUSBIE(thebits : TBits_1); inline;
  9425. procedure setw(thebits : TBits_32); inline;
  9426. public
  9427. procedure clearAD1IE; inline;
  9428. procedure clearCAN1IE; inline;
  9429. procedure clearCMP1IE; inline;
  9430. procedure clearCMP2IE; inline;
  9431. procedure clearCNIE; inline;
  9432. procedure clearDMA0IE; inline;
  9433. procedure clearDMA1IE; inline;
  9434. procedure clearDMA2IE; inline;
  9435. procedure clearDMA3IE; inline;
  9436. procedure clearFCEIE; inline;
  9437. procedure clearFSCMIE; inline;
  9438. procedure clearI2C2ABIE; inline;
  9439. procedure clearI2C2AMIE; inline;
  9440. procedure clearI2C2ASIE; inline;
  9441. procedure clearI2C2BIE; inline;
  9442. procedure clearI2C2MIE; inline;
  9443. procedure clearI2C2SIE; inline;
  9444. procedure clearI2C3ABIE; inline;
  9445. procedure clearI2C3AMIE; inline;
  9446. procedure clearI2C3ASIE; inline;
  9447. procedure clearI2C4BIE; inline;
  9448. procedure clearI2C4MIE; inline;
  9449. procedure clearI2C4SIE; inline;
  9450. procedure clearI2C5BIE; inline;
  9451. procedure clearI2C5MIE; inline;
  9452. procedure clearI2C5SIE; inline;
  9453. procedure clearIC1EIE; inline;
  9454. procedure clearIC2EIE; inline;
  9455. procedure clearIC3EIE; inline;
  9456. procedure clearPMPIE; inline;
  9457. procedure clearRTCCIE; inline;
  9458. procedure clearSPI2AEIE; inline;
  9459. procedure clearSPI2ARXIE; inline;
  9460. procedure clearSPI2ATXIE; inline;
  9461. procedure clearSPI2EIE; inline;
  9462. procedure clearSPI2RXIE; inline;
  9463. procedure clearSPI2TXIE; inline;
  9464. procedure clearSPI3AEIE; inline;
  9465. procedure clearSPI3ARXIE; inline;
  9466. procedure clearSPI3ATXIE; inline;
  9467. procedure clearSPI4EIE; inline;
  9468. procedure clearSPI4RXIE; inline;
  9469. procedure clearSPI4TXIE; inline;
  9470. procedure clearU2AEIE; inline;
  9471. procedure clearU2ARXIE; inline;
  9472. procedure clearU2ATXIE; inline;
  9473. procedure clearU2EIE; inline;
  9474. procedure clearU2RXIE; inline;
  9475. procedure clearU2TXIE; inline;
  9476. procedure clearU3AEIE; inline;
  9477. procedure clearU3ARXIE; inline;
  9478. procedure clearU3ATXIE; inline;
  9479. procedure clearU3EIE; inline;
  9480. procedure clearU3RXIE; inline;
  9481. procedure clearU3TXIE; inline;
  9482. procedure clearUSBIE; inline;
  9483. procedure setAD1IE; inline;
  9484. procedure setCAN1IE; inline;
  9485. procedure setCMP1IE; inline;
  9486. procedure setCMP2IE; inline;
  9487. procedure setCNIE; inline;
  9488. procedure setDMA0IE; inline;
  9489. procedure setDMA1IE; inline;
  9490. procedure setDMA2IE; inline;
  9491. procedure setDMA3IE; inline;
  9492. procedure setFCEIE; inline;
  9493. procedure setFSCMIE; inline;
  9494. procedure setI2C2ABIE; inline;
  9495. procedure setI2C2AMIE; inline;
  9496. procedure setI2C2ASIE; inline;
  9497. procedure setI2C2BIE; inline;
  9498. procedure setI2C2MIE; inline;
  9499. procedure setI2C2SIE; inline;
  9500. procedure setI2C3ABIE; inline;
  9501. procedure setI2C3AMIE; inline;
  9502. procedure setI2C3ASIE; inline;
  9503. procedure setI2C4BIE; inline;
  9504. procedure setI2C4MIE; inline;
  9505. procedure setI2C4SIE; inline;
  9506. procedure setI2C5BIE; inline;
  9507. procedure setI2C5MIE; inline;
  9508. procedure setI2C5SIE; inline;
  9509. procedure setIC1EIE; inline;
  9510. procedure setIC2EIE; inline;
  9511. procedure setIC3EIE; inline;
  9512. procedure setPMPIE; inline;
  9513. procedure setRTCCIE; inline;
  9514. procedure setSPI2AEIE; inline;
  9515. procedure setSPI2ARXIE; inline;
  9516. procedure setSPI2ATXIE; inline;
  9517. procedure setSPI2EIE; inline;
  9518. procedure setSPI2RXIE; inline;
  9519. procedure setSPI2TXIE; inline;
  9520. procedure setSPI3AEIE; inline;
  9521. procedure setSPI3ARXIE; inline;
  9522. procedure setSPI3ATXIE; inline;
  9523. procedure setSPI4EIE; inline;
  9524. procedure setSPI4RXIE; inline;
  9525. procedure setSPI4TXIE; inline;
  9526. procedure setU2AEIE; inline;
  9527. procedure setU2ARXIE; inline;
  9528. procedure setU2ATXIE; inline;
  9529. procedure setU2EIE; inline;
  9530. procedure setU2RXIE; inline;
  9531. procedure setU2TXIE; inline;
  9532. procedure setU3AEIE; inline;
  9533. procedure setU3ARXIE; inline;
  9534. procedure setU3ATXIE; inline;
  9535. procedure setU3EIE; inline;
  9536. procedure setU3RXIE; inline;
  9537. procedure setU3TXIE; inline;
  9538. procedure setUSBIE; inline;
  9539. property AD1IE : TBits_1 read getAD1IE write setAD1IE;
  9540. property CAN1IE : TBits_1 read getCAN1IE write setCAN1IE;
  9541. property CMP1IE : TBits_1 read getCMP1IE write setCMP1IE;
  9542. property CMP2IE : TBits_1 read getCMP2IE write setCMP2IE;
  9543. property CNIE : TBits_1 read getCNIE write setCNIE;
  9544. property DMA0IE : TBits_1 read getDMA0IE write setDMA0IE;
  9545. property DMA1IE : TBits_1 read getDMA1IE write setDMA1IE;
  9546. property DMA2IE : TBits_1 read getDMA2IE write setDMA2IE;
  9547. property DMA3IE : TBits_1 read getDMA3IE write setDMA3IE;
  9548. property FCEIE : TBits_1 read getFCEIE write setFCEIE;
  9549. property FSCMIE : TBits_1 read getFSCMIE write setFSCMIE;
  9550. property I2C2ABIE : TBits_1 read getI2C2ABIE write setI2C2ABIE;
  9551. property I2C2AMIE : TBits_1 read getI2C2AMIE write setI2C2AMIE;
  9552. property I2C2ASIE : TBits_1 read getI2C2ASIE write setI2C2ASIE;
  9553. property I2C2BIE : TBits_1 read getI2C2BIE write setI2C2BIE;
  9554. property I2C2MIE : TBits_1 read getI2C2MIE write setI2C2MIE;
  9555. property I2C2SIE : TBits_1 read getI2C2SIE write setI2C2SIE;
  9556. property I2C3ABIE : TBits_1 read getI2C3ABIE write setI2C3ABIE;
  9557. property I2C3AMIE : TBits_1 read getI2C3AMIE write setI2C3AMIE;
  9558. property I2C3ASIE : TBits_1 read getI2C3ASIE write setI2C3ASIE;
  9559. property I2C4BIE : TBits_1 read getI2C4BIE write setI2C4BIE;
  9560. property I2C4MIE : TBits_1 read getI2C4MIE write setI2C4MIE;
  9561. property I2C4SIE : TBits_1 read getI2C4SIE write setI2C4SIE;
  9562. property I2C5BIE : TBits_1 read getI2C5BIE write setI2C5BIE;
  9563. property I2C5MIE : TBits_1 read getI2C5MIE write setI2C5MIE;
  9564. property I2C5SIE : TBits_1 read getI2C5SIE write setI2C5SIE;
  9565. property IC1EIE : TBits_1 read getIC1EIE write setIC1EIE;
  9566. property IC2EIE : TBits_1 read getIC2EIE write setIC2EIE;
  9567. property IC3EIE : TBits_1 read getIC3EIE write setIC3EIE;
  9568. property PMPIE : TBits_1 read getPMPIE write setPMPIE;
  9569. property RTCCIE : TBits_1 read getRTCCIE write setRTCCIE;
  9570. property SPI2AEIE : TBits_1 read getSPI2AEIE write setSPI2AEIE;
  9571. property SPI2ARXIE : TBits_1 read getSPI2ARXIE write setSPI2ARXIE;
  9572. property SPI2ATXIE : TBits_1 read getSPI2ATXIE write setSPI2ATXIE;
  9573. property SPI2EIE : TBits_1 read getSPI2EIE write setSPI2EIE;
  9574. property SPI2RXIE : TBits_1 read getSPI2RXIE write setSPI2RXIE;
  9575. property SPI2TXIE : TBits_1 read getSPI2TXIE write setSPI2TXIE;
  9576. property SPI3AEIE : TBits_1 read getSPI3AEIE write setSPI3AEIE;
  9577. property SPI3ARXIE : TBits_1 read getSPI3ARXIE write setSPI3ARXIE;
  9578. property SPI3ATXIE : TBits_1 read getSPI3ATXIE write setSPI3ATXIE;
  9579. property SPI4EIE : TBits_1 read getSPI4EIE write setSPI4EIE;
  9580. property SPI4RXIE : TBits_1 read getSPI4RXIE write setSPI4RXIE;
  9581. property SPI4TXIE : TBits_1 read getSPI4TXIE write setSPI4TXIE;
  9582. property U2AEIE : TBits_1 read getU2AEIE write setU2AEIE;
  9583. property U2ARXIE : TBits_1 read getU2ARXIE write setU2ARXIE;
  9584. property U2ATXIE : TBits_1 read getU2ATXIE write setU2ATXIE;
  9585. property U2EIE : TBits_1 read getU2EIE write setU2EIE;
  9586. property U2RXIE : TBits_1 read getU2RXIE write setU2RXIE;
  9587. property U2TXIE : TBits_1 read getU2TXIE write setU2TXIE;
  9588. property U3AEIE : TBits_1 read getU3AEIE write setU3AEIE;
  9589. property U3ARXIE : TBits_1 read getU3ARXIE write setU3ARXIE;
  9590. property U3ATXIE : TBits_1 read getU3ATXIE write setU3ATXIE;
  9591. property U3EIE : TBits_1 read getU3EIE write setU3EIE;
  9592. property U3RXIE : TBits_1 read getU3RXIE write setU3RXIE;
  9593. property U3TXIE : TBits_1 read getU3TXIE write setU3TXIE;
  9594. property USBIE : TBits_1 read getUSBIE write setUSBIE;
  9595. property w : TBits_32 read getw write setw;
  9596. end;
  9597. TINT_IEC2 = record
  9598. private
  9599. function getIC4EIE : TBits_1; inline;
  9600. function getIC5EIE : TBits_1; inline;
  9601. function getPMPEIE : TBits_1; inline;
  9602. function getU1BEIE : TBits_1; inline;
  9603. function getU1BRXIE : TBits_1; inline;
  9604. function getU1BTXIE : TBits_1; inline;
  9605. function getU2BEIE : TBits_1; inline;
  9606. function getU2BRXIE : TBits_1; inline;
  9607. function getU2BTXIE : TBits_1; inline;
  9608. function getU3BEIE : TBits_1; inline;
  9609. function getU3BRXIE : TBits_1; inline;
  9610. function getU3BTXIE : TBits_1; inline;
  9611. function getU4EIE : TBits_1; inline;
  9612. function getU4RXIE : TBits_1; inline;
  9613. function getU4TXIE : TBits_1; inline;
  9614. function getU5EIE : TBits_1; inline;
  9615. function getU5RXIE : TBits_1; inline;
  9616. function getU5TXIE : TBits_1; inline;
  9617. function getU6EIE : TBits_1; inline;
  9618. function getU6RXIE : TBits_1; inline;
  9619. function getU6TXIE : TBits_1; inline;
  9620. function getw : TBits_32; inline;
  9621. procedure setIC4EIE(thebits : TBits_1); inline;
  9622. procedure setIC5EIE(thebits : TBits_1); inline;
  9623. procedure setPMPEIE(thebits : TBits_1); inline;
  9624. procedure setU1BEIE(thebits : TBits_1); inline;
  9625. procedure setU1BRXIE(thebits : TBits_1); inline;
  9626. procedure setU1BTXIE(thebits : TBits_1); inline;
  9627. procedure setU2BEIE(thebits : TBits_1); inline;
  9628. procedure setU2BRXIE(thebits : TBits_1); inline;
  9629. procedure setU2BTXIE(thebits : TBits_1); inline;
  9630. procedure setU3BEIE(thebits : TBits_1); inline;
  9631. procedure setU3BRXIE(thebits : TBits_1); inline;
  9632. procedure setU3BTXIE(thebits : TBits_1); inline;
  9633. procedure setU4EIE(thebits : TBits_1); inline;
  9634. procedure setU4RXIE(thebits : TBits_1); inline;
  9635. procedure setU4TXIE(thebits : TBits_1); inline;
  9636. procedure setU5EIE(thebits : TBits_1); inline;
  9637. procedure setU5RXIE(thebits : TBits_1); inline;
  9638. procedure setU5TXIE(thebits : TBits_1); inline;
  9639. procedure setU6EIE(thebits : TBits_1); inline;
  9640. procedure setU6RXIE(thebits : TBits_1); inline;
  9641. procedure setU6TXIE(thebits : TBits_1); inline;
  9642. procedure setw(thebits : TBits_32); inline;
  9643. public
  9644. procedure clearIC4EIE; inline;
  9645. procedure clearIC5EIE; inline;
  9646. procedure clearPMPEIE; inline;
  9647. procedure clearU1BEIE; inline;
  9648. procedure clearU1BRXIE; inline;
  9649. procedure clearU1BTXIE; inline;
  9650. procedure clearU2BEIE; inline;
  9651. procedure clearU2BRXIE; inline;
  9652. procedure clearU2BTXIE; inline;
  9653. procedure clearU3BEIE; inline;
  9654. procedure clearU3BRXIE; inline;
  9655. procedure clearU3BTXIE; inline;
  9656. procedure clearU4EIE; inline;
  9657. procedure clearU4RXIE; inline;
  9658. procedure clearU4TXIE; inline;
  9659. procedure clearU5EIE; inline;
  9660. procedure clearU5RXIE; inline;
  9661. procedure clearU5TXIE; inline;
  9662. procedure clearU6EIE; inline;
  9663. procedure clearU6RXIE; inline;
  9664. procedure clearU6TXIE; inline;
  9665. procedure setIC4EIE; inline;
  9666. procedure setIC5EIE; inline;
  9667. procedure setPMPEIE; inline;
  9668. procedure setU1BEIE; inline;
  9669. procedure setU1BRXIE; inline;
  9670. procedure setU1BTXIE; inline;
  9671. procedure setU2BEIE; inline;
  9672. procedure setU2BRXIE; inline;
  9673. procedure setU2BTXIE; inline;
  9674. procedure setU3BEIE; inline;
  9675. procedure setU3BRXIE; inline;
  9676. procedure setU3BTXIE; inline;
  9677. procedure setU4EIE; inline;
  9678. procedure setU4RXIE; inline;
  9679. procedure setU4TXIE; inline;
  9680. procedure setU5EIE; inline;
  9681. procedure setU5RXIE; inline;
  9682. procedure setU5TXIE; inline;
  9683. procedure setU6EIE; inline;
  9684. procedure setU6RXIE; inline;
  9685. procedure setU6TXIE; inline;
  9686. property IC4EIE : TBits_1 read getIC4EIE write setIC4EIE;
  9687. property IC5EIE : TBits_1 read getIC5EIE write setIC5EIE;
  9688. property PMPEIE : TBits_1 read getPMPEIE write setPMPEIE;
  9689. property U1BEIE : TBits_1 read getU1BEIE write setU1BEIE;
  9690. property U1BRXIE : TBits_1 read getU1BRXIE write setU1BRXIE;
  9691. property U1BTXIE : TBits_1 read getU1BTXIE write setU1BTXIE;
  9692. property U2BEIE : TBits_1 read getU2BEIE write setU2BEIE;
  9693. property U2BRXIE : TBits_1 read getU2BRXIE write setU2BRXIE;
  9694. property U2BTXIE : TBits_1 read getU2BTXIE write setU2BTXIE;
  9695. property U3BEIE : TBits_1 read getU3BEIE write setU3BEIE;
  9696. property U3BRXIE : TBits_1 read getU3BRXIE write setU3BRXIE;
  9697. property U3BTXIE : TBits_1 read getU3BTXIE write setU3BTXIE;
  9698. property U4EIE : TBits_1 read getU4EIE write setU4EIE;
  9699. property U4RXIE : TBits_1 read getU4RXIE write setU4RXIE;
  9700. property U4TXIE : TBits_1 read getU4TXIE write setU4TXIE;
  9701. property U5EIE : TBits_1 read getU5EIE write setU5EIE;
  9702. property U5RXIE : TBits_1 read getU5RXIE write setU5RXIE;
  9703. property U5TXIE : TBits_1 read getU5TXIE write setU5TXIE;
  9704. property U6EIE : TBits_1 read getU6EIE write setU6EIE;
  9705. property U6RXIE : TBits_1 read getU6RXIE write setU6RXIE;
  9706. property U6TXIE : TBits_1 read getU6TXIE write setU6TXIE;
  9707. property w : TBits_32 read getw write setw;
  9708. end;
  9709. TINT_IPC0 = record
  9710. private
  9711. function getCS0IP : TBits_3; inline;
  9712. function getCS0IS : TBits_2; inline;
  9713. function getCS1IP : TBits_3; inline;
  9714. function getCS1IS : TBits_2; inline;
  9715. function getCTIP : TBits_3; inline;
  9716. function getCTIS : TBits_2; inline;
  9717. function getINT0IP : TBits_3; inline;
  9718. function getINT0IS : TBits_2; inline;
  9719. function getw : TBits_32; inline;
  9720. procedure setCS0IP(thebits : TBits_3); inline;
  9721. procedure setCS0IS(thebits : TBits_2); inline;
  9722. procedure setCS1IP(thebits : TBits_3); inline;
  9723. procedure setCS1IS(thebits : TBits_2); inline;
  9724. procedure setCTIP(thebits : TBits_3); inline;
  9725. procedure setCTIS(thebits : TBits_2); inline;
  9726. procedure setINT0IP(thebits : TBits_3); inline;
  9727. procedure setINT0IS(thebits : TBits_2); inline;
  9728. procedure setw(thebits : TBits_32); inline;
  9729. public
  9730. property CS0IP : TBits_3 read getCS0IP write setCS0IP;
  9731. property CS0IS : TBits_2 read getCS0IS write setCS0IS;
  9732. property CS1IP : TBits_3 read getCS1IP write setCS1IP;
  9733. property CS1IS : TBits_2 read getCS1IS write setCS1IS;
  9734. property CTIP : TBits_3 read getCTIP write setCTIP;
  9735. property CTIS : TBits_2 read getCTIS write setCTIS;
  9736. property INT0IP : TBits_3 read getINT0IP write setINT0IP;
  9737. property INT0IS : TBits_2 read getINT0IS write setINT0IS;
  9738. property w : TBits_32 read getw write setw;
  9739. end;
  9740. TINT_IPC1 = record
  9741. private
  9742. function getIC1IP : TBits_3; inline;
  9743. function getIC1IS : TBits_2; inline;
  9744. function getINT1IP : TBits_3; inline;
  9745. function getINT1IS : TBits_2; inline;
  9746. function getOC1IP : TBits_3; inline;
  9747. function getOC1IS : TBits_2; inline;
  9748. function getT1IP : TBits_3; inline;
  9749. function getT1IS : TBits_2; inline;
  9750. function getw : TBits_32; inline;
  9751. procedure setIC1IP(thebits : TBits_3); inline;
  9752. procedure setIC1IS(thebits : TBits_2); inline;
  9753. procedure setINT1IP(thebits : TBits_3); inline;
  9754. procedure setINT1IS(thebits : TBits_2); inline;
  9755. procedure setOC1IP(thebits : TBits_3); inline;
  9756. procedure setOC1IS(thebits : TBits_2); inline;
  9757. procedure setT1IP(thebits : TBits_3); inline;
  9758. procedure setT1IS(thebits : TBits_2); inline;
  9759. procedure setw(thebits : TBits_32); inline;
  9760. public
  9761. property IC1IP : TBits_3 read getIC1IP write setIC1IP;
  9762. property IC1IS : TBits_2 read getIC1IS write setIC1IS;
  9763. property INT1IP : TBits_3 read getINT1IP write setINT1IP;
  9764. property INT1IS : TBits_2 read getINT1IS write setINT1IS;
  9765. property OC1IP : TBits_3 read getOC1IP write setOC1IP;
  9766. property OC1IS : TBits_2 read getOC1IS write setOC1IS;
  9767. property T1IP : TBits_3 read getT1IP write setT1IP;
  9768. property T1IS : TBits_2 read getT1IS write setT1IS;
  9769. property w : TBits_32 read getw write setw;
  9770. end;
  9771. TINT_IPC2 = record
  9772. private
  9773. function getIC2IP : TBits_3; inline;
  9774. function getIC2IS : TBits_2; inline;
  9775. function getINT2IP : TBits_3; inline;
  9776. function getINT2IS : TBits_2; inline;
  9777. function getOC2IP : TBits_3; inline;
  9778. function getOC2IS : TBits_2; inline;
  9779. function getT2IP : TBits_3; inline;
  9780. function getT2IS : TBits_2; inline;
  9781. function getw : TBits_32; inline;
  9782. procedure setIC2IP(thebits : TBits_3); inline;
  9783. procedure setIC2IS(thebits : TBits_2); inline;
  9784. procedure setINT2IP(thebits : TBits_3); inline;
  9785. procedure setINT2IS(thebits : TBits_2); inline;
  9786. procedure setOC2IP(thebits : TBits_3); inline;
  9787. procedure setOC2IS(thebits : TBits_2); inline;
  9788. procedure setT2IP(thebits : TBits_3); inline;
  9789. procedure setT2IS(thebits : TBits_2); inline;
  9790. procedure setw(thebits : TBits_32); inline;
  9791. public
  9792. property IC2IP : TBits_3 read getIC2IP write setIC2IP;
  9793. property IC2IS : TBits_2 read getIC2IS write setIC2IS;
  9794. property INT2IP : TBits_3 read getINT2IP write setINT2IP;
  9795. property INT2IS : TBits_2 read getINT2IS write setINT2IS;
  9796. property OC2IP : TBits_3 read getOC2IP write setOC2IP;
  9797. property OC2IS : TBits_2 read getOC2IS write setOC2IS;
  9798. property T2IP : TBits_3 read getT2IP write setT2IP;
  9799. property T2IS : TBits_2 read getT2IS write setT2IS;
  9800. property w : TBits_32 read getw write setw;
  9801. end;
  9802. TINT_IPC3 = record
  9803. private
  9804. function getIC3IP : TBits_3; inline;
  9805. function getIC3IS : TBits_2; inline;
  9806. function getINT3IP : TBits_3; inline;
  9807. function getINT3IS : TBits_2; inline;
  9808. function getOC3IP : TBits_3; inline;
  9809. function getOC3IS : TBits_2; inline;
  9810. function getT3IP : TBits_3; inline;
  9811. function getT3IS : TBits_2; inline;
  9812. function getw : TBits_32; inline;
  9813. procedure setIC3IP(thebits : TBits_3); inline;
  9814. procedure setIC3IS(thebits : TBits_2); inline;
  9815. procedure setINT3IP(thebits : TBits_3); inline;
  9816. procedure setINT3IS(thebits : TBits_2); inline;
  9817. procedure setOC3IP(thebits : TBits_3); inline;
  9818. procedure setOC3IS(thebits : TBits_2); inline;
  9819. procedure setT3IP(thebits : TBits_3); inline;
  9820. procedure setT3IS(thebits : TBits_2); inline;
  9821. procedure setw(thebits : TBits_32); inline;
  9822. public
  9823. property IC3IP : TBits_3 read getIC3IP write setIC3IP;
  9824. property IC3IS : TBits_2 read getIC3IS write setIC3IS;
  9825. property INT3IP : TBits_3 read getINT3IP write setINT3IP;
  9826. property INT3IS : TBits_2 read getINT3IS write setINT3IS;
  9827. property OC3IP : TBits_3 read getOC3IP write setOC3IP;
  9828. property OC3IS : TBits_2 read getOC3IS write setOC3IS;
  9829. property T3IP : TBits_3 read getT3IP write setT3IP;
  9830. property T3IS : TBits_2 read getT3IS write setT3IS;
  9831. property w : TBits_32 read getw write setw;
  9832. end;
  9833. TINT_IPC4 = record
  9834. private
  9835. function getIC4IP : TBits_3; inline;
  9836. function getIC4IS : TBits_2; inline;
  9837. function getINT4IP : TBits_3; inline;
  9838. function getINT4IS : TBits_2; inline;
  9839. function getOC4IP : TBits_3; inline;
  9840. function getOC4IS : TBits_2; inline;
  9841. function getT4IP : TBits_3; inline;
  9842. function getT4IS : TBits_2; inline;
  9843. function getw : TBits_32; inline;
  9844. procedure setIC4IP(thebits : TBits_3); inline;
  9845. procedure setIC4IS(thebits : TBits_2); inline;
  9846. procedure setINT4IP(thebits : TBits_3); inline;
  9847. procedure setINT4IS(thebits : TBits_2); inline;
  9848. procedure setOC4IP(thebits : TBits_3); inline;
  9849. procedure setOC4IS(thebits : TBits_2); inline;
  9850. procedure setT4IP(thebits : TBits_3); inline;
  9851. procedure setT4IS(thebits : TBits_2); inline;
  9852. procedure setw(thebits : TBits_32); inline;
  9853. public
  9854. property IC4IP : TBits_3 read getIC4IP write setIC4IP;
  9855. property IC4IS : TBits_2 read getIC4IS write setIC4IS;
  9856. property INT4IP : TBits_3 read getINT4IP write setINT4IP;
  9857. property INT4IS : TBits_2 read getINT4IS write setINT4IS;
  9858. property OC4IP : TBits_3 read getOC4IP write setOC4IP;
  9859. property OC4IS : TBits_2 read getOC4IS write setOC4IS;
  9860. property T4IP : TBits_3 read getT4IP write setT4IP;
  9861. property T4IS : TBits_2 read getT4IS write setT4IS;
  9862. property w : TBits_32 read getw write setw;
  9863. end;
  9864. TINT_IPC5 = record
  9865. private
  9866. function getIC5IP : TBits_3; inline;
  9867. function getIC5IS : TBits_2; inline;
  9868. function getOC5IP : TBits_3; inline;
  9869. function getOC5IS : TBits_2; inline;
  9870. function getSPI1IP : TBits_3; inline;
  9871. function getSPI1IS : TBits_2; inline;
  9872. function getT5IP : TBits_3; inline;
  9873. function getT5IS : TBits_2; inline;
  9874. function getw : TBits_32; inline;
  9875. procedure setIC5IP(thebits : TBits_3); inline;
  9876. procedure setIC5IS(thebits : TBits_2); inline;
  9877. procedure setOC5IP(thebits : TBits_3); inline;
  9878. procedure setOC5IS(thebits : TBits_2); inline;
  9879. procedure setSPI1IP(thebits : TBits_3); inline;
  9880. procedure setSPI1IS(thebits : TBits_2); inline;
  9881. procedure setT5IP(thebits : TBits_3); inline;
  9882. procedure setT5IS(thebits : TBits_2); inline;
  9883. procedure setw(thebits : TBits_32); inline;
  9884. public
  9885. property IC5IP : TBits_3 read getIC5IP write setIC5IP;
  9886. property IC5IS : TBits_2 read getIC5IS write setIC5IS;
  9887. property OC5IP : TBits_3 read getOC5IP write setOC5IP;
  9888. property OC5IS : TBits_2 read getOC5IS write setOC5IS;
  9889. property SPI1IP : TBits_3 read getSPI1IP write setSPI1IP;
  9890. property SPI1IS : TBits_2 read getSPI1IS write setSPI1IS;
  9891. property T5IP : TBits_3 read getT5IP write setT5IP;
  9892. property T5IS : TBits_2 read getT5IS write setT5IS;
  9893. property w : TBits_32 read getw write setw;
  9894. end;
  9895. TINT_IPC6 = record
  9896. private
  9897. function getAD1IP : TBits_3; inline;
  9898. function getAD1IS : TBits_2; inline;
  9899. function getCNIP : TBits_3; inline;
  9900. function getCNIS : TBits_2; inline;
  9901. function getI2C1AIP : TBits_3; inline;
  9902. function getI2C1AIS : TBits_2; inline;
  9903. function getI2C1IP : TBits_3; inline;
  9904. function getI2C1IS : TBits_2; inline;
  9905. function getI2C3IP : TBits_3; inline;
  9906. function getI2C3IS : TBits_2; inline;
  9907. function getSPI1AIP : TBits_3; inline;
  9908. function getSPI1AIS : TBits_2; inline;
  9909. function getSPI3IP : TBits_3; inline;
  9910. function getSPI3IS : TBits_2; inline;
  9911. function getU1AIP : TBits_3; inline;
  9912. function getU1AIS : TBits_2; inline;
  9913. function getU1IP : TBits_3; inline;
  9914. function getU1IS : TBits_2; inline;
  9915. function getw : TBits_32; inline;
  9916. procedure setAD1IP(thebits : TBits_3); inline;
  9917. procedure setAD1IS(thebits : TBits_2); inline;
  9918. procedure setCNIP(thebits : TBits_3); inline;
  9919. procedure setCNIS(thebits : TBits_2); inline;
  9920. procedure setI2C1AIP(thebits : TBits_3); inline;
  9921. procedure setI2C1AIS(thebits : TBits_2); inline;
  9922. procedure setI2C1IP(thebits : TBits_3); inline;
  9923. procedure setI2C1IS(thebits : TBits_2); inline;
  9924. procedure setI2C3IP(thebits : TBits_3); inline;
  9925. procedure setI2C3IS(thebits : TBits_2); inline;
  9926. procedure setSPI1AIP(thebits : TBits_3); inline;
  9927. procedure setSPI1AIS(thebits : TBits_2); inline;
  9928. procedure setSPI3IP(thebits : TBits_3); inline;
  9929. procedure setSPI3IS(thebits : TBits_2); inline;
  9930. procedure setU1AIP(thebits : TBits_3); inline;
  9931. procedure setU1AIS(thebits : TBits_2); inline;
  9932. procedure setU1IP(thebits : TBits_3); inline;
  9933. procedure setU1IS(thebits : TBits_2); inline;
  9934. procedure setw(thebits : TBits_32); inline;
  9935. public
  9936. property AD1IP : TBits_3 read getAD1IP write setAD1IP;
  9937. property AD1IS : TBits_2 read getAD1IS write setAD1IS;
  9938. property CNIP : TBits_3 read getCNIP write setCNIP;
  9939. property CNIS : TBits_2 read getCNIS write setCNIS;
  9940. property I2C1AIP : TBits_3 read getI2C1AIP write setI2C1AIP;
  9941. property I2C1AIS : TBits_2 read getI2C1AIS write setI2C1AIS;
  9942. property I2C1IP : TBits_3 read getI2C1IP write setI2C1IP;
  9943. property I2C1IS : TBits_2 read getI2C1IS write setI2C1IS;
  9944. property I2C3IP : TBits_3 read getI2C3IP write setI2C3IP;
  9945. property I2C3IS : TBits_2 read getI2C3IS write setI2C3IS;
  9946. property SPI1AIP : TBits_3 read getSPI1AIP write setSPI1AIP;
  9947. property SPI1AIS : TBits_2 read getSPI1AIS write setSPI1AIS;
  9948. property SPI3IP : TBits_3 read getSPI3IP write setSPI3IP;
  9949. property SPI3IS : TBits_2 read getSPI3IS write setSPI3IS;
  9950. property U1AIP : TBits_3 read getU1AIP write setU1AIP;
  9951. property U1AIS : TBits_2 read getU1AIS write setU1AIS;
  9952. property U1IP : TBits_3 read getU1IP write setU1IP;
  9953. property U1IS : TBits_2 read getU1IS write setU1IS;
  9954. property w : TBits_32 read getw write setw;
  9955. end;
  9956. TINT_IPC7 = record
  9957. private
  9958. function getCMP1IP : TBits_3; inline;
  9959. function getCMP1IS : TBits_2; inline;
  9960. function getCMP2IP : TBits_3; inline;
  9961. function getCMP2IS : TBits_2; inline;
  9962. function getI2C2AIP : TBits_3; inline;
  9963. function getI2C2AIS : TBits_2; inline;
  9964. function getI2C4IP : TBits_3; inline;
  9965. function getI2C4IS : TBits_2; inline;
  9966. function getPMPIP : TBits_3; inline;
  9967. function getPMPIS : TBits_2; inline;
  9968. function getSPI2AIP : TBits_3; inline;
  9969. function getSPI2AIS : TBits_2; inline;
  9970. function getSPI2IP : TBits_3; inline;
  9971. function getSPI2IS : TBits_2; inline;
  9972. function getU2AIP : TBits_3; inline;
  9973. function getU2AIS : TBits_2; inline;
  9974. function getU3IP : TBits_3; inline;
  9975. function getU3IS : TBits_2; inline;
  9976. function getw : TBits_32; inline;
  9977. procedure setCMP1IP(thebits : TBits_3); inline;
  9978. procedure setCMP1IS(thebits : TBits_2); inline;
  9979. procedure setCMP2IP(thebits : TBits_3); inline;
  9980. procedure setCMP2IS(thebits : TBits_2); inline;
  9981. procedure setI2C2AIP(thebits : TBits_3); inline;
  9982. procedure setI2C2AIS(thebits : TBits_2); inline;
  9983. procedure setI2C4IP(thebits : TBits_3); inline;
  9984. procedure setI2C4IS(thebits : TBits_2); inline;
  9985. procedure setPMPIP(thebits : TBits_3); inline;
  9986. procedure setPMPIS(thebits : TBits_2); inline;
  9987. procedure setSPI2AIP(thebits : TBits_3); inline;
  9988. procedure setSPI2AIS(thebits : TBits_2); inline;
  9989. procedure setSPI2IP(thebits : TBits_3); inline;
  9990. procedure setSPI2IS(thebits : TBits_2); inline;
  9991. procedure setU2AIP(thebits : TBits_3); inline;
  9992. procedure setU2AIS(thebits : TBits_2); inline;
  9993. procedure setU3IP(thebits : TBits_3); inline;
  9994. procedure setU3IS(thebits : TBits_2); inline;
  9995. procedure setw(thebits : TBits_32); inline;
  9996. public
  9997. property CMP1IP : TBits_3 read getCMP1IP write setCMP1IP;
  9998. property CMP1IS : TBits_2 read getCMP1IS write setCMP1IS;
  9999. property CMP2IP : TBits_3 read getCMP2IP write setCMP2IP;
  10000. property CMP2IS : TBits_2 read getCMP2IS write setCMP2IS;
  10001. property I2C2AIP : TBits_3 read getI2C2AIP write setI2C2AIP;
  10002. property I2C2AIS : TBits_2 read getI2C2AIS write setI2C2AIS;
  10003. property I2C4IP : TBits_3 read getI2C4IP write setI2C4IP;
  10004. property I2C4IS : TBits_2 read getI2C4IS write setI2C4IS;
  10005. property PMPIP : TBits_3 read getPMPIP write setPMPIP;
  10006. property PMPIS : TBits_2 read getPMPIS write setPMPIS;
  10007. property SPI2AIP : TBits_3 read getSPI2AIP write setSPI2AIP;
  10008. property SPI2AIS : TBits_2 read getSPI2AIS write setSPI2AIS;
  10009. property SPI2IP : TBits_3 read getSPI2IP write setSPI2IP;
  10010. property SPI2IS : TBits_2 read getSPI2IS write setSPI2IS;
  10011. property U2AIP : TBits_3 read getU2AIP write setU2AIP;
  10012. property U2AIS : TBits_2 read getU2AIS write setU2AIS;
  10013. property U3IP : TBits_3 read getU3IP write setU3IP;
  10014. property U3IS : TBits_2 read getU3IS write setU3IS;
  10015. property w : TBits_32 read getw write setw;
  10016. end;
  10017. TINT_IPC8 = record
  10018. private
  10019. function getFSCMIP : TBits_3; inline;
  10020. function getFSCMIS : TBits_2; inline;
  10021. function getI2C2IP : TBits_3; inline;
  10022. function getI2C2IS : TBits_2; inline;
  10023. function getI2C3AIP : TBits_3; inline;
  10024. function getI2C3AIS : TBits_2; inline;
  10025. function getI2C5IP : TBits_3; inline;
  10026. function getI2C5IS : TBits_2; inline;
  10027. function getRTCCIP : TBits_3; inline;
  10028. function getRTCCIS : TBits_2; inline;
  10029. function getSPI3AIP : TBits_3; inline;
  10030. function getSPI3AIS : TBits_2; inline;
  10031. function getSPI4IP : TBits_3; inline;
  10032. function getSPI4IS : TBits_2; inline;
  10033. function getU2IP : TBits_3; inline;
  10034. function getU2IS : TBits_2; inline;
  10035. function getU3AIP : TBits_3; inline;
  10036. function getU3AIS : TBits_2; inline;
  10037. function getw : TBits_32; inline;
  10038. procedure setFSCMIP(thebits : TBits_3); inline;
  10039. procedure setFSCMIS(thebits : TBits_2); inline;
  10040. procedure setI2C2IP(thebits : TBits_3); inline;
  10041. procedure setI2C2IS(thebits : TBits_2); inline;
  10042. procedure setI2C3AIP(thebits : TBits_3); inline;
  10043. procedure setI2C3AIS(thebits : TBits_2); inline;
  10044. procedure setI2C5IP(thebits : TBits_3); inline;
  10045. procedure setI2C5IS(thebits : TBits_2); inline;
  10046. procedure setRTCCIP(thebits : TBits_3); inline;
  10047. procedure setRTCCIS(thebits : TBits_2); inline;
  10048. procedure setSPI3AIP(thebits : TBits_3); inline;
  10049. procedure setSPI3AIS(thebits : TBits_2); inline;
  10050. procedure setSPI4IP(thebits : TBits_3); inline;
  10051. procedure setSPI4IS(thebits : TBits_2); inline;
  10052. procedure setU2IP(thebits : TBits_3); inline;
  10053. procedure setU2IS(thebits : TBits_2); inline;
  10054. procedure setU3AIP(thebits : TBits_3); inline;
  10055. procedure setU3AIS(thebits : TBits_2); inline;
  10056. procedure setw(thebits : TBits_32); inline;
  10057. public
  10058. property FSCMIP : TBits_3 read getFSCMIP write setFSCMIP;
  10059. property FSCMIS : TBits_2 read getFSCMIS write setFSCMIS;
  10060. property I2C2IP : TBits_3 read getI2C2IP write setI2C2IP;
  10061. property I2C2IS : TBits_2 read getI2C2IS write setI2C2IS;
  10062. property I2C3AIP : TBits_3 read getI2C3AIP write setI2C3AIP;
  10063. property I2C3AIS : TBits_2 read getI2C3AIS write setI2C3AIS;
  10064. property I2C5IP : TBits_3 read getI2C5IP write setI2C5IP;
  10065. property I2C5IS : TBits_2 read getI2C5IS write setI2C5IS;
  10066. property RTCCIP : TBits_3 read getRTCCIP write setRTCCIP;
  10067. property RTCCIS : TBits_2 read getRTCCIS write setRTCCIS;
  10068. property SPI3AIP : TBits_3 read getSPI3AIP write setSPI3AIP;
  10069. property SPI3AIS : TBits_2 read getSPI3AIS write setSPI3AIS;
  10070. property SPI4IP : TBits_3 read getSPI4IP write setSPI4IP;
  10071. property SPI4IS : TBits_2 read getSPI4IS write setSPI4IS;
  10072. property U2IP : TBits_3 read getU2IP write setU2IP;
  10073. property U2IS : TBits_2 read getU2IS write setU2IS;
  10074. property U3AIP : TBits_3 read getU3AIP write setU3AIP;
  10075. property U3AIS : TBits_2 read getU3AIS write setU3AIS;
  10076. property w : TBits_32 read getw write setw;
  10077. end;
  10078. TINT_IPC9 = record
  10079. private
  10080. function getDMA0IP : TBits_3; inline;
  10081. function getDMA0IS : TBits_2; inline;
  10082. function getDMA1IP : TBits_3; inline;
  10083. function getDMA1IS : TBits_2; inline;
  10084. function getDMA2IP : TBits_3; inline;
  10085. function getDMA2IS : TBits_2; inline;
  10086. function getDMA3IP : TBits_3; inline;
  10087. function getDMA3IS : TBits_2; inline;
  10088. function getw : TBits_32; inline;
  10089. procedure setDMA0IP(thebits : TBits_3); inline;
  10090. procedure setDMA0IS(thebits : TBits_2); inline;
  10091. procedure setDMA1IP(thebits : TBits_3); inline;
  10092. procedure setDMA1IS(thebits : TBits_2); inline;
  10093. procedure setDMA2IP(thebits : TBits_3); inline;
  10094. procedure setDMA2IS(thebits : TBits_2); inline;
  10095. procedure setDMA3IP(thebits : TBits_3); inline;
  10096. procedure setDMA3IS(thebits : TBits_2); inline;
  10097. procedure setw(thebits : TBits_32); inline;
  10098. public
  10099. property DMA0IP : TBits_3 read getDMA0IP write setDMA0IP;
  10100. property DMA0IS : TBits_2 read getDMA0IS write setDMA0IS;
  10101. property DMA1IP : TBits_3 read getDMA1IP write setDMA1IP;
  10102. property DMA1IS : TBits_2 read getDMA1IS write setDMA1IS;
  10103. property DMA2IP : TBits_3 read getDMA2IP write setDMA2IP;
  10104. property DMA2IS : TBits_2 read getDMA2IS write setDMA2IS;
  10105. property DMA3IP : TBits_3 read getDMA3IP write setDMA3IP;
  10106. property DMA3IS : TBits_2 read getDMA3IS write setDMA3IS;
  10107. property w : TBits_32 read getw write setw;
  10108. end;
  10109. TINT_IPC11 = record
  10110. private
  10111. function getCAN1IP : TBits_3; inline;
  10112. function getCAN1IS : TBits_2; inline;
  10113. function getFCEIP : TBits_3; inline;
  10114. function getFCEIS : TBits_2; inline;
  10115. function getUSBIP : TBits_3; inline;
  10116. function getUSBIS : TBits_2; inline;
  10117. function getw : TBits_32; inline;
  10118. procedure setCAN1IP(thebits : TBits_3); inline;
  10119. procedure setCAN1IS(thebits : TBits_2); inline;
  10120. procedure setFCEIP(thebits : TBits_3); inline;
  10121. procedure setFCEIS(thebits : TBits_2); inline;
  10122. procedure setUSBIP(thebits : TBits_3); inline;
  10123. procedure setUSBIS(thebits : TBits_2); inline;
  10124. procedure setw(thebits : TBits_32); inline;
  10125. public
  10126. property CAN1IP : TBits_3 read getCAN1IP write setCAN1IP;
  10127. property CAN1IS : TBits_2 read getCAN1IS write setCAN1IS;
  10128. property FCEIP : TBits_3 read getFCEIP write setFCEIP;
  10129. property FCEIS : TBits_2 read getFCEIS write setFCEIS;
  10130. property USBIP : TBits_3 read getUSBIP write setUSBIP;
  10131. property USBIS : TBits_2 read getUSBIS write setUSBIS;
  10132. property w : TBits_32 read getw write setw;
  10133. end;
  10134. TINT_IPC12 = record
  10135. private
  10136. function getU1BIP : TBits_3; inline;
  10137. function getU1BIS : TBits_2; inline;
  10138. function getU2BIP : TBits_3; inline;
  10139. function getU2BIS : TBits_2; inline;
  10140. function getU3BIP : TBits_3; inline;
  10141. function getU3BIS : TBits_2; inline;
  10142. function getU4IP : TBits_3; inline;
  10143. function getU4IS : TBits_2; inline;
  10144. function getU5IP : TBits_3; inline;
  10145. function getU5IS : TBits_2; inline;
  10146. function getU6IP : TBits_3; inline;
  10147. function getU6IS : TBits_2; inline;
  10148. function getw : TBits_32; inline;
  10149. procedure setU1BIP(thebits : TBits_3); inline;
  10150. procedure setU1BIS(thebits : TBits_2); inline;
  10151. procedure setU2BIP(thebits : TBits_3); inline;
  10152. procedure setU2BIS(thebits : TBits_2); inline;
  10153. procedure setU3BIP(thebits : TBits_3); inline;
  10154. procedure setU3BIS(thebits : TBits_2); inline;
  10155. procedure setU4IP(thebits : TBits_3); inline;
  10156. procedure setU4IS(thebits : TBits_2); inline;
  10157. procedure setU5IP(thebits : TBits_3); inline;
  10158. procedure setU5IS(thebits : TBits_2); inline;
  10159. procedure setU6IP(thebits : TBits_3); inline;
  10160. procedure setU6IS(thebits : TBits_2); inline;
  10161. procedure setw(thebits : TBits_32); inline;
  10162. public
  10163. property U1BIP : TBits_3 read getU1BIP write setU1BIP;
  10164. property U1BIS : TBits_2 read getU1BIS write setU1BIS;
  10165. property U2BIP : TBits_3 read getU2BIP write setU2BIP;
  10166. property U2BIS : TBits_2 read getU2BIS write setU2BIS;
  10167. property U3BIP : TBits_3 read getU3BIP write setU3BIP;
  10168. property U3BIS : TBits_2 read getU3BIS write setU3BIS;
  10169. property U4IP : TBits_3 read getU4IP write setU4IP;
  10170. property U4IS : TBits_2 read getU4IS write setU4IS;
  10171. property U5IP : TBits_3 read getU5IP write setU5IP;
  10172. property U5IS : TBits_2 read getU5IS write setU5IS;
  10173. property U6IP : TBits_3 read getU6IP write setU6IP;
  10174. property U6IS : TBits_2 read getU6IS write setU6IS;
  10175. property w : TBits_32 read getw write setw;
  10176. end;
  10177. type
  10178. TINTRegisters = record
  10179. INTCONbits : TINT_INTCON;
  10180. INTCON : longWord;
  10181. INTCONCLR : longWord;
  10182. INTCONSET : longWord;
  10183. INTCONINV : longWord;
  10184. INTSTAT : longWord;
  10185. IPTMR : longWord;
  10186. IPTMRCLR : longWord;
  10187. IPTMRSET : longWord;
  10188. IPTMRINV : longWord;
  10189. IFS0bits : TINT_IFS0;
  10190. IFS0 : longWord;
  10191. IFS0CLR : longWord;
  10192. IFS0SET : longWord;
  10193. IFS0INV : longWord;
  10194. IFS1bits : TINT_IFS1;
  10195. IFS1 : longWord;
  10196. IFS1CLR : longWord;
  10197. IFS1SET : longWord;
  10198. IFS1INV : longWord;
  10199. IFS2bits : TINT_IFS2;
  10200. IFS2 : longWord;
  10201. IFS2CLR : longWord;
  10202. IFS2SET : longWord;
  10203. IFS2INV : longWord;
  10204. IEC0bits : TINT_IEC0;
  10205. IEC0 : longWord;
  10206. IEC0CLR : longWord;
  10207. IEC0SET : longWord;
  10208. IEC0INV : longWord;
  10209. IEC1bits : TINT_IEC1;
  10210. IEC1 : longWord;
  10211. IEC1CLR : longWord;
  10212. IEC1SET : longWord;
  10213. IEC1INV : longWord;
  10214. IEC2bits : TINT_IEC2;
  10215. IEC2 : longWord;
  10216. IEC2CLR : longWord;
  10217. IEC2SET : longWord;
  10218. IEC2INV : longWord;
  10219. IPC0bits : TINT_IPC0;
  10220. IPC0 : longWord;
  10221. IPC0CLR : longWord;
  10222. IPC0SET : longWord;
  10223. IPC0INV : longWord;
  10224. IPC1bits : TINT_IPC1;
  10225. IPC1 : longWord;
  10226. IPC1CLR : longWord;
  10227. IPC1SET : longWord;
  10228. IPC1INV : longWord;
  10229. IPC2bits : TINT_IPC2;
  10230. IPC2 : longWord;
  10231. IPC2CLR : longWord;
  10232. IPC2SET : longWord;
  10233. IPC2INV : longWord;
  10234. IPC3bits : TINT_IPC3;
  10235. IPC3 : longWord;
  10236. IPC3CLR : longWord;
  10237. IPC3SET : longWord;
  10238. IPC3INV : longWord;
  10239. IPC4bits : TINT_IPC4;
  10240. IPC4 : longWord;
  10241. IPC4CLR : longWord;
  10242. IPC4SET : longWord;
  10243. IPC4INV : longWord;
  10244. IPC5bits : TINT_IPC5;
  10245. IPC5 : longWord;
  10246. IPC5CLR : longWord;
  10247. IPC5SET : longWord;
  10248. IPC5INV : longWord;
  10249. IPC6bits : TINT_IPC6;
  10250. IPC6 : longWord;
  10251. IPC6CLR : longWord;
  10252. IPC6SET : longWord;
  10253. IPC6INV : longWord;
  10254. IPC7bits : TINT_IPC7;
  10255. IPC7 : longWord;
  10256. IPC7CLR : longWord;
  10257. IPC7SET : longWord;
  10258. IPC7INV : longWord;
  10259. IPC8bits : TINT_IPC8;
  10260. IPC8 : longWord;
  10261. IPC8CLR : longWord;
  10262. IPC8SET : longWord;
  10263. IPC8INV : longWord;
  10264. IPC9bits : TINT_IPC9;
  10265. IPC9 : longWord;
  10266. IPC9CLR : longWord;
  10267. IPC9SET : longWord;
  10268. IPC9INV : longWord;
  10269. IPC10 : longWord;
  10270. IPC10CLR : longWord;
  10271. IPC10SET : longWord;
  10272. IPC10INV : longWord;
  10273. IPC11bits : TINT_IPC11;
  10274. IPC11 : longWord;
  10275. IPC11CLR : longWord;
  10276. IPC11SET : longWord;
  10277. IPC11INV : longWord;
  10278. IPC12bits : TINT_IPC12;
  10279. IPC12 : longWord;
  10280. IPC12CLR : longWord;
  10281. IPC12SET : longWord;
  10282. IPC12INV : longWord;
  10283. end;
  10284. TBMX_BMXCON = record
  10285. private
  10286. function getBMXARB : TBits_3; inline;
  10287. function getBMXCHEDMA : TBits_1; inline;
  10288. function getBMXERRDMA : TBits_1; inline;
  10289. function getBMXERRDS : TBits_1; inline;
  10290. function getBMXERRICD : TBits_1; inline;
  10291. function getBMXERRIS : TBits_1; inline;
  10292. function getBMXERRIXI : TBits_1; inline;
  10293. function getBMXWSDRM : TBits_1; inline;
  10294. function getw : TBits_32; inline;
  10295. procedure setBMXARB(thebits : TBits_3); inline;
  10296. procedure setBMXCHEDMA(thebits : TBits_1); inline;
  10297. procedure setBMXERRDMA(thebits : TBits_1); inline;
  10298. procedure setBMXERRDS(thebits : TBits_1); inline;
  10299. procedure setBMXERRICD(thebits : TBits_1); inline;
  10300. procedure setBMXERRIS(thebits : TBits_1); inline;
  10301. procedure setBMXERRIXI(thebits : TBits_1); inline;
  10302. procedure setBMXWSDRM(thebits : TBits_1); inline;
  10303. procedure setw(thebits : TBits_32); inline;
  10304. public
  10305. procedure clearBMXCHEDMA; inline;
  10306. procedure clearBMXERRDMA; inline;
  10307. procedure clearBMXERRDS; inline;
  10308. procedure clearBMXERRICD; inline;
  10309. procedure clearBMXERRIS; inline;
  10310. procedure clearBMXERRIXI; inline;
  10311. procedure clearBMXWSDRM; inline;
  10312. procedure setBMXCHEDMA; inline;
  10313. procedure setBMXERRDMA; inline;
  10314. procedure setBMXERRDS; inline;
  10315. procedure setBMXERRICD; inline;
  10316. procedure setBMXERRIS; inline;
  10317. procedure setBMXERRIXI; inline;
  10318. procedure setBMXWSDRM; inline;
  10319. property BMXARB : TBits_3 read getBMXARB write setBMXARB;
  10320. property BMXCHEDMA : TBits_1 read getBMXCHEDMA write setBMXCHEDMA;
  10321. property BMXERRDMA : TBits_1 read getBMXERRDMA write setBMXERRDMA;
  10322. property BMXERRDS : TBits_1 read getBMXERRDS write setBMXERRDS;
  10323. property BMXERRICD : TBits_1 read getBMXERRICD write setBMXERRICD;
  10324. property BMXERRIS : TBits_1 read getBMXERRIS write setBMXERRIS;
  10325. property BMXERRIXI : TBits_1 read getBMXERRIXI write setBMXERRIXI;
  10326. property BMXWSDRM : TBits_1 read getBMXWSDRM write setBMXWSDRM;
  10327. property w : TBits_32 read getw write setw;
  10328. end;
  10329. type
  10330. TBMXRegisters = record
  10331. BMXCONbits : TBMX_BMXCON;
  10332. BMXCON : longWord;
  10333. BMXCONCLR : longWord;
  10334. BMXCONSET : longWord;
  10335. BMXCONINV : longWord;
  10336. BMXDKPBA : longWord;
  10337. BMXDKPBACLR : longWord;
  10338. BMXDKPBASET : longWord;
  10339. BMXDKPBAINV : longWord;
  10340. BMXDUDBA : longWord;
  10341. BMXDUDBACLR : longWord;
  10342. BMXDUDBASET : longWord;
  10343. BMXDUDBAINV : longWord;
  10344. BMXDUPBA : longWord;
  10345. BMXDUPBACLR : longWord;
  10346. BMXDUPBASET : longWord;
  10347. BMXDUPBAINV : longWord;
  10348. BMXDRMSZ : longWord;
  10349. BMXPUPBA : longWord;
  10350. BMXPUPBACLR : longWord;
  10351. BMXPUPBASET : longWord;
  10352. BMXPUPBAINV : longWord;
  10353. BMXPFMSZ : longWord;
  10354. BMXBOOTSZ : longWord;
  10355. end;
  10356. TDMAC_DMACON = record
  10357. private
  10358. function getDMABUSY : TBits_1; inline;
  10359. function getON : TBits_1; inline;
  10360. function getSUSPEND : TBits_1; inline;
  10361. function getw : TBits_32; inline;
  10362. procedure setDMABUSY(thebits : TBits_1); inline;
  10363. procedure setON(thebits : TBits_1); inline;
  10364. procedure setSUSPEND(thebits : TBits_1); inline;
  10365. procedure setw(thebits : TBits_32); inline;
  10366. public
  10367. procedure clearDMABUSY; inline;
  10368. procedure clearON; inline;
  10369. procedure clearSUSPEND; inline;
  10370. procedure setDMABUSY; inline;
  10371. procedure setON; inline;
  10372. procedure setSUSPEND; inline;
  10373. property DMABUSY : TBits_1 read getDMABUSY write setDMABUSY;
  10374. property ON : TBits_1 read getON write setON;
  10375. property SUSPEND : TBits_1 read getSUSPEND write setSUSPEND;
  10376. property w : TBits_32 read getw write setw;
  10377. end;
  10378. TDMAC_DMASTAT = record
  10379. private
  10380. function getDMACH : TBits_3; inline;
  10381. function getRDWR : TBits_1; inline;
  10382. function getw : TBits_32; inline;
  10383. procedure setDMACH(thebits : TBits_3); inline;
  10384. procedure setRDWR(thebits : TBits_1); inline;
  10385. procedure setw(thebits : TBits_32); inline;
  10386. public
  10387. procedure clearRDWR; inline;
  10388. procedure setRDWR; inline;
  10389. property DMACH : TBits_3 read getDMACH write setDMACH;
  10390. property RDWR : TBits_1 read getRDWR write setRDWR;
  10391. property w : TBits_32 read getw write setw;
  10392. end;
  10393. TDMAC_DCRCCON = record
  10394. private
  10395. function getBITO : TBits_1; inline;
  10396. function getBYTO : TBits_2; inline;
  10397. function getCRCAPP : TBits_1; inline;
  10398. function getCRCCH : TBits_3; inline;
  10399. function getCRCEN : TBits_1; inline;
  10400. function getCRCTYP : TBits_1; inline;
  10401. function getPLEN : TBits_5; inline;
  10402. function getWBO : TBits_1; inline;
  10403. function getw : TBits_32; inline;
  10404. procedure setBITO(thebits : TBits_1); inline;
  10405. procedure setBYTO(thebits : TBits_2); inline;
  10406. procedure setCRCAPP(thebits : TBits_1); inline;
  10407. procedure setCRCCH(thebits : TBits_3); inline;
  10408. procedure setCRCEN(thebits : TBits_1); inline;
  10409. procedure setCRCTYP(thebits : TBits_1); inline;
  10410. procedure setPLEN(thebits : TBits_5); inline;
  10411. procedure setWBO(thebits : TBits_1); inline;
  10412. procedure setw(thebits : TBits_32); inline;
  10413. public
  10414. procedure clearBITO; inline;
  10415. procedure clearCRCAPP; inline;
  10416. procedure clearCRCEN; inline;
  10417. procedure clearCRCTYP; inline;
  10418. procedure clearWBO; inline;
  10419. procedure setBITO; inline;
  10420. procedure setCRCAPP; inline;
  10421. procedure setCRCEN; inline;
  10422. procedure setCRCTYP; inline;
  10423. procedure setWBO; inline;
  10424. property BITO : TBits_1 read getBITO write setBITO;
  10425. property BYTO : TBits_2 read getBYTO write setBYTO;
  10426. property CRCAPP : TBits_1 read getCRCAPP write setCRCAPP;
  10427. property CRCCH : TBits_3 read getCRCCH write setCRCCH;
  10428. property CRCEN : TBits_1 read getCRCEN write setCRCEN;
  10429. property CRCTYP : TBits_1 read getCRCTYP write setCRCTYP;
  10430. property PLEN : TBits_5 read getPLEN write setPLEN;
  10431. property WBO : TBits_1 read getWBO write setWBO;
  10432. property w : TBits_32 read getw write setw;
  10433. end;
  10434. type
  10435. TDMACRegisters = record
  10436. DMACONbits : TDMAC_DMACON;
  10437. DMACON : longWord;
  10438. DMACONCLR : longWord;
  10439. DMACONSET : longWord;
  10440. DMACONINV : longWord;
  10441. DMASTATbits : TDMAC_DMASTAT;
  10442. DMASTAT : longWord;
  10443. DMASTATCLR : longWord;
  10444. DMASTATSET : longWord;
  10445. DMASTATINV : longWord;
  10446. DMAADDR : longWord;
  10447. DMAADDRCLR : longWord;
  10448. DMAADDRSET : longWord;
  10449. DMAADDRINV : longWord;
  10450. DCRCCONbits : TDMAC_DCRCCON;
  10451. DCRCCON : longWord;
  10452. DCRCCONCLR : longWord;
  10453. DCRCCONSET : longWord;
  10454. DCRCCONINV : longWord;
  10455. DCRCDATA : longWord;
  10456. DCRCDATACLR : longWord;
  10457. DCRCDATASET : longWord;
  10458. DCRCDATAINV : longWord;
  10459. DCRCXOR : longWord;
  10460. DCRCXORCLR : longWord;
  10461. DCRCXORSET : longWord;
  10462. DCRCXORINV : longWord;
  10463. end;
  10464. TDMAC0_DCH0CON = record
  10465. private
  10466. function getCHAED : TBits_1; inline;
  10467. function getCHAEN : TBits_1; inline;
  10468. function getCHBUSY : TBits_1; inline;
  10469. function getCHCHN : TBits_1; inline;
  10470. function getCHCHNS : TBits_1; inline;
  10471. function getCHEDET : TBits_1; inline;
  10472. function getCHEN : TBits_1; inline;
  10473. function getCHPRI : TBits_2; inline;
  10474. function getw : TBits_32; inline;
  10475. procedure setCHAED(thebits : TBits_1); inline;
  10476. procedure setCHAEN(thebits : TBits_1); inline;
  10477. procedure setCHBUSY(thebits : TBits_1); inline;
  10478. procedure setCHCHN(thebits : TBits_1); inline;
  10479. procedure setCHCHNS(thebits : TBits_1); inline;
  10480. procedure setCHEDET(thebits : TBits_1); inline;
  10481. procedure setCHEN(thebits : TBits_1); inline;
  10482. procedure setCHPRI(thebits : TBits_2); inline;
  10483. procedure setw(thebits : TBits_32); inline;
  10484. public
  10485. procedure clearCHAED; inline;
  10486. procedure clearCHAEN; inline;
  10487. procedure clearCHBUSY; inline;
  10488. procedure clearCHCHN; inline;
  10489. procedure clearCHCHNS; inline;
  10490. procedure clearCHEDET; inline;
  10491. procedure clearCHEN; inline;
  10492. procedure setCHAED; inline;
  10493. procedure setCHAEN; inline;
  10494. procedure setCHBUSY; inline;
  10495. procedure setCHCHN; inline;
  10496. procedure setCHCHNS; inline;
  10497. procedure setCHEDET; inline;
  10498. procedure setCHEN; inline;
  10499. property CHAED : TBits_1 read getCHAED write setCHAED;
  10500. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10501. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10502. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10503. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10504. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10505. property CHEN : TBits_1 read getCHEN write setCHEN;
  10506. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10507. property w : TBits_32 read getw write setw;
  10508. end;
  10509. TDMAC0_DCH0ECON = record
  10510. private
  10511. function getAIRQEN : TBits_1; inline;
  10512. function getCABORT : TBits_1; inline;
  10513. function getCFORCE : TBits_1; inline;
  10514. function getCHAIRQ : TBits_8; inline;
  10515. function getCHSIRQ : TBits_8; inline;
  10516. function getPATEN : TBits_1; inline;
  10517. function getSIRQEN : TBits_1; inline;
  10518. function getw : TBits_32; inline;
  10519. procedure setAIRQEN(thebits : TBits_1); inline;
  10520. procedure setCABORT(thebits : TBits_1); inline;
  10521. procedure setCFORCE(thebits : TBits_1); inline;
  10522. procedure setCHAIRQ(thebits : TBits_8); inline;
  10523. procedure setCHSIRQ(thebits : TBits_8); inline;
  10524. procedure setPATEN(thebits : TBits_1); inline;
  10525. procedure setSIRQEN(thebits : TBits_1); inline;
  10526. procedure setw(thebits : TBits_32); inline;
  10527. public
  10528. procedure clearAIRQEN; inline;
  10529. procedure clearCABORT; inline;
  10530. procedure clearCFORCE; inline;
  10531. procedure clearPATEN; inline;
  10532. procedure clearSIRQEN; inline;
  10533. procedure setAIRQEN; inline;
  10534. procedure setCABORT; inline;
  10535. procedure setCFORCE; inline;
  10536. procedure setPATEN; inline;
  10537. procedure setSIRQEN; inline;
  10538. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10539. property CABORT : TBits_1 read getCABORT write setCABORT;
  10540. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10541. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10542. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10543. property PATEN : TBits_1 read getPATEN write setPATEN;
  10544. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10545. property w : TBits_32 read getw write setw;
  10546. end;
  10547. TDMAC0_DCH0INT = record
  10548. private
  10549. function getCHBCIE : TBits_1; inline;
  10550. function getCHBCIF : TBits_1; inline;
  10551. function getCHCCIE : TBits_1; inline;
  10552. function getCHCCIF : TBits_1; inline;
  10553. function getCHDDIE : TBits_1; inline;
  10554. function getCHDDIF : TBits_1; inline;
  10555. function getCHDHIE : TBits_1; inline;
  10556. function getCHDHIF : TBits_1; inline;
  10557. function getCHERIE : TBits_1; inline;
  10558. function getCHERIF : TBits_1; inline;
  10559. function getCHSDIE : TBits_1; inline;
  10560. function getCHSDIF : TBits_1; inline;
  10561. function getCHSHIE : TBits_1; inline;
  10562. function getCHSHIF : TBits_1; inline;
  10563. function getCHTAIE : TBits_1; inline;
  10564. function getCHTAIF : TBits_1; inline;
  10565. function getw : TBits_32; inline;
  10566. procedure setCHBCIE(thebits : TBits_1); inline;
  10567. procedure setCHBCIF(thebits : TBits_1); inline;
  10568. procedure setCHCCIE(thebits : TBits_1); inline;
  10569. procedure setCHCCIF(thebits : TBits_1); inline;
  10570. procedure setCHDDIE(thebits : TBits_1); inline;
  10571. procedure setCHDDIF(thebits : TBits_1); inline;
  10572. procedure setCHDHIE(thebits : TBits_1); inline;
  10573. procedure setCHDHIF(thebits : TBits_1); inline;
  10574. procedure setCHERIE(thebits : TBits_1); inline;
  10575. procedure setCHERIF(thebits : TBits_1); inline;
  10576. procedure setCHSDIE(thebits : TBits_1); inline;
  10577. procedure setCHSDIF(thebits : TBits_1); inline;
  10578. procedure setCHSHIE(thebits : TBits_1); inline;
  10579. procedure setCHSHIF(thebits : TBits_1); inline;
  10580. procedure setCHTAIE(thebits : TBits_1); inline;
  10581. procedure setCHTAIF(thebits : TBits_1); inline;
  10582. procedure setw(thebits : TBits_32); inline;
  10583. public
  10584. procedure clearCHBCIE; inline;
  10585. procedure clearCHBCIF; inline;
  10586. procedure clearCHCCIE; inline;
  10587. procedure clearCHCCIF; inline;
  10588. procedure clearCHDDIE; inline;
  10589. procedure clearCHDDIF; inline;
  10590. procedure clearCHDHIE; inline;
  10591. procedure clearCHDHIF; inline;
  10592. procedure clearCHERIE; inline;
  10593. procedure clearCHERIF; inline;
  10594. procedure clearCHSDIE; inline;
  10595. procedure clearCHSDIF; inline;
  10596. procedure clearCHSHIE; inline;
  10597. procedure clearCHSHIF; inline;
  10598. procedure clearCHTAIE; inline;
  10599. procedure clearCHTAIF; inline;
  10600. procedure setCHBCIE; inline;
  10601. procedure setCHBCIF; inline;
  10602. procedure setCHCCIE; inline;
  10603. procedure setCHCCIF; inline;
  10604. procedure setCHDDIE; inline;
  10605. procedure setCHDDIF; inline;
  10606. procedure setCHDHIE; inline;
  10607. procedure setCHDHIF; inline;
  10608. procedure setCHERIE; inline;
  10609. procedure setCHERIF; inline;
  10610. procedure setCHSDIE; inline;
  10611. procedure setCHSDIF; inline;
  10612. procedure setCHSHIE; inline;
  10613. procedure setCHSHIF; inline;
  10614. procedure setCHTAIE; inline;
  10615. procedure setCHTAIF; inline;
  10616. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  10617. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  10618. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  10619. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  10620. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  10621. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  10622. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  10623. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  10624. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  10625. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  10626. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  10627. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  10628. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  10629. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  10630. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  10631. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  10632. property w : TBits_32 read getw write setw;
  10633. end;
  10634. type
  10635. TDMAC0Registers = record
  10636. DCH0CONbits : TDMAC0_DCH0CON;
  10637. DCH0CON : longWord;
  10638. DCH0CONCLR : longWord;
  10639. DCH0CONSET : longWord;
  10640. DCH0CONINV : longWord;
  10641. DCH0ECONbits : TDMAC0_DCH0ECON;
  10642. DCH0ECON : longWord;
  10643. DCH0ECONCLR : longWord;
  10644. DCH0ECONSET : longWord;
  10645. DCH0ECONINV : longWord;
  10646. DCH0INTbits : TDMAC0_DCH0INT;
  10647. DCH0INT : longWord;
  10648. DCH0INTCLR : longWord;
  10649. DCH0INTSET : longWord;
  10650. DCH0INTINV : longWord;
  10651. DCH0SSA : longWord;
  10652. DCH0SSACLR : longWord;
  10653. DCH0SSASET : longWord;
  10654. DCH0SSAINV : longWord;
  10655. DCH0DSA : longWord;
  10656. DCH0DSACLR : longWord;
  10657. DCH0DSASET : longWord;
  10658. DCH0DSAINV : longWord;
  10659. DCH0SSIZ : longWord;
  10660. DCH0SSIZCLR : longWord;
  10661. DCH0SSIZSET : longWord;
  10662. DCH0SSIZINV : longWord;
  10663. DCH0DSIZ : longWord;
  10664. DCH0DSIZCLR : longWord;
  10665. DCH0DSIZSET : longWord;
  10666. DCH0DSIZINV : longWord;
  10667. DCH0SPTR : longWord;
  10668. DCH0SPTRCLR : longWord;
  10669. DCH0SPTRSET : longWord;
  10670. DCH0SPTRINV : longWord;
  10671. DCH0DPTR : longWord;
  10672. DCH0DPTRCLR : longWord;
  10673. DCH0DPTRSET : longWord;
  10674. DCH0DPTRINV : longWord;
  10675. DCH0CSIZ : longWord;
  10676. DCH0CSIZCLR : longWord;
  10677. DCH0CSIZSET : longWord;
  10678. DCH0CSIZINV : longWord;
  10679. DCH0CPTR : longWord;
  10680. DCH0CPTRCLR : longWord;
  10681. DCH0CPTRSET : longWord;
  10682. DCH0CPTRINV : longWord;
  10683. DCH0DAT : longWord;
  10684. DCH0DATCLR : longWord;
  10685. DCH0DATSET : longWord;
  10686. DCH0DATINV : longWord;
  10687. end;
  10688. TDMAC1_DCH1CON = record
  10689. private
  10690. function getCHAED : TBits_1; inline;
  10691. function getCHAEN : TBits_1; inline;
  10692. function getCHBUSY : TBits_1; inline;
  10693. function getCHCHN : TBits_1; inline;
  10694. function getCHCHNS : TBits_1; inline;
  10695. function getCHEDET : TBits_1; inline;
  10696. function getCHEN : TBits_1; inline;
  10697. function getCHPRI : TBits_2; inline;
  10698. function getw : TBits_32; inline;
  10699. procedure setCHAED(thebits : TBits_1); inline;
  10700. procedure setCHAEN(thebits : TBits_1); inline;
  10701. procedure setCHBUSY(thebits : TBits_1); inline;
  10702. procedure setCHCHN(thebits : TBits_1); inline;
  10703. procedure setCHCHNS(thebits : TBits_1); inline;
  10704. procedure setCHEDET(thebits : TBits_1); inline;
  10705. procedure setCHEN(thebits : TBits_1); inline;
  10706. procedure setCHPRI(thebits : TBits_2); inline;
  10707. procedure setw(thebits : TBits_32); inline;
  10708. public
  10709. procedure clearCHAED; inline;
  10710. procedure clearCHAEN; inline;
  10711. procedure clearCHBUSY; inline;
  10712. procedure clearCHCHN; inline;
  10713. procedure clearCHCHNS; inline;
  10714. procedure clearCHEDET; inline;
  10715. procedure clearCHEN; inline;
  10716. procedure setCHAED; inline;
  10717. procedure setCHAEN; inline;
  10718. procedure setCHBUSY; inline;
  10719. procedure setCHCHN; inline;
  10720. procedure setCHCHNS; inline;
  10721. procedure setCHEDET; inline;
  10722. procedure setCHEN; inline;
  10723. property CHAED : TBits_1 read getCHAED write setCHAED;
  10724. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10725. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10726. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10727. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10728. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10729. property CHEN : TBits_1 read getCHEN write setCHEN;
  10730. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10731. property w : TBits_32 read getw write setw;
  10732. end;
  10733. TDMAC1_DCH1ECON = record
  10734. private
  10735. function getAIRQEN : TBits_1; inline;
  10736. function getCABORT : TBits_1; inline;
  10737. function getCFORCE : TBits_1; inline;
  10738. function getCHAIRQ : TBits_8; inline;
  10739. function getCHSIRQ : TBits_8; inline;
  10740. function getPATEN : TBits_1; inline;
  10741. function getSIRQEN : TBits_1; inline;
  10742. function getw : TBits_32; inline;
  10743. procedure setAIRQEN(thebits : TBits_1); inline;
  10744. procedure setCABORT(thebits : TBits_1); inline;
  10745. procedure setCFORCE(thebits : TBits_1); inline;
  10746. procedure setCHAIRQ(thebits : TBits_8); inline;
  10747. procedure setCHSIRQ(thebits : TBits_8); inline;
  10748. procedure setPATEN(thebits : TBits_1); inline;
  10749. procedure setSIRQEN(thebits : TBits_1); inline;
  10750. procedure setw(thebits : TBits_32); inline;
  10751. public
  10752. procedure clearAIRQEN; inline;
  10753. procedure clearCABORT; inline;
  10754. procedure clearCFORCE; inline;
  10755. procedure clearPATEN; inline;
  10756. procedure clearSIRQEN; inline;
  10757. procedure setAIRQEN; inline;
  10758. procedure setCABORT; inline;
  10759. procedure setCFORCE; inline;
  10760. procedure setPATEN; inline;
  10761. procedure setSIRQEN; inline;
  10762. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10763. property CABORT : TBits_1 read getCABORT write setCABORT;
  10764. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10765. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10766. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10767. property PATEN : TBits_1 read getPATEN write setPATEN;
  10768. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10769. property w : TBits_32 read getw write setw;
  10770. end;
  10771. TDMAC1_DCH1INT = record
  10772. private
  10773. function getCHBCIE : TBits_1; inline;
  10774. function getCHBCIF : TBits_1; inline;
  10775. function getCHCCIE : TBits_1; inline;
  10776. function getCHCCIF : TBits_1; inline;
  10777. function getCHDDIE : TBits_1; inline;
  10778. function getCHDDIF : TBits_1; inline;
  10779. function getCHDHIE : TBits_1; inline;
  10780. function getCHDHIF : TBits_1; inline;
  10781. function getCHERIE : TBits_1; inline;
  10782. function getCHERIF : TBits_1; inline;
  10783. function getCHSDIE : TBits_1; inline;
  10784. function getCHSDIF : TBits_1; inline;
  10785. function getCHSHIE : TBits_1; inline;
  10786. function getCHSHIF : TBits_1; inline;
  10787. function getCHTAIE : TBits_1; inline;
  10788. function getCHTAIF : TBits_1; inline;
  10789. function getw : TBits_32; inline;
  10790. procedure setCHBCIE(thebits : TBits_1); inline;
  10791. procedure setCHBCIF(thebits : TBits_1); inline;
  10792. procedure setCHCCIE(thebits : TBits_1); inline;
  10793. procedure setCHCCIF(thebits : TBits_1); inline;
  10794. procedure setCHDDIE(thebits : TBits_1); inline;
  10795. procedure setCHDDIF(thebits : TBits_1); inline;
  10796. procedure setCHDHIE(thebits : TBits_1); inline;
  10797. procedure setCHDHIF(thebits : TBits_1); inline;
  10798. procedure setCHERIE(thebits : TBits_1); inline;
  10799. procedure setCHERIF(thebits : TBits_1); inline;
  10800. procedure setCHSDIE(thebits : TBits_1); inline;
  10801. procedure setCHSDIF(thebits : TBits_1); inline;
  10802. procedure setCHSHIE(thebits : TBits_1); inline;
  10803. procedure setCHSHIF(thebits : TBits_1); inline;
  10804. procedure setCHTAIE(thebits : TBits_1); inline;
  10805. procedure setCHTAIF(thebits : TBits_1); inline;
  10806. procedure setw(thebits : TBits_32); inline;
  10807. public
  10808. procedure clearCHBCIE; inline;
  10809. procedure clearCHBCIF; inline;
  10810. procedure clearCHCCIE; inline;
  10811. procedure clearCHCCIF; inline;
  10812. procedure clearCHDDIE; inline;
  10813. procedure clearCHDDIF; inline;
  10814. procedure clearCHDHIE; inline;
  10815. procedure clearCHDHIF; inline;
  10816. procedure clearCHERIE; inline;
  10817. procedure clearCHERIF; inline;
  10818. procedure clearCHSDIE; inline;
  10819. procedure clearCHSDIF; inline;
  10820. procedure clearCHSHIE; inline;
  10821. procedure clearCHSHIF; inline;
  10822. procedure clearCHTAIE; inline;
  10823. procedure clearCHTAIF; inline;
  10824. procedure setCHBCIE; inline;
  10825. procedure setCHBCIF; inline;
  10826. procedure setCHCCIE; inline;
  10827. procedure setCHCCIF; inline;
  10828. procedure setCHDDIE; inline;
  10829. procedure setCHDDIF; inline;
  10830. procedure setCHDHIE; inline;
  10831. procedure setCHDHIF; inline;
  10832. procedure setCHERIE; inline;
  10833. procedure setCHERIF; inline;
  10834. procedure setCHSDIE; inline;
  10835. procedure setCHSDIF; inline;
  10836. procedure setCHSHIE; inline;
  10837. procedure setCHSHIF; inline;
  10838. procedure setCHTAIE; inline;
  10839. procedure setCHTAIF; inline;
  10840. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  10841. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  10842. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  10843. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  10844. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  10845. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  10846. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  10847. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  10848. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  10849. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  10850. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  10851. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  10852. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  10853. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  10854. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  10855. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  10856. property w : TBits_32 read getw write setw;
  10857. end;
  10858. type
  10859. TDMAC1Registers = record
  10860. DCH1CONbits : TDMAC1_DCH1CON;
  10861. DCH1CON : longWord;
  10862. DCH1CONCLR : longWord;
  10863. DCH1CONSET : longWord;
  10864. DCH1CONINV : longWord;
  10865. DCH1ECONbits : TDMAC1_DCH1ECON;
  10866. DCH1ECON : longWord;
  10867. DCH1ECONCLR : longWord;
  10868. DCH1ECONSET : longWord;
  10869. DCH1ECONINV : longWord;
  10870. DCH1INTbits : TDMAC1_DCH1INT;
  10871. DCH1INT : longWord;
  10872. DCH1INTCLR : longWord;
  10873. DCH1INTSET : longWord;
  10874. DCH1INTINV : longWord;
  10875. DCH1SSA : longWord;
  10876. DCH1SSACLR : longWord;
  10877. DCH1SSASET : longWord;
  10878. DCH1SSAINV : longWord;
  10879. DCH1DSA : longWord;
  10880. DCH1DSACLR : longWord;
  10881. DCH1DSASET : longWord;
  10882. DCH1DSAINV : longWord;
  10883. DCH1SSIZ : longWord;
  10884. DCH1SSIZCLR : longWord;
  10885. DCH1SSIZSET : longWord;
  10886. DCH1SSIZINV : longWord;
  10887. DCH1DSIZ : longWord;
  10888. DCH1DSIZCLR : longWord;
  10889. DCH1DSIZSET : longWord;
  10890. DCH1DSIZINV : longWord;
  10891. DCH1SPTR : longWord;
  10892. DCH1SPTRCLR : longWord;
  10893. DCH1SPTRSET : longWord;
  10894. DCH1SPTRINV : longWord;
  10895. DCH1DPTR : longWord;
  10896. DCH1DPTRCLR : longWord;
  10897. DCH1DPTRSET : longWord;
  10898. DCH1DPTRINV : longWord;
  10899. DCH1CSIZ : longWord;
  10900. DCH1CSIZCLR : longWord;
  10901. DCH1CSIZSET : longWord;
  10902. DCH1CSIZINV : longWord;
  10903. DCH1CPTR : longWord;
  10904. DCH1CPTRCLR : longWord;
  10905. DCH1CPTRSET : longWord;
  10906. DCH1CPTRINV : longWord;
  10907. DCH1DAT : longWord;
  10908. DCH1DATCLR : longWord;
  10909. DCH1DATSET : longWord;
  10910. DCH1DATINV : longWord;
  10911. end;
  10912. TDMAC2_DCH2CON = record
  10913. private
  10914. function getCHAED : TBits_1; inline;
  10915. function getCHAEN : TBits_1; inline;
  10916. function getCHBUSY : TBits_1; inline;
  10917. function getCHCHN : TBits_1; inline;
  10918. function getCHCHNS : TBits_1; inline;
  10919. function getCHEDET : TBits_1; inline;
  10920. function getCHEN : TBits_1; inline;
  10921. function getCHPRI : TBits_2; inline;
  10922. function getw : TBits_32; inline;
  10923. procedure setCHAED(thebits : TBits_1); inline;
  10924. procedure setCHAEN(thebits : TBits_1); inline;
  10925. procedure setCHBUSY(thebits : TBits_1); inline;
  10926. procedure setCHCHN(thebits : TBits_1); inline;
  10927. procedure setCHCHNS(thebits : TBits_1); inline;
  10928. procedure setCHEDET(thebits : TBits_1); inline;
  10929. procedure setCHEN(thebits : TBits_1); inline;
  10930. procedure setCHPRI(thebits : TBits_2); inline;
  10931. procedure setw(thebits : TBits_32); inline;
  10932. public
  10933. procedure clearCHAED; inline;
  10934. procedure clearCHAEN; inline;
  10935. procedure clearCHBUSY; inline;
  10936. procedure clearCHCHN; inline;
  10937. procedure clearCHCHNS; inline;
  10938. procedure clearCHEDET; inline;
  10939. procedure clearCHEN; inline;
  10940. procedure setCHAED; inline;
  10941. procedure setCHAEN; inline;
  10942. procedure setCHBUSY; inline;
  10943. procedure setCHCHN; inline;
  10944. procedure setCHCHNS; inline;
  10945. procedure setCHEDET; inline;
  10946. procedure setCHEN; inline;
  10947. property CHAED : TBits_1 read getCHAED write setCHAED;
  10948. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  10949. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  10950. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  10951. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  10952. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  10953. property CHEN : TBits_1 read getCHEN write setCHEN;
  10954. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  10955. property w : TBits_32 read getw write setw;
  10956. end;
  10957. TDMAC2_DCH2ECON = record
  10958. private
  10959. function getAIRQEN : TBits_1; inline;
  10960. function getCABORT : TBits_1; inline;
  10961. function getCFORCE : TBits_1; inline;
  10962. function getCHAIRQ : TBits_8; inline;
  10963. function getCHSIRQ : TBits_8; inline;
  10964. function getPATEN : TBits_1; inline;
  10965. function getSIRQEN : TBits_1; inline;
  10966. function getw : TBits_32; inline;
  10967. procedure setAIRQEN(thebits : TBits_1); inline;
  10968. procedure setCABORT(thebits : TBits_1); inline;
  10969. procedure setCFORCE(thebits : TBits_1); inline;
  10970. procedure setCHAIRQ(thebits : TBits_8); inline;
  10971. procedure setCHSIRQ(thebits : TBits_8); inline;
  10972. procedure setPATEN(thebits : TBits_1); inline;
  10973. procedure setSIRQEN(thebits : TBits_1); inline;
  10974. procedure setw(thebits : TBits_32); inline;
  10975. public
  10976. procedure clearAIRQEN; inline;
  10977. procedure clearCABORT; inline;
  10978. procedure clearCFORCE; inline;
  10979. procedure clearPATEN; inline;
  10980. procedure clearSIRQEN; inline;
  10981. procedure setAIRQEN; inline;
  10982. procedure setCABORT; inline;
  10983. procedure setCFORCE; inline;
  10984. procedure setPATEN; inline;
  10985. procedure setSIRQEN; inline;
  10986. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  10987. property CABORT : TBits_1 read getCABORT write setCABORT;
  10988. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  10989. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  10990. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  10991. property PATEN : TBits_1 read getPATEN write setPATEN;
  10992. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  10993. property w : TBits_32 read getw write setw;
  10994. end;
  10995. TDMAC2_DCH2INT = record
  10996. private
  10997. function getCHBCIE : TBits_1; inline;
  10998. function getCHBCIF : TBits_1; inline;
  10999. function getCHCCIE : TBits_1; inline;
  11000. function getCHCCIF : TBits_1; inline;
  11001. function getCHDDIE : TBits_1; inline;
  11002. function getCHDDIF : TBits_1; inline;
  11003. function getCHDHIE : TBits_1; inline;
  11004. function getCHDHIF : TBits_1; inline;
  11005. function getCHERIE : TBits_1; inline;
  11006. function getCHERIF : TBits_1; inline;
  11007. function getCHSDIE : TBits_1; inline;
  11008. function getCHSDIF : TBits_1; inline;
  11009. function getCHSHIE : TBits_1; inline;
  11010. function getCHSHIF : TBits_1; inline;
  11011. function getCHTAIE : TBits_1; inline;
  11012. function getCHTAIF : TBits_1; inline;
  11013. function getw : TBits_32; inline;
  11014. procedure setCHBCIE(thebits : TBits_1); inline;
  11015. procedure setCHBCIF(thebits : TBits_1); inline;
  11016. procedure setCHCCIE(thebits : TBits_1); inline;
  11017. procedure setCHCCIF(thebits : TBits_1); inline;
  11018. procedure setCHDDIE(thebits : TBits_1); inline;
  11019. procedure setCHDDIF(thebits : TBits_1); inline;
  11020. procedure setCHDHIE(thebits : TBits_1); inline;
  11021. procedure setCHDHIF(thebits : TBits_1); inline;
  11022. procedure setCHERIE(thebits : TBits_1); inline;
  11023. procedure setCHERIF(thebits : TBits_1); inline;
  11024. procedure setCHSDIE(thebits : TBits_1); inline;
  11025. procedure setCHSDIF(thebits : TBits_1); inline;
  11026. procedure setCHSHIE(thebits : TBits_1); inline;
  11027. procedure setCHSHIF(thebits : TBits_1); inline;
  11028. procedure setCHTAIE(thebits : TBits_1); inline;
  11029. procedure setCHTAIF(thebits : TBits_1); inline;
  11030. procedure setw(thebits : TBits_32); inline;
  11031. public
  11032. procedure clearCHBCIE; inline;
  11033. procedure clearCHBCIF; inline;
  11034. procedure clearCHCCIE; inline;
  11035. procedure clearCHCCIF; inline;
  11036. procedure clearCHDDIE; inline;
  11037. procedure clearCHDDIF; inline;
  11038. procedure clearCHDHIE; inline;
  11039. procedure clearCHDHIF; inline;
  11040. procedure clearCHERIE; inline;
  11041. procedure clearCHERIF; inline;
  11042. procedure clearCHSDIE; inline;
  11043. procedure clearCHSDIF; inline;
  11044. procedure clearCHSHIE; inline;
  11045. procedure clearCHSHIF; inline;
  11046. procedure clearCHTAIE; inline;
  11047. procedure clearCHTAIF; inline;
  11048. procedure setCHBCIE; inline;
  11049. procedure setCHBCIF; inline;
  11050. procedure setCHCCIE; inline;
  11051. procedure setCHCCIF; inline;
  11052. procedure setCHDDIE; inline;
  11053. procedure setCHDDIF; inline;
  11054. procedure setCHDHIE; inline;
  11055. procedure setCHDHIF; inline;
  11056. procedure setCHERIE; inline;
  11057. procedure setCHERIF; inline;
  11058. procedure setCHSDIE; inline;
  11059. procedure setCHSDIF; inline;
  11060. procedure setCHSHIE; inline;
  11061. procedure setCHSHIF; inline;
  11062. procedure setCHTAIE; inline;
  11063. procedure setCHTAIF; inline;
  11064. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11065. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11066. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11067. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11068. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11069. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11070. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11071. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11072. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11073. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11074. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11075. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11076. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11077. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11078. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11079. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11080. property w : TBits_32 read getw write setw;
  11081. end;
  11082. type
  11083. TDMAC2Registers = record
  11084. DCH2CONbits : TDMAC2_DCH2CON;
  11085. DCH2CON : longWord;
  11086. DCH2CONCLR : longWord;
  11087. DCH2CONSET : longWord;
  11088. DCH2CONINV : longWord;
  11089. DCH2ECONbits : TDMAC2_DCH2ECON;
  11090. DCH2ECON : longWord;
  11091. DCH2ECONCLR : longWord;
  11092. DCH2ECONSET : longWord;
  11093. DCH2ECONINV : longWord;
  11094. DCH2INTbits : TDMAC2_DCH2INT;
  11095. DCH2INT : longWord;
  11096. DCH2INTCLR : longWord;
  11097. DCH2INTSET : longWord;
  11098. DCH2INTINV : longWord;
  11099. DCH2SSA : longWord;
  11100. DCH2SSACLR : longWord;
  11101. DCH2SSASET : longWord;
  11102. DCH2SSAINV : longWord;
  11103. DCH2DSA : longWord;
  11104. DCH2DSACLR : longWord;
  11105. DCH2DSASET : longWord;
  11106. DCH2DSAINV : longWord;
  11107. DCH2SSIZ : longWord;
  11108. DCH2SSIZCLR : longWord;
  11109. DCH2SSIZSET : longWord;
  11110. DCH2SSIZINV : longWord;
  11111. DCH2DSIZ : longWord;
  11112. DCH2DSIZCLR : longWord;
  11113. DCH2DSIZSET : longWord;
  11114. DCH2DSIZINV : longWord;
  11115. DCH2SPTR : longWord;
  11116. DCH2SPTRCLR : longWord;
  11117. DCH2SPTRSET : longWord;
  11118. DCH2SPTRINV : longWord;
  11119. DCH2DPTR : longWord;
  11120. DCH2DPTRCLR : longWord;
  11121. DCH2DPTRSET : longWord;
  11122. DCH2DPTRINV : longWord;
  11123. DCH2CSIZ : longWord;
  11124. DCH2CSIZCLR : longWord;
  11125. DCH2CSIZSET : longWord;
  11126. DCH2CSIZINV : longWord;
  11127. DCH2CPTR : longWord;
  11128. DCH2CPTRCLR : longWord;
  11129. DCH2CPTRSET : longWord;
  11130. DCH2CPTRINV : longWord;
  11131. DCH2DAT : longWord;
  11132. DCH2DATCLR : longWord;
  11133. DCH2DATSET : longWord;
  11134. DCH2DATINV : longWord;
  11135. end;
  11136. TDMAC3_DCH3CON = record
  11137. private
  11138. function getCHAED : TBits_1; inline;
  11139. function getCHAEN : TBits_1; inline;
  11140. function getCHBUSY : TBits_1; inline;
  11141. function getCHCHN : TBits_1; inline;
  11142. function getCHCHNS : TBits_1; inline;
  11143. function getCHEDET : TBits_1; inline;
  11144. function getCHEN : TBits_1; inline;
  11145. function getCHPRI : TBits_2; inline;
  11146. function getw : TBits_32; inline;
  11147. procedure setCHAED(thebits : TBits_1); inline;
  11148. procedure setCHAEN(thebits : TBits_1); inline;
  11149. procedure setCHBUSY(thebits : TBits_1); inline;
  11150. procedure setCHCHN(thebits : TBits_1); inline;
  11151. procedure setCHCHNS(thebits : TBits_1); inline;
  11152. procedure setCHEDET(thebits : TBits_1); inline;
  11153. procedure setCHEN(thebits : TBits_1); inline;
  11154. procedure setCHPRI(thebits : TBits_2); inline;
  11155. procedure setw(thebits : TBits_32); inline;
  11156. public
  11157. procedure clearCHAED; inline;
  11158. procedure clearCHAEN; inline;
  11159. procedure clearCHBUSY; inline;
  11160. procedure clearCHCHN; inline;
  11161. procedure clearCHCHNS; inline;
  11162. procedure clearCHEDET; inline;
  11163. procedure clearCHEN; inline;
  11164. procedure setCHAED; inline;
  11165. procedure setCHAEN; inline;
  11166. procedure setCHBUSY; inline;
  11167. procedure setCHCHN; inline;
  11168. procedure setCHCHNS; inline;
  11169. procedure setCHEDET; inline;
  11170. procedure setCHEN; inline;
  11171. property CHAED : TBits_1 read getCHAED write setCHAED;
  11172. property CHAEN : TBits_1 read getCHAEN write setCHAEN;
  11173. property CHBUSY : TBits_1 read getCHBUSY write setCHBUSY;
  11174. property CHCHN : TBits_1 read getCHCHN write setCHCHN;
  11175. property CHCHNS : TBits_1 read getCHCHNS write setCHCHNS;
  11176. property CHEDET : TBits_1 read getCHEDET write setCHEDET;
  11177. property CHEN : TBits_1 read getCHEN write setCHEN;
  11178. property CHPRI : TBits_2 read getCHPRI write setCHPRI;
  11179. property w : TBits_32 read getw write setw;
  11180. end;
  11181. TDMAC3_DCH3ECON = record
  11182. private
  11183. function getAIRQEN : TBits_1; inline;
  11184. function getCABORT : TBits_1; inline;
  11185. function getCFORCE : TBits_1; inline;
  11186. function getCHAIRQ : TBits_8; inline;
  11187. function getCHSIRQ : TBits_8; inline;
  11188. function getPATEN : TBits_1; inline;
  11189. function getSIRQEN : TBits_1; inline;
  11190. function getw : TBits_32; inline;
  11191. procedure setAIRQEN(thebits : TBits_1); inline;
  11192. procedure setCABORT(thebits : TBits_1); inline;
  11193. procedure setCFORCE(thebits : TBits_1); inline;
  11194. procedure setCHAIRQ(thebits : TBits_8); inline;
  11195. procedure setCHSIRQ(thebits : TBits_8); inline;
  11196. procedure setPATEN(thebits : TBits_1); inline;
  11197. procedure setSIRQEN(thebits : TBits_1); inline;
  11198. procedure setw(thebits : TBits_32); inline;
  11199. public
  11200. procedure clearAIRQEN; inline;
  11201. procedure clearCABORT; inline;
  11202. procedure clearCFORCE; inline;
  11203. procedure clearPATEN; inline;
  11204. procedure clearSIRQEN; inline;
  11205. procedure setAIRQEN; inline;
  11206. procedure setCABORT; inline;
  11207. procedure setCFORCE; inline;
  11208. procedure setPATEN; inline;
  11209. procedure setSIRQEN; inline;
  11210. property AIRQEN : TBits_1 read getAIRQEN write setAIRQEN;
  11211. property CABORT : TBits_1 read getCABORT write setCABORT;
  11212. property CFORCE : TBits_1 read getCFORCE write setCFORCE;
  11213. property CHAIRQ : TBits_8 read getCHAIRQ write setCHAIRQ;
  11214. property CHSIRQ : TBits_8 read getCHSIRQ write setCHSIRQ;
  11215. property PATEN : TBits_1 read getPATEN write setPATEN;
  11216. property SIRQEN : TBits_1 read getSIRQEN write setSIRQEN;
  11217. property w : TBits_32 read getw write setw;
  11218. end;
  11219. TDMAC3_DCH3INT = record
  11220. private
  11221. function getCHBCIE : TBits_1; inline;
  11222. function getCHBCIF : TBits_1; inline;
  11223. function getCHCCIE : TBits_1; inline;
  11224. function getCHCCIF : TBits_1; inline;
  11225. function getCHDDIE : TBits_1; inline;
  11226. function getCHDDIF : TBits_1; inline;
  11227. function getCHDHIE : TBits_1; inline;
  11228. function getCHDHIF : TBits_1; inline;
  11229. function getCHERIE : TBits_1; inline;
  11230. function getCHERIF : TBits_1; inline;
  11231. function getCHSDIE : TBits_1; inline;
  11232. function getCHSDIF : TBits_1; inline;
  11233. function getCHSHIE : TBits_1; inline;
  11234. function getCHSHIF : TBits_1; inline;
  11235. function getCHTAIE : TBits_1; inline;
  11236. function getCHTAIF : TBits_1; inline;
  11237. function getw : TBits_32; inline;
  11238. procedure setCHBCIE(thebits : TBits_1); inline;
  11239. procedure setCHBCIF(thebits : TBits_1); inline;
  11240. procedure setCHCCIE(thebits : TBits_1); inline;
  11241. procedure setCHCCIF(thebits : TBits_1); inline;
  11242. procedure setCHDDIE(thebits : TBits_1); inline;
  11243. procedure setCHDDIF(thebits : TBits_1); inline;
  11244. procedure setCHDHIE(thebits : TBits_1); inline;
  11245. procedure setCHDHIF(thebits : TBits_1); inline;
  11246. procedure setCHERIE(thebits : TBits_1); inline;
  11247. procedure setCHERIF(thebits : TBits_1); inline;
  11248. procedure setCHSDIE(thebits : TBits_1); inline;
  11249. procedure setCHSDIF(thebits : TBits_1); inline;
  11250. procedure setCHSHIE(thebits : TBits_1); inline;
  11251. procedure setCHSHIF(thebits : TBits_1); inline;
  11252. procedure setCHTAIE(thebits : TBits_1); inline;
  11253. procedure setCHTAIF(thebits : TBits_1); inline;
  11254. procedure setw(thebits : TBits_32); inline;
  11255. public
  11256. procedure clearCHBCIE; inline;
  11257. procedure clearCHBCIF; inline;
  11258. procedure clearCHCCIE; inline;
  11259. procedure clearCHCCIF; inline;
  11260. procedure clearCHDDIE; inline;
  11261. procedure clearCHDDIF; inline;
  11262. procedure clearCHDHIE; inline;
  11263. procedure clearCHDHIF; inline;
  11264. procedure clearCHERIE; inline;
  11265. procedure clearCHERIF; inline;
  11266. procedure clearCHSDIE; inline;
  11267. procedure clearCHSDIF; inline;
  11268. procedure clearCHSHIE; inline;
  11269. procedure clearCHSHIF; inline;
  11270. procedure clearCHTAIE; inline;
  11271. procedure clearCHTAIF; inline;
  11272. procedure setCHBCIE; inline;
  11273. procedure setCHBCIF; inline;
  11274. procedure setCHCCIE; inline;
  11275. procedure setCHCCIF; inline;
  11276. procedure setCHDDIE; inline;
  11277. procedure setCHDDIF; inline;
  11278. procedure setCHDHIE; inline;
  11279. procedure setCHDHIF; inline;
  11280. procedure setCHERIE; inline;
  11281. procedure setCHERIF; inline;
  11282. procedure setCHSDIE; inline;
  11283. procedure setCHSDIF; inline;
  11284. procedure setCHSHIE; inline;
  11285. procedure setCHSHIF; inline;
  11286. procedure setCHTAIE; inline;
  11287. procedure setCHTAIF; inline;
  11288. property CHBCIE : TBits_1 read getCHBCIE write setCHBCIE;
  11289. property CHBCIF : TBits_1 read getCHBCIF write setCHBCIF;
  11290. property CHCCIE : TBits_1 read getCHCCIE write setCHCCIE;
  11291. property CHCCIF : TBits_1 read getCHCCIF write setCHCCIF;
  11292. property CHDDIE : TBits_1 read getCHDDIE write setCHDDIE;
  11293. property CHDDIF : TBits_1 read getCHDDIF write setCHDDIF;
  11294. property CHDHIE : TBits_1 read getCHDHIE write setCHDHIE;
  11295. property CHDHIF : TBits_1 read getCHDHIF write setCHDHIF;
  11296. property CHERIE : TBits_1 read getCHERIE write setCHERIE;
  11297. property CHERIF : TBits_1 read getCHERIF write setCHERIF;
  11298. property CHSDIE : TBits_1 read getCHSDIE write setCHSDIE;
  11299. property CHSDIF : TBits_1 read getCHSDIF write setCHSDIF;
  11300. property CHSHIE : TBits_1 read getCHSHIE write setCHSHIE;
  11301. property CHSHIF : TBits_1 read getCHSHIF write setCHSHIF;
  11302. property CHTAIE : TBits_1 read getCHTAIE write setCHTAIE;
  11303. property CHTAIF : TBits_1 read getCHTAIF write setCHTAIF;
  11304. property w : TBits_32 read getw write setw;
  11305. end;
  11306. type
  11307. TDMAC3Registers = record
  11308. DCH3CONbits : TDMAC3_DCH3CON;
  11309. DCH3CON : longWord;
  11310. DCH3CONCLR : longWord;
  11311. DCH3CONSET : longWord;
  11312. DCH3CONINV : longWord;
  11313. DCH3ECONbits : TDMAC3_DCH3ECON;
  11314. DCH3ECON : longWord;
  11315. DCH3ECONCLR : longWord;
  11316. DCH3ECONSET : longWord;
  11317. DCH3ECONINV : longWord;
  11318. DCH3INTbits : TDMAC3_DCH3INT;
  11319. DCH3INT : longWord;
  11320. DCH3INTCLR : longWord;
  11321. DCH3INTSET : longWord;
  11322. DCH3INTINV : longWord;
  11323. DCH3SSA : longWord;
  11324. DCH3SSACLR : longWord;
  11325. DCH3SSASET : longWord;
  11326. DCH3SSAINV : longWord;
  11327. DCH3DSA : longWord;
  11328. DCH3DSACLR : longWord;
  11329. DCH3DSASET : longWord;
  11330. DCH3DSAINV : longWord;
  11331. DCH3SSIZ : longWord;
  11332. DCH3SSIZCLR : longWord;
  11333. DCH3SSIZSET : longWord;
  11334. DCH3SSIZINV : longWord;
  11335. DCH3DSIZ : longWord;
  11336. DCH3DSIZCLR : longWord;
  11337. DCH3DSIZSET : longWord;
  11338. DCH3DSIZINV : longWord;
  11339. DCH3SPTR : longWord;
  11340. DCH3SPTRCLR : longWord;
  11341. DCH3SPTRSET : longWord;
  11342. DCH3SPTRINV : longWord;
  11343. DCH3DPTR : longWord;
  11344. DCH3DPTRCLR : longWord;
  11345. DCH3DPTRSET : longWord;
  11346. DCH3DPTRINV : longWord;
  11347. DCH3CSIZ : longWord;
  11348. DCH3CSIZCLR : longWord;
  11349. DCH3CSIZSET : longWord;
  11350. DCH3CSIZINV : longWord;
  11351. DCH3CPTR : longWord;
  11352. DCH3CPTRCLR : longWord;
  11353. DCH3CPTRSET : longWord;
  11354. DCH3CPTRINV : longWord;
  11355. DCH3DAT : longWord;
  11356. DCH3DATCLR : longWord;
  11357. DCH3DATSET : longWord;
  11358. DCH3DATINV : longWord;
  11359. end;
  11360. TPCACHE_CHECON = record
  11361. private
  11362. function getCHECOH : TBits_1; inline;
  11363. function getDCSZ : TBits_2; inline;
  11364. function getPFMWS : TBits_3; inline;
  11365. function getPREFEN : TBits_2; inline;
  11366. function getw : TBits_32; inline;
  11367. procedure setCHECOH(thebits : TBits_1); inline;
  11368. procedure setDCSZ(thebits : TBits_2); inline;
  11369. procedure setPFMWS(thebits : TBits_3); inline;
  11370. procedure setPREFEN(thebits : TBits_2); inline;
  11371. procedure setw(thebits : TBits_32); inline;
  11372. public
  11373. procedure clearCHECOH; inline;
  11374. procedure setCHECOH; inline;
  11375. property CHECOH : TBits_1 read getCHECOH write setCHECOH;
  11376. property DCSZ : TBits_2 read getDCSZ write setDCSZ;
  11377. property PFMWS : TBits_3 read getPFMWS write setPFMWS;
  11378. property PREFEN : TBits_2 read getPREFEN write setPREFEN;
  11379. property w : TBits_32 read getw write setw;
  11380. end;
  11381. TPCACHE_CHETAG = record
  11382. private
  11383. function getLLOCK : TBits_1; inline;
  11384. function getLTAG : TBits_20; inline;
  11385. function getLTAGBOOT : TBits_1; inline;
  11386. function getLTYPE : TBits_1; inline;
  11387. function getLVALID : TBits_1; inline;
  11388. function getw : TBits_32; inline;
  11389. procedure setLLOCK(thebits : TBits_1); inline;
  11390. procedure setLTAG(thebits : TBits_20); inline;
  11391. procedure setLTAGBOOT(thebits : TBits_1); inline;
  11392. procedure setLTYPE(thebits : TBits_1); inline;
  11393. procedure setLVALID(thebits : TBits_1); inline;
  11394. procedure setw(thebits : TBits_32); inline;
  11395. public
  11396. procedure clearLLOCK; inline;
  11397. procedure clearLTAGBOOT; inline;
  11398. procedure clearLTYPE; inline;
  11399. procedure clearLVALID; inline;
  11400. procedure setLLOCK; inline;
  11401. procedure setLTAGBOOT; inline;
  11402. procedure setLTYPE; inline;
  11403. procedure setLVALID; inline;
  11404. property LLOCK : TBits_1 read getLLOCK write setLLOCK;
  11405. property LTAG : TBits_20 read getLTAG write setLTAG;
  11406. property LTAGBOOT : TBits_1 read getLTAGBOOT write setLTAGBOOT;
  11407. property LTYPE : TBits_1 read getLTYPE write setLTYPE;
  11408. property LVALID : TBits_1 read getLVALID write setLVALID;
  11409. property w : TBits_32 read getw write setw;
  11410. end;
  11411. type
  11412. TPCACHERegisters = record
  11413. CHECONbits : TPCACHE_CHECON;
  11414. CHECON : longWord;
  11415. CHECONCLR : longWord;
  11416. CHECONSET : longWord;
  11417. CHECONINV : longWord;
  11418. CHEACC : longWord;
  11419. CHEACCCLR : longWord;
  11420. CHEACCSET : longWord;
  11421. CHEACCINV : longWord;
  11422. CHETAGbits : TPCACHE_CHETAG;
  11423. CHETAG : longWord;
  11424. CHETAGCLR : longWord;
  11425. CHETAGSET : longWord;
  11426. CHETAGINV : longWord;
  11427. CHEMSK : longWord;
  11428. CHEMSKCLR : longWord;
  11429. CHEMSKSET : longWord;
  11430. CHEMSKINV : longWord;
  11431. CHEW0 : longWord;
  11432. CHEW1 : longWord;
  11433. CHEW2 : longWord;
  11434. CHEW3 : longWord;
  11435. CHELRU : longWord;
  11436. CHEHIT : longWord;
  11437. CHEMIS : longWord;
  11438. CHEPFABT : longWord;
  11439. end;
  11440. TUSB_U1IR = record
  11441. private
  11442. function getATTACHIF : TBits_1; inline;
  11443. function getDETACHIF : TBits_1; inline;
  11444. function getIDLEIF : TBits_1; inline;
  11445. function getRESUMEIF : TBits_1; inline;
  11446. function getSOFIF : TBits_1; inline;
  11447. function getSTALLIF : TBits_1; inline;
  11448. function getTRNIF : TBits_1; inline;
  11449. function getUERRIF : TBits_1; inline;
  11450. function getURSTIF : TBits_1; inline;
  11451. function getURSTIF_DETACHIF : TBits_1; inline;
  11452. procedure setATTACHIF(thebits : TBits_1); inline;
  11453. procedure setDETACHIF(thebits : TBits_1); inline;
  11454. procedure setIDLEIF(thebits : TBits_1); inline;
  11455. procedure setRESUMEIF(thebits : TBits_1); inline;
  11456. procedure setSOFIF(thebits : TBits_1); inline;
  11457. procedure setSTALLIF(thebits : TBits_1); inline;
  11458. procedure setTRNIF(thebits : TBits_1); inline;
  11459. procedure setUERRIF(thebits : TBits_1); inline;
  11460. procedure setURSTIF(thebits : TBits_1); inline;
  11461. procedure setURSTIF_DETACHIF(thebits : TBits_1); inline;
  11462. public
  11463. procedure clearATTACHIF; inline;
  11464. procedure clearDETACHIF; inline;
  11465. procedure clearIDLEIF; inline;
  11466. procedure clearRESUMEIF; inline;
  11467. procedure clearSOFIF; inline;
  11468. procedure clearSTALLIF; inline;
  11469. procedure clearTRNIF; inline;
  11470. procedure clearUERRIF; inline;
  11471. procedure clearURSTIF; inline;
  11472. procedure clearURSTIF_DETACHIF; inline;
  11473. procedure setATTACHIF; inline;
  11474. procedure setDETACHIF; inline;
  11475. procedure setIDLEIF; inline;
  11476. procedure setRESUMEIF; inline;
  11477. procedure setSOFIF; inline;
  11478. procedure setSTALLIF; inline;
  11479. procedure setTRNIF; inline;
  11480. procedure setUERRIF; inline;
  11481. procedure setURSTIF; inline;
  11482. procedure setURSTIF_DETACHIF; inline;
  11483. property ATTACHIF : TBits_1 read getATTACHIF write setATTACHIF;
  11484. property DETACHIF : TBits_1 read getDETACHIF write setDETACHIF;
  11485. property IDLEIF : TBits_1 read getIDLEIF write setIDLEIF;
  11486. property RESUMEIF : TBits_1 read getRESUMEIF write setRESUMEIF;
  11487. property SOFIF : TBits_1 read getSOFIF write setSOFIF;
  11488. property STALLIF : TBits_1 read getSTALLIF write setSTALLIF;
  11489. property TRNIF : TBits_1 read getTRNIF write setTRNIF;
  11490. property UERRIF : TBits_1 read getUERRIF write setUERRIF;
  11491. property URSTIF : TBits_1 read getURSTIF write setURSTIF;
  11492. property URSTIF_DETACHIF : TBits_1 read getURSTIF_DETACHIF write setURSTIF_DETACHIF;
  11493. end;
  11494. TUSB_U1IE = record
  11495. private
  11496. function getATTACHIE : TBits_1; inline;
  11497. function getDETACHIE : TBits_1; inline;
  11498. function getIDLEIE : TBits_1; inline;
  11499. function getRESUMEIE : TBits_1; inline;
  11500. function getSOFIE : TBits_1; inline;
  11501. function getSTALLIE : TBits_1; inline;
  11502. function getTRNIE : TBits_1; inline;
  11503. function getUERRIE : TBits_1; inline;
  11504. function getURSTIE : TBits_1; inline;
  11505. function getURSTIE_DETACHIE : TBits_1; inline;
  11506. procedure setATTACHIE(thebits : TBits_1); inline;
  11507. procedure setDETACHIE(thebits : TBits_1); inline;
  11508. procedure setIDLEIE(thebits : TBits_1); inline;
  11509. procedure setRESUMEIE(thebits : TBits_1); inline;
  11510. procedure setSOFIE(thebits : TBits_1); inline;
  11511. procedure setSTALLIE(thebits : TBits_1); inline;
  11512. procedure setTRNIE(thebits : TBits_1); inline;
  11513. procedure setUERRIE(thebits : TBits_1); inline;
  11514. procedure setURSTIE(thebits : TBits_1); inline;
  11515. procedure setURSTIE_DETACHIE(thebits : TBits_1); inline;
  11516. public
  11517. procedure clearATTACHIE; inline;
  11518. procedure clearDETACHIE; inline;
  11519. procedure clearIDLEIE; inline;
  11520. procedure clearRESUMEIE; inline;
  11521. procedure clearSOFIE; inline;
  11522. procedure clearSTALLIE; inline;
  11523. procedure clearTRNIE; inline;
  11524. procedure clearUERRIE; inline;
  11525. procedure clearURSTIE; inline;
  11526. procedure clearURSTIE_DETACHIE; inline;
  11527. procedure setATTACHIE; inline;
  11528. procedure setDETACHIE; inline;
  11529. procedure setIDLEIE; inline;
  11530. procedure setRESUMEIE; inline;
  11531. procedure setSOFIE; inline;
  11532. procedure setSTALLIE; inline;
  11533. procedure setTRNIE; inline;
  11534. procedure setUERRIE; inline;
  11535. procedure setURSTIE; inline;
  11536. procedure setURSTIE_DETACHIE; inline;
  11537. property ATTACHIE : TBits_1 read getATTACHIE write setATTACHIE;
  11538. property DETACHIE : TBits_1 read getDETACHIE write setDETACHIE;
  11539. property IDLEIE : TBits_1 read getIDLEIE write setIDLEIE;
  11540. property RESUMEIE : TBits_1 read getRESUMEIE write setRESUMEIE;
  11541. property SOFIE : TBits_1 read getSOFIE write setSOFIE;
  11542. property STALLIE : TBits_1 read getSTALLIE write setSTALLIE;
  11543. property TRNIE : TBits_1 read getTRNIE write setTRNIE;
  11544. property UERRIE : TBits_1 read getUERRIE write setUERRIE;
  11545. property URSTIE : TBits_1 read getURSTIE write setURSTIE;
  11546. property URSTIE_DETACHIE : TBits_1 read getURSTIE_DETACHIE write setURSTIE_DETACHIE;
  11547. end;
  11548. TUSB_U1EIR = record
  11549. private
  11550. function getBMXEF : TBits_1; inline;
  11551. function getBTOEF : TBits_1; inline;
  11552. function getBTSEF : TBits_1; inline;
  11553. function getCRC16EF : TBits_1; inline;
  11554. function getCRC5EF : TBits_1; inline;
  11555. function getCRC5EF_EOFEF : TBits_1; inline;
  11556. function getDFN8EF : TBits_1; inline;
  11557. function getDMAEF : TBits_1; inline;
  11558. function getEOFEF : TBits_1; inline;
  11559. function getPIDEF : TBits_1; inline;
  11560. procedure setBMXEF(thebits : TBits_1); inline;
  11561. procedure setBTOEF(thebits : TBits_1); inline;
  11562. procedure setBTSEF(thebits : TBits_1); inline;
  11563. procedure setCRC16EF(thebits : TBits_1); inline;
  11564. procedure setCRC5EF(thebits : TBits_1); inline;
  11565. procedure setCRC5EF_EOFEF(thebits : TBits_1); inline;
  11566. procedure setDFN8EF(thebits : TBits_1); inline;
  11567. procedure setDMAEF(thebits : TBits_1); inline;
  11568. procedure setEOFEF(thebits : TBits_1); inline;
  11569. procedure setPIDEF(thebits : TBits_1); inline;
  11570. public
  11571. procedure clearBMXEF; inline;
  11572. procedure clearBTOEF; inline;
  11573. procedure clearBTSEF; inline;
  11574. procedure clearCRC16EF; inline;
  11575. procedure clearCRC5EF; inline;
  11576. procedure clearCRC5EF_EOFEF; inline;
  11577. procedure clearDFN8EF; inline;
  11578. procedure clearDMAEF; inline;
  11579. procedure clearEOFEF; inline;
  11580. procedure clearPIDEF; inline;
  11581. procedure setBMXEF; inline;
  11582. procedure setBTOEF; inline;
  11583. procedure setBTSEF; inline;
  11584. procedure setCRC16EF; inline;
  11585. procedure setCRC5EF; inline;
  11586. procedure setCRC5EF_EOFEF; inline;
  11587. procedure setDFN8EF; inline;
  11588. procedure setDMAEF; inline;
  11589. procedure setEOFEF; inline;
  11590. procedure setPIDEF; inline;
  11591. property BMXEF : TBits_1 read getBMXEF write setBMXEF;
  11592. property BTOEF : TBits_1 read getBTOEF write setBTOEF;
  11593. property BTSEF : TBits_1 read getBTSEF write setBTSEF;
  11594. property CRC16EF : TBits_1 read getCRC16EF write setCRC16EF;
  11595. property CRC5EF : TBits_1 read getCRC5EF write setCRC5EF;
  11596. property CRC5EF_EOFEF : TBits_1 read getCRC5EF_EOFEF write setCRC5EF_EOFEF;
  11597. property DFN8EF : TBits_1 read getDFN8EF write setDFN8EF;
  11598. property DMAEF : TBits_1 read getDMAEF write setDMAEF;
  11599. property EOFEF : TBits_1 read getEOFEF write setEOFEF;
  11600. property PIDEF : TBits_1 read getPIDEF write setPIDEF;
  11601. end;
  11602. TUSB_U1EIE = record
  11603. private
  11604. function getBMXEE : TBits_1; inline;
  11605. function getBTOEE : TBits_1; inline;
  11606. function getBTSEE : TBits_1; inline;
  11607. function getCRC16EE : TBits_1; inline;
  11608. function getCRC5EE : TBits_1; inline;
  11609. function getCRC5EE_EOFEE : TBits_1; inline;
  11610. function getDFN8EE : TBits_1; inline;
  11611. function getDMAEE : TBits_1; inline;
  11612. function getEOFEE : TBits_1; inline;
  11613. function getPIDEE : TBits_1; inline;
  11614. procedure setBMXEE(thebits : TBits_1); inline;
  11615. procedure setBTOEE(thebits : TBits_1); inline;
  11616. procedure setBTSEE(thebits : TBits_1); inline;
  11617. procedure setCRC16EE(thebits : TBits_1); inline;
  11618. procedure setCRC5EE(thebits : TBits_1); inline;
  11619. procedure setCRC5EE_EOFEE(thebits : TBits_1); inline;
  11620. procedure setDFN8EE(thebits : TBits_1); inline;
  11621. procedure setDMAEE(thebits : TBits_1); inline;
  11622. procedure setEOFEE(thebits : TBits_1); inline;
  11623. procedure setPIDEE(thebits : TBits_1); inline;
  11624. public
  11625. procedure clearBMXEE; inline;
  11626. procedure clearBTOEE; inline;
  11627. procedure clearBTSEE; inline;
  11628. procedure clearCRC16EE; inline;
  11629. procedure clearCRC5EE; inline;
  11630. procedure clearCRC5EE_EOFEE; inline;
  11631. procedure clearDFN8EE; inline;
  11632. procedure clearDMAEE; inline;
  11633. procedure clearEOFEE; inline;
  11634. procedure clearPIDEE; inline;
  11635. procedure setBMXEE; inline;
  11636. procedure setBTOEE; inline;
  11637. procedure setBTSEE; inline;
  11638. procedure setCRC16EE; inline;
  11639. procedure setCRC5EE; inline;
  11640. procedure setCRC5EE_EOFEE; inline;
  11641. procedure setDFN8EE; inline;
  11642. procedure setDMAEE; inline;
  11643. procedure setEOFEE; inline;
  11644. procedure setPIDEE; inline;
  11645. property BMXEE : TBits_1 read getBMXEE write setBMXEE;
  11646. property BTOEE : TBits_1 read getBTOEE write setBTOEE;
  11647. property BTSEE : TBits_1 read getBTSEE write setBTSEE;
  11648. property CRC16EE : TBits_1 read getCRC16EE write setCRC16EE;
  11649. property CRC5EE : TBits_1 read getCRC5EE write setCRC5EE;
  11650. property CRC5EE_EOFEE : TBits_1 read getCRC5EE_EOFEE write setCRC5EE_EOFEE;
  11651. property DFN8EE : TBits_1 read getDFN8EE write setDFN8EE;
  11652. property DMAEE : TBits_1 read getDMAEE write setDMAEE;
  11653. property EOFEE : TBits_1 read getEOFEE write setEOFEE;
  11654. property PIDEE : TBits_1 read getPIDEE write setPIDEE;
  11655. end;
  11656. TUSB_U1STAT = record
  11657. private
  11658. function getDIR : TBits_1; inline;
  11659. function getENDPT : TBits_4; inline;
  11660. function getENDPT0 : TBits_1; inline;
  11661. function getENDPT1 : TBits_1; inline;
  11662. function getENDPT2 : TBits_1; inline;
  11663. function getENDPT3 : TBits_1; inline;
  11664. function getPPBI : TBits_1; inline;
  11665. procedure setDIR(thebits : TBits_1); inline;
  11666. procedure setENDPT(thebits : TBits_4); inline;
  11667. procedure setENDPT0(thebits : TBits_1); inline;
  11668. procedure setENDPT1(thebits : TBits_1); inline;
  11669. procedure setENDPT2(thebits : TBits_1); inline;
  11670. procedure setENDPT3(thebits : TBits_1); inline;
  11671. procedure setPPBI(thebits : TBits_1); inline;
  11672. public
  11673. procedure clearDIR; inline;
  11674. procedure clearENDPT0; inline;
  11675. procedure clearENDPT1; inline;
  11676. procedure clearENDPT2; inline;
  11677. procedure clearENDPT3; inline;
  11678. procedure clearPPBI; inline;
  11679. procedure setDIR; inline;
  11680. procedure setENDPT0; inline;
  11681. procedure setENDPT1; inline;
  11682. procedure setENDPT2; inline;
  11683. procedure setENDPT3; inline;
  11684. procedure setPPBI; inline;
  11685. property DIR : TBits_1 read getDIR write setDIR;
  11686. property ENDPT : TBits_4 read getENDPT write setENDPT;
  11687. property ENDPT0 : TBits_1 read getENDPT0 write setENDPT0;
  11688. property ENDPT1 : TBits_1 read getENDPT1 write setENDPT1;
  11689. property ENDPT2 : TBits_1 read getENDPT2 write setENDPT2;
  11690. property ENDPT3 : TBits_1 read getENDPT3 write setENDPT3;
  11691. property PPBI : TBits_1 read getPPBI write setPPBI;
  11692. end;
  11693. TUSB_U1CON = record
  11694. private
  11695. function getHOSTEN : TBits_1; inline;
  11696. function getJSTATE : TBits_1; inline;
  11697. function getPKTDIS : TBits_1; inline;
  11698. function getPKTDIS_TOKBUSY : TBits_1; inline;
  11699. function getPPBRST : TBits_1; inline;
  11700. function getRESUME : TBits_1; inline;
  11701. function getSE0 : TBits_1; inline;
  11702. function getSOFEN : TBits_1; inline;
  11703. function getTOKBUSY : TBits_1; inline;
  11704. function getUSBEN : TBits_1; inline;
  11705. function getUSBEN_SOFEN : TBits_1; inline;
  11706. function getUSBRST : TBits_1; inline;
  11707. procedure setHOSTEN(thebits : TBits_1); inline;
  11708. procedure setJSTATE(thebits : TBits_1); inline;
  11709. procedure setPKTDIS(thebits : TBits_1); inline;
  11710. procedure setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  11711. procedure setPPBRST(thebits : TBits_1); inline;
  11712. procedure setRESUME(thebits : TBits_1); inline;
  11713. procedure setSE0(thebits : TBits_1); inline;
  11714. procedure setSOFEN(thebits : TBits_1); inline;
  11715. procedure setTOKBUSY(thebits : TBits_1); inline;
  11716. procedure setUSBEN(thebits : TBits_1); inline;
  11717. procedure setUSBEN_SOFEN(thebits : TBits_1); inline;
  11718. procedure setUSBRST(thebits : TBits_1); inline;
  11719. public
  11720. procedure clearHOSTEN; inline;
  11721. procedure clearJSTATE; inline;
  11722. procedure clearPKTDIS; inline;
  11723. procedure clearPKTDIS_TOKBUSY; inline;
  11724. procedure clearPPBRST; inline;
  11725. procedure clearRESUME; inline;
  11726. procedure clearSE0; inline;
  11727. procedure clearSOFEN; inline;
  11728. procedure clearTOKBUSY; inline;
  11729. procedure clearUSBEN; inline;
  11730. procedure clearUSBEN_SOFEN; inline;
  11731. procedure clearUSBRST; inline;
  11732. procedure setHOSTEN; inline;
  11733. procedure setJSTATE; inline;
  11734. procedure setPKTDIS; inline;
  11735. procedure setPKTDIS_TOKBUSY; inline;
  11736. procedure setPPBRST; inline;
  11737. procedure setRESUME; inline;
  11738. procedure setSE0; inline;
  11739. procedure setSOFEN; inline;
  11740. procedure setTOKBUSY; inline;
  11741. procedure setUSBEN; inline;
  11742. procedure setUSBEN_SOFEN; inline;
  11743. procedure setUSBRST; inline;
  11744. property HOSTEN : TBits_1 read getHOSTEN write setHOSTEN;
  11745. property JSTATE : TBits_1 read getJSTATE write setJSTATE;
  11746. property PKTDIS : TBits_1 read getPKTDIS write setPKTDIS;
  11747. property PKTDIS_TOKBUSY : TBits_1 read getPKTDIS_TOKBUSY write setPKTDIS_TOKBUSY;
  11748. property PPBRST : TBits_1 read getPPBRST write setPPBRST;
  11749. property RESUME : TBits_1 read getRESUME write setRESUME;
  11750. property SE0 : TBits_1 read getSE0 write setSE0;
  11751. property SOFEN : TBits_1 read getSOFEN write setSOFEN;
  11752. property TOKBUSY : TBits_1 read getTOKBUSY write setTOKBUSY;
  11753. property USBEN : TBits_1 read getUSBEN write setUSBEN;
  11754. property USBEN_SOFEN : TBits_1 read getUSBEN_SOFEN write setUSBEN_SOFEN;
  11755. property USBRST : TBits_1 read getUSBRST write setUSBRST;
  11756. end;
  11757. TUSB_U1ADDR = record
  11758. private
  11759. function getDEVADDR : TBits_7; inline;
  11760. function getDEVADDR0 : TBits_1; inline;
  11761. function getDEVADDR1 : TBits_1; inline;
  11762. function getDEVADDR2 : TBits_1; inline;
  11763. function getDEVADDR3 : TBits_1; inline;
  11764. function getDEVADDR4 : TBits_1; inline;
  11765. function getDEVADDR5 : TBits_1; inline;
  11766. function getDEVADDR6 : TBits_1; inline;
  11767. function getLSPDEN : TBits_1; inline;
  11768. procedure setDEVADDR(thebits : TBits_7); inline;
  11769. procedure setDEVADDR0(thebits : TBits_1); inline;
  11770. procedure setDEVADDR1(thebits : TBits_1); inline;
  11771. procedure setDEVADDR2(thebits : TBits_1); inline;
  11772. procedure setDEVADDR3(thebits : TBits_1); inline;
  11773. procedure setDEVADDR4(thebits : TBits_1); inline;
  11774. procedure setDEVADDR5(thebits : TBits_1); inline;
  11775. procedure setDEVADDR6(thebits : TBits_1); inline;
  11776. procedure setLSPDEN(thebits : TBits_1); inline;
  11777. public
  11778. procedure clearDEVADDR0; inline;
  11779. procedure clearDEVADDR1; inline;
  11780. procedure clearDEVADDR2; inline;
  11781. procedure clearDEVADDR3; inline;
  11782. procedure clearDEVADDR4; inline;
  11783. procedure clearDEVADDR5; inline;
  11784. procedure clearDEVADDR6; inline;
  11785. procedure clearLSPDEN; inline;
  11786. procedure setDEVADDR0; inline;
  11787. procedure setDEVADDR1; inline;
  11788. procedure setDEVADDR2; inline;
  11789. procedure setDEVADDR3; inline;
  11790. procedure setDEVADDR4; inline;
  11791. procedure setDEVADDR5; inline;
  11792. procedure setDEVADDR6; inline;
  11793. procedure setLSPDEN; inline;
  11794. property DEVADDR : TBits_7 read getDEVADDR write setDEVADDR;
  11795. property DEVADDR0 : TBits_1 read getDEVADDR0 write setDEVADDR0;
  11796. property DEVADDR1 : TBits_1 read getDEVADDR1 write setDEVADDR1;
  11797. property DEVADDR2 : TBits_1 read getDEVADDR2 write setDEVADDR2;
  11798. property DEVADDR3 : TBits_1 read getDEVADDR3 write setDEVADDR3;
  11799. property DEVADDR4 : TBits_1 read getDEVADDR4 write setDEVADDR4;
  11800. property DEVADDR5 : TBits_1 read getDEVADDR5 write setDEVADDR5;
  11801. property DEVADDR6 : TBits_1 read getDEVADDR6 write setDEVADDR6;
  11802. property LSPDEN : TBits_1 read getLSPDEN write setLSPDEN;
  11803. end;
  11804. TUSB_U1FRML = record
  11805. private
  11806. function getFRM0 : TBits_1; inline;
  11807. function getFRM1 : TBits_1; inline;
  11808. function getFRM2 : TBits_1; inline;
  11809. function getFRM3 : TBits_1; inline;
  11810. function getFRM4 : TBits_1; inline;
  11811. function getFRM5 : TBits_1; inline;
  11812. function getFRM6 : TBits_1; inline;
  11813. function getFRM7 : TBits_1; inline;
  11814. function getFRML : TBits_8; inline;
  11815. procedure setFRM0(thebits : TBits_1); inline;
  11816. procedure setFRM1(thebits : TBits_1); inline;
  11817. procedure setFRM2(thebits : TBits_1); inline;
  11818. procedure setFRM3(thebits : TBits_1); inline;
  11819. procedure setFRM4(thebits : TBits_1); inline;
  11820. procedure setFRM5(thebits : TBits_1); inline;
  11821. procedure setFRM6(thebits : TBits_1); inline;
  11822. procedure setFRM7(thebits : TBits_1); inline;
  11823. procedure setFRML(thebits : TBits_8); inline;
  11824. public
  11825. procedure clearFRM0; inline;
  11826. procedure clearFRM1; inline;
  11827. procedure clearFRM2; inline;
  11828. procedure clearFRM3; inline;
  11829. procedure clearFRM4; inline;
  11830. procedure clearFRM5; inline;
  11831. procedure clearFRM6; inline;
  11832. procedure clearFRM7; inline;
  11833. procedure setFRM0; inline;
  11834. procedure setFRM1; inline;
  11835. procedure setFRM2; inline;
  11836. procedure setFRM3; inline;
  11837. procedure setFRM4; inline;
  11838. procedure setFRM5; inline;
  11839. procedure setFRM6; inline;
  11840. procedure setFRM7; inline;
  11841. property FRM0 : TBits_1 read getFRM0 write setFRM0;
  11842. property FRM1 : TBits_1 read getFRM1 write setFRM1;
  11843. property FRM2 : TBits_1 read getFRM2 write setFRM2;
  11844. property FRM3 : TBits_1 read getFRM3 write setFRM3;
  11845. property FRM4 : TBits_1 read getFRM4 write setFRM4;
  11846. property FRM5 : TBits_1 read getFRM5 write setFRM5;
  11847. property FRM6 : TBits_1 read getFRM6 write setFRM6;
  11848. property FRM7 : TBits_1 read getFRM7 write setFRM7;
  11849. property FRML : TBits_8 read getFRML write setFRML;
  11850. end;
  11851. TUSB_U1FRMH = record
  11852. private
  11853. function getFRM10 : TBits_1; inline;
  11854. function getFRM8 : TBits_1; inline;
  11855. function getFRM9 : TBits_1; inline;
  11856. function getFRMH : TBits_3; inline;
  11857. procedure setFRM10(thebits : TBits_1); inline;
  11858. procedure setFRM8(thebits : TBits_1); inline;
  11859. procedure setFRM9(thebits : TBits_1); inline;
  11860. procedure setFRMH(thebits : TBits_3); inline;
  11861. public
  11862. procedure clearFRM10; inline;
  11863. procedure clearFRM8; inline;
  11864. procedure clearFRM9; inline;
  11865. procedure setFRM10; inline;
  11866. procedure setFRM8; inline;
  11867. procedure setFRM9; inline;
  11868. property FRM10 : TBits_1 read getFRM10 write setFRM10;
  11869. property FRM8 : TBits_1 read getFRM8 write setFRM8;
  11870. property FRM9 : TBits_1 read getFRM9 write setFRM9;
  11871. property FRMH : TBits_3 read getFRMH write setFRMH;
  11872. end;
  11873. TUSB_U1TOK = record
  11874. private
  11875. function getEP : TBits_4; inline;
  11876. function getEP0 : TBits_1; inline;
  11877. function getEP1 : TBits_1; inline;
  11878. function getEP2 : TBits_1; inline;
  11879. function getEP3 : TBits_1; inline;
  11880. function getPID : TBits_4; inline;
  11881. function getPID0 : TBits_1; inline;
  11882. function getPID1 : TBits_1; inline;
  11883. function getPID2 : TBits_1; inline;
  11884. function getPID3 : TBits_1; inline;
  11885. procedure setEP(thebits : TBits_4); inline;
  11886. procedure setEP0(thebits : TBits_1); inline;
  11887. procedure setEP1(thebits : TBits_1); inline;
  11888. procedure setEP2(thebits : TBits_1); inline;
  11889. procedure setEP3(thebits : TBits_1); inline;
  11890. procedure setPID(thebits : TBits_4); inline;
  11891. procedure setPID0(thebits : TBits_1); inline;
  11892. procedure setPID1(thebits : TBits_1); inline;
  11893. procedure setPID2(thebits : TBits_1); inline;
  11894. procedure setPID3(thebits : TBits_1); inline;
  11895. public
  11896. procedure clearEP0; inline;
  11897. procedure clearEP1; inline;
  11898. procedure clearEP2; inline;
  11899. procedure clearEP3; inline;
  11900. procedure clearPID0; inline;
  11901. procedure clearPID1; inline;
  11902. procedure clearPID2; inline;
  11903. procedure clearPID3; inline;
  11904. procedure setEP0; inline;
  11905. procedure setEP1; inline;
  11906. procedure setEP2; inline;
  11907. procedure setEP3; inline;
  11908. procedure setPID0; inline;
  11909. procedure setPID1; inline;
  11910. procedure setPID2; inline;
  11911. procedure setPID3; inline;
  11912. property EP : TBits_4 read getEP write setEP;
  11913. property EP0 : TBits_1 read getEP0 write setEP0;
  11914. property EP1 : TBits_1 read getEP1 write setEP1;
  11915. property EP2 : TBits_1 read getEP2 write setEP2;
  11916. property EP3 : TBits_1 read getEP3 write setEP3;
  11917. property PID : TBits_4 read getPID write setPID;
  11918. property PID0 : TBits_1 read getPID0 write setPID0;
  11919. property PID1 : TBits_1 read getPID1 write setPID1;
  11920. property PID2 : TBits_1 read getPID2 write setPID2;
  11921. property PID3 : TBits_1 read getPID3 write setPID3;
  11922. end;
  11923. type
  11924. TUSBRegisters = record
  11925. U1OTGIR : longWord;
  11926. U1OTGIRCLR : longWord;
  11927. U1OTGIE : longWord;
  11928. U1OTGIECLR : longWord;
  11929. U1OTGIESET : longWord;
  11930. U1OTGIEINV : longWord;
  11931. U1OTGSTAT : longWord;
  11932. U1OTGCON : longWord;
  11933. U1OTGCONCLR : longWord;
  11934. U1OTGCONSET : longWord;
  11935. U1OTGCONINV : longWord;
  11936. U1PWRC : longWord;
  11937. U1PWRCCLR : longWord;
  11938. U1PWRCSET : longWord;
  11939. U1PWRCINV : longWord;
  11940. U1IRbits : TUSB_U1IR;
  11941. U1IR : longWord;
  11942. U1IRCLR : longWord;
  11943. U1IEbits : TUSB_U1IE;
  11944. U1IE : longWord;
  11945. U1IECLR : longWord;
  11946. U1IESET : longWord;
  11947. U1IEINV : longWord;
  11948. U1EIRbits : TUSB_U1EIR;
  11949. U1EIR : longWord;
  11950. U1EIRCLR : longWord;
  11951. U1EIEbits : TUSB_U1EIE;
  11952. U1EIE : longWord;
  11953. U1EIECLR : longWord;
  11954. U1EIESET : longWord;
  11955. U1EIEINV : longWord;
  11956. U1STATbits : TUSB_U1STAT;
  11957. U1STAT : longWord;
  11958. U1CONbits : TUSB_U1CON;
  11959. U1CON : longWord;
  11960. U1CONCLR : longWord;
  11961. U1CONSET : longWord;
  11962. U1CONINV : longWord;
  11963. U1ADDRbits : TUSB_U1ADDR;
  11964. U1ADDR : longWord;
  11965. U1ADDRCLR : longWord;
  11966. U1ADDRSET : longWord;
  11967. U1ADDRINV : longWord;
  11968. U1BDTP1 : longWord;
  11969. U1BDTP1CLR : longWord;
  11970. U1BDTP1SET : longWord;
  11971. U1BDTP1INV : longWord;
  11972. U1FRMLbits : TUSB_U1FRML;
  11973. U1FRML : longWord;
  11974. U1FRMHbits : TUSB_U1FRMH;
  11975. U1FRMH : longWord;
  11976. U1TOKbits : TUSB_U1TOK;
  11977. U1TOK : longWord;
  11978. U1TOKCLR : longWord;
  11979. U1TOKSET : longWord;
  11980. U1TOKINV : longWord;
  11981. U1SOF : longWord;
  11982. U1SOFCLR : longWord;
  11983. U1SOFSET : longWord;
  11984. U1SOFINV : longWord;
  11985. U1BDTP2 : longWord;
  11986. U1BDTP2CLR : longWord;
  11987. U1BDTP2SET : longWord;
  11988. U1BDTP2INV : longWord;
  11989. U1BDTP3 : longWord;
  11990. U1BDTP3CLR : longWord;
  11991. U1BDTP3SET : longWord;
  11992. U1BDTP3INV : longWord;
  11993. U1CNFG1 : longWord;
  11994. U1CNFG1CLR : longWord;
  11995. U1CNFG1SET : longWord;
  11996. U1CNFG1INV : longWord;
  11997. U1EP0 : longWord;
  11998. U1EP0CLR : longWord;
  11999. U1EP0SET : longWord;
  12000. U1EP0INV : longWord;
  12001. U1EP1 : longWord;
  12002. U1EP1CLR : longWord;
  12003. U1EP1SET : longWord;
  12004. U1EP1INV : longWord;
  12005. U1EP2 : longWord;
  12006. U1EP2CLR : longWord;
  12007. U1EP2SET : longWord;
  12008. U1EP2INV : longWord;
  12009. U1EP3 : longWord;
  12010. U1EP3CLR : longWord;
  12011. U1EP3SET : longWord;
  12012. U1EP3INV : longWord;
  12013. U1EP4 : longWord;
  12014. U1EP4CLR : longWord;
  12015. U1EP4SET : longWord;
  12016. U1EP4INV : longWord;
  12017. U1EP5 : longWord;
  12018. U1EP5CLR : longWord;
  12019. U1EP5SET : longWord;
  12020. U1EP5INV : longWord;
  12021. U1EP6 : longWord;
  12022. U1EP6CLR : longWord;
  12023. U1EP6SET : longWord;
  12024. U1EP6INV : longWord;
  12025. U1EP7 : longWord;
  12026. U1EP7CLR : longWord;
  12027. U1EP7SET : longWord;
  12028. U1EP7INV : longWord;
  12029. U1EP8 : longWord;
  12030. U1EP8CLR : longWord;
  12031. U1EP8SET : longWord;
  12032. U1EP8INV : longWord;
  12033. U1EP9 : longWord;
  12034. U1EP9CLR : longWord;
  12035. U1EP9SET : longWord;
  12036. U1EP9INV : longWord;
  12037. U1EP10 : longWord;
  12038. U1EP10CLR : longWord;
  12039. U1EP10SET : longWord;
  12040. U1EP10INV : longWord;
  12041. U1EP11 : longWord;
  12042. U1EP11CLR : longWord;
  12043. U1EP11SET : longWord;
  12044. U1EP11INV : longWord;
  12045. U1EP12 : longWord;
  12046. U1EP12CLR : longWord;
  12047. U1EP12SET : longWord;
  12048. U1EP12INV : longWord;
  12049. U1EP13 : longWord;
  12050. U1EP13CLR : longWord;
  12051. U1EP13SET : longWord;
  12052. U1EP13INV : longWord;
  12053. U1EP14 : longWord;
  12054. U1EP14CLR : longWord;
  12055. U1EP14SET : longWord;
  12056. U1EP14INV : longWord;
  12057. U1EP15 : longWord;
  12058. U1EP15CLR : longWord;
  12059. U1EP15SET : longWord;
  12060. U1EP15INV : longWord;
  12061. end;
  12062. TPORTA_TRISA = record
  12063. private
  12064. function getTRISA0 : TBits_1; inline;
  12065. function getTRISA1 : TBits_1; inline;
  12066. function getTRISA10 : TBits_1; inline;
  12067. function getTRISA14 : TBits_1; inline;
  12068. function getTRISA15 : TBits_1; inline;
  12069. function getTRISA2 : TBits_1; inline;
  12070. function getTRISA3 : TBits_1; inline;
  12071. function getTRISA4 : TBits_1; inline;
  12072. function getTRISA5 : TBits_1; inline;
  12073. function getTRISA6 : TBits_1; inline;
  12074. function getTRISA7 : TBits_1; inline;
  12075. function getTRISA9 : TBits_1; inline;
  12076. function getw : TBits_32; inline;
  12077. procedure setTRISA0(thebits : TBits_1); inline;
  12078. procedure setTRISA1(thebits : TBits_1); inline;
  12079. procedure setTRISA10(thebits : TBits_1); inline;
  12080. procedure setTRISA14(thebits : TBits_1); inline;
  12081. procedure setTRISA15(thebits : TBits_1); inline;
  12082. procedure setTRISA2(thebits : TBits_1); inline;
  12083. procedure setTRISA3(thebits : TBits_1); inline;
  12084. procedure setTRISA4(thebits : TBits_1); inline;
  12085. procedure setTRISA5(thebits : TBits_1); inline;
  12086. procedure setTRISA6(thebits : TBits_1); inline;
  12087. procedure setTRISA7(thebits : TBits_1); inline;
  12088. procedure setTRISA9(thebits : TBits_1); inline;
  12089. procedure setw(thebits : TBits_32); inline;
  12090. public
  12091. procedure clearTRISA0; inline;
  12092. procedure clearTRISA10; inline;
  12093. procedure clearTRISA14; inline;
  12094. procedure clearTRISA15; inline;
  12095. procedure clearTRISA1; inline;
  12096. procedure clearTRISA2; inline;
  12097. procedure clearTRISA3; inline;
  12098. procedure clearTRISA4; inline;
  12099. procedure clearTRISA5; inline;
  12100. procedure clearTRISA6; inline;
  12101. procedure clearTRISA7; inline;
  12102. procedure clearTRISA9; inline;
  12103. procedure setTRISA0; inline;
  12104. procedure setTRISA10; inline;
  12105. procedure setTRISA14; inline;
  12106. procedure setTRISA15; inline;
  12107. procedure setTRISA1; inline;
  12108. procedure setTRISA2; inline;
  12109. procedure setTRISA3; inline;
  12110. procedure setTRISA4; inline;
  12111. procedure setTRISA5; inline;
  12112. procedure setTRISA6; inline;
  12113. procedure setTRISA7; inline;
  12114. procedure setTRISA9; inline;
  12115. property TRISA0 : TBits_1 read getTRISA0 write setTRISA0;
  12116. property TRISA1 : TBits_1 read getTRISA1 write setTRISA1;
  12117. property TRISA10 : TBits_1 read getTRISA10 write setTRISA10;
  12118. property TRISA14 : TBits_1 read getTRISA14 write setTRISA14;
  12119. property TRISA15 : TBits_1 read getTRISA15 write setTRISA15;
  12120. property TRISA2 : TBits_1 read getTRISA2 write setTRISA2;
  12121. property TRISA3 : TBits_1 read getTRISA3 write setTRISA3;
  12122. property TRISA4 : TBits_1 read getTRISA4 write setTRISA4;
  12123. property TRISA5 : TBits_1 read getTRISA5 write setTRISA5;
  12124. property TRISA6 : TBits_1 read getTRISA6 write setTRISA6;
  12125. property TRISA7 : TBits_1 read getTRISA7 write setTRISA7;
  12126. property TRISA9 : TBits_1 read getTRISA9 write setTRISA9;
  12127. property w : TBits_32 read getw write setw;
  12128. end;
  12129. TPORTA_PORTA = record
  12130. private
  12131. function getRA0 : TBits_1; inline;
  12132. function getRA1 : TBits_1; inline;
  12133. function getRA10 : TBits_1; inline;
  12134. function getRA14 : TBits_1; inline;
  12135. function getRA15 : TBits_1; inline;
  12136. function getRA2 : TBits_1; inline;
  12137. function getRA3 : TBits_1; inline;
  12138. function getRA4 : TBits_1; inline;
  12139. function getRA5 : TBits_1; inline;
  12140. function getRA6 : TBits_1; inline;
  12141. function getRA7 : TBits_1; inline;
  12142. function getRA9 : TBits_1; inline;
  12143. function getw : TBits_32; inline;
  12144. procedure setRA0(thebits : TBits_1); inline;
  12145. procedure setRA1(thebits : TBits_1); inline;
  12146. procedure setRA10(thebits : TBits_1); inline;
  12147. procedure setRA14(thebits : TBits_1); inline;
  12148. procedure setRA15(thebits : TBits_1); inline;
  12149. procedure setRA2(thebits : TBits_1); inline;
  12150. procedure setRA3(thebits : TBits_1); inline;
  12151. procedure setRA4(thebits : TBits_1); inline;
  12152. procedure setRA5(thebits : TBits_1); inline;
  12153. procedure setRA6(thebits : TBits_1); inline;
  12154. procedure setRA7(thebits : TBits_1); inline;
  12155. procedure setRA9(thebits : TBits_1); inline;
  12156. procedure setw(thebits : TBits_32); inline;
  12157. public
  12158. procedure clearRA0; inline;
  12159. procedure clearRA10; inline;
  12160. procedure clearRA14; inline;
  12161. procedure clearRA15; inline;
  12162. procedure clearRA1; inline;
  12163. procedure clearRA2; inline;
  12164. procedure clearRA3; inline;
  12165. procedure clearRA4; inline;
  12166. procedure clearRA5; inline;
  12167. procedure clearRA6; inline;
  12168. procedure clearRA7; inline;
  12169. procedure clearRA9; inline;
  12170. procedure setRA0; inline;
  12171. procedure setRA10; inline;
  12172. procedure setRA14; inline;
  12173. procedure setRA15; inline;
  12174. procedure setRA1; inline;
  12175. procedure setRA2; inline;
  12176. procedure setRA3; inline;
  12177. procedure setRA4; inline;
  12178. procedure setRA5; inline;
  12179. procedure setRA6; inline;
  12180. procedure setRA7; inline;
  12181. procedure setRA9; inline;
  12182. property RA0 : TBits_1 read getRA0 write setRA0;
  12183. property RA1 : TBits_1 read getRA1 write setRA1;
  12184. property RA10 : TBits_1 read getRA10 write setRA10;
  12185. property RA14 : TBits_1 read getRA14 write setRA14;
  12186. property RA15 : TBits_1 read getRA15 write setRA15;
  12187. property RA2 : TBits_1 read getRA2 write setRA2;
  12188. property RA3 : TBits_1 read getRA3 write setRA3;
  12189. property RA4 : TBits_1 read getRA4 write setRA4;
  12190. property RA5 : TBits_1 read getRA5 write setRA5;
  12191. property RA6 : TBits_1 read getRA6 write setRA6;
  12192. property RA7 : TBits_1 read getRA7 write setRA7;
  12193. property RA9 : TBits_1 read getRA9 write setRA9;
  12194. property w : TBits_32 read getw write setw;
  12195. end;
  12196. 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);
  12197. TPortA_bitset = set of TPortA_bits;
  12198. TPORTA_LATA = record
  12199. private
  12200. function getLATA0 : TBits_1; inline;
  12201. function getLATA1 : TBits_1; inline;
  12202. function getLATA10 : TBits_1; inline;
  12203. function getLATA14 : TBits_1; inline;
  12204. function getLATA15 : TBits_1; inline;
  12205. function getLATA2 : TBits_1; inline;
  12206. function getLATA3 : TBits_1; inline;
  12207. function getLATA4 : TBits_1; inline;
  12208. function getLATA5 : TBits_1; inline;
  12209. function getLATA6 : TBits_1; inline;
  12210. function getLATA7 : TBits_1; inline;
  12211. function getLATA9 : TBits_1; inline;
  12212. function getw : TBits_32; inline;
  12213. procedure setLATA0(thebits : TBits_1); inline;
  12214. procedure setLATA1(thebits : TBits_1); inline;
  12215. procedure setLATA10(thebits : TBits_1); inline;
  12216. procedure setLATA14(thebits : TBits_1); inline;
  12217. procedure setLATA15(thebits : TBits_1); inline;
  12218. procedure setLATA2(thebits : TBits_1); inline;
  12219. procedure setLATA3(thebits : TBits_1); inline;
  12220. procedure setLATA4(thebits : TBits_1); inline;
  12221. procedure setLATA5(thebits : TBits_1); inline;
  12222. procedure setLATA6(thebits : TBits_1); inline;
  12223. procedure setLATA7(thebits : TBits_1); inline;
  12224. procedure setLATA9(thebits : TBits_1); inline;
  12225. procedure setw(thebits : TBits_32); inline;
  12226. public
  12227. procedure clearLATA0; inline;
  12228. procedure clearLATA10; inline;
  12229. procedure clearLATA14; inline;
  12230. procedure clearLATA15; inline;
  12231. procedure clearLATA1; inline;
  12232. procedure clearLATA2; inline;
  12233. procedure clearLATA3; inline;
  12234. procedure clearLATA4; inline;
  12235. procedure clearLATA5; inline;
  12236. procedure clearLATA6; inline;
  12237. procedure clearLATA7; inline;
  12238. procedure clearLATA9; inline;
  12239. procedure setLATA0; inline;
  12240. procedure setLATA10; inline;
  12241. procedure setLATA14; inline;
  12242. procedure setLATA15; inline;
  12243. procedure setLATA1; inline;
  12244. procedure setLATA2; inline;
  12245. procedure setLATA3; inline;
  12246. procedure setLATA4; inline;
  12247. procedure setLATA5; inline;
  12248. procedure setLATA6; inline;
  12249. procedure setLATA7; inline;
  12250. procedure setLATA9; inline;
  12251. property LATA0 : TBits_1 read getLATA0 write setLATA0;
  12252. property LATA1 : TBits_1 read getLATA1 write setLATA1;
  12253. property LATA10 : TBits_1 read getLATA10 write setLATA10;
  12254. property LATA14 : TBits_1 read getLATA14 write setLATA14;
  12255. property LATA15 : TBits_1 read getLATA15 write setLATA15;
  12256. property LATA2 : TBits_1 read getLATA2 write setLATA2;
  12257. property LATA3 : TBits_1 read getLATA3 write setLATA3;
  12258. property LATA4 : TBits_1 read getLATA4 write setLATA4;
  12259. property LATA5 : TBits_1 read getLATA5 write setLATA5;
  12260. property LATA6 : TBits_1 read getLATA6 write setLATA6;
  12261. property LATA7 : TBits_1 read getLATA7 write setLATA7;
  12262. property LATA9 : TBits_1 read getLATA9 write setLATA9;
  12263. property w : TBits_32 read getw write setw;
  12264. end;
  12265. TPORTA_ODCA = record
  12266. private
  12267. function getODCA0 : TBits_1; inline;
  12268. function getODCA1 : TBits_1; inline;
  12269. function getODCA10 : TBits_1; inline;
  12270. function getODCA14 : TBits_1; inline;
  12271. function getODCA15 : TBits_1; inline;
  12272. function getODCA2 : TBits_1; inline;
  12273. function getODCA3 : TBits_1; inline;
  12274. function getODCA4 : TBits_1; inline;
  12275. function getODCA5 : TBits_1; inline;
  12276. function getODCA6 : TBits_1; inline;
  12277. function getODCA7 : TBits_1; inline;
  12278. function getODCA9 : TBits_1; inline;
  12279. function getw : TBits_32; inline;
  12280. procedure setODCA0(thebits : TBits_1); inline;
  12281. procedure setODCA1(thebits : TBits_1); inline;
  12282. procedure setODCA10(thebits : TBits_1); inline;
  12283. procedure setODCA14(thebits : TBits_1); inline;
  12284. procedure setODCA15(thebits : TBits_1); inline;
  12285. procedure setODCA2(thebits : TBits_1); inline;
  12286. procedure setODCA3(thebits : TBits_1); inline;
  12287. procedure setODCA4(thebits : TBits_1); inline;
  12288. procedure setODCA5(thebits : TBits_1); inline;
  12289. procedure setODCA6(thebits : TBits_1); inline;
  12290. procedure setODCA7(thebits : TBits_1); inline;
  12291. procedure setODCA9(thebits : TBits_1); inline;
  12292. procedure setw(thebits : TBits_32); inline;
  12293. public
  12294. procedure clearODCA0; inline;
  12295. procedure clearODCA10; inline;
  12296. procedure clearODCA14; inline;
  12297. procedure clearODCA15; inline;
  12298. procedure clearODCA1; inline;
  12299. procedure clearODCA2; inline;
  12300. procedure clearODCA3; inline;
  12301. procedure clearODCA4; inline;
  12302. procedure clearODCA5; inline;
  12303. procedure clearODCA6; inline;
  12304. procedure clearODCA7; inline;
  12305. procedure clearODCA9; inline;
  12306. procedure setODCA0; inline;
  12307. procedure setODCA10; inline;
  12308. procedure setODCA14; inline;
  12309. procedure setODCA15; inline;
  12310. procedure setODCA1; inline;
  12311. procedure setODCA2; inline;
  12312. procedure setODCA3; inline;
  12313. procedure setODCA4; inline;
  12314. procedure setODCA5; inline;
  12315. procedure setODCA6; inline;
  12316. procedure setODCA7; inline;
  12317. procedure setODCA9; inline;
  12318. property ODCA0 : TBits_1 read getODCA0 write setODCA0;
  12319. property ODCA1 : TBits_1 read getODCA1 write setODCA1;
  12320. property ODCA10 : TBits_1 read getODCA10 write setODCA10;
  12321. property ODCA14 : TBits_1 read getODCA14 write setODCA14;
  12322. property ODCA15 : TBits_1 read getODCA15 write setODCA15;
  12323. property ODCA2 : TBits_1 read getODCA2 write setODCA2;
  12324. property ODCA3 : TBits_1 read getODCA3 write setODCA3;
  12325. property ODCA4 : TBits_1 read getODCA4 write setODCA4;
  12326. property ODCA5 : TBits_1 read getODCA5 write setODCA5;
  12327. property ODCA6 : TBits_1 read getODCA6 write setODCA6;
  12328. property ODCA7 : TBits_1 read getODCA7 write setODCA7;
  12329. property ODCA9 : TBits_1 read getODCA9 write setODCA9;
  12330. property w : TBits_32 read getw write setw;
  12331. end;
  12332. type
  12333. TPORTARegisters = record
  12334. TRISAbits : TPORTA_TRISA;
  12335. TRISA : longWord;
  12336. TRISACLR : longWord;
  12337. TRISASET : longWord;
  12338. TRISAINV : longWord;
  12339. PORTAbits : TPORTA_PORTA;
  12340. PORTA : longWord;
  12341. PORTACLR : longWord;
  12342. PORTASET : longWord;
  12343. PORTAINV : longWord;
  12344. LATAbits : TPORTA_LATA;
  12345. LATA : longWord;
  12346. LATACLR : longWord;
  12347. LATASET : longWord;
  12348. LATAINV : longWord;
  12349. ODCAbits : TPORTA_ODCA;
  12350. ODCA : longWord;
  12351. ODCACLR : longWord;
  12352. ODCASET : longWord;
  12353. ODCAINV : longWord;
  12354. end;
  12355. TPORTB_TRISB = record
  12356. private
  12357. function getTRISB0 : TBits_1; inline;
  12358. function getTRISB1 : TBits_1; inline;
  12359. function getTRISB10 : TBits_1; inline;
  12360. function getTRISB11 : TBits_1; inline;
  12361. function getTRISB12 : TBits_1; inline;
  12362. function getTRISB13 : TBits_1; inline;
  12363. function getTRISB14 : TBits_1; inline;
  12364. function getTRISB15 : TBits_1; inline;
  12365. function getTRISB2 : TBits_1; inline;
  12366. function getTRISB3 : TBits_1; inline;
  12367. function getTRISB4 : TBits_1; inline;
  12368. function getTRISB5 : TBits_1; inline;
  12369. function getTRISB6 : TBits_1; inline;
  12370. function getTRISB7 : TBits_1; inline;
  12371. function getTRISB8 : TBits_1; inline;
  12372. function getTRISB9 : TBits_1; inline;
  12373. function getw : TBits_32; inline;
  12374. procedure setTRISB0(thebits : TBits_1); inline;
  12375. procedure setTRISB1(thebits : TBits_1); inline;
  12376. procedure setTRISB10(thebits : TBits_1); inline;
  12377. procedure setTRISB11(thebits : TBits_1); inline;
  12378. procedure setTRISB12(thebits : TBits_1); inline;
  12379. procedure setTRISB13(thebits : TBits_1); inline;
  12380. procedure setTRISB14(thebits : TBits_1); inline;
  12381. procedure setTRISB15(thebits : TBits_1); inline;
  12382. procedure setTRISB2(thebits : TBits_1); inline;
  12383. procedure setTRISB3(thebits : TBits_1); inline;
  12384. procedure setTRISB4(thebits : TBits_1); inline;
  12385. procedure setTRISB5(thebits : TBits_1); inline;
  12386. procedure setTRISB6(thebits : TBits_1); inline;
  12387. procedure setTRISB7(thebits : TBits_1); inline;
  12388. procedure setTRISB8(thebits : TBits_1); inline;
  12389. procedure setTRISB9(thebits : TBits_1); inline;
  12390. procedure setw(thebits : TBits_32); inline;
  12391. public
  12392. procedure clearTRISB0; inline;
  12393. procedure clearTRISB10; inline;
  12394. procedure clearTRISB11; inline;
  12395. procedure clearTRISB12; inline;
  12396. procedure clearTRISB13; inline;
  12397. procedure clearTRISB14; inline;
  12398. procedure clearTRISB15; inline;
  12399. procedure clearTRISB1; inline;
  12400. procedure clearTRISB2; inline;
  12401. procedure clearTRISB3; inline;
  12402. procedure clearTRISB4; inline;
  12403. procedure clearTRISB5; inline;
  12404. procedure clearTRISB6; inline;
  12405. procedure clearTRISB7; inline;
  12406. procedure clearTRISB8; inline;
  12407. procedure clearTRISB9; inline;
  12408. procedure setTRISB0; inline;
  12409. procedure setTRISB10; inline;
  12410. procedure setTRISB11; inline;
  12411. procedure setTRISB12; inline;
  12412. procedure setTRISB13; inline;
  12413. procedure setTRISB14; inline;
  12414. procedure setTRISB15; inline;
  12415. procedure setTRISB1; inline;
  12416. procedure setTRISB2; inline;
  12417. procedure setTRISB3; inline;
  12418. procedure setTRISB4; inline;
  12419. procedure setTRISB5; inline;
  12420. procedure setTRISB6; inline;
  12421. procedure setTRISB7; inline;
  12422. procedure setTRISB8; inline;
  12423. procedure setTRISB9; inline;
  12424. property TRISB0 : TBits_1 read getTRISB0 write setTRISB0;
  12425. property TRISB1 : TBits_1 read getTRISB1 write setTRISB1;
  12426. property TRISB10 : TBits_1 read getTRISB10 write setTRISB10;
  12427. property TRISB11 : TBits_1 read getTRISB11 write setTRISB11;
  12428. property TRISB12 : TBits_1 read getTRISB12 write setTRISB12;
  12429. property TRISB13 : TBits_1 read getTRISB13 write setTRISB13;
  12430. property TRISB14 : TBits_1 read getTRISB14 write setTRISB14;
  12431. property TRISB15 : TBits_1 read getTRISB15 write setTRISB15;
  12432. property TRISB2 : TBits_1 read getTRISB2 write setTRISB2;
  12433. property TRISB3 : TBits_1 read getTRISB3 write setTRISB3;
  12434. property TRISB4 : TBits_1 read getTRISB4 write setTRISB4;
  12435. property TRISB5 : TBits_1 read getTRISB5 write setTRISB5;
  12436. property TRISB6 : TBits_1 read getTRISB6 write setTRISB6;
  12437. property TRISB7 : TBits_1 read getTRISB7 write setTRISB7;
  12438. property TRISB8 : TBits_1 read getTRISB8 write setTRISB8;
  12439. property TRISB9 : TBits_1 read getTRISB9 write setTRISB9;
  12440. property w : TBits_32 read getw write setw;
  12441. end;
  12442. TPORTB_PORTB = record
  12443. private
  12444. function getRB0 : TBits_1; inline;
  12445. function getRB1 : TBits_1; inline;
  12446. function getRB10 : TBits_1; inline;
  12447. function getRB11 : TBits_1; inline;
  12448. function getRB12 : TBits_1; inline;
  12449. function getRB13 : TBits_1; inline;
  12450. function getRB14 : TBits_1; inline;
  12451. function getRB15 : TBits_1; inline;
  12452. function getRB2 : TBits_1; inline;
  12453. function getRB3 : TBits_1; inline;
  12454. function getRB4 : TBits_1; inline;
  12455. function getRB5 : TBits_1; inline;
  12456. function getRB6 : TBits_1; inline;
  12457. function getRB7 : TBits_1; inline;
  12458. function getRB8 : TBits_1; inline;
  12459. function getRB9 : TBits_1; inline;
  12460. function getw : TBits_32; inline;
  12461. procedure setRB0(thebits : TBits_1); inline;
  12462. procedure setRB1(thebits : TBits_1); inline;
  12463. procedure setRB10(thebits : TBits_1); inline;
  12464. procedure setRB11(thebits : TBits_1); inline;
  12465. procedure setRB12(thebits : TBits_1); inline;
  12466. procedure setRB13(thebits : TBits_1); inline;
  12467. procedure setRB14(thebits : TBits_1); inline;
  12468. procedure setRB15(thebits : TBits_1); inline;
  12469. procedure setRB2(thebits : TBits_1); inline;
  12470. procedure setRB3(thebits : TBits_1); inline;
  12471. procedure setRB4(thebits : TBits_1); inline;
  12472. procedure setRB5(thebits : TBits_1); inline;
  12473. procedure setRB6(thebits : TBits_1); inline;
  12474. procedure setRB7(thebits : TBits_1); inline;
  12475. procedure setRB8(thebits : TBits_1); inline;
  12476. procedure setRB9(thebits : TBits_1); inline;
  12477. procedure setw(thebits : TBits_32); inline;
  12478. public
  12479. procedure clearRB0; inline;
  12480. procedure clearRB10; inline;
  12481. procedure clearRB11; inline;
  12482. procedure clearRB12; inline;
  12483. procedure clearRB13; inline;
  12484. procedure clearRB14; inline;
  12485. procedure clearRB15; inline;
  12486. procedure clearRB1; inline;
  12487. procedure clearRB2; inline;
  12488. procedure clearRB3; inline;
  12489. procedure clearRB4; inline;
  12490. procedure clearRB5; inline;
  12491. procedure clearRB6; inline;
  12492. procedure clearRB7; inline;
  12493. procedure clearRB8; inline;
  12494. procedure clearRB9; inline;
  12495. procedure setRB0; inline;
  12496. procedure setRB10; inline;
  12497. procedure setRB11; inline;
  12498. procedure setRB12; inline;
  12499. procedure setRB13; inline;
  12500. procedure setRB14; inline;
  12501. procedure setRB15; inline;
  12502. procedure setRB1; inline;
  12503. procedure setRB2; inline;
  12504. procedure setRB3; inline;
  12505. procedure setRB4; inline;
  12506. procedure setRB5; inline;
  12507. procedure setRB6; inline;
  12508. procedure setRB7; inline;
  12509. procedure setRB8; inline;
  12510. procedure setRB9; inline;
  12511. property RB0 : TBits_1 read getRB0 write setRB0;
  12512. property RB1 : TBits_1 read getRB1 write setRB1;
  12513. property RB10 : TBits_1 read getRB10 write setRB10;
  12514. property RB11 : TBits_1 read getRB11 write setRB11;
  12515. property RB12 : TBits_1 read getRB12 write setRB12;
  12516. property RB13 : TBits_1 read getRB13 write setRB13;
  12517. property RB14 : TBits_1 read getRB14 write setRB14;
  12518. property RB15 : TBits_1 read getRB15 write setRB15;
  12519. property RB2 : TBits_1 read getRB2 write setRB2;
  12520. property RB3 : TBits_1 read getRB3 write setRB3;
  12521. property RB4 : TBits_1 read getRB4 write setRB4;
  12522. property RB5 : TBits_1 read getRB5 write setRB5;
  12523. property RB6 : TBits_1 read getRB6 write setRB6;
  12524. property RB7 : TBits_1 read getRB7 write setRB7;
  12525. property RB8 : TBits_1 read getRB8 write setRB8;
  12526. property RB9 : TBits_1 read getRB9 write setRB9;
  12527. property w : TBits_32 read getw write setw;
  12528. end;
  12529. 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);
  12530. TPortB_bitset = set of TPortB_bits;
  12531. TPORTB_LATB = record
  12532. private
  12533. function getLATB0 : TBits_1; inline;
  12534. function getLATB1 : TBits_1; inline;
  12535. function getLATB10 : TBits_1; inline;
  12536. function getLATB11 : TBits_1; inline;
  12537. function getLATB12 : TBits_1; inline;
  12538. function getLATB13 : TBits_1; inline;
  12539. function getLATB14 : TBits_1; inline;
  12540. function getLATB15 : TBits_1; inline;
  12541. function getLATB2 : TBits_1; inline;
  12542. function getLATB3 : TBits_1; inline;
  12543. function getLATB4 : TBits_1; inline;
  12544. function getLATB5 : TBits_1; inline;
  12545. function getLATB6 : TBits_1; inline;
  12546. function getLATB7 : TBits_1; inline;
  12547. function getLATB8 : TBits_1; inline;
  12548. function getLATB9 : TBits_1; inline;
  12549. function getw : TBits_32; inline;
  12550. procedure setLATB0(thebits : TBits_1); inline;
  12551. procedure setLATB1(thebits : TBits_1); inline;
  12552. procedure setLATB10(thebits : TBits_1); inline;
  12553. procedure setLATB11(thebits : TBits_1); inline;
  12554. procedure setLATB12(thebits : TBits_1); inline;
  12555. procedure setLATB13(thebits : TBits_1); inline;
  12556. procedure setLATB14(thebits : TBits_1); inline;
  12557. procedure setLATB15(thebits : TBits_1); inline;
  12558. procedure setLATB2(thebits : TBits_1); inline;
  12559. procedure setLATB3(thebits : TBits_1); inline;
  12560. procedure setLATB4(thebits : TBits_1); inline;
  12561. procedure setLATB5(thebits : TBits_1); inline;
  12562. procedure setLATB6(thebits : TBits_1); inline;
  12563. procedure setLATB7(thebits : TBits_1); inline;
  12564. procedure setLATB8(thebits : TBits_1); inline;
  12565. procedure setLATB9(thebits : TBits_1); inline;
  12566. procedure setw(thebits : TBits_32); inline;
  12567. public
  12568. procedure clearLATB0; inline;
  12569. procedure clearLATB10; inline;
  12570. procedure clearLATB11; inline;
  12571. procedure clearLATB12; inline;
  12572. procedure clearLATB13; inline;
  12573. procedure clearLATB14; inline;
  12574. procedure clearLATB15; inline;
  12575. procedure clearLATB1; inline;
  12576. procedure clearLATB2; inline;
  12577. procedure clearLATB3; inline;
  12578. procedure clearLATB4; inline;
  12579. procedure clearLATB5; inline;
  12580. procedure clearLATB6; inline;
  12581. procedure clearLATB7; inline;
  12582. procedure clearLATB8; inline;
  12583. procedure clearLATB9; inline;
  12584. procedure setLATB0; inline;
  12585. procedure setLATB10; inline;
  12586. procedure setLATB11; inline;
  12587. procedure setLATB12; inline;
  12588. procedure setLATB13; inline;
  12589. procedure setLATB14; inline;
  12590. procedure setLATB15; inline;
  12591. procedure setLATB1; inline;
  12592. procedure setLATB2; inline;
  12593. procedure setLATB3; inline;
  12594. procedure setLATB4; inline;
  12595. procedure setLATB5; inline;
  12596. procedure setLATB6; inline;
  12597. procedure setLATB7; inline;
  12598. procedure setLATB8; inline;
  12599. procedure setLATB9; inline;
  12600. property LATB0 : TBits_1 read getLATB0 write setLATB0;
  12601. property LATB1 : TBits_1 read getLATB1 write setLATB1;
  12602. property LATB10 : TBits_1 read getLATB10 write setLATB10;
  12603. property LATB11 : TBits_1 read getLATB11 write setLATB11;
  12604. property LATB12 : TBits_1 read getLATB12 write setLATB12;
  12605. property LATB13 : TBits_1 read getLATB13 write setLATB13;
  12606. property LATB14 : TBits_1 read getLATB14 write setLATB14;
  12607. property LATB15 : TBits_1 read getLATB15 write setLATB15;
  12608. property LATB2 : TBits_1 read getLATB2 write setLATB2;
  12609. property LATB3 : TBits_1 read getLATB3 write setLATB3;
  12610. property LATB4 : TBits_1 read getLATB4 write setLATB4;
  12611. property LATB5 : TBits_1 read getLATB5 write setLATB5;
  12612. property LATB6 : TBits_1 read getLATB6 write setLATB6;
  12613. property LATB7 : TBits_1 read getLATB7 write setLATB7;
  12614. property LATB8 : TBits_1 read getLATB8 write setLATB8;
  12615. property LATB9 : TBits_1 read getLATB9 write setLATB9;
  12616. property w : TBits_32 read getw write setw;
  12617. end;
  12618. TPORTB_ODCB = record
  12619. private
  12620. function getODCB0 : TBits_1; inline;
  12621. function getODCB1 : TBits_1; inline;
  12622. function getODCB10 : TBits_1; inline;
  12623. function getODCB11 : TBits_1; inline;
  12624. function getODCB12 : TBits_1; inline;
  12625. function getODCB13 : TBits_1; inline;
  12626. function getODCB14 : TBits_1; inline;
  12627. function getODCB15 : TBits_1; inline;
  12628. function getODCB2 : TBits_1; inline;
  12629. function getODCB3 : TBits_1; inline;
  12630. function getODCB4 : TBits_1; inline;
  12631. function getODCB5 : TBits_1; inline;
  12632. function getODCB6 : TBits_1; inline;
  12633. function getODCB7 : TBits_1; inline;
  12634. function getODCB8 : TBits_1; inline;
  12635. function getODCB9 : TBits_1; inline;
  12636. function getw : TBits_32; inline;
  12637. procedure setODCB0(thebits : TBits_1); inline;
  12638. procedure setODCB1(thebits : TBits_1); inline;
  12639. procedure setODCB10(thebits : TBits_1); inline;
  12640. procedure setODCB11(thebits : TBits_1); inline;
  12641. procedure setODCB12(thebits : TBits_1); inline;
  12642. procedure setODCB13(thebits : TBits_1); inline;
  12643. procedure setODCB14(thebits : TBits_1); inline;
  12644. procedure setODCB15(thebits : TBits_1); inline;
  12645. procedure setODCB2(thebits : TBits_1); inline;
  12646. procedure setODCB3(thebits : TBits_1); inline;
  12647. procedure setODCB4(thebits : TBits_1); inline;
  12648. procedure setODCB5(thebits : TBits_1); inline;
  12649. procedure setODCB6(thebits : TBits_1); inline;
  12650. procedure setODCB7(thebits : TBits_1); inline;
  12651. procedure setODCB8(thebits : TBits_1); inline;
  12652. procedure setODCB9(thebits : TBits_1); inline;
  12653. procedure setw(thebits : TBits_32); inline;
  12654. public
  12655. procedure clearODCB0; inline;
  12656. procedure clearODCB10; inline;
  12657. procedure clearODCB11; inline;
  12658. procedure clearODCB12; inline;
  12659. procedure clearODCB13; inline;
  12660. procedure clearODCB14; inline;
  12661. procedure clearODCB15; inline;
  12662. procedure clearODCB1; inline;
  12663. procedure clearODCB2; inline;
  12664. procedure clearODCB3; inline;
  12665. procedure clearODCB4; inline;
  12666. procedure clearODCB5; inline;
  12667. procedure clearODCB6; inline;
  12668. procedure clearODCB7; inline;
  12669. procedure clearODCB8; inline;
  12670. procedure clearODCB9; inline;
  12671. procedure setODCB0; inline;
  12672. procedure setODCB10; inline;
  12673. procedure setODCB11; inline;
  12674. procedure setODCB12; inline;
  12675. procedure setODCB13; inline;
  12676. procedure setODCB14; inline;
  12677. procedure setODCB15; inline;
  12678. procedure setODCB1; inline;
  12679. procedure setODCB2; inline;
  12680. procedure setODCB3; inline;
  12681. procedure setODCB4; inline;
  12682. procedure setODCB5; inline;
  12683. procedure setODCB6; inline;
  12684. procedure setODCB7; inline;
  12685. procedure setODCB8; inline;
  12686. procedure setODCB9; inline;
  12687. property ODCB0 : TBits_1 read getODCB0 write setODCB0;
  12688. property ODCB1 : TBits_1 read getODCB1 write setODCB1;
  12689. property ODCB10 : TBits_1 read getODCB10 write setODCB10;
  12690. property ODCB11 : TBits_1 read getODCB11 write setODCB11;
  12691. property ODCB12 : TBits_1 read getODCB12 write setODCB12;
  12692. property ODCB13 : TBits_1 read getODCB13 write setODCB13;
  12693. property ODCB14 : TBits_1 read getODCB14 write setODCB14;
  12694. property ODCB15 : TBits_1 read getODCB15 write setODCB15;
  12695. property ODCB2 : TBits_1 read getODCB2 write setODCB2;
  12696. property ODCB3 : TBits_1 read getODCB3 write setODCB3;
  12697. property ODCB4 : TBits_1 read getODCB4 write setODCB4;
  12698. property ODCB5 : TBits_1 read getODCB5 write setODCB5;
  12699. property ODCB6 : TBits_1 read getODCB6 write setODCB6;
  12700. property ODCB7 : TBits_1 read getODCB7 write setODCB7;
  12701. property ODCB8 : TBits_1 read getODCB8 write setODCB8;
  12702. property ODCB9 : TBits_1 read getODCB9 write setODCB9;
  12703. property w : TBits_32 read getw write setw;
  12704. end;
  12705. type
  12706. TPORTBRegisters = record
  12707. TRISBbits : TPORTB_TRISB;
  12708. TRISB : longWord;
  12709. TRISBCLR : longWord;
  12710. TRISBSET : longWord;
  12711. TRISBINV : longWord;
  12712. PORTBbits : TPORTB_PORTB;
  12713. PORTB : longWord;
  12714. PORTBCLR : longWord;
  12715. PORTBSET : longWord;
  12716. PORTBINV : longWord;
  12717. LATBbits : TPORTB_LATB;
  12718. LATB : longWord;
  12719. LATBCLR : longWord;
  12720. LATBSET : longWord;
  12721. LATBINV : longWord;
  12722. ODCBbits : TPORTB_ODCB;
  12723. ODCB : longWord;
  12724. ODCBCLR : longWord;
  12725. ODCBSET : longWord;
  12726. ODCBINV : longWord;
  12727. end;
  12728. TPORTC_TRISC = record
  12729. private
  12730. function getTRISC1 : TBits_1; inline;
  12731. function getTRISC12 : TBits_1; inline;
  12732. function getTRISC13 : TBits_1; inline;
  12733. function getTRISC14 : TBits_1; inline;
  12734. function getTRISC15 : TBits_1; inline;
  12735. function getTRISC2 : TBits_1; inline;
  12736. function getTRISC3 : TBits_1; inline;
  12737. function getTRISC4 : TBits_1; inline;
  12738. function getw : TBits_32; inline;
  12739. procedure setTRISC1(thebits : TBits_1); inline;
  12740. procedure setTRISC12(thebits : TBits_1); inline;
  12741. procedure setTRISC13(thebits : TBits_1); inline;
  12742. procedure setTRISC14(thebits : TBits_1); inline;
  12743. procedure setTRISC15(thebits : TBits_1); inline;
  12744. procedure setTRISC2(thebits : TBits_1); inline;
  12745. procedure setTRISC3(thebits : TBits_1); inline;
  12746. procedure setTRISC4(thebits : TBits_1); inline;
  12747. procedure setw(thebits : TBits_32); inline;
  12748. public
  12749. procedure clearTRISC12; inline;
  12750. procedure clearTRISC13; inline;
  12751. procedure clearTRISC14; inline;
  12752. procedure clearTRISC15; inline;
  12753. procedure clearTRISC1; inline;
  12754. procedure clearTRISC2; inline;
  12755. procedure clearTRISC3; inline;
  12756. procedure clearTRISC4; inline;
  12757. procedure setTRISC12; inline;
  12758. procedure setTRISC13; inline;
  12759. procedure setTRISC14; inline;
  12760. procedure setTRISC15; inline;
  12761. procedure setTRISC1; inline;
  12762. procedure setTRISC2; inline;
  12763. procedure setTRISC3; inline;
  12764. procedure setTRISC4; inline;
  12765. property TRISC1 : TBits_1 read getTRISC1 write setTRISC1;
  12766. property TRISC12 : TBits_1 read getTRISC12 write setTRISC12;
  12767. property TRISC13 : TBits_1 read getTRISC13 write setTRISC13;
  12768. property TRISC14 : TBits_1 read getTRISC14 write setTRISC14;
  12769. property TRISC15 : TBits_1 read getTRISC15 write setTRISC15;
  12770. property TRISC2 : TBits_1 read getTRISC2 write setTRISC2;
  12771. property TRISC3 : TBits_1 read getTRISC3 write setTRISC3;
  12772. property TRISC4 : TBits_1 read getTRISC4 write setTRISC4;
  12773. property w : TBits_32 read getw write setw;
  12774. end;
  12775. TPORTC_PORTC = record
  12776. private
  12777. function getRC1 : TBits_1; inline;
  12778. function getRC12 : TBits_1; inline;
  12779. function getRC13 : TBits_1; inline;
  12780. function getRC14 : TBits_1; inline;
  12781. function getRC15 : TBits_1; inline;
  12782. function getRC2 : TBits_1; inline;
  12783. function getRC3 : TBits_1; inline;
  12784. function getRC4 : TBits_1; inline;
  12785. function getw : TBits_32; inline;
  12786. procedure setRC1(thebits : TBits_1); inline;
  12787. procedure setRC12(thebits : TBits_1); inline;
  12788. procedure setRC13(thebits : TBits_1); inline;
  12789. procedure setRC14(thebits : TBits_1); inline;
  12790. procedure setRC15(thebits : TBits_1); inline;
  12791. procedure setRC2(thebits : TBits_1); inline;
  12792. procedure setRC3(thebits : TBits_1); inline;
  12793. procedure setRC4(thebits : TBits_1); inline;
  12794. procedure setw(thebits : TBits_32); inline;
  12795. public
  12796. procedure clearRC12; inline;
  12797. procedure clearRC13; inline;
  12798. procedure clearRC14; inline;
  12799. procedure clearRC15; inline;
  12800. procedure clearRC1; inline;
  12801. procedure clearRC2; inline;
  12802. procedure clearRC3; inline;
  12803. procedure clearRC4; inline;
  12804. procedure setRC12; inline;
  12805. procedure setRC13; inline;
  12806. procedure setRC14; inline;
  12807. procedure setRC15; inline;
  12808. procedure setRC1; inline;
  12809. procedure setRC2; inline;
  12810. procedure setRC3; inline;
  12811. procedure setRC4; inline;
  12812. property RC1 : TBits_1 read getRC1 write setRC1;
  12813. property RC12 : TBits_1 read getRC12 write setRC12;
  12814. property RC13 : TBits_1 read getRC13 write setRC13;
  12815. property RC14 : TBits_1 read getRC14 write setRC14;
  12816. property RC15 : TBits_1 read getRC15 write setRC15;
  12817. property RC2 : TBits_1 read getRC2 write setRC2;
  12818. property RC3 : TBits_1 read getRC3 write setRC3;
  12819. property RC4 : TBits_1 read getRC4 write setRC4;
  12820. property w : TBits_32 read getw write setw;
  12821. end;
  12822. TPortC_bits=(RC1=1,RC2=2,RC3=3,RC4=4,RC12=12,RC13=13,RC14=14,RC15=15);
  12823. TPortC_bitset = set of TPortC_bits;
  12824. TPORTC_LATC = record
  12825. private
  12826. function getLATC1 : TBits_1; inline;
  12827. function getLATC12 : TBits_1; inline;
  12828. function getLATC13 : TBits_1; inline;
  12829. function getLATC14 : TBits_1; inline;
  12830. function getLATC15 : TBits_1; inline;
  12831. function getLATC2 : TBits_1; inline;
  12832. function getLATC3 : TBits_1; inline;
  12833. function getLATC4 : TBits_1; inline;
  12834. function getw : TBits_32; inline;
  12835. procedure setLATC1(thebits : TBits_1); inline;
  12836. procedure setLATC12(thebits : TBits_1); inline;
  12837. procedure setLATC13(thebits : TBits_1); inline;
  12838. procedure setLATC14(thebits : TBits_1); inline;
  12839. procedure setLATC15(thebits : TBits_1); inline;
  12840. procedure setLATC2(thebits : TBits_1); inline;
  12841. procedure setLATC3(thebits : TBits_1); inline;
  12842. procedure setLATC4(thebits : TBits_1); inline;
  12843. procedure setw(thebits : TBits_32); inline;
  12844. public
  12845. procedure clearLATC12; inline;
  12846. procedure clearLATC13; inline;
  12847. procedure clearLATC14; inline;
  12848. procedure clearLATC15; inline;
  12849. procedure clearLATC1; inline;
  12850. procedure clearLATC2; inline;
  12851. procedure clearLATC3; inline;
  12852. procedure clearLATC4; inline;
  12853. procedure setLATC12; inline;
  12854. procedure setLATC13; inline;
  12855. procedure setLATC14; inline;
  12856. procedure setLATC15; inline;
  12857. procedure setLATC1; inline;
  12858. procedure setLATC2; inline;
  12859. procedure setLATC3; inline;
  12860. procedure setLATC4; inline;
  12861. property LATC1 : TBits_1 read getLATC1 write setLATC1;
  12862. property LATC12 : TBits_1 read getLATC12 write setLATC12;
  12863. property LATC13 : TBits_1 read getLATC13 write setLATC13;
  12864. property LATC14 : TBits_1 read getLATC14 write setLATC14;
  12865. property LATC15 : TBits_1 read getLATC15 write setLATC15;
  12866. property LATC2 : TBits_1 read getLATC2 write setLATC2;
  12867. property LATC3 : TBits_1 read getLATC3 write setLATC3;
  12868. property LATC4 : TBits_1 read getLATC4 write setLATC4;
  12869. property w : TBits_32 read getw write setw;
  12870. end;
  12871. TPORTC_ODCC = record
  12872. private
  12873. function getODCC1 : TBits_1; inline;
  12874. function getODCC12 : TBits_1; inline;
  12875. function getODCC13 : TBits_1; inline;
  12876. function getODCC14 : TBits_1; inline;
  12877. function getODCC15 : TBits_1; inline;
  12878. function getODCC2 : TBits_1; inline;
  12879. function getODCC3 : TBits_1; inline;
  12880. function getODCC4 : TBits_1; inline;
  12881. function getw : TBits_32; inline;
  12882. procedure setODCC1(thebits : TBits_1); inline;
  12883. procedure setODCC12(thebits : TBits_1); inline;
  12884. procedure setODCC13(thebits : TBits_1); inline;
  12885. procedure setODCC14(thebits : TBits_1); inline;
  12886. procedure setODCC15(thebits : TBits_1); inline;
  12887. procedure setODCC2(thebits : TBits_1); inline;
  12888. procedure setODCC3(thebits : TBits_1); inline;
  12889. procedure setODCC4(thebits : TBits_1); inline;
  12890. procedure setw(thebits : TBits_32); inline;
  12891. public
  12892. procedure clearODCC12; inline;
  12893. procedure clearODCC13; inline;
  12894. procedure clearODCC14; inline;
  12895. procedure clearODCC15; inline;
  12896. procedure clearODCC1; inline;
  12897. procedure clearODCC2; inline;
  12898. procedure clearODCC3; inline;
  12899. procedure clearODCC4; inline;
  12900. procedure setODCC12; inline;
  12901. procedure setODCC13; inline;
  12902. procedure setODCC14; inline;
  12903. procedure setODCC15; inline;
  12904. procedure setODCC1; inline;
  12905. procedure setODCC2; inline;
  12906. procedure setODCC3; inline;
  12907. procedure setODCC4; inline;
  12908. property ODCC1 : TBits_1 read getODCC1 write setODCC1;
  12909. property ODCC12 : TBits_1 read getODCC12 write setODCC12;
  12910. property ODCC13 : TBits_1 read getODCC13 write setODCC13;
  12911. property ODCC14 : TBits_1 read getODCC14 write setODCC14;
  12912. property ODCC15 : TBits_1 read getODCC15 write setODCC15;
  12913. property ODCC2 : TBits_1 read getODCC2 write setODCC2;
  12914. property ODCC3 : TBits_1 read getODCC3 write setODCC3;
  12915. property ODCC4 : TBits_1 read getODCC4 write setODCC4;
  12916. property w : TBits_32 read getw write setw;
  12917. end;
  12918. type
  12919. TPORTCRegisters = record
  12920. TRISCbits : TPORTC_TRISC;
  12921. TRISC : longWord;
  12922. TRISCCLR : longWord;
  12923. TRISCSET : longWord;
  12924. TRISCINV : longWord;
  12925. PORTCbits : TPORTC_PORTC;
  12926. PORTC : longWord;
  12927. PORTCCLR : longWord;
  12928. PORTCSET : longWord;
  12929. PORTCINV : longWord;
  12930. LATCbits : TPORTC_LATC;
  12931. LATC : longWord;
  12932. LATCCLR : longWord;
  12933. LATCSET : longWord;
  12934. LATCINV : longWord;
  12935. ODCCbits : TPORTC_ODCC;
  12936. ODCC : longWord;
  12937. ODCCCLR : longWord;
  12938. ODCCSET : longWord;
  12939. ODCCINV : longWord;
  12940. end;
  12941. TPORTD_TRISD = record
  12942. private
  12943. function getTRISD0 : TBits_1; inline;
  12944. function getTRISD1 : TBits_1; inline;
  12945. function getTRISD10 : TBits_1; inline;
  12946. function getTRISD11 : TBits_1; inline;
  12947. function getTRISD12 : TBits_1; inline;
  12948. function getTRISD13 : TBits_1; inline;
  12949. function getTRISD14 : TBits_1; inline;
  12950. function getTRISD15 : TBits_1; inline;
  12951. function getTRISD2 : TBits_1; inline;
  12952. function getTRISD3 : TBits_1; inline;
  12953. function getTRISD4 : TBits_1; inline;
  12954. function getTRISD5 : TBits_1; inline;
  12955. function getTRISD6 : TBits_1; inline;
  12956. function getTRISD7 : TBits_1; inline;
  12957. function getTRISD8 : TBits_1; inline;
  12958. function getTRISD9 : TBits_1; inline;
  12959. function getw : TBits_32; inline;
  12960. procedure setTRISD0(thebits : TBits_1); inline;
  12961. procedure setTRISD1(thebits : TBits_1); inline;
  12962. procedure setTRISD10(thebits : TBits_1); inline;
  12963. procedure setTRISD11(thebits : TBits_1); inline;
  12964. procedure setTRISD12(thebits : TBits_1); inline;
  12965. procedure setTRISD13(thebits : TBits_1); inline;
  12966. procedure setTRISD14(thebits : TBits_1); inline;
  12967. procedure setTRISD15(thebits : TBits_1); inline;
  12968. procedure setTRISD2(thebits : TBits_1); inline;
  12969. procedure setTRISD3(thebits : TBits_1); inline;
  12970. procedure setTRISD4(thebits : TBits_1); inline;
  12971. procedure setTRISD5(thebits : TBits_1); inline;
  12972. procedure setTRISD6(thebits : TBits_1); inline;
  12973. procedure setTRISD7(thebits : TBits_1); inline;
  12974. procedure setTRISD8(thebits : TBits_1); inline;
  12975. procedure setTRISD9(thebits : TBits_1); inline;
  12976. procedure setw(thebits : TBits_32); inline;
  12977. public
  12978. procedure clearTRISD0; inline;
  12979. procedure clearTRISD10; inline;
  12980. procedure clearTRISD11; inline;
  12981. procedure clearTRISD12; inline;
  12982. procedure clearTRISD13; inline;
  12983. procedure clearTRISD14; inline;
  12984. procedure clearTRISD15; inline;
  12985. procedure clearTRISD1; inline;
  12986. procedure clearTRISD2; inline;
  12987. procedure clearTRISD3; inline;
  12988. procedure clearTRISD4; inline;
  12989. procedure clearTRISD5; inline;
  12990. procedure clearTRISD6; inline;
  12991. procedure clearTRISD7; inline;
  12992. procedure clearTRISD8; inline;
  12993. procedure clearTRISD9; inline;
  12994. procedure setTRISD0; inline;
  12995. procedure setTRISD10; inline;
  12996. procedure setTRISD11; inline;
  12997. procedure setTRISD12; inline;
  12998. procedure setTRISD13; inline;
  12999. procedure setTRISD14; inline;
  13000. procedure setTRISD15; inline;
  13001. procedure setTRISD1; inline;
  13002. procedure setTRISD2; inline;
  13003. procedure setTRISD3; inline;
  13004. procedure setTRISD4; inline;
  13005. procedure setTRISD5; inline;
  13006. procedure setTRISD6; inline;
  13007. procedure setTRISD7; inline;
  13008. procedure setTRISD8; inline;
  13009. procedure setTRISD9; inline;
  13010. property TRISD0 : TBits_1 read getTRISD0 write setTRISD0;
  13011. property TRISD1 : TBits_1 read getTRISD1 write setTRISD1;
  13012. property TRISD10 : TBits_1 read getTRISD10 write setTRISD10;
  13013. property TRISD11 : TBits_1 read getTRISD11 write setTRISD11;
  13014. property TRISD12 : TBits_1 read getTRISD12 write setTRISD12;
  13015. property TRISD13 : TBits_1 read getTRISD13 write setTRISD13;
  13016. property TRISD14 : TBits_1 read getTRISD14 write setTRISD14;
  13017. property TRISD15 : TBits_1 read getTRISD15 write setTRISD15;
  13018. property TRISD2 : TBits_1 read getTRISD2 write setTRISD2;
  13019. property TRISD3 : TBits_1 read getTRISD3 write setTRISD3;
  13020. property TRISD4 : TBits_1 read getTRISD4 write setTRISD4;
  13021. property TRISD5 : TBits_1 read getTRISD5 write setTRISD5;
  13022. property TRISD6 : TBits_1 read getTRISD6 write setTRISD6;
  13023. property TRISD7 : TBits_1 read getTRISD7 write setTRISD7;
  13024. property TRISD8 : TBits_1 read getTRISD8 write setTRISD8;
  13025. property TRISD9 : TBits_1 read getTRISD9 write setTRISD9;
  13026. property w : TBits_32 read getw write setw;
  13027. end;
  13028. TPORTD_PORTD = record
  13029. private
  13030. function getRD0 : TBits_1; inline;
  13031. function getRD1 : TBits_1; inline;
  13032. function getRD10 : TBits_1; inline;
  13033. function getRD11 : TBits_1; inline;
  13034. function getRD12 : TBits_1; inline;
  13035. function getRD13 : TBits_1; inline;
  13036. function getRD14 : TBits_1; inline;
  13037. function getRD15 : TBits_1; inline;
  13038. function getRD2 : TBits_1; inline;
  13039. function getRD3 : TBits_1; inline;
  13040. function getRD4 : TBits_1; inline;
  13041. function getRD5 : TBits_1; inline;
  13042. function getRD6 : TBits_1; inline;
  13043. function getRD7 : TBits_1; inline;
  13044. function getRD8 : TBits_1; inline;
  13045. function getRD9 : TBits_1; inline;
  13046. function getw : TBits_32; inline;
  13047. procedure setRD0(thebits : TBits_1); inline;
  13048. procedure setRD1(thebits : TBits_1); inline;
  13049. procedure setRD10(thebits : TBits_1); inline;
  13050. procedure setRD11(thebits : TBits_1); inline;
  13051. procedure setRD12(thebits : TBits_1); inline;
  13052. procedure setRD13(thebits : TBits_1); inline;
  13053. procedure setRD14(thebits : TBits_1); inline;
  13054. procedure setRD15(thebits : TBits_1); inline;
  13055. procedure setRD2(thebits : TBits_1); inline;
  13056. procedure setRD3(thebits : TBits_1); inline;
  13057. procedure setRD4(thebits : TBits_1); inline;
  13058. procedure setRD5(thebits : TBits_1); inline;
  13059. procedure setRD6(thebits : TBits_1); inline;
  13060. procedure setRD7(thebits : TBits_1); inline;
  13061. procedure setRD8(thebits : TBits_1); inline;
  13062. procedure setRD9(thebits : TBits_1); inline;
  13063. procedure setw(thebits : TBits_32); inline;
  13064. public
  13065. procedure clearRD0; inline;
  13066. procedure clearRD10; inline;
  13067. procedure clearRD11; inline;
  13068. procedure clearRD12; inline;
  13069. procedure clearRD13; inline;
  13070. procedure clearRD14; inline;
  13071. procedure clearRD15; inline;
  13072. procedure clearRD1; inline;
  13073. procedure clearRD2; inline;
  13074. procedure clearRD3; inline;
  13075. procedure clearRD4; inline;
  13076. procedure clearRD5; inline;
  13077. procedure clearRD6; inline;
  13078. procedure clearRD7; inline;
  13079. procedure clearRD8; inline;
  13080. procedure clearRD9; inline;
  13081. procedure setRD0; inline;
  13082. procedure setRD10; inline;
  13083. procedure setRD11; inline;
  13084. procedure setRD12; inline;
  13085. procedure setRD13; inline;
  13086. procedure setRD14; inline;
  13087. procedure setRD15; inline;
  13088. procedure setRD1; inline;
  13089. procedure setRD2; inline;
  13090. procedure setRD3; inline;
  13091. procedure setRD4; inline;
  13092. procedure setRD5; inline;
  13093. procedure setRD6; inline;
  13094. procedure setRD7; inline;
  13095. procedure setRD8; inline;
  13096. procedure setRD9; inline;
  13097. property RD0 : TBits_1 read getRD0 write setRD0;
  13098. property RD1 : TBits_1 read getRD1 write setRD1;
  13099. property RD10 : TBits_1 read getRD10 write setRD10;
  13100. property RD11 : TBits_1 read getRD11 write setRD11;
  13101. property RD12 : TBits_1 read getRD12 write setRD12;
  13102. property RD13 : TBits_1 read getRD13 write setRD13;
  13103. property RD14 : TBits_1 read getRD14 write setRD14;
  13104. property RD15 : TBits_1 read getRD15 write setRD15;
  13105. property RD2 : TBits_1 read getRD2 write setRD2;
  13106. property RD3 : TBits_1 read getRD3 write setRD3;
  13107. property RD4 : TBits_1 read getRD4 write setRD4;
  13108. property RD5 : TBits_1 read getRD5 write setRD5;
  13109. property RD6 : TBits_1 read getRD6 write setRD6;
  13110. property RD7 : TBits_1 read getRD7 write setRD7;
  13111. property RD8 : TBits_1 read getRD8 write setRD8;
  13112. property RD9 : TBits_1 read getRD9 write setRD9;
  13113. property w : TBits_32 read getw write setw;
  13114. end;
  13115. 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);
  13116. TPortD_bitset = set of TPortD_bits;
  13117. TPORTD_LATD = record
  13118. private
  13119. function getLATD0 : TBits_1; inline;
  13120. function getLATD1 : TBits_1; inline;
  13121. function getLATD10 : TBits_1; inline;
  13122. function getLATD11 : TBits_1; inline;
  13123. function getLATD12 : TBits_1; inline;
  13124. function getLATD13 : TBits_1; inline;
  13125. function getLATD14 : TBits_1; inline;
  13126. function getLATD15 : TBits_1; inline;
  13127. function getLATD2 : TBits_1; inline;
  13128. function getLATD3 : TBits_1; inline;
  13129. function getLATD4 : TBits_1; inline;
  13130. function getLATD5 : TBits_1; inline;
  13131. function getLATD6 : TBits_1; inline;
  13132. function getLATD7 : TBits_1; inline;
  13133. function getLATD8 : TBits_1; inline;
  13134. function getLATD9 : TBits_1; inline;
  13135. function getw : TBits_32; inline;
  13136. procedure setLATD0(thebits : TBits_1); inline;
  13137. procedure setLATD1(thebits : TBits_1); inline;
  13138. procedure setLATD10(thebits : TBits_1); inline;
  13139. procedure setLATD11(thebits : TBits_1); inline;
  13140. procedure setLATD12(thebits : TBits_1); inline;
  13141. procedure setLATD13(thebits : TBits_1); inline;
  13142. procedure setLATD14(thebits : TBits_1); inline;
  13143. procedure setLATD15(thebits : TBits_1); inline;
  13144. procedure setLATD2(thebits : TBits_1); inline;
  13145. procedure setLATD3(thebits : TBits_1); inline;
  13146. procedure setLATD4(thebits : TBits_1); inline;
  13147. procedure setLATD5(thebits : TBits_1); inline;
  13148. procedure setLATD6(thebits : TBits_1); inline;
  13149. procedure setLATD7(thebits : TBits_1); inline;
  13150. procedure setLATD8(thebits : TBits_1); inline;
  13151. procedure setLATD9(thebits : TBits_1); inline;
  13152. procedure setw(thebits : TBits_32); inline;
  13153. public
  13154. procedure clearLATD0; inline;
  13155. procedure clearLATD10; inline;
  13156. procedure clearLATD11; inline;
  13157. procedure clearLATD12; inline;
  13158. procedure clearLATD13; inline;
  13159. procedure clearLATD14; inline;
  13160. procedure clearLATD15; inline;
  13161. procedure clearLATD1; inline;
  13162. procedure clearLATD2; inline;
  13163. procedure clearLATD3; inline;
  13164. procedure clearLATD4; inline;
  13165. procedure clearLATD5; inline;
  13166. procedure clearLATD6; inline;
  13167. procedure clearLATD7; inline;
  13168. procedure clearLATD8; inline;
  13169. procedure clearLATD9; inline;
  13170. procedure setLATD0; inline;
  13171. procedure setLATD10; inline;
  13172. procedure setLATD11; inline;
  13173. procedure setLATD12; inline;
  13174. procedure setLATD13; inline;
  13175. procedure setLATD14; inline;
  13176. procedure setLATD15; inline;
  13177. procedure setLATD1; inline;
  13178. procedure setLATD2; inline;
  13179. procedure setLATD3; inline;
  13180. procedure setLATD4; inline;
  13181. procedure setLATD5; inline;
  13182. procedure setLATD6; inline;
  13183. procedure setLATD7; inline;
  13184. procedure setLATD8; inline;
  13185. procedure setLATD9; inline;
  13186. property LATD0 : TBits_1 read getLATD0 write setLATD0;
  13187. property LATD1 : TBits_1 read getLATD1 write setLATD1;
  13188. property LATD10 : TBits_1 read getLATD10 write setLATD10;
  13189. property LATD11 : TBits_1 read getLATD11 write setLATD11;
  13190. property LATD12 : TBits_1 read getLATD12 write setLATD12;
  13191. property LATD13 : TBits_1 read getLATD13 write setLATD13;
  13192. property LATD14 : TBits_1 read getLATD14 write setLATD14;
  13193. property LATD15 : TBits_1 read getLATD15 write setLATD15;
  13194. property LATD2 : TBits_1 read getLATD2 write setLATD2;
  13195. property LATD3 : TBits_1 read getLATD3 write setLATD3;
  13196. property LATD4 : TBits_1 read getLATD4 write setLATD4;
  13197. property LATD5 : TBits_1 read getLATD5 write setLATD5;
  13198. property LATD6 : TBits_1 read getLATD6 write setLATD6;
  13199. property LATD7 : TBits_1 read getLATD7 write setLATD7;
  13200. property LATD8 : TBits_1 read getLATD8 write setLATD8;
  13201. property LATD9 : TBits_1 read getLATD9 write setLATD9;
  13202. property w : TBits_32 read getw write setw;
  13203. end;
  13204. TPORTD_ODCD = record
  13205. private
  13206. function getODCD0 : TBits_1; inline;
  13207. function getODCD1 : TBits_1; inline;
  13208. function getODCD10 : TBits_1; inline;
  13209. function getODCD11 : TBits_1; inline;
  13210. function getODCD12 : TBits_1; inline;
  13211. function getODCD13 : TBits_1; inline;
  13212. function getODCD14 : TBits_1; inline;
  13213. function getODCD15 : TBits_1; inline;
  13214. function getODCD2 : TBits_1; inline;
  13215. function getODCD3 : TBits_1; inline;
  13216. function getODCD4 : TBits_1; inline;
  13217. function getODCD5 : TBits_1; inline;
  13218. function getODCD6 : TBits_1; inline;
  13219. function getODCD7 : TBits_1; inline;
  13220. function getODCD8 : TBits_1; inline;
  13221. function getODCD9 : TBits_1; inline;
  13222. function getw : TBits_32; inline;
  13223. procedure setODCD0(thebits : TBits_1); inline;
  13224. procedure setODCD1(thebits : TBits_1); inline;
  13225. procedure setODCD10(thebits : TBits_1); inline;
  13226. procedure setODCD11(thebits : TBits_1); inline;
  13227. procedure setODCD12(thebits : TBits_1); inline;
  13228. procedure setODCD13(thebits : TBits_1); inline;
  13229. procedure setODCD14(thebits : TBits_1); inline;
  13230. procedure setODCD15(thebits : TBits_1); inline;
  13231. procedure setODCD2(thebits : TBits_1); inline;
  13232. procedure setODCD3(thebits : TBits_1); inline;
  13233. procedure setODCD4(thebits : TBits_1); inline;
  13234. procedure setODCD5(thebits : TBits_1); inline;
  13235. procedure setODCD6(thebits : TBits_1); inline;
  13236. procedure setODCD7(thebits : TBits_1); inline;
  13237. procedure setODCD8(thebits : TBits_1); inline;
  13238. procedure setODCD9(thebits : TBits_1); inline;
  13239. procedure setw(thebits : TBits_32); inline;
  13240. public
  13241. procedure clearODCD0; inline;
  13242. procedure clearODCD10; inline;
  13243. procedure clearODCD11; inline;
  13244. procedure clearODCD12; inline;
  13245. procedure clearODCD13; inline;
  13246. procedure clearODCD14; inline;
  13247. procedure clearODCD15; inline;
  13248. procedure clearODCD1; inline;
  13249. procedure clearODCD2; inline;
  13250. procedure clearODCD3; inline;
  13251. procedure clearODCD4; inline;
  13252. procedure clearODCD5; inline;
  13253. procedure clearODCD6; inline;
  13254. procedure clearODCD7; inline;
  13255. procedure clearODCD8; inline;
  13256. procedure clearODCD9; inline;
  13257. procedure setODCD0; inline;
  13258. procedure setODCD10; inline;
  13259. procedure setODCD11; inline;
  13260. procedure setODCD12; inline;
  13261. procedure setODCD13; inline;
  13262. procedure setODCD14; inline;
  13263. procedure setODCD15; inline;
  13264. procedure setODCD1; inline;
  13265. procedure setODCD2; inline;
  13266. procedure setODCD3; inline;
  13267. procedure setODCD4; inline;
  13268. procedure setODCD5; inline;
  13269. procedure setODCD6; inline;
  13270. procedure setODCD7; inline;
  13271. procedure setODCD8; inline;
  13272. procedure setODCD9; inline;
  13273. property ODCD0 : TBits_1 read getODCD0 write setODCD0;
  13274. property ODCD1 : TBits_1 read getODCD1 write setODCD1;
  13275. property ODCD10 : TBits_1 read getODCD10 write setODCD10;
  13276. property ODCD11 : TBits_1 read getODCD11 write setODCD11;
  13277. property ODCD12 : TBits_1 read getODCD12 write setODCD12;
  13278. property ODCD13 : TBits_1 read getODCD13 write setODCD13;
  13279. property ODCD14 : TBits_1 read getODCD14 write setODCD14;
  13280. property ODCD15 : TBits_1 read getODCD15 write setODCD15;
  13281. property ODCD2 : TBits_1 read getODCD2 write setODCD2;
  13282. property ODCD3 : TBits_1 read getODCD3 write setODCD3;
  13283. property ODCD4 : TBits_1 read getODCD4 write setODCD4;
  13284. property ODCD5 : TBits_1 read getODCD5 write setODCD5;
  13285. property ODCD6 : TBits_1 read getODCD6 write setODCD6;
  13286. property ODCD7 : TBits_1 read getODCD7 write setODCD7;
  13287. property ODCD8 : TBits_1 read getODCD8 write setODCD8;
  13288. property ODCD9 : TBits_1 read getODCD9 write setODCD9;
  13289. property w : TBits_32 read getw write setw;
  13290. end;
  13291. type
  13292. TPORTDRegisters = record
  13293. TRISDbits : TPORTD_TRISD;
  13294. TRISD : longWord;
  13295. TRISDCLR : longWord;
  13296. TRISDSET : longWord;
  13297. TRISDINV : longWord;
  13298. PORTDbits : TPORTD_PORTD;
  13299. PORTD : longWord;
  13300. PORTDCLR : longWord;
  13301. PORTDSET : longWord;
  13302. PORTDINV : longWord;
  13303. LATDbits : TPORTD_LATD;
  13304. LATD : longWord;
  13305. LATDCLR : longWord;
  13306. LATDSET : longWord;
  13307. LATDINV : longWord;
  13308. ODCDbits : TPORTD_ODCD;
  13309. ODCD : longWord;
  13310. ODCDCLR : longWord;
  13311. ODCDSET : longWord;
  13312. ODCDINV : longWord;
  13313. end;
  13314. TPORTE_TRISE = record
  13315. private
  13316. function getTRISE0 : TBits_1; inline;
  13317. function getTRISE1 : TBits_1; inline;
  13318. function getTRISE2 : TBits_1; inline;
  13319. function getTRISE3 : TBits_1; inline;
  13320. function getTRISE4 : TBits_1; inline;
  13321. function getTRISE5 : TBits_1; inline;
  13322. function getTRISE6 : TBits_1; inline;
  13323. function getTRISE7 : TBits_1; inline;
  13324. function getTRISE8 : TBits_1; inline;
  13325. function getTRISE9 : TBits_1; inline;
  13326. function getw : TBits_32; inline;
  13327. procedure setTRISE0(thebits : TBits_1); inline;
  13328. procedure setTRISE1(thebits : TBits_1); inline;
  13329. procedure setTRISE2(thebits : TBits_1); inline;
  13330. procedure setTRISE3(thebits : TBits_1); inline;
  13331. procedure setTRISE4(thebits : TBits_1); inline;
  13332. procedure setTRISE5(thebits : TBits_1); inline;
  13333. procedure setTRISE6(thebits : TBits_1); inline;
  13334. procedure setTRISE7(thebits : TBits_1); inline;
  13335. procedure setTRISE8(thebits : TBits_1); inline;
  13336. procedure setTRISE9(thebits : TBits_1); inline;
  13337. procedure setw(thebits : TBits_32); inline;
  13338. public
  13339. procedure clearTRISE0; inline;
  13340. procedure clearTRISE1; inline;
  13341. procedure clearTRISE2; inline;
  13342. procedure clearTRISE3; inline;
  13343. procedure clearTRISE4; inline;
  13344. procedure clearTRISE5; inline;
  13345. procedure clearTRISE6; inline;
  13346. procedure clearTRISE7; inline;
  13347. procedure clearTRISE8; inline;
  13348. procedure clearTRISE9; inline;
  13349. procedure setTRISE0; inline;
  13350. procedure setTRISE1; inline;
  13351. procedure setTRISE2; inline;
  13352. procedure setTRISE3; inline;
  13353. procedure setTRISE4; inline;
  13354. procedure setTRISE5; inline;
  13355. procedure setTRISE6; inline;
  13356. procedure setTRISE7; inline;
  13357. procedure setTRISE8; inline;
  13358. procedure setTRISE9; inline;
  13359. property TRISE0 : TBits_1 read getTRISE0 write setTRISE0;
  13360. property TRISE1 : TBits_1 read getTRISE1 write setTRISE1;
  13361. property TRISE2 : TBits_1 read getTRISE2 write setTRISE2;
  13362. property TRISE3 : TBits_1 read getTRISE3 write setTRISE3;
  13363. property TRISE4 : TBits_1 read getTRISE4 write setTRISE4;
  13364. property TRISE5 : TBits_1 read getTRISE5 write setTRISE5;
  13365. property TRISE6 : TBits_1 read getTRISE6 write setTRISE6;
  13366. property TRISE7 : TBits_1 read getTRISE7 write setTRISE7;
  13367. property TRISE8 : TBits_1 read getTRISE8 write setTRISE8;
  13368. property TRISE9 : TBits_1 read getTRISE9 write setTRISE9;
  13369. property w : TBits_32 read getw write setw;
  13370. end;
  13371. TPORTE_PORTE = record
  13372. private
  13373. function getRE0 : TBits_1; inline;
  13374. function getRE1 : TBits_1; inline;
  13375. function getRE2 : TBits_1; inline;
  13376. function getRE3 : TBits_1; inline;
  13377. function getRE4 : TBits_1; inline;
  13378. function getRE5 : TBits_1; inline;
  13379. function getRE6 : TBits_1; inline;
  13380. function getRE7 : TBits_1; inline;
  13381. function getRE8 : TBits_1; inline;
  13382. function getRE9 : TBits_1; inline;
  13383. function getw : TBits_32; inline;
  13384. procedure setRE0(thebits : TBits_1); inline;
  13385. procedure setRE1(thebits : TBits_1); inline;
  13386. procedure setRE2(thebits : TBits_1); inline;
  13387. procedure setRE3(thebits : TBits_1); inline;
  13388. procedure setRE4(thebits : TBits_1); inline;
  13389. procedure setRE5(thebits : TBits_1); inline;
  13390. procedure setRE6(thebits : TBits_1); inline;
  13391. procedure setRE7(thebits : TBits_1); inline;
  13392. procedure setRE8(thebits : TBits_1); inline;
  13393. procedure setRE9(thebits : TBits_1); inline;
  13394. procedure setw(thebits : TBits_32); inline;
  13395. public
  13396. procedure clearRE0; inline;
  13397. procedure clearRE1; inline;
  13398. procedure clearRE2; inline;
  13399. procedure clearRE3; inline;
  13400. procedure clearRE4; inline;
  13401. procedure clearRE5; inline;
  13402. procedure clearRE6; inline;
  13403. procedure clearRE7; inline;
  13404. procedure clearRE8; inline;
  13405. procedure clearRE9; inline;
  13406. procedure setRE0; inline;
  13407. procedure setRE1; inline;
  13408. procedure setRE2; inline;
  13409. procedure setRE3; inline;
  13410. procedure setRE4; inline;
  13411. procedure setRE5; inline;
  13412. procedure setRE6; inline;
  13413. procedure setRE7; inline;
  13414. procedure setRE8; inline;
  13415. procedure setRE9; inline;
  13416. property RE0 : TBits_1 read getRE0 write setRE0;
  13417. property RE1 : TBits_1 read getRE1 write setRE1;
  13418. property RE2 : TBits_1 read getRE2 write setRE2;
  13419. property RE3 : TBits_1 read getRE3 write setRE3;
  13420. property RE4 : TBits_1 read getRE4 write setRE4;
  13421. property RE5 : TBits_1 read getRE5 write setRE5;
  13422. property RE6 : TBits_1 read getRE6 write setRE6;
  13423. property RE7 : TBits_1 read getRE7 write setRE7;
  13424. property RE8 : TBits_1 read getRE8 write setRE8;
  13425. property RE9 : TBits_1 read getRE9 write setRE9;
  13426. property w : TBits_32 read getw write setw;
  13427. end;
  13428. TPortE_bits=(RE0=0,RE1=1,RE2=2,RE3=3,RE4=4,RE5=5,RE6=6,RE7=7,RE8=8,RE9=9);
  13429. TPortE_bitset = set of TPortE_bits;
  13430. TPORTE_LATE = record
  13431. private
  13432. function getLATE0 : TBits_1; inline;
  13433. function getLATE1 : TBits_1; inline;
  13434. function getLATE2 : TBits_1; inline;
  13435. function getLATE3 : TBits_1; inline;
  13436. function getLATE4 : TBits_1; inline;
  13437. function getLATE5 : TBits_1; inline;
  13438. function getLATE6 : TBits_1; inline;
  13439. function getLATE7 : TBits_1; inline;
  13440. function getLATE8 : TBits_1; inline;
  13441. function getLATE9 : TBits_1; inline;
  13442. function getw : TBits_32; inline;
  13443. procedure setLATE0(thebits : TBits_1); inline;
  13444. procedure setLATE1(thebits : TBits_1); inline;
  13445. procedure setLATE2(thebits : TBits_1); inline;
  13446. procedure setLATE3(thebits : TBits_1); inline;
  13447. procedure setLATE4(thebits : TBits_1); inline;
  13448. procedure setLATE5(thebits : TBits_1); inline;
  13449. procedure setLATE6(thebits : TBits_1); inline;
  13450. procedure setLATE7(thebits : TBits_1); inline;
  13451. procedure setLATE8(thebits : TBits_1); inline;
  13452. procedure setLATE9(thebits : TBits_1); inline;
  13453. procedure setw(thebits : TBits_32); inline;
  13454. public
  13455. procedure clearLATE0; inline;
  13456. procedure clearLATE1; inline;
  13457. procedure clearLATE2; inline;
  13458. procedure clearLATE3; inline;
  13459. procedure clearLATE4; inline;
  13460. procedure clearLATE5; inline;
  13461. procedure clearLATE6; inline;
  13462. procedure clearLATE7; inline;
  13463. procedure clearLATE8; inline;
  13464. procedure clearLATE9; inline;
  13465. procedure setLATE0; inline;
  13466. procedure setLATE1; inline;
  13467. procedure setLATE2; inline;
  13468. procedure setLATE3; inline;
  13469. procedure setLATE4; inline;
  13470. procedure setLATE5; inline;
  13471. procedure setLATE6; inline;
  13472. procedure setLATE7; inline;
  13473. procedure setLATE8; inline;
  13474. procedure setLATE9; inline;
  13475. property LATE0 : TBits_1 read getLATE0 write setLATE0;
  13476. property LATE1 : TBits_1 read getLATE1 write setLATE1;
  13477. property LATE2 : TBits_1 read getLATE2 write setLATE2;
  13478. property LATE3 : TBits_1 read getLATE3 write setLATE3;
  13479. property LATE4 : TBits_1 read getLATE4 write setLATE4;
  13480. property LATE5 : TBits_1 read getLATE5 write setLATE5;
  13481. property LATE6 : TBits_1 read getLATE6 write setLATE6;
  13482. property LATE7 : TBits_1 read getLATE7 write setLATE7;
  13483. property LATE8 : TBits_1 read getLATE8 write setLATE8;
  13484. property LATE9 : TBits_1 read getLATE9 write setLATE9;
  13485. property w : TBits_32 read getw write setw;
  13486. end;
  13487. TPORTE_ODCE = record
  13488. private
  13489. function getODCE0 : TBits_1; inline;
  13490. function getODCE1 : TBits_1; inline;
  13491. function getODCE2 : TBits_1; inline;
  13492. function getODCE3 : TBits_1; inline;
  13493. function getODCE4 : TBits_1; inline;
  13494. function getODCE5 : TBits_1; inline;
  13495. function getODCE6 : TBits_1; inline;
  13496. function getODCE7 : TBits_1; inline;
  13497. function getODCE8 : TBits_1; inline;
  13498. function getODCE9 : TBits_1; inline;
  13499. function getw : TBits_32; inline;
  13500. procedure setODCE0(thebits : TBits_1); inline;
  13501. procedure setODCE1(thebits : TBits_1); inline;
  13502. procedure setODCE2(thebits : TBits_1); inline;
  13503. procedure setODCE3(thebits : TBits_1); inline;
  13504. procedure setODCE4(thebits : TBits_1); inline;
  13505. procedure setODCE5(thebits : TBits_1); inline;
  13506. procedure setODCE6(thebits : TBits_1); inline;
  13507. procedure setODCE7(thebits : TBits_1); inline;
  13508. procedure setODCE8(thebits : TBits_1); inline;
  13509. procedure setODCE9(thebits : TBits_1); inline;
  13510. procedure setw(thebits : TBits_32); inline;
  13511. public
  13512. procedure clearODCE0; inline;
  13513. procedure clearODCE1; inline;
  13514. procedure clearODCE2; inline;
  13515. procedure clearODCE3; inline;
  13516. procedure clearODCE4; inline;
  13517. procedure clearODCE5; inline;
  13518. procedure clearODCE6; inline;
  13519. procedure clearODCE7; inline;
  13520. procedure clearODCE8; inline;
  13521. procedure clearODCE9; inline;
  13522. procedure setODCE0; inline;
  13523. procedure setODCE1; inline;
  13524. procedure setODCE2; inline;
  13525. procedure setODCE3; inline;
  13526. procedure setODCE4; inline;
  13527. procedure setODCE5; inline;
  13528. procedure setODCE6; inline;
  13529. procedure setODCE7; inline;
  13530. procedure setODCE8; inline;
  13531. procedure setODCE9; inline;
  13532. property ODCE0 : TBits_1 read getODCE0 write setODCE0;
  13533. property ODCE1 : TBits_1 read getODCE1 write setODCE1;
  13534. property ODCE2 : TBits_1 read getODCE2 write setODCE2;
  13535. property ODCE3 : TBits_1 read getODCE3 write setODCE3;
  13536. property ODCE4 : TBits_1 read getODCE4 write setODCE4;
  13537. property ODCE5 : TBits_1 read getODCE5 write setODCE5;
  13538. property ODCE6 : TBits_1 read getODCE6 write setODCE6;
  13539. property ODCE7 : TBits_1 read getODCE7 write setODCE7;
  13540. property ODCE8 : TBits_1 read getODCE8 write setODCE8;
  13541. property ODCE9 : TBits_1 read getODCE9 write setODCE9;
  13542. property w : TBits_32 read getw write setw;
  13543. end;
  13544. type
  13545. TPORTERegisters = record
  13546. TRISEbits : TPORTE_TRISE;
  13547. TRISE : longWord;
  13548. TRISECLR : longWord;
  13549. TRISESET : longWord;
  13550. TRISEINV : longWord;
  13551. PORTEbits : TPORTE_PORTE;
  13552. PORTE : longWord;
  13553. PORTECLR : longWord;
  13554. PORTESET : longWord;
  13555. PORTEINV : longWord;
  13556. LATEbits : TPORTE_LATE;
  13557. LATE : longWord;
  13558. LATECLR : longWord;
  13559. LATESET : longWord;
  13560. LATEINV : longWord;
  13561. ODCEbits : TPORTE_ODCE;
  13562. ODCE : longWord;
  13563. ODCECLR : longWord;
  13564. ODCESET : longWord;
  13565. ODCEINV : longWord;
  13566. end;
  13567. TPORTF_TRISF = record
  13568. private
  13569. function getTRISF0 : TBits_1; inline;
  13570. function getTRISF1 : TBits_1; inline;
  13571. function getTRISF12 : TBits_1; inline;
  13572. function getTRISF13 : TBits_1; inline;
  13573. function getTRISF2 : TBits_1; inline;
  13574. function getTRISF3 : TBits_1; inline;
  13575. function getTRISF4 : TBits_1; inline;
  13576. function getTRISF5 : TBits_1; inline;
  13577. function getTRISF8 : TBits_1; inline;
  13578. function getw : TBits_32; inline;
  13579. procedure setTRISF0(thebits : TBits_1); inline;
  13580. procedure setTRISF1(thebits : TBits_1); inline;
  13581. procedure setTRISF12(thebits : TBits_1); inline;
  13582. procedure setTRISF13(thebits : TBits_1); inline;
  13583. procedure setTRISF2(thebits : TBits_1); inline;
  13584. procedure setTRISF3(thebits : TBits_1); inline;
  13585. procedure setTRISF4(thebits : TBits_1); inline;
  13586. procedure setTRISF5(thebits : TBits_1); inline;
  13587. procedure setTRISF8(thebits : TBits_1); inline;
  13588. procedure setw(thebits : TBits_32); inline;
  13589. public
  13590. procedure clearTRISF0; inline;
  13591. procedure clearTRISF12; inline;
  13592. procedure clearTRISF13; inline;
  13593. procedure clearTRISF1; inline;
  13594. procedure clearTRISF2; inline;
  13595. procedure clearTRISF3; inline;
  13596. procedure clearTRISF4; inline;
  13597. procedure clearTRISF5; inline;
  13598. procedure clearTRISF8; inline;
  13599. procedure setTRISF0; inline;
  13600. procedure setTRISF12; inline;
  13601. procedure setTRISF13; inline;
  13602. procedure setTRISF1; inline;
  13603. procedure setTRISF2; inline;
  13604. procedure setTRISF3; inline;
  13605. procedure setTRISF4; inline;
  13606. procedure setTRISF5; inline;
  13607. procedure setTRISF8; inline;
  13608. property TRISF0 : TBits_1 read getTRISF0 write setTRISF0;
  13609. property TRISF1 : TBits_1 read getTRISF1 write setTRISF1;
  13610. property TRISF12 : TBits_1 read getTRISF12 write setTRISF12;
  13611. property TRISF13 : TBits_1 read getTRISF13 write setTRISF13;
  13612. property TRISF2 : TBits_1 read getTRISF2 write setTRISF2;
  13613. property TRISF3 : TBits_1 read getTRISF3 write setTRISF3;
  13614. property TRISF4 : TBits_1 read getTRISF4 write setTRISF4;
  13615. property TRISF5 : TBits_1 read getTRISF5 write setTRISF5;
  13616. property TRISF8 : TBits_1 read getTRISF8 write setTRISF8;
  13617. property w : TBits_32 read getw write setw;
  13618. end;
  13619. TPORTF_PORTF = record
  13620. private
  13621. function getRF0 : TBits_1; inline;
  13622. function getRF1 : TBits_1; inline;
  13623. function getRF12 : TBits_1; inline;
  13624. function getRF13 : TBits_1; inline;
  13625. function getRF2 : TBits_1; inline;
  13626. function getRF3 : TBits_1; inline;
  13627. function getRF4 : TBits_1; inline;
  13628. function getRF5 : TBits_1; inline;
  13629. function getRF8 : TBits_1; inline;
  13630. function getw : TBits_32; inline;
  13631. procedure setRF0(thebits : TBits_1); inline;
  13632. procedure setRF1(thebits : TBits_1); inline;
  13633. procedure setRF12(thebits : TBits_1); inline;
  13634. procedure setRF13(thebits : TBits_1); inline;
  13635. procedure setRF2(thebits : TBits_1); inline;
  13636. procedure setRF3(thebits : TBits_1); inline;
  13637. procedure setRF4(thebits : TBits_1); inline;
  13638. procedure setRF5(thebits : TBits_1); inline;
  13639. procedure setRF8(thebits : TBits_1); inline;
  13640. procedure setw(thebits : TBits_32); inline;
  13641. public
  13642. procedure clearRF0; inline;
  13643. procedure clearRF12; inline;
  13644. procedure clearRF13; inline;
  13645. procedure clearRF1; inline;
  13646. procedure clearRF2; inline;
  13647. procedure clearRF3; inline;
  13648. procedure clearRF4; inline;
  13649. procedure clearRF5; inline;
  13650. procedure clearRF8; inline;
  13651. procedure setRF0; inline;
  13652. procedure setRF12; inline;
  13653. procedure setRF13; inline;
  13654. procedure setRF1; inline;
  13655. procedure setRF2; inline;
  13656. procedure setRF3; inline;
  13657. procedure setRF4; inline;
  13658. procedure setRF5; inline;
  13659. procedure setRF8; inline;
  13660. property RF0 : TBits_1 read getRF0 write setRF0;
  13661. property RF1 : TBits_1 read getRF1 write setRF1;
  13662. property RF12 : TBits_1 read getRF12 write setRF12;
  13663. property RF13 : TBits_1 read getRF13 write setRF13;
  13664. property RF2 : TBits_1 read getRF2 write setRF2;
  13665. property RF3 : TBits_1 read getRF3 write setRF3;
  13666. property RF4 : TBits_1 read getRF4 write setRF4;
  13667. property RF5 : TBits_1 read getRF5 write setRF5;
  13668. property RF8 : TBits_1 read getRF8 write setRF8;
  13669. property w : TBits_32 read getw write setw;
  13670. end;
  13671. TPortF_bits=(RF0=0,RF1=1,RF2=2,RF3=3,RF4=4,RF5=5,RF8=8,RF12=12,RF13=13);
  13672. TPortF_bitset = set of TPortF_bits;
  13673. TPORTF_LATF = record
  13674. private
  13675. function getLATF0 : TBits_1; inline;
  13676. function getLATF1 : TBits_1; inline;
  13677. function getLATF12 : TBits_1; inline;
  13678. function getLATF13 : TBits_1; inline;
  13679. function getLATF2 : TBits_1; inline;
  13680. function getLATF3 : TBits_1; inline;
  13681. function getLATF4 : TBits_1; inline;
  13682. function getLATF5 : TBits_1; inline;
  13683. function getLATF8 : TBits_1; inline;
  13684. function getw : TBits_32; inline;
  13685. procedure setLATF0(thebits : TBits_1); inline;
  13686. procedure setLATF1(thebits : TBits_1); inline;
  13687. procedure setLATF12(thebits : TBits_1); inline;
  13688. procedure setLATF13(thebits : TBits_1); inline;
  13689. procedure setLATF2(thebits : TBits_1); inline;
  13690. procedure setLATF3(thebits : TBits_1); inline;
  13691. procedure setLATF4(thebits : TBits_1); inline;
  13692. procedure setLATF5(thebits : TBits_1); inline;
  13693. procedure setLATF8(thebits : TBits_1); inline;
  13694. procedure setw(thebits : TBits_32); inline;
  13695. public
  13696. procedure clearLATF0; inline;
  13697. procedure clearLATF12; inline;
  13698. procedure clearLATF13; inline;
  13699. procedure clearLATF1; inline;
  13700. procedure clearLATF2; inline;
  13701. procedure clearLATF3; inline;
  13702. procedure clearLATF4; inline;
  13703. procedure clearLATF5; inline;
  13704. procedure clearLATF8; inline;
  13705. procedure setLATF0; inline;
  13706. procedure setLATF12; inline;
  13707. procedure setLATF13; inline;
  13708. procedure setLATF1; inline;
  13709. procedure setLATF2; inline;
  13710. procedure setLATF3; inline;
  13711. procedure setLATF4; inline;
  13712. procedure setLATF5; inline;
  13713. procedure setLATF8; inline;
  13714. property LATF0 : TBits_1 read getLATF0 write setLATF0;
  13715. property LATF1 : TBits_1 read getLATF1 write setLATF1;
  13716. property LATF12 : TBits_1 read getLATF12 write setLATF12;
  13717. property LATF13 : TBits_1 read getLATF13 write setLATF13;
  13718. property LATF2 : TBits_1 read getLATF2 write setLATF2;
  13719. property LATF3 : TBits_1 read getLATF3 write setLATF3;
  13720. property LATF4 : TBits_1 read getLATF4 write setLATF4;
  13721. property LATF5 : TBits_1 read getLATF5 write setLATF5;
  13722. property LATF8 : TBits_1 read getLATF8 write setLATF8;
  13723. property w : TBits_32 read getw write setw;
  13724. end;
  13725. TPORTF_ODCF = record
  13726. private
  13727. function getODCF0 : TBits_1; inline;
  13728. function getODCF1 : TBits_1; inline;
  13729. function getODCF12 : TBits_1; inline;
  13730. function getODCF13 : TBits_1; inline;
  13731. function getODCF2 : TBits_1; inline;
  13732. function getODCF3 : TBits_1; inline;
  13733. function getODCF4 : TBits_1; inline;
  13734. function getODCF5 : TBits_1; inline;
  13735. function getODCF8 : TBits_1; inline;
  13736. function getw : TBits_32; inline;
  13737. procedure setODCF0(thebits : TBits_1); inline;
  13738. procedure setODCF1(thebits : TBits_1); inline;
  13739. procedure setODCF12(thebits : TBits_1); inline;
  13740. procedure setODCF13(thebits : TBits_1); inline;
  13741. procedure setODCF2(thebits : TBits_1); inline;
  13742. procedure setODCF3(thebits : TBits_1); inline;
  13743. procedure setODCF4(thebits : TBits_1); inline;
  13744. procedure setODCF5(thebits : TBits_1); inline;
  13745. procedure setODCF8(thebits : TBits_1); inline;
  13746. procedure setw(thebits : TBits_32); inline;
  13747. public
  13748. procedure clearODCF0; inline;
  13749. procedure clearODCF12; inline;
  13750. procedure clearODCF13; inline;
  13751. procedure clearODCF1; inline;
  13752. procedure clearODCF2; inline;
  13753. procedure clearODCF3; inline;
  13754. procedure clearODCF4; inline;
  13755. procedure clearODCF5; inline;
  13756. procedure clearODCF8; inline;
  13757. procedure setODCF0; inline;
  13758. procedure setODCF12; inline;
  13759. procedure setODCF13; inline;
  13760. procedure setODCF1; inline;
  13761. procedure setODCF2; inline;
  13762. procedure setODCF3; inline;
  13763. procedure setODCF4; inline;
  13764. procedure setODCF5; inline;
  13765. procedure setODCF8; inline;
  13766. property ODCF0 : TBits_1 read getODCF0 write setODCF0;
  13767. property ODCF1 : TBits_1 read getODCF1 write setODCF1;
  13768. property ODCF12 : TBits_1 read getODCF12 write setODCF12;
  13769. property ODCF13 : TBits_1 read getODCF13 write setODCF13;
  13770. property ODCF2 : TBits_1 read getODCF2 write setODCF2;
  13771. property ODCF3 : TBits_1 read getODCF3 write setODCF3;
  13772. property ODCF4 : TBits_1 read getODCF4 write setODCF4;
  13773. property ODCF5 : TBits_1 read getODCF5 write setODCF5;
  13774. property ODCF8 : TBits_1 read getODCF8 write setODCF8;
  13775. property w : TBits_32 read getw write setw;
  13776. end;
  13777. type
  13778. TPORTFRegisters = record
  13779. TRISFbits : TPORTF_TRISF;
  13780. TRISF : longWord;
  13781. TRISFCLR : longWord;
  13782. TRISFSET : longWord;
  13783. TRISFINV : longWord;
  13784. PORTFbits : TPORTF_PORTF;
  13785. PORTF : longWord;
  13786. PORTFCLR : longWord;
  13787. PORTFSET : longWord;
  13788. PORTFINV : longWord;
  13789. LATFbits : TPORTF_LATF;
  13790. LATF : longWord;
  13791. LATFCLR : longWord;
  13792. LATFSET : longWord;
  13793. LATFINV : longWord;
  13794. ODCFbits : TPORTF_ODCF;
  13795. ODCF : longWord;
  13796. ODCFCLR : longWord;
  13797. ODCFSET : longWord;
  13798. ODCFINV : longWord;
  13799. end;
  13800. TPORTG_TRISG = record
  13801. private
  13802. function getTRISG0 : TBits_1; inline;
  13803. function getTRISG1 : TBits_1; inline;
  13804. function getTRISG12 : TBits_1; inline;
  13805. function getTRISG13 : TBits_1; inline;
  13806. function getTRISG14 : TBits_1; inline;
  13807. function getTRISG15 : TBits_1; inline;
  13808. function getTRISG2 : TBits_1; inline;
  13809. function getTRISG3 : TBits_1; inline;
  13810. function getTRISG6 : TBits_1; inline;
  13811. function getTRISG7 : TBits_1; inline;
  13812. function getTRISG8 : TBits_1; inline;
  13813. function getTRISG9 : TBits_1; inline;
  13814. function getw : TBits_32; inline;
  13815. procedure setTRISG0(thebits : TBits_1); inline;
  13816. procedure setTRISG1(thebits : TBits_1); inline;
  13817. procedure setTRISG12(thebits : TBits_1); inline;
  13818. procedure setTRISG13(thebits : TBits_1); inline;
  13819. procedure setTRISG14(thebits : TBits_1); inline;
  13820. procedure setTRISG15(thebits : TBits_1); inline;
  13821. procedure setTRISG2(thebits : TBits_1); inline;
  13822. procedure setTRISG3(thebits : TBits_1); inline;
  13823. procedure setTRISG6(thebits : TBits_1); inline;
  13824. procedure setTRISG7(thebits : TBits_1); inline;
  13825. procedure setTRISG8(thebits : TBits_1); inline;
  13826. procedure setTRISG9(thebits : TBits_1); inline;
  13827. procedure setw(thebits : TBits_32); inline;
  13828. public
  13829. procedure clearTRISG0; inline;
  13830. procedure clearTRISG12; inline;
  13831. procedure clearTRISG13; inline;
  13832. procedure clearTRISG14; inline;
  13833. procedure clearTRISG15; inline;
  13834. procedure clearTRISG1; inline;
  13835. procedure clearTRISG2; inline;
  13836. procedure clearTRISG3; inline;
  13837. procedure clearTRISG6; inline;
  13838. procedure clearTRISG7; inline;
  13839. procedure clearTRISG8; inline;
  13840. procedure clearTRISG9; inline;
  13841. procedure setTRISG0; inline;
  13842. procedure setTRISG12; inline;
  13843. procedure setTRISG13; inline;
  13844. procedure setTRISG14; inline;
  13845. procedure setTRISG15; inline;
  13846. procedure setTRISG1; inline;
  13847. procedure setTRISG2; inline;
  13848. procedure setTRISG3; inline;
  13849. procedure setTRISG6; inline;
  13850. procedure setTRISG7; inline;
  13851. procedure setTRISG8; inline;
  13852. procedure setTRISG9; inline;
  13853. property TRISG0 : TBits_1 read getTRISG0 write setTRISG0;
  13854. property TRISG1 : TBits_1 read getTRISG1 write setTRISG1;
  13855. property TRISG12 : TBits_1 read getTRISG12 write setTRISG12;
  13856. property TRISG13 : TBits_1 read getTRISG13 write setTRISG13;
  13857. property TRISG14 : TBits_1 read getTRISG14 write setTRISG14;
  13858. property TRISG15 : TBits_1 read getTRISG15 write setTRISG15;
  13859. property TRISG2 : TBits_1 read getTRISG2 write setTRISG2;
  13860. property TRISG3 : TBits_1 read getTRISG3 write setTRISG3;
  13861. property TRISG6 : TBits_1 read getTRISG6 write setTRISG6;
  13862. property TRISG7 : TBits_1 read getTRISG7 write setTRISG7;
  13863. property TRISG8 : TBits_1 read getTRISG8 write setTRISG8;
  13864. property TRISG9 : TBits_1 read getTRISG9 write setTRISG9;
  13865. property w : TBits_32 read getw write setw;
  13866. end;
  13867. TPORTG_PORTG = record
  13868. private
  13869. function getRG0 : TBits_1; inline;
  13870. function getRG1 : TBits_1; inline;
  13871. function getRG12 : TBits_1; inline;
  13872. function getRG13 : TBits_1; inline;
  13873. function getRG14 : TBits_1; inline;
  13874. function getRG15 : TBits_1; inline;
  13875. function getRG2 : TBits_1; inline;
  13876. function getRG3 : TBits_1; inline;
  13877. function getRG6 : TBits_1; inline;
  13878. function getRG7 : TBits_1; inline;
  13879. function getRG8 : TBits_1; inline;
  13880. function getRG9 : TBits_1; inline;
  13881. function getw : TBits_32; inline;
  13882. procedure setRG0(thebits : TBits_1); inline;
  13883. procedure setRG1(thebits : TBits_1); inline;
  13884. procedure setRG12(thebits : TBits_1); inline;
  13885. procedure setRG13(thebits : TBits_1); inline;
  13886. procedure setRG14(thebits : TBits_1); inline;
  13887. procedure setRG15(thebits : TBits_1); inline;
  13888. procedure setRG2(thebits : TBits_1); inline;
  13889. procedure setRG3(thebits : TBits_1); inline;
  13890. procedure setRG6(thebits : TBits_1); inline;
  13891. procedure setRG7(thebits : TBits_1); inline;
  13892. procedure setRG8(thebits : TBits_1); inline;
  13893. procedure setRG9(thebits : TBits_1); inline;
  13894. procedure setw(thebits : TBits_32); inline;
  13895. public
  13896. procedure clearRG0; inline;
  13897. procedure clearRG12; inline;
  13898. procedure clearRG13; inline;
  13899. procedure clearRG14; inline;
  13900. procedure clearRG15; inline;
  13901. procedure clearRG1; inline;
  13902. procedure clearRG2; inline;
  13903. procedure clearRG3; inline;
  13904. procedure clearRG6; inline;
  13905. procedure clearRG7; inline;
  13906. procedure clearRG8; inline;
  13907. procedure clearRG9; inline;
  13908. procedure setRG0; inline;
  13909. procedure setRG12; inline;
  13910. procedure setRG13; inline;
  13911. procedure setRG14; inline;
  13912. procedure setRG15; inline;
  13913. procedure setRG1; inline;
  13914. procedure setRG2; inline;
  13915. procedure setRG3; inline;
  13916. procedure setRG6; inline;
  13917. procedure setRG7; inline;
  13918. procedure setRG8; inline;
  13919. procedure setRG9; inline;
  13920. property RG0 : TBits_1 read getRG0 write setRG0;
  13921. property RG1 : TBits_1 read getRG1 write setRG1;
  13922. property RG12 : TBits_1 read getRG12 write setRG12;
  13923. property RG13 : TBits_1 read getRG13 write setRG13;
  13924. property RG14 : TBits_1 read getRG14 write setRG14;
  13925. property RG15 : TBits_1 read getRG15 write setRG15;
  13926. property RG2 : TBits_1 read getRG2 write setRG2;
  13927. property RG3 : TBits_1 read getRG3 write setRG3;
  13928. property RG6 : TBits_1 read getRG6 write setRG6;
  13929. property RG7 : TBits_1 read getRG7 write setRG7;
  13930. property RG8 : TBits_1 read getRG8 write setRG8;
  13931. property RG9 : TBits_1 read getRG9 write setRG9;
  13932. property w : TBits_32 read getw write setw;
  13933. end;
  13934. 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);
  13935. TPortG_bitset = set of TPortG_bits;
  13936. TPORTG_LATG = record
  13937. private
  13938. function getLATG0 : TBits_1; inline;
  13939. function getLATG1 : TBits_1; inline;
  13940. function getLATG12 : TBits_1; inline;
  13941. function getLATG13 : TBits_1; inline;
  13942. function getLATG14 : TBits_1; inline;
  13943. function getLATG15 : TBits_1; inline;
  13944. function getLATG2 : TBits_1; inline;
  13945. function getLATG3 : TBits_1; inline;
  13946. function getLATG6 : TBits_1; inline;
  13947. function getLATG7 : TBits_1; inline;
  13948. function getLATG8 : TBits_1; inline;
  13949. function getLATG9 : TBits_1; inline;
  13950. function getw : TBits_32; inline;
  13951. procedure setLATG0(thebits : TBits_1); inline;
  13952. procedure setLATG1(thebits : TBits_1); inline;
  13953. procedure setLATG12(thebits : TBits_1); inline;
  13954. procedure setLATG13(thebits : TBits_1); inline;
  13955. procedure setLATG14(thebits : TBits_1); inline;
  13956. procedure setLATG15(thebits : TBits_1); inline;
  13957. procedure setLATG2(thebits : TBits_1); inline;
  13958. procedure setLATG3(thebits : TBits_1); inline;
  13959. procedure setLATG6(thebits : TBits_1); inline;
  13960. procedure setLATG7(thebits : TBits_1); inline;
  13961. procedure setLATG8(thebits : TBits_1); inline;
  13962. procedure setLATG9(thebits : TBits_1); inline;
  13963. procedure setw(thebits : TBits_32); inline;
  13964. public
  13965. procedure clearLATG0; inline;
  13966. procedure clearLATG12; inline;
  13967. procedure clearLATG13; inline;
  13968. procedure clearLATG14; inline;
  13969. procedure clearLATG15; inline;
  13970. procedure clearLATG1; inline;
  13971. procedure clearLATG2; inline;
  13972. procedure clearLATG3; inline;
  13973. procedure clearLATG6; inline;
  13974. procedure clearLATG7; inline;
  13975. procedure clearLATG8; inline;
  13976. procedure clearLATG9; inline;
  13977. procedure setLATG0; inline;
  13978. procedure setLATG12; inline;
  13979. procedure setLATG13; inline;
  13980. procedure setLATG14; inline;
  13981. procedure setLATG15; inline;
  13982. procedure setLATG1; inline;
  13983. procedure setLATG2; inline;
  13984. procedure setLATG3; inline;
  13985. procedure setLATG6; inline;
  13986. procedure setLATG7; inline;
  13987. procedure setLATG8; inline;
  13988. procedure setLATG9; inline;
  13989. property LATG0 : TBits_1 read getLATG0 write setLATG0;
  13990. property LATG1 : TBits_1 read getLATG1 write setLATG1;
  13991. property LATG12 : TBits_1 read getLATG12 write setLATG12;
  13992. property LATG13 : TBits_1 read getLATG13 write setLATG13;
  13993. property LATG14 : TBits_1 read getLATG14 write setLATG14;
  13994. property LATG15 : TBits_1 read getLATG15 write setLATG15;
  13995. property LATG2 : TBits_1 read getLATG2 write setLATG2;
  13996. property LATG3 : TBits_1 read getLATG3 write setLATG3;
  13997. property LATG6 : TBits_1 read getLATG6 write setLATG6;
  13998. property LATG7 : TBits_1 read getLATG7 write setLATG7;
  13999. property LATG8 : TBits_1 read getLATG8 write setLATG8;
  14000. property LATG9 : TBits_1 read getLATG9 write setLATG9;
  14001. property w : TBits_32 read getw write setw;
  14002. end;
  14003. TPORTG_ODCG = record
  14004. private
  14005. function getODCG0 : TBits_1; inline;
  14006. function getODCG1 : TBits_1; inline;
  14007. function getODCG12 : TBits_1; inline;
  14008. function getODCG13 : TBits_1; inline;
  14009. function getODCG14 : TBits_1; inline;
  14010. function getODCG15 : TBits_1; inline;
  14011. function getODCG2 : TBits_1; inline;
  14012. function getODCG3 : TBits_1; inline;
  14013. function getODCG6 : TBits_1; inline;
  14014. function getODCG7 : TBits_1; inline;
  14015. function getODCG8 : TBits_1; inline;
  14016. function getODCG9 : TBits_1; inline;
  14017. function getw : TBits_32; inline;
  14018. procedure setODCG0(thebits : TBits_1); inline;
  14019. procedure setODCG1(thebits : TBits_1); inline;
  14020. procedure setODCG12(thebits : TBits_1); inline;
  14021. procedure setODCG13(thebits : TBits_1); inline;
  14022. procedure setODCG14(thebits : TBits_1); inline;
  14023. procedure setODCG15(thebits : TBits_1); inline;
  14024. procedure setODCG2(thebits : TBits_1); inline;
  14025. procedure setODCG3(thebits : TBits_1); inline;
  14026. procedure setODCG6(thebits : TBits_1); inline;
  14027. procedure setODCG7(thebits : TBits_1); inline;
  14028. procedure setODCG8(thebits : TBits_1); inline;
  14029. procedure setODCG9(thebits : TBits_1); inline;
  14030. procedure setw(thebits : TBits_32); inline;
  14031. public
  14032. procedure clearODCG0; inline;
  14033. procedure clearODCG12; inline;
  14034. procedure clearODCG13; inline;
  14035. procedure clearODCG14; inline;
  14036. procedure clearODCG15; inline;
  14037. procedure clearODCG1; inline;
  14038. procedure clearODCG2; inline;
  14039. procedure clearODCG3; inline;
  14040. procedure clearODCG6; inline;
  14041. procedure clearODCG7; inline;
  14042. procedure clearODCG8; inline;
  14043. procedure clearODCG9; inline;
  14044. procedure setODCG0; inline;
  14045. procedure setODCG12; inline;
  14046. procedure setODCG13; inline;
  14047. procedure setODCG14; inline;
  14048. procedure setODCG15; inline;
  14049. procedure setODCG1; inline;
  14050. procedure setODCG2; inline;
  14051. procedure setODCG3; inline;
  14052. procedure setODCG6; inline;
  14053. procedure setODCG7; inline;
  14054. procedure setODCG8; inline;
  14055. procedure setODCG9; inline;
  14056. property ODCG0 : TBits_1 read getODCG0 write setODCG0;
  14057. property ODCG1 : TBits_1 read getODCG1 write setODCG1;
  14058. property ODCG12 : TBits_1 read getODCG12 write setODCG12;
  14059. property ODCG13 : TBits_1 read getODCG13 write setODCG13;
  14060. property ODCG14 : TBits_1 read getODCG14 write setODCG14;
  14061. property ODCG15 : TBits_1 read getODCG15 write setODCG15;
  14062. property ODCG2 : TBits_1 read getODCG2 write setODCG2;
  14063. property ODCG3 : TBits_1 read getODCG3 write setODCG3;
  14064. property ODCG6 : TBits_1 read getODCG6 write setODCG6;
  14065. property ODCG7 : TBits_1 read getODCG7 write setODCG7;
  14066. property ODCG8 : TBits_1 read getODCG8 write setODCG8;
  14067. property ODCG9 : TBits_1 read getODCG9 write setODCG9;
  14068. property w : TBits_32 read getw write setw;
  14069. end;
  14070. TPORTG_CNCON = record
  14071. private
  14072. function getON : TBits_1; inline;
  14073. function getSIDL : TBits_1; inline;
  14074. function getw : TBits_32; inline;
  14075. procedure setON(thebits : TBits_1); inline;
  14076. procedure setSIDL(thebits : TBits_1); inline;
  14077. procedure setw(thebits : TBits_32); inline;
  14078. public
  14079. procedure clearON; inline;
  14080. procedure clearSIDL; inline;
  14081. procedure setON; inline;
  14082. procedure setSIDL; inline;
  14083. property ON : TBits_1 read getON write setON;
  14084. property SIDL : TBits_1 read getSIDL write setSIDL;
  14085. property w : TBits_32 read getw write setw;
  14086. end;
  14087. TPORTG_CNEN = record
  14088. private
  14089. function getCNEN0 : TBits_1; inline;
  14090. function getCNEN1 : TBits_1; inline;
  14091. function getCNEN10 : TBits_1; inline;
  14092. function getCNEN11 : TBits_1; inline;
  14093. function getCNEN12 : TBits_1; inline;
  14094. function getCNEN13 : TBits_1; inline;
  14095. function getCNEN14 : TBits_1; inline;
  14096. function getCNEN15 : TBits_1; inline;
  14097. function getCNEN16 : TBits_1; inline;
  14098. function getCNEN17 : TBits_1; inline;
  14099. function getCNEN18 : TBits_1; inline;
  14100. function getCNEN19 : TBits_1; inline;
  14101. function getCNEN2 : TBits_1; inline;
  14102. function getCNEN20 : TBits_1; inline;
  14103. function getCNEN21 : TBits_1; inline;
  14104. function getCNEN3 : TBits_1; inline;
  14105. function getCNEN4 : TBits_1; inline;
  14106. function getCNEN5 : TBits_1; inline;
  14107. function getCNEN6 : TBits_1; inline;
  14108. function getCNEN7 : TBits_1; inline;
  14109. function getCNEN8 : TBits_1; inline;
  14110. function getCNEN9 : TBits_1; inline;
  14111. function getw : TBits_32; inline;
  14112. procedure setCNEN0(thebits : TBits_1); inline;
  14113. procedure setCNEN1(thebits : TBits_1); inline;
  14114. procedure setCNEN10(thebits : TBits_1); inline;
  14115. procedure setCNEN11(thebits : TBits_1); inline;
  14116. procedure setCNEN12(thebits : TBits_1); inline;
  14117. procedure setCNEN13(thebits : TBits_1); inline;
  14118. procedure setCNEN14(thebits : TBits_1); inline;
  14119. procedure setCNEN15(thebits : TBits_1); inline;
  14120. procedure setCNEN16(thebits : TBits_1); inline;
  14121. procedure setCNEN17(thebits : TBits_1); inline;
  14122. procedure setCNEN18(thebits : TBits_1); inline;
  14123. procedure setCNEN19(thebits : TBits_1); inline;
  14124. procedure setCNEN2(thebits : TBits_1); inline;
  14125. procedure setCNEN20(thebits : TBits_1); inline;
  14126. procedure setCNEN21(thebits : TBits_1); inline;
  14127. procedure setCNEN3(thebits : TBits_1); inline;
  14128. procedure setCNEN4(thebits : TBits_1); inline;
  14129. procedure setCNEN5(thebits : TBits_1); inline;
  14130. procedure setCNEN6(thebits : TBits_1); inline;
  14131. procedure setCNEN7(thebits : TBits_1); inline;
  14132. procedure setCNEN8(thebits : TBits_1); inline;
  14133. procedure setCNEN9(thebits : TBits_1); inline;
  14134. procedure setw(thebits : TBits_32); inline;
  14135. public
  14136. procedure clearCNEN0; inline;
  14137. procedure clearCNEN10; inline;
  14138. procedure clearCNEN11; inline;
  14139. procedure clearCNEN12; inline;
  14140. procedure clearCNEN13; inline;
  14141. procedure clearCNEN14; inline;
  14142. procedure clearCNEN15; inline;
  14143. procedure clearCNEN16; inline;
  14144. procedure clearCNEN17; inline;
  14145. procedure clearCNEN18; inline;
  14146. procedure clearCNEN19; inline;
  14147. procedure clearCNEN1; inline;
  14148. procedure clearCNEN20; inline;
  14149. procedure clearCNEN21; inline;
  14150. procedure clearCNEN2; inline;
  14151. procedure clearCNEN3; inline;
  14152. procedure clearCNEN4; inline;
  14153. procedure clearCNEN5; inline;
  14154. procedure clearCNEN6; inline;
  14155. procedure clearCNEN7; inline;
  14156. procedure clearCNEN8; inline;
  14157. procedure clearCNEN9; inline;
  14158. procedure setCNEN0; inline;
  14159. procedure setCNEN10; inline;
  14160. procedure setCNEN11; inline;
  14161. procedure setCNEN12; inline;
  14162. procedure setCNEN13; inline;
  14163. procedure setCNEN14; inline;
  14164. procedure setCNEN15; inline;
  14165. procedure setCNEN16; inline;
  14166. procedure setCNEN17; inline;
  14167. procedure setCNEN18; inline;
  14168. procedure setCNEN19; inline;
  14169. procedure setCNEN1; inline;
  14170. procedure setCNEN20; inline;
  14171. procedure setCNEN21; inline;
  14172. procedure setCNEN2; inline;
  14173. procedure setCNEN3; inline;
  14174. procedure setCNEN4; inline;
  14175. procedure setCNEN5; inline;
  14176. procedure setCNEN6; inline;
  14177. procedure setCNEN7; inline;
  14178. procedure setCNEN8; inline;
  14179. procedure setCNEN9; inline;
  14180. property CNEN0 : TBits_1 read getCNEN0 write setCNEN0;
  14181. property CNEN1 : TBits_1 read getCNEN1 write setCNEN1;
  14182. property CNEN10 : TBits_1 read getCNEN10 write setCNEN10;
  14183. property CNEN11 : TBits_1 read getCNEN11 write setCNEN11;
  14184. property CNEN12 : TBits_1 read getCNEN12 write setCNEN12;
  14185. property CNEN13 : TBits_1 read getCNEN13 write setCNEN13;
  14186. property CNEN14 : TBits_1 read getCNEN14 write setCNEN14;
  14187. property CNEN15 : TBits_1 read getCNEN15 write setCNEN15;
  14188. property CNEN16 : TBits_1 read getCNEN16 write setCNEN16;
  14189. property CNEN17 : TBits_1 read getCNEN17 write setCNEN17;
  14190. property CNEN18 : TBits_1 read getCNEN18 write setCNEN18;
  14191. property CNEN19 : TBits_1 read getCNEN19 write setCNEN19;
  14192. property CNEN2 : TBits_1 read getCNEN2 write setCNEN2;
  14193. property CNEN20 : TBits_1 read getCNEN20 write setCNEN20;
  14194. property CNEN21 : TBits_1 read getCNEN21 write setCNEN21;
  14195. property CNEN3 : TBits_1 read getCNEN3 write setCNEN3;
  14196. property CNEN4 : TBits_1 read getCNEN4 write setCNEN4;
  14197. property CNEN5 : TBits_1 read getCNEN5 write setCNEN5;
  14198. property CNEN6 : TBits_1 read getCNEN6 write setCNEN6;
  14199. property CNEN7 : TBits_1 read getCNEN7 write setCNEN7;
  14200. property CNEN8 : TBits_1 read getCNEN8 write setCNEN8;
  14201. property CNEN9 : TBits_1 read getCNEN9 write setCNEN9;
  14202. property w : TBits_32 read getw write setw;
  14203. end;
  14204. TPORTG_CNPUE = record
  14205. private
  14206. function getCNPUE0 : TBits_1; inline;
  14207. function getCNPUE1 : TBits_1; inline;
  14208. function getCNPUE10 : TBits_1; inline;
  14209. function getCNPUE11 : TBits_1; inline;
  14210. function getCNPUE12 : TBits_1; inline;
  14211. function getCNPUE13 : TBits_1; inline;
  14212. function getCNPUE14 : TBits_1; inline;
  14213. function getCNPUE15 : TBits_1; inline;
  14214. function getCNPUE16 : TBits_1; inline;
  14215. function getCNPUE17 : TBits_1; inline;
  14216. function getCNPUE18 : TBits_1; inline;
  14217. function getCNPUE19 : TBits_1; inline;
  14218. function getCNPUE2 : TBits_1; inline;
  14219. function getCNPUE20 : TBits_1; inline;
  14220. function getCNPUE21 : TBits_1; inline;
  14221. function getCNPUE3 : TBits_1; inline;
  14222. function getCNPUE4 : TBits_1; inline;
  14223. function getCNPUE5 : TBits_1; inline;
  14224. function getCNPUE6 : TBits_1; inline;
  14225. function getCNPUE7 : TBits_1; inline;
  14226. function getCNPUE8 : TBits_1; inline;
  14227. function getCNPUE9 : TBits_1; inline;
  14228. function getw : TBits_32; inline;
  14229. procedure setCNPUE0(thebits : TBits_1); inline;
  14230. procedure setCNPUE1(thebits : TBits_1); inline;
  14231. procedure setCNPUE10(thebits : TBits_1); inline;
  14232. procedure setCNPUE11(thebits : TBits_1); inline;
  14233. procedure setCNPUE12(thebits : TBits_1); inline;
  14234. procedure setCNPUE13(thebits : TBits_1); inline;
  14235. procedure setCNPUE14(thebits : TBits_1); inline;
  14236. procedure setCNPUE15(thebits : TBits_1); inline;
  14237. procedure setCNPUE16(thebits : TBits_1); inline;
  14238. procedure setCNPUE17(thebits : TBits_1); inline;
  14239. procedure setCNPUE18(thebits : TBits_1); inline;
  14240. procedure setCNPUE19(thebits : TBits_1); inline;
  14241. procedure setCNPUE2(thebits : TBits_1); inline;
  14242. procedure setCNPUE20(thebits : TBits_1); inline;
  14243. procedure setCNPUE21(thebits : TBits_1); inline;
  14244. procedure setCNPUE3(thebits : TBits_1); inline;
  14245. procedure setCNPUE4(thebits : TBits_1); inline;
  14246. procedure setCNPUE5(thebits : TBits_1); inline;
  14247. procedure setCNPUE6(thebits : TBits_1); inline;
  14248. procedure setCNPUE7(thebits : TBits_1); inline;
  14249. procedure setCNPUE8(thebits : TBits_1); inline;
  14250. procedure setCNPUE9(thebits : TBits_1); inline;
  14251. procedure setw(thebits : TBits_32); inline;
  14252. public
  14253. procedure clearCNPUE0; inline;
  14254. procedure clearCNPUE10; inline;
  14255. procedure clearCNPUE11; inline;
  14256. procedure clearCNPUE12; inline;
  14257. procedure clearCNPUE13; inline;
  14258. procedure clearCNPUE14; inline;
  14259. procedure clearCNPUE15; inline;
  14260. procedure clearCNPUE16; inline;
  14261. procedure clearCNPUE17; inline;
  14262. procedure clearCNPUE18; inline;
  14263. procedure clearCNPUE19; inline;
  14264. procedure clearCNPUE1; inline;
  14265. procedure clearCNPUE20; inline;
  14266. procedure clearCNPUE21; inline;
  14267. procedure clearCNPUE2; inline;
  14268. procedure clearCNPUE3; inline;
  14269. procedure clearCNPUE4; inline;
  14270. procedure clearCNPUE5; inline;
  14271. procedure clearCNPUE6; inline;
  14272. procedure clearCNPUE7; inline;
  14273. procedure clearCNPUE8; inline;
  14274. procedure clearCNPUE9; inline;
  14275. procedure setCNPUE0; inline;
  14276. procedure setCNPUE10; inline;
  14277. procedure setCNPUE11; inline;
  14278. procedure setCNPUE12; inline;
  14279. procedure setCNPUE13; inline;
  14280. procedure setCNPUE14; inline;
  14281. procedure setCNPUE15; inline;
  14282. procedure setCNPUE16; inline;
  14283. procedure setCNPUE17; inline;
  14284. procedure setCNPUE18; inline;
  14285. procedure setCNPUE19; inline;
  14286. procedure setCNPUE1; inline;
  14287. procedure setCNPUE20; inline;
  14288. procedure setCNPUE21; inline;
  14289. procedure setCNPUE2; inline;
  14290. procedure setCNPUE3; inline;
  14291. procedure setCNPUE4; inline;
  14292. procedure setCNPUE5; inline;
  14293. procedure setCNPUE6; inline;
  14294. procedure setCNPUE7; inline;
  14295. procedure setCNPUE8; inline;
  14296. procedure setCNPUE9; inline;
  14297. property CNPUE0 : TBits_1 read getCNPUE0 write setCNPUE0;
  14298. property CNPUE1 : TBits_1 read getCNPUE1 write setCNPUE1;
  14299. property CNPUE10 : TBits_1 read getCNPUE10 write setCNPUE10;
  14300. property CNPUE11 : TBits_1 read getCNPUE11 write setCNPUE11;
  14301. property CNPUE12 : TBits_1 read getCNPUE12 write setCNPUE12;
  14302. property CNPUE13 : TBits_1 read getCNPUE13 write setCNPUE13;
  14303. property CNPUE14 : TBits_1 read getCNPUE14 write setCNPUE14;
  14304. property CNPUE15 : TBits_1 read getCNPUE15 write setCNPUE15;
  14305. property CNPUE16 : TBits_1 read getCNPUE16 write setCNPUE16;
  14306. property CNPUE17 : TBits_1 read getCNPUE17 write setCNPUE17;
  14307. property CNPUE18 : TBits_1 read getCNPUE18 write setCNPUE18;
  14308. property CNPUE19 : TBits_1 read getCNPUE19 write setCNPUE19;
  14309. property CNPUE2 : TBits_1 read getCNPUE2 write setCNPUE2;
  14310. property CNPUE20 : TBits_1 read getCNPUE20 write setCNPUE20;
  14311. property CNPUE21 : TBits_1 read getCNPUE21 write setCNPUE21;
  14312. property CNPUE3 : TBits_1 read getCNPUE3 write setCNPUE3;
  14313. property CNPUE4 : TBits_1 read getCNPUE4 write setCNPUE4;
  14314. property CNPUE5 : TBits_1 read getCNPUE5 write setCNPUE5;
  14315. property CNPUE6 : TBits_1 read getCNPUE6 write setCNPUE6;
  14316. property CNPUE7 : TBits_1 read getCNPUE7 write setCNPUE7;
  14317. property CNPUE8 : TBits_1 read getCNPUE8 write setCNPUE8;
  14318. property CNPUE9 : TBits_1 read getCNPUE9 write setCNPUE9;
  14319. property w : TBits_32 read getw write setw;
  14320. end;
  14321. type
  14322. TPORTGRegisters = record
  14323. TRISGbits : TPORTG_TRISG;
  14324. TRISG : longWord;
  14325. TRISGCLR : longWord;
  14326. TRISGSET : longWord;
  14327. TRISGINV : longWord;
  14328. PORTGbits : TPORTG_PORTG;
  14329. PORTG : longWord;
  14330. PORTGCLR : longWord;
  14331. PORTGSET : longWord;
  14332. PORTGINV : longWord;
  14333. LATGbits : TPORTG_LATG;
  14334. LATG : longWord;
  14335. LATGCLR : longWord;
  14336. LATGSET : longWord;
  14337. LATGINV : longWord;
  14338. ODCGbits : TPORTG_ODCG;
  14339. ODCG : longWord;
  14340. ODCGCLR : longWord;
  14341. ODCGSET : longWord;
  14342. ODCGINV : longWord;
  14343. CNCONbits : TPORTG_CNCON;
  14344. CNCON : longWord;
  14345. CNCONCLR : longWord;
  14346. CNCONSET : longWord;
  14347. CNCONINV : longWord;
  14348. CNENbits : TPORTG_CNEN;
  14349. CNEN : longWord;
  14350. CNENCLR : longWord;
  14351. CNENSET : longWord;
  14352. CNENINV : longWord;
  14353. CNPUEbits : TPORTG_CNPUE;
  14354. CNPUE : longWord;
  14355. CNPUECLR : longWord;
  14356. CNPUESET : longWord;
  14357. CNPUEINV : longWord;
  14358. end;
  14359. TCAN1_C1CON = record
  14360. private
  14361. function getABAT : TBits_1; inline;
  14362. function getCANBUSY : TBits_1; inline;
  14363. function getCANCAP : TBits_1; inline;
  14364. function getDNCNT : TBits_5; inline;
  14365. function getON : TBits_1; inline;
  14366. function getOPMOD : TBits_3; inline;
  14367. function getREQOP : TBits_3; inline;
  14368. function getSIDL : TBits_1; inline;
  14369. function getw : TBits_32; inline;
  14370. procedure setABAT(thebits : TBits_1); inline;
  14371. procedure setCANBUSY(thebits : TBits_1); inline;
  14372. procedure setCANCAP(thebits : TBits_1); inline;
  14373. procedure setDNCNT(thebits : TBits_5); inline;
  14374. procedure setON(thebits : TBits_1); inline;
  14375. procedure setOPMOD(thebits : TBits_3); inline;
  14376. procedure setREQOP(thebits : TBits_3); inline;
  14377. procedure setSIDL(thebits : TBits_1); inline;
  14378. procedure setw(thebits : TBits_32); inline;
  14379. public
  14380. procedure clearABAT; inline;
  14381. procedure clearCANBUSY; inline;
  14382. procedure clearCANCAP; inline;
  14383. procedure clearON; inline;
  14384. procedure clearSIDL; inline;
  14385. procedure setABAT; inline;
  14386. procedure setCANBUSY; inline;
  14387. procedure setCANCAP; inline;
  14388. procedure setON; inline;
  14389. procedure setSIDL; inline;
  14390. property ABAT : TBits_1 read getABAT write setABAT;
  14391. property CANBUSY : TBits_1 read getCANBUSY write setCANBUSY;
  14392. property CANCAP : TBits_1 read getCANCAP write setCANCAP;
  14393. property DNCNT : TBits_5 read getDNCNT write setDNCNT;
  14394. property ON : TBits_1 read getON write setON;
  14395. property OPMOD : TBits_3 read getOPMOD write setOPMOD;
  14396. property REQOP : TBits_3 read getREQOP write setREQOP;
  14397. property SIDL : TBits_1 read getSIDL write setSIDL;
  14398. property w : TBits_32 read getw write setw;
  14399. end;
  14400. TCAN1_C1CFG = record
  14401. private
  14402. function getBRP : TBits_6; inline;
  14403. function getPRSEG : TBits_3; inline;
  14404. function getSAM : TBits_1; inline;
  14405. function getSEG1PH : TBits_3; inline;
  14406. function getSEG2PH : TBits_3; inline;
  14407. function getSEG2PHTS : TBits_1; inline;
  14408. function getSJW : TBits_2; inline;
  14409. function getWAKFIL : TBits_1; inline;
  14410. function getw : TBits_32; inline;
  14411. procedure setBRP(thebits : TBits_6); inline;
  14412. procedure setPRSEG(thebits : TBits_3); inline;
  14413. procedure setSAM(thebits : TBits_1); inline;
  14414. procedure setSEG1PH(thebits : TBits_3); inline;
  14415. procedure setSEG2PH(thebits : TBits_3); inline;
  14416. procedure setSEG2PHTS(thebits : TBits_1); inline;
  14417. procedure setSJW(thebits : TBits_2); inline;
  14418. procedure setWAKFIL(thebits : TBits_1); inline;
  14419. procedure setw(thebits : TBits_32); inline;
  14420. public
  14421. procedure clearSAM; inline;
  14422. procedure clearSEG2PHTS; inline;
  14423. procedure clearWAKFIL; inline;
  14424. procedure setSAM; inline;
  14425. procedure setSEG2PHTS; inline;
  14426. procedure setWAKFIL; inline;
  14427. property BRP : TBits_6 read getBRP write setBRP;
  14428. property PRSEG : TBits_3 read getPRSEG write setPRSEG;
  14429. property SAM : TBits_1 read getSAM write setSAM;
  14430. property SEG1PH : TBits_3 read getSEG1PH write setSEG1PH;
  14431. property SEG2PH : TBits_3 read getSEG2PH write setSEG2PH;
  14432. property SEG2PHTS : TBits_1 read getSEG2PHTS write setSEG2PHTS;
  14433. property SJW : TBits_2 read getSJW write setSJW;
  14434. property WAKFIL : TBits_1 read getWAKFIL write setWAKFIL;
  14435. property w : TBits_32 read getw write setw;
  14436. end;
  14437. TCAN1_C1INT = record
  14438. private
  14439. function getCERRIE : TBits_1; inline;
  14440. function getCERRIF : TBits_1; inline;
  14441. function getCTMRIE : TBits_1; inline;
  14442. function getCTMRIF : TBits_1; inline;
  14443. function getIVRIE : TBits_1; inline;
  14444. function getIVRIF : TBits_1; inline;
  14445. function getMODIE : TBits_1; inline;
  14446. function getMODIF : TBits_1; inline;
  14447. function getRBIE : TBits_1; inline;
  14448. function getRBIF : TBits_1; inline;
  14449. function getRBOVIE : TBits_1; inline;
  14450. function getRBOVIF : TBits_1; inline;
  14451. function getSERRIE : TBits_1; inline;
  14452. function getSERRIF : TBits_1; inline;
  14453. function getTBIE : TBits_1; inline;
  14454. function getTBIF : TBits_1; inline;
  14455. function getWAKIE : TBits_1; inline;
  14456. function getWAKIF : TBits_1; inline;
  14457. function getw : TBits_32; inline;
  14458. procedure setCERRIE(thebits : TBits_1); inline;
  14459. procedure setCERRIF(thebits : TBits_1); inline;
  14460. procedure setCTMRIE(thebits : TBits_1); inline;
  14461. procedure setCTMRIF(thebits : TBits_1); inline;
  14462. procedure setIVRIE(thebits : TBits_1); inline;
  14463. procedure setIVRIF(thebits : TBits_1); inline;
  14464. procedure setMODIE(thebits : TBits_1); inline;
  14465. procedure setMODIF(thebits : TBits_1); inline;
  14466. procedure setRBIE(thebits : TBits_1); inline;
  14467. procedure setRBIF(thebits : TBits_1); inline;
  14468. procedure setRBOVIE(thebits : TBits_1); inline;
  14469. procedure setRBOVIF(thebits : TBits_1); inline;
  14470. procedure setSERRIE(thebits : TBits_1); inline;
  14471. procedure setSERRIF(thebits : TBits_1); inline;
  14472. procedure setTBIE(thebits : TBits_1); inline;
  14473. procedure setTBIF(thebits : TBits_1); inline;
  14474. procedure setWAKIE(thebits : TBits_1); inline;
  14475. procedure setWAKIF(thebits : TBits_1); inline;
  14476. procedure setw(thebits : TBits_32); inline;
  14477. public
  14478. procedure clearCERRIE; inline;
  14479. procedure clearCERRIF; inline;
  14480. procedure clearCTMRIE; inline;
  14481. procedure clearCTMRIF; inline;
  14482. procedure clearIVRIE; inline;
  14483. procedure clearIVRIF; inline;
  14484. procedure clearMODIE; inline;
  14485. procedure clearMODIF; inline;
  14486. procedure clearRBIE; inline;
  14487. procedure clearRBIF; inline;
  14488. procedure clearRBOVIE; inline;
  14489. procedure clearRBOVIF; inline;
  14490. procedure clearSERRIE; inline;
  14491. procedure clearSERRIF; inline;
  14492. procedure clearTBIE; inline;
  14493. procedure clearTBIF; inline;
  14494. procedure clearWAKIE; inline;
  14495. procedure clearWAKIF; inline;
  14496. procedure setCERRIE; inline;
  14497. procedure setCERRIF; inline;
  14498. procedure setCTMRIE; inline;
  14499. procedure setCTMRIF; inline;
  14500. procedure setIVRIE; inline;
  14501. procedure setIVRIF; inline;
  14502. procedure setMODIE; inline;
  14503. procedure setMODIF; inline;
  14504. procedure setRBIE; inline;
  14505. procedure setRBIF; inline;
  14506. procedure setRBOVIE; inline;
  14507. procedure setRBOVIF; inline;
  14508. procedure setSERRIE; inline;
  14509. procedure setSERRIF; inline;
  14510. procedure setTBIE; inline;
  14511. procedure setTBIF; inline;
  14512. procedure setWAKIE; inline;
  14513. procedure setWAKIF; inline;
  14514. property CERRIE : TBits_1 read getCERRIE write setCERRIE;
  14515. property CERRIF : TBits_1 read getCERRIF write setCERRIF;
  14516. property CTMRIE : TBits_1 read getCTMRIE write setCTMRIE;
  14517. property CTMRIF : TBits_1 read getCTMRIF write setCTMRIF;
  14518. property IVRIE : TBits_1 read getIVRIE write setIVRIE;
  14519. property IVRIF : TBits_1 read getIVRIF write setIVRIF;
  14520. property MODIE : TBits_1 read getMODIE write setMODIE;
  14521. property MODIF : TBits_1 read getMODIF write setMODIF;
  14522. property RBIE : TBits_1 read getRBIE write setRBIE;
  14523. property RBIF : TBits_1 read getRBIF write setRBIF;
  14524. property RBOVIE : TBits_1 read getRBOVIE write setRBOVIE;
  14525. property RBOVIF : TBits_1 read getRBOVIF write setRBOVIF;
  14526. property SERRIE : TBits_1 read getSERRIE write setSERRIE;
  14527. property SERRIF : TBits_1 read getSERRIF write setSERRIF;
  14528. property TBIE : TBits_1 read getTBIE write setTBIE;
  14529. property TBIF : TBits_1 read getTBIF write setTBIF;
  14530. property WAKIE : TBits_1 read getWAKIE write setWAKIE;
  14531. property WAKIF : TBits_1 read getWAKIF write setWAKIF;
  14532. property w : TBits_32 read getw write setw;
  14533. end;
  14534. TCAN1_C1VEC = record
  14535. private
  14536. function getFILHIT : TBits_5; inline;
  14537. function getICODE : TBits_7; inline;
  14538. function getw : TBits_32; inline;
  14539. procedure setFILHIT(thebits : TBits_5); inline;
  14540. procedure setICODE(thebits : TBits_7); inline;
  14541. procedure setw(thebits : TBits_32); inline;
  14542. public
  14543. property FILHIT : TBits_5 read getFILHIT write setFILHIT;
  14544. property ICODE : TBits_7 read getICODE write setICODE;
  14545. property w : TBits_32 read getw write setw;
  14546. end;
  14547. TCAN1_C1TREC = record
  14548. private
  14549. function getEWARN : TBits_1; inline;
  14550. function getRERRCNT : TBits_8; inline;
  14551. function getRXBP : TBits_1; inline;
  14552. function getRXWARN : TBits_1; inline;
  14553. function getTERRCNT : TBits_8; inline;
  14554. function getTXBO : TBits_1; inline;
  14555. function getTXBP : TBits_1; inline;
  14556. function getTXWARN : TBits_1; inline;
  14557. function getw : TBits_32; inline;
  14558. procedure setEWARN(thebits : TBits_1); inline;
  14559. procedure setRERRCNT(thebits : TBits_8); inline;
  14560. procedure setRXBP(thebits : TBits_1); inline;
  14561. procedure setRXWARN(thebits : TBits_1); inline;
  14562. procedure setTERRCNT(thebits : TBits_8); inline;
  14563. procedure setTXBO(thebits : TBits_1); inline;
  14564. procedure setTXBP(thebits : TBits_1); inline;
  14565. procedure setTXWARN(thebits : TBits_1); inline;
  14566. procedure setw(thebits : TBits_32); inline;
  14567. public
  14568. procedure clearEWARN; inline;
  14569. procedure clearRXBP; inline;
  14570. procedure clearRXWARN; inline;
  14571. procedure clearTXBO; inline;
  14572. procedure clearTXBP; inline;
  14573. procedure clearTXWARN; inline;
  14574. procedure setEWARN; inline;
  14575. procedure setRXBP; inline;
  14576. procedure setRXWARN; inline;
  14577. procedure setTXBO; inline;
  14578. procedure setTXBP; inline;
  14579. procedure setTXWARN; inline;
  14580. property EWARN : TBits_1 read getEWARN write setEWARN;
  14581. property RERRCNT : TBits_8 read getRERRCNT write setRERRCNT;
  14582. property RXBP : TBits_1 read getRXBP write setRXBP;
  14583. property RXWARN : TBits_1 read getRXWARN write setRXWARN;
  14584. property TERRCNT : TBits_8 read getTERRCNT write setTERRCNT;
  14585. property TXBO : TBits_1 read getTXBO write setTXBO;
  14586. property TXBP : TBits_1 read getTXBP write setTXBP;
  14587. property TXWARN : TBits_1 read getTXWARN write setTXWARN;
  14588. property w : TBits_32 read getw write setw;
  14589. end;
  14590. TCAN1_C1FSTAT = record
  14591. private
  14592. function getFIFOIP : TBits_32; inline;
  14593. function getFIFOIP0 : TBits_1; inline;
  14594. function getFIFOIP1 : TBits_1; inline;
  14595. function getFIFOIP10 : TBits_1; inline;
  14596. function getFIFOIP11 : TBits_1; inline;
  14597. function getFIFOIP12 : TBits_1; inline;
  14598. function getFIFOIP13 : TBits_1; inline;
  14599. function getFIFOIP14 : TBits_1; inline;
  14600. function getFIFOIP15 : TBits_1; inline;
  14601. function getFIFOIP16 : TBits_1; inline;
  14602. function getFIFOIP17 : TBits_1; inline;
  14603. function getFIFOIP18 : TBits_1; inline;
  14604. function getFIFOIP19 : TBits_1; inline;
  14605. function getFIFOIP2 : TBits_1; inline;
  14606. function getFIFOIP20 : TBits_1; inline;
  14607. function getFIFOIP21 : TBits_1; inline;
  14608. function getFIFOIP22 : TBits_1; inline;
  14609. function getFIFOIP23 : TBits_1; inline;
  14610. function getFIFOIP24 : TBits_1; inline;
  14611. function getFIFOIP25 : TBits_1; inline;
  14612. function getFIFOIP26 : TBits_1; inline;
  14613. function getFIFOIP27 : TBits_1; inline;
  14614. function getFIFOIP28 : TBits_1; inline;
  14615. function getFIFOIP29 : TBits_1; inline;
  14616. function getFIFOIP3 : TBits_1; inline;
  14617. function getFIFOIP30 : TBits_1; inline;
  14618. function getFIFOIP31 : TBits_1; inline;
  14619. function getFIFOIP4 : TBits_1; inline;
  14620. function getFIFOIP5 : TBits_1; inline;
  14621. function getFIFOIP6 : TBits_1; inline;
  14622. function getFIFOIP7 : TBits_1; inline;
  14623. function getFIFOIP8 : TBits_1; inline;
  14624. function getFIFOIP9 : TBits_1; inline;
  14625. function getw : TBits_32; inline;
  14626. procedure setFIFOIP(thebits : TBits_32); inline;
  14627. procedure setFIFOIP0(thebits : TBits_1); inline;
  14628. procedure setFIFOIP1(thebits : TBits_1); inline;
  14629. procedure setFIFOIP10(thebits : TBits_1); inline;
  14630. procedure setFIFOIP11(thebits : TBits_1); inline;
  14631. procedure setFIFOIP12(thebits : TBits_1); inline;
  14632. procedure setFIFOIP13(thebits : TBits_1); inline;
  14633. procedure setFIFOIP14(thebits : TBits_1); inline;
  14634. procedure setFIFOIP15(thebits : TBits_1); inline;
  14635. procedure setFIFOIP16(thebits : TBits_1); inline;
  14636. procedure setFIFOIP17(thebits : TBits_1); inline;
  14637. procedure setFIFOIP18(thebits : TBits_1); inline;
  14638. procedure setFIFOIP19(thebits : TBits_1); inline;
  14639. procedure setFIFOIP2(thebits : TBits_1); inline;
  14640. procedure setFIFOIP20(thebits : TBits_1); inline;
  14641. procedure setFIFOIP21(thebits : TBits_1); inline;
  14642. procedure setFIFOIP22(thebits : TBits_1); inline;
  14643. procedure setFIFOIP23(thebits : TBits_1); inline;
  14644. procedure setFIFOIP24(thebits : TBits_1); inline;
  14645. procedure setFIFOIP25(thebits : TBits_1); inline;
  14646. procedure setFIFOIP26(thebits : TBits_1); inline;
  14647. procedure setFIFOIP27(thebits : TBits_1); inline;
  14648. procedure setFIFOIP28(thebits : TBits_1); inline;
  14649. procedure setFIFOIP29(thebits : TBits_1); inline;
  14650. procedure setFIFOIP3(thebits : TBits_1); inline;
  14651. procedure setFIFOIP30(thebits : TBits_1); inline;
  14652. procedure setFIFOIP31(thebits : TBits_1); inline;
  14653. procedure setFIFOIP4(thebits : TBits_1); inline;
  14654. procedure setFIFOIP5(thebits : TBits_1); inline;
  14655. procedure setFIFOIP6(thebits : TBits_1); inline;
  14656. procedure setFIFOIP7(thebits : TBits_1); inline;
  14657. procedure setFIFOIP8(thebits : TBits_1); inline;
  14658. procedure setFIFOIP9(thebits : TBits_1); inline;
  14659. procedure setw(thebits : TBits_32); inline;
  14660. public
  14661. procedure clearFIFOIP0; inline;
  14662. procedure clearFIFOIP10; inline;
  14663. procedure clearFIFOIP11; inline;
  14664. procedure clearFIFOIP12; inline;
  14665. procedure clearFIFOIP13; inline;
  14666. procedure clearFIFOIP14; inline;
  14667. procedure clearFIFOIP15; inline;
  14668. procedure clearFIFOIP16; inline;
  14669. procedure clearFIFOIP17; inline;
  14670. procedure clearFIFOIP18; inline;
  14671. procedure clearFIFOIP19; inline;
  14672. procedure clearFIFOIP1; inline;
  14673. procedure clearFIFOIP20; inline;
  14674. procedure clearFIFOIP21; inline;
  14675. procedure clearFIFOIP22; inline;
  14676. procedure clearFIFOIP23; inline;
  14677. procedure clearFIFOIP24; inline;
  14678. procedure clearFIFOIP25; inline;
  14679. procedure clearFIFOIP26; inline;
  14680. procedure clearFIFOIP27; inline;
  14681. procedure clearFIFOIP28; inline;
  14682. procedure clearFIFOIP29; inline;
  14683. procedure clearFIFOIP2; inline;
  14684. procedure clearFIFOIP30; inline;
  14685. procedure clearFIFOIP31; inline;
  14686. procedure clearFIFOIP3; inline;
  14687. procedure clearFIFOIP4; inline;
  14688. procedure clearFIFOIP5; inline;
  14689. procedure clearFIFOIP6; inline;
  14690. procedure clearFIFOIP7; inline;
  14691. procedure clearFIFOIP8; inline;
  14692. procedure clearFIFOIP9; inline;
  14693. procedure setFIFOIP0; inline;
  14694. procedure setFIFOIP10; inline;
  14695. procedure setFIFOIP11; inline;
  14696. procedure setFIFOIP12; inline;
  14697. procedure setFIFOIP13; inline;
  14698. procedure setFIFOIP14; inline;
  14699. procedure setFIFOIP15; inline;
  14700. procedure setFIFOIP16; inline;
  14701. procedure setFIFOIP17; inline;
  14702. procedure setFIFOIP18; inline;
  14703. procedure setFIFOIP19; inline;
  14704. procedure setFIFOIP1; inline;
  14705. procedure setFIFOIP20; inline;
  14706. procedure setFIFOIP21; inline;
  14707. procedure setFIFOIP22; inline;
  14708. procedure setFIFOIP23; inline;
  14709. procedure setFIFOIP24; inline;
  14710. procedure setFIFOIP25; inline;
  14711. procedure setFIFOIP26; inline;
  14712. procedure setFIFOIP27; inline;
  14713. procedure setFIFOIP28; inline;
  14714. procedure setFIFOIP29; inline;
  14715. procedure setFIFOIP2; inline;
  14716. procedure setFIFOIP30; inline;
  14717. procedure setFIFOIP31; inline;
  14718. procedure setFIFOIP3; inline;
  14719. procedure setFIFOIP4; inline;
  14720. procedure setFIFOIP5; inline;
  14721. procedure setFIFOIP6; inline;
  14722. procedure setFIFOIP7; inline;
  14723. procedure setFIFOIP8; inline;
  14724. procedure setFIFOIP9; inline;
  14725. property FIFOIP : TBits_32 read getFIFOIP write setFIFOIP;
  14726. property FIFOIP0 : TBits_1 read getFIFOIP0 write setFIFOIP0;
  14727. property FIFOIP1 : TBits_1 read getFIFOIP1 write setFIFOIP1;
  14728. property FIFOIP10 : TBits_1 read getFIFOIP10 write setFIFOIP10;
  14729. property FIFOIP11 : TBits_1 read getFIFOIP11 write setFIFOIP11;
  14730. property FIFOIP12 : TBits_1 read getFIFOIP12 write setFIFOIP12;
  14731. property FIFOIP13 : TBits_1 read getFIFOIP13 write setFIFOIP13;
  14732. property FIFOIP14 : TBits_1 read getFIFOIP14 write setFIFOIP14;
  14733. property FIFOIP15 : TBits_1 read getFIFOIP15 write setFIFOIP15;
  14734. property FIFOIP16 : TBits_1 read getFIFOIP16 write setFIFOIP16;
  14735. property FIFOIP17 : TBits_1 read getFIFOIP17 write setFIFOIP17;
  14736. property FIFOIP18 : TBits_1 read getFIFOIP18 write setFIFOIP18;
  14737. property FIFOIP19 : TBits_1 read getFIFOIP19 write setFIFOIP19;
  14738. property FIFOIP2 : TBits_1 read getFIFOIP2 write setFIFOIP2;
  14739. property FIFOIP20 : TBits_1 read getFIFOIP20 write setFIFOIP20;
  14740. property FIFOIP21 : TBits_1 read getFIFOIP21 write setFIFOIP21;
  14741. property FIFOIP22 : TBits_1 read getFIFOIP22 write setFIFOIP22;
  14742. property FIFOIP23 : TBits_1 read getFIFOIP23 write setFIFOIP23;
  14743. property FIFOIP24 : TBits_1 read getFIFOIP24 write setFIFOIP24;
  14744. property FIFOIP25 : TBits_1 read getFIFOIP25 write setFIFOIP25;
  14745. property FIFOIP26 : TBits_1 read getFIFOIP26 write setFIFOIP26;
  14746. property FIFOIP27 : TBits_1 read getFIFOIP27 write setFIFOIP27;
  14747. property FIFOIP28 : TBits_1 read getFIFOIP28 write setFIFOIP28;
  14748. property FIFOIP29 : TBits_1 read getFIFOIP29 write setFIFOIP29;
  14749. property FIFOIP3 : TBits_1 read getFIFOIP3 write setFIFOIP3;
  14750. property FIFOIP30 : TBits_1 read getFIFOIP30 write setFIFOIP30;
  14751. property FIFOIP31 : TBits_1 read getFIFOIP31 write setFIFOIP31;
  14752. property FIFOIP4 : TBits_1 read getFIFOIP4 write setFIFOIP4;
  14753. property FIFOIP5 : TBits_1 read getFIFOIP5 write setFIFOIP5;
  14754. property FIFOIP6 : TBits_1 read getFIFOIP6 write setFIFOIP6;
  14755. property FIFOIP7 : TBits_1 read getFIFOIP7 write setFIFOIP7;
  14756. property FIFOIP8 : TBits_1 read getFIFOIP8 write setFIFOIP8;
  14757. property FIFOIP9 : TBits_1 read getFIFOIP9 write setFIFOIP9;
  14758. property w : TBits_32 read getw write setw;
  14759. end;
  14760. TCAN1_C1RXOVF = record
  14761. private
  14762. function getRXOVF : TBits_32; inline;
  14763. function getRXOVF0 : TBits_1; inline;
  14764. function getRXOVF1 : TBits_1; inline;
  14765. function getRXOVF10 : TBits_1; inline;
  14766. function getRXOVF11 : TBits_1; inline;
  14767. function getRXOVF12 : TBits_1; inline;
  14768. function getRXOVF13 : TBits_1; inline;
  14769. function getRXOVF14 : TBits_1; inline;
  14770. function getRXOVF15 : TBits_1; inline;
  14771. function getRXOVF16 : TBits_1; inline;
  14772. function getRXOVF17 : TBits_1; inline;
  14773. function getRXOVF18 : TBits_1; inline;
  14774. function getRXOVF19 : TBits_1; inline;
  14775. function getRXOVF2 : TBits_1; inline;
  14776. function getRXOVF20 : TBits_1; inline;
  14777. function getRXOVF21 : TBits_1; inline;
  14778. function getRXOVF22 : TBits_1; inline;
  14779. function getRXOVF23 : TBits_1; inline;
  14780. function getRXOVF24 : TBits_1; inline;
  14781. function getRXOVF25 : TBits_1; inline;
  14782. function getRXOVF26 : TBits_1; inline;
  14783. function getRXOVF27 : TBits_1; inline;
  14784. function getRXOVF28 : TBits_1; inline;
  14785. function getRXOVF29 : TBits_1; inline;
  14786. function getRXOVF3 : TBits_1; inline;
  14787. function getRXOVF30 : TBits_1; inline;
  14788. function getRXOVF31 : TBits_1; inline;
  14789. function getRXOVF4 : TBits_1; inline;
  14790. function getRXOVF5 : TBits_1; inline;
  14791. function getRXOVF6 : TBits_1; inline;
  14792. function getRXOVF7 : TBits_1; inline;
  14793. function getRXOVF8 : TBits_1; inline;
  14794. function getRXOVF9 : TBits_1; inline;
  14795. function getw : TBits_32; inline;
  14796. procedure setRXOVF(thebits : TBits_32); inline;
  14797. procedure setRXOVF0(thebits : TBits_1); inline;
  14798. procedure setRXOVF1(thebits : TBits_1); inline;
  14799. procedure setRXOVF10(thebits : TBits_1); inline;
  14800. procedure setRXOVF11(thebits : TBits_1); inline;
  14801. procedure setRXOVF12(thebits : TBits_1); inline;
  14802. procedure setRXOVF13(thebits : TBits_1); inline;
  14803. procedure setRXOVF14(thebits : TBits_1); inline;
  14804. procedure setRXOVF15(thebits : TBits_1); inline;
  14805. procedure setRXOVF16(thebits : TBits_1); inline;
  14806. procedure setRXOVF17(thebits : TBits_1); inline;
  14807. procedure setRXOVF18(thebits : TBits_1); inline;
  14808. procedure setRXOVF19(thebits : TBits_1); inline;
  14809. procedure setRXOVF2(thebits : TBits_1); inline;
  14810. procedure setRXOVF20(thebits : TBits_1); inline;
  14811. procedure setRXOVF21(thebits : TBits_1); inline;
  14812. procedure setRXOVF22(thebits : TBits_1); inline;
  14813. procedure setRXOVF23(thebits : TBits_1); inline;
  14814. procedure setRXOVF24(thebits : TBits_1); inline;
  14815. procedure setRXOVF25(thebits : TBits_1); inline;
  14816. procedure setRXOVF26(thebits : TBits_1); inline;
  14817. procedure setRXOVF27(thebits : TBits_1); inline;
  14818. procedure setRXOVF28(thebits : TBits_1); inline;
  14819. procedure setRXOVF29(thebits : TBits_1); inline;
  14820. procedure setRXOVF3(thebits : TBits_1); inline;
  14821. procedure setRXOVF30(thebits : TBits_1); inline;
  14822. procedure setRXOVF31(thebits : TBits_1); inline;
  14823. procedure setRXOVF4(thebits : TBits_1); inline;
  14824. procedure setRXOVF5(thebits : TBits_1); inline;
  14825. procedure setRXOVF6(thebits : TBits_1); inline;
  14826. procedure setRXOVF7(thebits : TBits_1); inline;
  14827. procedure setRXOVF8(thebits : TBits_1); inline;
  14828. procedure setRXOVF9(thebits : TBits_1); inline;
  14829. procedure setw(thebits : TBits_32); inline;
  14830. public
  14831. procedure clearRXOVF0; inline;
  14832. procedure clearRXOVF10; inline;
  14833. procedure clearRXOVF11; inline;
  14834. procedure clearRXOVF12; inline;
  14835. procedure clearRXOVF13; inline;
  14836. procedure clearRXOVF14; inline;
  14837. procedure clearRXOVF15; inline;
  14838. procedure clearRXOVF16; inline;
  14839. procedure clearRXOVF17; inline;
  14840. procedure clearRXOVF18; inline;
  14841. procedure clearRXOVF19; inline;
  14842. procedure clearRXOVF1; inline;
  14843. procedure clearRXOVF20; inline;
  14844. procedure clearRXOVF21; inline;
  14845. procedure clearRXOVF22; inline;
  14846. procedure clearRXOVF23; inline;
  14847. procedure clearRXOVF24; inline;
  14848. procedure clearRXOVF25; inline;
  14849. procedure clearRXOVF26; inline;
  14850. procedure clearRXOVF27; inline;
  14851. procedure clearRXOVF28; inline;
  14852. procedure clearRXOVF29; inline;
  14853. procedure clearRXOVF2; inline;
  14854. procedure clearRXOVF30; inline;
  14855. procedure clearRXOVF31; inline;
  14856. procedure clearRXOVF3; inline;
  14857. procedure clearRXOVF4; inline;
  14858. procedure clearRXOVF5; inline;
  14859. procedure clearRXOVF6; inline;
  14860. procedure clearRXOVF7; inline;
  14861. procedure clearRXOVF8; inline;
  14862. procedure clearRXOVF9; inline;
  14863. procedure setRXOVF0; inline;
  14864. procedure setRXOVF10; inline;
  14865. procedure setRXOVF11; inline;
  14866. procedure setRXOVF12; inline;
  14867. procedure setRXOVF13; inline;
  14868. procedure setRXOVF14; inline;
  14869. procedure setRXOVF15; inline;
  14870. procedure setRXOVF16; inline;
  14871. procedure setRXOVF17; inline;
  14872. procedure setRXOVF18; inline;
  14873. procedure setRXOVF19; inline;
  14874. procedure setRXOVF1; inline;
  14875. procedure setRXOVF20; inline;
  14876. procedure setRXOVF21; inline;
  14877. procedure setRXOVF22; inline;
  14878. procedure setRXOVF23; inline;
  14879. procedure setRXOVF24; inline;
  14880. procedure setRXOVF25; inline;
  14881. procedure setRXOVF26; inline;
  14882. procedure setRXOVF27; inline;
  14883. procedure setRXOVF28; inline;
  14884. procedure setRXOVF29; inline;
  14885. procedure setRXOVF2; inline;
  14886. procedure setRXOVF30; inline;
  14887. procedure setRXOVF31; inline;
  14888. procedure setRXOVF3; inline;
  14889. procedure setRXOVF4; inline;
  14890. procedure setRXOVF5; inline;
  14891. procedure setRXOVF6; inline;
  14892. procedure setRXOVF7; inline;
  14893. procedure setRXOVF8; inline;
  14894. procedure setRXOVF9; inline;
  14895. property RXOVF : TBits_32 read getRXOVF write setRXOVF;
  14896. property RXOVF0 : TBits_1 read getRXOVF0 write setRXOVF0;
  14897. property RXOVF1 : TBits_1 read getRXOVF1 write setRXOVF1;
  14898. property RXOVF10 : TBits_1 read getRXOVF10 write setRXOVF10;
  14899. property RXOVF11 : TBits_1 read getRXOVF11 write setRXOVF11;
  14900. property RXOVF12 : TBits_1 read getRXOVF12 write setRXOVF12;
  14901. property RXOVF13 : TBits_1 read getRXOVF13 write setRXOVF13;
  14902. property RXOVF14 : TBits_1 read getRXOVF14 write setRXOVF14;
  14903. property RXOVF15 : TBits_1 read getRXOVF15 write setRXOVF15;
  14904. property RXOVF16 : TBits_1 read getRXOVF16 write setRXOVF16;
  14905. property RXOVF17 : TBits_1 read getRXOVF17 write setRXOVF17;
  14906. property RXOVF18 : TBits_1 read getRXOVF18 write setRXOVF18;
  14907. property RXOVF19 : TBits_1 read getRXOVF19 write setRXOVF19;
  14908. property RXOVF2 : TBits_1 read getRXOVF2 write setRXOVF2;
  14909. property RXOVF20 : TBits_1 read getRXOVF20 write setRXOVF20;
  14910. property RXOVF21 : TBits_1 read getRXOVF21 write setRXOVF21;
  14911. property RXOVF22 : TBits_1 read getRXOVF22 write setRXOVF22;
  14912. property RXOVF23 : TBits_1 read getRXOVF23 write setRXOVF23;
  14913. property RXOVF24 : TBits_1 read getRXOVF24 write setRXOVF24;
  14914. property RXOVF25 : TBits_1 read getRXOVF25 write setRXOVF25;
  14915. property RXOVF26 : TBits_1 read getRXOVF26 write setRXOVF26;
  14916. property RXOVF27 : TBits_1 read getRXOVF27 write setRXOVF27;
  14917. property RXOVF28 : TBits_1 read getRXOVF28 write setRXOVF28;
  14918. property RXOVF29 : TBits_1 read getRXOVF29 write setRXOVF29;
  14919. property RXOVF3 : TBits_1 read getRXOVF3 write setRXOVF3;
  14920. property RXOVF30 : TBits_1 read getRXOVF30 write setRXOVF30;
  14921. property RXOVF31 : TBits_1 read getRXOVF31 write setRXOVF31;
  14922. property RXOVF4 : TBits_1 read getRXOVF4 write setRXOVF4;
  14923. property RXOVF5 : TBits_1 read getRXOVF5 write setRXOVF5;
  14924. property RXOVF6 : TBits_1 read getRXOVF6 write setRXOVF6;
  14925. property RXOVF7 : TBits_1 read getRXOVF7 write setRXOVF7;
  14926. property RXOVF8 : TBits_1 read getRXOVF8 write setRXOVF8;
  14927. property RXOVF9 : TBits_1 read getRXOVF9 write setRXOVF9;
  14928. property w : TBits_32 read getw write setw;
  14929. end;
  14930. TCAN1_C1TMR = record
  14931. private
  14932. function getCANTS : TBits_16; inline;
  14933. function getCANTSPRE : TBits_16; inline;
  14934. function getw : TBits_32; inline;
  14935. procedure setCANTS(thebits : TBits_16); inline;
  14936. procedure setCANTSPRE(thebits : TBits_16); inline;
  14937. procedure setw(thebits : TBits_32); inline;
  14938. public
  14939. property CANTS : TBits_16 read getCANTS write setCANTS;
  14940. property CANTSPRE : TBits_16 read getCANTSPRE write setCANTSPRE;
  14941. property w : TBits_32 read getw write setw;
  14942. end;
  14943. TCAN1_C1RXM0 = record
  14944. private
  14945. function getEID : TBits_18; inline;
  14946. function getMIDE : TBits_1; inline;
  14947. function getSID : TBits_11; inline;
  14948. function getw : TBits_32; inline;
  14949. procedure setEID(thebits : TBits_18); inline;
  14950. procedure setMIDE(thebits : TBits_1); inline;
  14951. procedure setSID(thebits : TBits_11); inline;
  14952. procedure setw(thebits : TBits_32); inline;
  14953. public
  14954. procedure clearMIDE; inline;
  14955. procedure setMIDE; inline;
  14956. property EID : TBits_18 read getEID write setEID;
  14957. property MIDE : TBits_1 read getMIDE write setMIDE;
  14958. property SID : TBits_11 read getSID write setSID;
  14959. property w : TBits_32 read getw write setw;
  14960. end;
  14961. TCAN1_C1RXM1 = record
  14962. private
  14963. function getEID : TBits_18; inline;
  14964. function getMIDE : TBits_1; inline;
  14965. function getSID : TBits_11; inline;
  14966. function getw : TBits_32; inline;
  14967. procedure setEID(thebits : TBits_18); inline;
  14968. procedure setMIDE(thebits : TBits_1); inline;
  14969. procedure setSID(thebits : TBits_11); inline;
  14970. procedure setw(thebits : TBits_32); inline;
  14971. public
  14972. procedure clearMIDE; inline;
  14973. procedure setMIDE; inline;
  14974. property EID : TBits_18 read getEID write setEID;
  14975. property MIDE : TBits_1 read getMIDE write setMIDE;
  14976. property SID : TBits_11 read getSID write setSID;
  14977. property w : TBits_32 read getw write setw;
  14978. end;
  14979. TCAN1_C1RXM2 = record
  14980. private
  14981. function getEID : TBits_18; inline;
  14982. function getMIDE : TBits_1; inline;
  14983. function getSID : TBits_11; inline;
  14984. function getw : TBits_32; inline;
  14985. procedure setEID(thebits : TBits_18); inline;
  14986. procedure setMIDE(thebits : TBits_1); inline;
  14987. procedure setSID(thebits : TBits_11); inline;
  14988. procedure setw(thebits : TBits_32); inline;
  14989. public
  14990. procedure clearMIDE; inline;
  14991. procedure setMIDE; inline;
  14992. property EID : TBits_18 read getEID write setEID;
  14993. property MIDE : TBits_1 read getMIDE write setMIDE;
  14994. property SID : TBits_11 read getSID write setSID;
  14995. property w : TBits_32 read getw write setw;
  14996. end;
  14997. TCAN1_C1RXM3 = record
  14998. private
  14999. function getEID : TBits_18; inline;
  15000. function getMIDE : TBits_1; inline;
  15001. function getSID : TBits_11; inline;
  15002. function getw : TBits_32; inline;
  15003. procedure setEID(thebits : TBits_18); inline;
  15004. procedure setMIDE(thebits : TBits_1); inline;
  15005. procedure setSID(thebits : TBits_11); inline;
  15006. procedure setw(thebits : TBits_32); inline;
  15007. public
  15008. procedure clearMIDE; inline;
  15009. procedure setMIDE; inline;
  15010. property EID : TBits_18 read getEID write setEID;
  15011. property MIDE : TBits_1 read getMIDE write setMIDE;
  15012. property SID : TBits_11 read getSID write setSID;
  15013. property w : TBits_32 read getw write setw;
  15014. end;
  15015. TCAN1_C1FLTCON0 = record
  15016. private
  15017. function getFLTEN0 : TBits_1; inline;
  15018. function getFLTEN1 : TBits_1; inline;
  15019. function getFLTEN2 : TBits_1; inline;
  15020. function getFLTEN3 : TBits_1; inline;
  15021. function getFSEL0 : TBits_5; inline;
  15022. function getFSEL1 : TBits_5; inline;
  15023. function getFSEL2 : TBits_5; inline;
  15024. function getFSEL3 : TBits_5; inline;
  15025. function getMSEL0 : TBits_2; inline;
  15026. function getMSEL1 : TBits_2; inline;
  15027. function getMSEL2 : TBits_2; inline;
  15028. function getMSEL3 : TBits_2; inline;
  15029. function getw : TBits_32; inline;
  15030. procedure setFLTEN0(thebits : TBits_1); inline;
  15031. procedure setFLTEN1(thebits : TBits_1); inline;
  15032. procedure setFLTEN2(thebits : TBits_1); inline;
  15033. procedure setFLTEN3(thebits : TBits_1); inline;
  15034. procedure setFSEL0(thebits : TBits_5); inline;
  15035. procedure setFSEL1(thebits : TBits_5); inline;
  15036. procedure setFSEL2(thebits : TBits_5); inline;
  15037. procedure setFSEL3(thebits : TBits_5); inline;
  15038. procedure setMSEL0(thebits : TBits_2); inline;
  15039. procedure setMSEL1(thebits : TBits_2); inline;
  15040. procedure setMSEL2(thebits : TBits_2); inline;
  15041. procedure setMSEL3(thebits : TBits_2); inline;
  15042. procedure setw(thebits : TBits_32); inline;
  15043. public
  15044. procedure clearFLTEN0; inline;
  15045. procedure clearFLTEN1; inline;
  15046. procedure clearFLTEN2; inline;
  15047. procedure clearFLTEN3; inline;
  15048. procedure setFLTEN0; inline;
  15049. procedure setFLTEN1; inline;
  15050. procedure setFLTEN2; inline;
  15051. procedure setFLTEN3; inline;
  15052. property FLTEN0 : TBits_1 read getFLTEN0 write setFLTEN0;
  15053. property FLTEN1 : TBits_1 read getFLTEN1 write setFLTEN1;
  15054. property FLTEN2 : TBits_1 read getFLTEN2 write setFLTEN2;
  15055. property FLTEN3 : TBits_1 read getFLTEN3 write setFLTEN3;
  15056. property FSEL0 : TBits_5 read getFSEL0 write setFSEL0;
  15057. property FSEL1 : TBits_5 read getFSEL1 write setFSEL1;
  15058. property FSEL2 : TBits_5 read getFSEL2 write setFSEL2;
  15059. property FSEL3 : TBits_5 read getFSEL3 write setFSEL3;
  15060. property MSEL0 : TBits_2 read getMSEL0 write setMSEL0;
  15061. property MSEL1 : TBits_2 read getMSEL1 write setMSEL1;
  15062. property MSEL2 : TBits_2 read getMSEL2 write setMSEL2;
  15063. property MSEL3 : TBits_2 read getMSEL3 write setMSEL3;
  15064. property w : TBits_32 read getw write setw;
  15065. end;
  15066. TCAN1_C1FLTCON1 = record
  15067. private
  15068. function getFLTEN4 : TBits_1; inline;
  15069. function getFLTEN5 : TBits_1; inline;
  15070. function getFLTEN6 : TBits_1; inline;
  15071. function getFLTEN7 : TBits_1; inline;
  15072. function getFSEL4 : TBits_5; inline;
  15073. function getFSEL5 : TBits_5; inline;
  15074. function getFSEL6 : TBits_5; inline;
  15075. function getFSEL7 : TBits_5; inline;
  15076. function getMSEL4 : TBits_2; inline;
  15077. function getMSEL5 : TBits_2; inline;
  15078. function getMSEL6 : TBits_2; inline;
  15079. function getMSEL7 : TBits_2; inline;
  15080. function getw : TBits_32; inline;
  15081. procedure setFLTEN4(thebits : TBits_1); inline;
  15082. procedure setFLTEN5(thebits : TBits_1); inline;
  15083. procedure setFLTEN6(thebits : TBits_1); inline;
  15084. procedure setFLTEN7(thebits : TBits_1); inline;
  15085. procedure setFSEL4(thebits : TBits_5); inline;
  15086. procedure setFSEL5(thebits : TBits_5); inline;
  15087. procedure setFSEL6(thebits : TBits_5); inline;
  15088. procedure setFSEL7(thebits : TBits_5); inline;
  15089. procedure setMSEL4(thebits : TBits_2); inline;
  15090. procedure setMSEL5(thebits : TBits_2); inline;
  15091. procedure setMSEL6(thebits : TBits_2); inline;
  15092. procedure setMSEL7(thebits : TBits_2); inline;
  15093. procedure setw(thebits : TBits_32); inline;
  15094. public
  15095. procedure clearFLTEN4; inline;
  15096. procedure clearFLTEN5; inline;
  15097. procedure clearFLTEN6; inline;
  15098. procedure clearFLTEN7; inline;
  15099. procedure setFLTEN4; inline;
  15100. procedure setFLTEN5; inline;
  15101. procedure setFLTEN6; inline;
  15102. procedure setFLTEN7; inline;
  15103. property FLTEN4 : TBits_1 read getFLTEN4 write setFLTEN4;
  15104. property FLTEN5 : TBits_1 read getFLTEN5 write setFLTEN5;
  15105. property FLTEN6 : TBits_1 read getFLTEN6 write setFLTEN6;
  15106. property FLTEN7 : TBits_1 read getFLTEN7 write setFLTEN7;
  15107. property FSEL4 : TBits_5 read getFSEL4 write setFSEL4;
  15108. property FSEL5 : TBits_5 read getFSEL5 write setFSEL5;
  15109. property FSEL6 : TBits_5 read getFSEL6 write setFSEL6;
  15110. property FSEL7 : TBits_5 read getFSEL7 write setFSEL7;
  15111. property MSEL4 : TBits_2 read getMSEL4 write setMSEL4;
  15112. property MSEL5 : TBits_2 read getMSEL5 write setMSEL5;
  15113. property MSEL6 : TBits_2 read getMSEL6 write setMSEL6;
  15114. property MSEL7 : TBits_2 read getMSEL7 write setMSEL7;
  15115. property w : TBits_32 read getw write setw;
  15116. end;
  15117. TCAN1_C1FLTCON2 = record
  15118. private
  15119. function getFLTEN10 : TBits_1; inline;
  15120. function getFLTEN11 : TBits_1; inline;
  15121. function getFLTEN8 : TBits_1; inline;
  15122. function getFLTEN9 : TBits_1; inline;
  15123. function getFSEL10 : TBits_5; inline;
  15124. function getFSEL11 : TBits_5; inline;
  15125. function getFSEL8 : TBits_5; inline;
  15126. function getFSEL9 : TBits_5; inline;
  15127. function getMSEL10 : TBits_2; inline;
  15128. function getMSEL11 : TBits_2; inline;
  15129. function getMSEL8 : TBits_2; inline;
  15130. function getMSEL9 : TBits_2; inline;
  15131. function getw : TBits_32; inline;
  15132. procedure setFLTEN10(thebits : TBits_1); inline;
  15133. procedure setFLTEN11(thebits : TBits_1); inline;
  15134. procedure setFLTEN8(thebits : TBits_1); inline;
  15135. procedure setFLTEN9(thebits : TBits_1); inline;
  15136. procedure setFSEL10(thebits : TBits_5); inline;
  15137. procedure setFSEL11(thebits : TBits_5); inline;
  15138. procedure setFSEL8(thebits : TBits_5); inline;
  15139. procedure setFSEL9(thebits : TBits_5); inline;
  15140. procedure setMSEL10(thebits : TBits_2); inline;
  15141. procedure setMSEL11(thebits : TBits_2); inline;
  15142. procedure setMSEL8(thebits : TBits_2); inline;
  15143. procedure setMSEL9(thebits : TBits_2); inline;
  15144. procedure setw(thebits : TBits_32); inline;
  15145. public
  15146. procedure clearFLTEN10; inline;
  15147. procedure clearFLTEN11; inline;
  15148. procedure clearFLTEN8; inline;
  15149. procedure clearFLTEN9; inline;
  15150. procedure setFLTEN10; inline;
  15151. procedure setFLTEN11; inline;
  15152. procedure setFLTEN8; inline;
  15153. procedure setFLTEN9; inline;
  15154. property FLTEN10 : TBits_1 read getFLTEN10 write setFLTEN10;
  15155. property FLTEN11 : TBits_1 read getFLTEN11 write setFLTEN11;
  15156. property FLTEN8 : TBits_1 read getFLTEN8 write setFLTEN8;
  15157. property FLTEN9 : TBits_1 read getFLTEN9 write setFLTEN9;
  15158. property FSEL10 : TBits_5 read getFSEL10 write setFSEL10;
  15159. property FSEL11 : TBits_5 read getFSEL11 write setFSEL11;
  15160. property FSEL8 : TBits_5 read getFSEL8 write setFSEL8;
  15161. property FSEL9 : TBits_5 read getFSEL9 write setFSEL9;
  15162. property MSEL10 : TBits_2 read getMSEL10 write setMSEL10;
  15163. property MSEL11 : TBits_2 read getMSEL11 write setMSEL11;
  15164. property MSEL8 : TBits_2 read getMSEL8 write setMSEL8;
  15165. property MSEL9 : TBits_2 read getMSEL9 write setMSEL9;
  15166. property w : TBits_32 read getw write setw;
  15167. end;
  15168. TCAN1_C1FLTCON3 = record
  15169. private
  15170. function getFLTEN12 : TBits_1; inline;
  15171. function getFLTEN13 : TBits_1; inline;
  15172. function getFLTEN14 : TBits_1; inline;
  15173. function getFLTEN15 : TBits_1; inline;
  15174. function getFSEL12 : TBits_5; inline;
  15175. function getFSEL13 : TBits_5; inline;
  15176. function getFSEL14 : TBits_5; inline;
  15177. function getFSEL15 : TBits_5; inline;
  15178. function getMSEL12 : TBits_2; inline;
  15179. function getMSEL13 : TBits_2; inline;
  15180. function getMSEL14 : TBits_2; inline;
  15181. function getMSEL15 : TBits_2; inline;
  15182. function getw : TBits_32; inline;
  15183. procedure setFLTEN12(thebits : TBits_1); inline;
  15184. procedure setFLTEN13(thebits : TBits_1); inline;
  15185. procedure setFLTEN14(thebits : TBits_1); inline;
  15186. procedure setFLTEN15(thebits : TBits_1); inline;
  15187. procedure setFSEL12(thebits : TBits_5); inline;
  15188. procedure setFSEL13(thebits : TBits_5); inline;
  15189. procedure setFSEL14(thebits : TBits_5); inline;
  15190. procedure setFSEL15(thebits : TBits_5); inline;
  15191. procedure setMSEL12(thebits : TBits_2); inline;
  15192. procedure setMSEL13(thebits : TBits_2); inline;
  15193. procedure setMSEL14(thebits : TBits_2); inline;
  15194. procedure setMSEL15(thebits : TBits_2); inline;
  15195. procedure setw(thebits : TBits_32); inline;
  15196. public
  15197. procedure clearFLTEN12; inline;
  15198. procedure clearFLTEN13; inline;
  15199. procedure clearFLTEN14; inline;
  15200. procedure clearFLTEN15; inline;
  15201. procedure setFLTEN12; inline;
  15202. procedure setFLTEN13; inline;
  15203. procedure setFLTEN14; inline;
  15204. procedure setFLTEN15; inline;
  15205. property FLTEN12 : TBits_1 read getFLTEN12 write setFLTEN12;
  15206. property FLTEN13 : TBits_1 read getFLTEN13 write setFLTEN13;
  15207. property FLTEN14 : TBits_1 read getFLTEN14 write setFLTEN14;
  15208. property FLTEN15 : TBits_1 read getFLTEN15 write setFLTEN15;
  15209. property FSEL12 : TBits_5 read getFSEL12 write setFSEL12;
  15210. property FSEL13 : TBits_5 read getFSEL13 write setFSEL13;
  15211. property FSEL14 : TBits_5 read getFSEL14 write setFSEL14;
  15212. property FSEL15 : TBits_5 read getFSEL15 write setFSEL15;
  15213. property MSEL12 : TBits_2 read getMSEL12 write setMSEL12;
  15214. property MSEL13 : TBits_2 read getMSEL13 write setMSEL13;
  15215. property MSEL14 : TBits_2 read getMSEL14 write setMSEL14;
  15216. property MSEL15 : TBits_2 read getMSEL15 write setMSEL15;
  15217. property w : TBits_32 read getw write setw;
  15218. end;
  15219. TCAN1_C1FLTCON4 = record
  15220. private
  15221. function getFLTEN16 : TBits_1; inline;
  15222. function getFLTEN17 : TBits_1; inline;
  15223. function getFLTEN18 : TBits_1; inline;
  15224. function getFLTEN19 : TBits_1; inline;
  15225. function getFSEL16 : TBits_5; inline;
  15226. function getFSEL17 : TBits_5; inline;
  15227. function getFSEL18 : TBits_5; inline;
  15228. function getFSEL19 : TBits_5; inline;
  15229. function getMSEL16 : TBits_2; inline;
  15230. function getMSEL17 : TBits_2; inline;
  15231. function getMSEL18 : TBits_2; inline;
  15232. function getMSEL19 : TBits_2; inline;
  15233. function getw : TBits_32; inline;
  15234. procedure setFLTEN16(thebits : TBits_1); inline;
  15235. procedure setFLTEN17(thebits : TBits_1); inline;
  15236. procedure setFLTEN18(thebits : TBits_1); inline;
  15237. procedure setFLTEN19(thebits : TBits_1); inline;
  15238. procedure setFSEL16(thebits : TBits_5); inline;
  15239. procedure setFSEL17(thebits : TBits_5); inline;
  15240. procedure setFSEL18(thebits : TBits_5); inline;
  15241. procedure setFSEL19(thebits : TBits_5); inline;
  15242. procedure setMSEL16(thebits : TBits_2); inline;
  15243. procedure setMSEL17(thebits : TBits_2); inline;
  15244. procedure setMSEL18(thebits : TBits_2); inline;
  15245. procedure setMSEL19(thebits : TBits_2); inline;
  15246. procedure setw(thebits : TBits_32); inline;
  15247. public
  15248. procedure clearFLTEN16; inline;
  15249. procedure clearFLTEN17; inline;
  15250. procedure clearFLTEN18; inline;
  15251. procedure clearFLTEN19; inline;
  15252. procedure setFLTEN16; inline;
  15253. procedure setFLTEN17; inline;
  15254. procedure setFLTEN18; inline;
  15255. procedure setFLTEN19; inline;
  15256. property FLTEN16 : TBits_1 read getFLTEN16 write setFLTEN16;
  15257. property FLTEN17 : TBits_1 read getFLTEN17 write setFLTEN17;
  15258. property FLTEN18 : TBits_1 read getFLTEN18 write setFLTEN18;
  15259. property FLTEN19 : TBits_1 read getFLTEN19 write setFLTEN19;
  15260. property FSEL16 : TBits_5 read getFSEL16 write setFSEL16;
  15261. property FSEL17 : TBits_5 read getFSEL17 write setFSEL17;
  15262. property FSEL18 : TBits_5 read getFSEL18 write setFSEL18;
  15263. property FSEL19 : TBits_5 read getFSEL19 write setFSEL19;
  15264. property MSEL16 : TBits_2 read getMSEL16 write setMSEL16;
  15265. property MSEL17 : TBits_2 read getMSEL17 write setMSEL17;
  15266. property MSEL18 : TBits_2 read getMSEL18 write setMSEL18;
  15267. property MSEL19 : TBits_2 read getMSEL19 write setMSEL19;
  15268. property w : TBits_32 read getw write setw;
  15269. end;
  15270. TCAN1_C1FLTCON5 = record
  15271. private
  15272. function getFLTEN20 : TBits_1; inline;
  15273. function getFLTEN21 : TBits_1; inline;
  15274. function getFLTEN22 : TBits_1; inline;
  15275. function getFLTEN23 : TBits_1; inline;
  15276. function getFSEL20 : TBits_5; inline;
  15277. function getFSEL21 : TBits_5; inline;
  15278. function getFSEL22 : TBits_5; inline;
  15279. function getFSEL23 : TBits_5; inline;
  15280. function getMSEL20 : TBits_2; inline;
  15281. function getMSEL21 : TBits_2; inline;
  15282. function getMSEL22 : TBits_2; inline;
  15283. function getMSEL23 : TBits_2; inline;
  15284. function getw : TBits_32; inline;
  15285. procedure setFLTEN20(thebits : TBits_1); inline;
  15286. procedure setFLTEN21(thebits : TBits_1); inline;
  15287. procedure setFLTEN22(thebits : TBits_1); inline;
  15288. procedure setFLTEN23(thebits : TBits_1); inline;
  15289. procedure setFSEL20(thebits : TBits_5); inline;
  15290. procedure setFSEL21(thebits : TBits_5); inline;
  15291. procedure setFSEL22(thebits : TBits_5); inline;
  15292. procedure setFSEL23(thebits : TBits_5); inline;
  15293. procedure setMSEL20(thebits : TBits_2); inline;
  15294. procedure setMSEL21(thebits : TBits_2); inline;
  15295. procedure setMSEL22(thebits : TBits_2); inline;
  15296. procedure setMSEL23(thebits : TBits_2); inline;
  15297. procedure setw(thebits : TBits_32); inline;
  15298. public
  15299. procedure clearFLTEN20; inline;
  15300. procedure clearFLTEN21; inline;
  15301. procedure clearFLTEN22; inline;
  15302. procedure clearFLTEN23; inline;
  15303. procedure setFLTEN20; inline;
  15304. procedure setFLTEN21; inline;
  15305. procedure setFLTEN22; inline;
  15306. procedure setFLTEN23; inline;
  15307. property FLTEN20 : TBits_1 read getFLTEN20 write setFLTEN20;
  15308. property FLTEN21 : TBits_1 read getFLTEN21 write setFLTEN21;
  15309. property FLTEN22 : TBits_1 read getFLTEN22 write setFLTEN22;
  15310. property FLTEN23 : TBits_1 read getFLTEN23 write setFLTEN23;
  15311. property FSEL20 : TBits_5 read getFSEL20 write setFSEL20;
  15312. property FSEL21 : TBits_5 read getFSEL21 write setFSEL21;
  15313. property FSEL22 : TBits_5 read getFSEL22 write setFSEL22;
  15314. property FSEL23 : TBits_5 read getFSEL23 write setFSEL23;
  15315. property MSEL20 : TBits_2 read getMSEL20 write setMSEL20;
  15316. property MSEL21 : TBits_2 read getMSEL21 write setMSEL21;
  15317. property MSEL22 : TBits_2 read getMSEL22 write setMSEL22;
  15318. property MSEL23 : TBits_2 read getMSEL23 write setMSEL23;
  15319. property w : TBits_32 read getw write setw;
  15320. end;
  15321. TCAN1_C1FLTCON6 = record
  15322. private
  15323. function getFLTEN24 : TBits_1; inline;
  15324. function getFLTEN25 : TBits_1; inline;
  15325. function getFLTEN26 : TBits_1; inline;
  15326. function getFLTEN27 : TBits_1; inline;
  15327. function getFSEL24 : TBits_5; inline;
  15328. function getFSEL25 : TBits_5; inline;
  15329. function getFSEL26 : TBits_5; inline;
  15330. function getFSEL27 : TBits_5; inline;
  15331. function getMSEL24 : TBits_2; inline;
  15332. function getMSEL25 : TBits_2; inline;
  15333. function getMSEL26 : TBits_2; inline;
  15334. function getMSEL27 : TBits_2; inline;
  15335. function getw : TBits_32; inline;
  15336. procedure setFLTEN24(thebits : TBits_1); inline;
  15337. procedure setFLTEN25(thebits : TBits_1); inline;
  15338. procedure setFLTEN26(thebits : TBits_1); inline;
  15339. procedure setFLTEN27(thebits : TBits_1); inline;
  15340. procedure setFSEL24(thebits : TBits_5); inline;
  15341. procedure setFSEL25(thebits : TBits_5); inline;
  15342. procedure setFSEL26(thebits : TBits_5); inline;
  15343. procedure setFSEL27(thebits : TBits_5); inline;
  15344. procedure setMSEL24(thebits : TBits_2); inline;
  15345. procedure setMSEL25(thebits : TBits_2); inline;
  15346. procedure setMSEL26(thebits : TBits_2); inline;
  15347. procedure setMSEL27(thebits : TBits_2); inline;
  15348. procedure setw(thebits : TBits_32); inline;
  15349. public
  15350. procedure clearFLTEN24; inline;
  15351. procedure clearFLTEN25; inline;
  15352. procedure clearFLTEN26; inline;
  15353. procedure clearFLTEN27; inline;
  15354. procedure setFLTEN24; inline;
  15355. procedure setFLTEN25; inline;
  15356. procedure setFLTEN26; inline;
  15357. procedure setFLTEN27; inline;
  15358. property FLTEN24 : TBits_1 read getFLTEN24 write setFLTEN24;
  15359. property FLTEN25 : TBits_1 read getFLTEN25 write setFLTEN25;
  15360. property FLTEN26 : TBits_1 read getFLTEN26 write setFLTEN26;
  15361. property FLTEN27 : TBits_1 read getFLTEN27 write setFLTEN27;
  15362. property FSEL24 : TBits_5 read getFSEL24 write setFSEL24;
  15363. property FSEL25 : TBits_5 read getFSEL25 write setFSEL25;
  15364. property FSEL26 : TBits_5 read getFSEL26 write setFSEL26;
  15365. property FSEL27 : TBits_5 read getFSEL27 write setFSEL27;
  15366. property MSEL24 : TBits_2 read getMSEL24 write setMSEL24;
  15367. property MSEL25 : TBits_2 read getMSEL25 write setMSEL25;
  15368. property MSEL26 : TBits_2 read getMSEL26 write setMSEL26;
  15369. property MSEL27 : TBits_2 read getMSEL27 write setMSEL27;
  15370. property w : TBits_32 read getw write setw;
  15371. end;
  15372. TCAN1_C1FLTCON7 = record
  15373. private
  15374. function getFLTEN28 : TBits_1; inline;
  15375. function getFLTEN29 : TBits_1; inline;
  15376. function getFLTEN30 : TBits_1; inline;
  15377. function getFLTEN31 : TBits_1; inline;
  15378. function getFSEL28 : TBits_5; inline;
  15379. function getFSEL29 : TBits_5; inline;
  15380. function getFSEL30 : TBits_5; inline;
  15381. function getFSEL31 : TBits_5; inline;
  15382. function getMSEL28 : TBits_2; inline;
  15383. function getMSEL29 : TBits_2; inline;
  15384. function getMSEL30 : TBits_2; inline;
  15385. function getMSEL31 : TBits_2; inline;
  15386. function getw : TBits_32; inline;
  15387. procedure setFLTEN28(thebits : TBits_1); inline;
  15388. procedure setFLTEN29(thebits : TBits_1); inline;
  15389. procedure setFLTEN30(thebits : TBits_1); inline;
  15390. procedure setFLTEN31(thebits : TBits_1); inline;
  15391. procedure setFSEL28(thebits : TBits_5); inline;
  15392. procedure setFSEL29(thebits : TBits_5); inline;
  15393. procedure setFSEL30(thebits : TBits_5); inline;
  15394. procedure setFSEL31(thebits : TBits_5); inline;
  15395. procedure setMSEL28(thebits : TBits_2); inline;
  15396. procedure setMSEL29(thebits : TBits_2); inline;
  15397. procedure setMSEL30(thebits : TBits_2); inline;
  15398. procedure setMSEL31(thebits : TBits_2); inline;
  15399. procedure setw(thebits : TBits_32); inline;
  15400. public
  15401. procedure clearFLTEN28; inline;
  15402. procedure clearFLTEN29; inline;
  15403. procedure clearFLTEN30; inline;
  15404. procedure clearFLTEN31; inline;
  15405. procedure setFLTEN28; inline;
  15406. procedure setFLTEN29; inline;
  15407. procedure setFLTEN30; inline;
  15408. procedure setFLTEN31; inline;
  15409. property FLTEN28 : TBits_1 read getFLTEN28 write setFLTEN28;
  15410. property FLTEN29 : TBits_1 read getFLTEN29 write setFLTEN29;
  15411. property FLTEN30 : TBits_1 read getFLTEN30 write setFLTEN30;
  15412. property FLTEN31 : TBits_1 read getFLTEN31 write setFLTEN31;
  15413. property FSEL28 : TBits_5 read getFSEL28 write setFSEL28;
  15414. property FSEL29 : TBits_5 read getFSEL29 write setFSEL29;
  15415. property FSEL30 : TBits_5 read getFSEL30 write setFSEL30;
  15416. property FSEL31 : TBits_5 read getFSEL31 write setFSEL31;
  15417. property MSEL28 : TBits_2 read getMSEL28 write setMSEL28;
  15418. property MSEL29 : TBits_2 read getMSEL29 write setMSEL29;
  15419. property MSEL30 : TBits_2 read getMSEL30 write setMSEL30;
  15420. property MSEL31 : TBits_2 read getMSEL31 write setMSEL31;
  15421. property w : TBits_32 read getw write setw;
  15422. end;
  15423. TCAN1_C1RXF0 = record
  15424. private
  15425. function getEID : TBits_18; inline;
  15426. function getEXID : TBits_1; inline;
  15427. function getSID : TBits_11; inline;
  15428. function getw : TBits_32; inline;
  15429. procedure setEID(thebits : TBits_18); inline;
  15430. procedure setEXID(thebits : TBits_1); inline;
  15431. procedure setSID(thebits : TBits_11); inline;
  15432. procedure setw(thebits : TBits_32); inline;
  15433. public
  15434. procedure clearEXID; inline;
  15435. procedure setEXID; inline;
  15436. property EID : TBits_18 read getEID write setEID;
  15437. property EXID : TBits_1 read getEXID write setEXID;
  15438. property SID : TBits_11 read getSID write setSID;
  15439. property w : TBits_32 read getw write setw;
  15440. end;
  15441. TCAN1_C1RXF1 = record
  15442. private
  15443. function getEID : TBits_18; inline;
  15444. function getEXID : TBits_1; inline;
  15445. function getSID : TBits_11; inline;
  15446. function getw : TBits_32; inline;
  15447. procedure setEID(thebits : TBits_18); inline;
  15448. procedure setEXID(thebits : TBits_1); inline;
  15449. procedure setSID(thebits : TBits_11); inline;
  15450. procedure setw(thebits : TBits_32); inline;
  15451. public
  15452. procedure clearEXID; inline;
  15453. procedure setEXID; inline;
  15454. property EID : TBits_18 read getEID write setEID;
  15455. property EXID : TBits_1 read getEXID write setEXID;
  15456. property SID : TBits_11 read getSID write setSID;
  15457. property w : TBits_32 read getw write setw;
  15458. end;
  15459. TCAN1_C1RXF2 = record
  15460. private
  15461. function getEID : TBits_18; inline;
  15462. function getEXID : TBits_1; inline;
  15463. function getSID : TBits_11; inline;
  15464. function getw : TBits_32; inline;
  15465. procedure setEID(thebits : TBits_18); inline;
  15466. procedure setEXID(thebits : TBits_1); inline;
  15467. procedure setSID(thebits : TBits_11); inline;
  15468. procedure setw(thebits : TBits_32); inline;
  15469. public
  15470. procedure clearEXID; inline;
  15471. procedure setEXID; inline;
  15472. property EID : TBits_18 read getEID write setEID;
  15473. property EXID : TBits_1 read getEXID write setEXID;
  15474. property SID : TBits_11 read getSID write setSID;
  15475. property w : TBits_32 read getw write setw;
  15476. end;
  15477. TCAN1_C1RXF3 = record
  15478. private
  15479. function getEID : TBits_18; inline;
  15480. function getEXID : TBits_1; inline;
  15481. function getSID : TBits_11; inline;
  15482. function getw : TBits_32; inline;
  15483. procedure setEID(thebits : TBits_18); inline;
  15484. procedure setEXID(thebits : TBits_1); inline;
  15485. procedure setSID(thebits : TBits_11); inline;
  15486. procedure setw(thebits : TBits_32); inline;
  15487. public
  15488. procedure clearEXID; inline;
  15489. procedure setEXID; inline;
  15490. property EID : TBits_18 read getEID write setEID;
  15491. property EXID : TBits_1 read getEXID write setEXID;
  15492. property SID : TBits_11 read getSID write setSID;
  15493. property w : TBits_32 read getw write setw;
  15494. end;
  15495. TCAN1_C1RXF4 = record
  15496. private
  15497. function getEID : TBits_18; inline;
  15498. function getEXID : TBits_1; inline;
  15499. function getSID : TBits_11; inline;
  15500. function getw : TBits_32; inline;
  15501. procedure setEID(thebits : TBits_18); inline;
  15502. procedure setEXID(thebits : TBits_1); inline;
  15503. procedure setSID(thebits : TBits_11); inline;
  15504. procedure setw(thebits : TBits_32); inline;
  15505. public
  15506. procedure clearEXID; inline;
  15507. procedure setEXID; inline;
  15508. property EID : TBits_18 read getEID write setEID;
  15509. property EXID : TBits_1 read getEXID write setEXID;
  15510. property SID : TBits_11 read getSID write setSID;
  15511. property w : TBits_32 read getw write setw;
  15512. end;
  15513. TCAN1_C1RXF5 = record
  15514. private
  15515. function getEID : TBits_18; inline;
  15516. function getEXID : TBits_1; inline;
  15517. function getSID : TBits_11; inline;
  15518. function getw : TBits_32; inline;
  15519. procedure setEID(thebits : TBits_18); inline;
  15520. procedure setEXID(thebits : TBits_1); inline;
  15521. procedure setSID(thebits : TBits_11); inline;
  15522. procedure setw(thebits : TBits_32); inline;
  15523. public
  15524. procedure clearEXID; inline;
  15525. procedure setEXID; inline;
  15526. property EID : TBits_18 read getEID write setEID;
  15527. property EXID : TBits_1 read getEXID write setEXID;
  15528. property SID : TBits_11 read getSID write setSID;
  15529. property w : TBits_32 read getw write setw;
  15530. end;
  15531. TCAN1_C1RXF6 = record
  15532. private
  15533. function getEID : TBits_18; inline;
  15534. function getEXID : TBits_1; inline;
  15535. function getSID : TBits_11; inline;
  15536. function getw : TBits_32; inline;
  15537. procedure setEID(thebits : TBits_18); inline;
  15538. procedure setEXID(thebits : TBits_1); inline;
  15539. procedure setSID(thebits : TBits_11); inline;
  15540. procedure setw(thebits : TBits_32); inline;
  15541. public
  15542. procedure clearEXID; inline;
  15543. procedure setEXID; inline;
  15544. property EID : TBits_18 read getEID write setEID;
  15545. property EXID : TBits_1 read getEXID write setEXID;
  15546. property SID : TBits_11 read getSID write setSID;
  15547. property w : TBits_32 read getw write setw;
  15548. end;
  15549. TCAN1_C1RXF7 = record
  15550. private
  15551. function getEID : TBits_18; inline;
  15552. function getEXID : TBits_1; inline;
  15553. function getSID : TBits_11; inline;
  15554. function getw : TBits_32; inline;
  15555. procedure setEID(thebits : TBits_18); inline;
  15556. procedure setEXID(thebits : TBits_1); inline;
  15557. procedure setSID(thebits : TBits_11); inline;
  15558. procedure setw(thebits : TBits_32); inline;
  15559. public
  15560. procedure clearEXID; inline;
  15561. procedure setEXID; inline;
  15562. property EID : TBits_18 read getEID write setEID;
  15563. property EXID : TBits_1 read getEXID write setEXID;
  15564. property SID : TBits_11 read getSID write setSID;
  15565. property w : TBits_32 read getw write setw;
  15566. end;
  15567. TCAN1_C1RXF8 = record
  15568. private
  15569. function getEID : TBits_18; inline;
  15570. function getEXID : TBits_1; inline;
  15571. function getSID : TBits_11; inline;
  15572. function getw : TBits_32; inline;
  15573. procedure setEID(thebits : TBits_18); inline;
  15574. procedure setEXID(thebits : TBits_1); inline;
  15575. procedure setSID(thebits : TBits_11); inline;
  15576. procedure setw(thebits : TBits_32); inline;
  15577. public
  15578. procedure clearEXID; inline;
  15579. procedure setEXID; inline;
  15580. property EID : TBits_18 read getEID write setEID;
  15581. property EXID : TBits_1 read getEXID write setEXID;
  15582. property SID : TBits_11 read getSID write setSID;
  15583. property w : TBits_32 read getw write setw;
  15584. end;
  15585. TCAN1_C1RXF9 = record
  15586. private
  15587. function getEID : TBits_18; inline;
  15588. function getEXID : TBits_1; inline;
  15589. function getSID : TBits_11; inline;
  15590. function getw : TBits_32; inline;
  15591. procedure setEID(thebits : TBits_18); inline;
  15592. procedure setEXID(thebits : TBits_1); inline;
  15593. procedure setSID(thebits : TBits_11); inline;
  15594. procedure setw(thebits : TBits_32); inline;
  15595. public
  15596. procedure clearEXID; inline;
  15597. procedure setEXID; inline;
  15598. property EID : TBits_18 read getEID write setEID;
  15599. property EXID : TBits_1 read getEXID write setEXID;
  15600. property SID : TBits_11 read getSID write setSID;
  15601. property w : TBits_32 read getw write setw;
  15602. end;
  15603. TCAN1_C1RXF10 = record
  15604. private
  15605. function getEID : TBits_18; inline;
  15606. function getEXID : TBits_1; inline;
  15607. function getSID : TBits_11; inline;
  15608. function getw : TBits_32; inline;
  15609. procedure setEID(thebits : TBits_18); inline;
  15610. procedure setEXID(thebits : TBits_1); inline;
  15611. procedure setSID(thebits : TBits_11); inline;
  15612. procedure setw(thebits : TBits_32); inline;
  15613. public
  15614. procedure clearEXID; inline;
  15615. procedure setEXID; inline;
  15616. property EID : TBits_18 read getEID write setEID;
  15617. property EXID : TBits_1 read getEXID write setEXID;
  15618. property SID : TBits_11 read getSID write setSID;
  15619. property w : TBits_32 read getw write setw;
  15620. end;
  15621. TCAN1_C1RXF11 = record
  15622. private
  15623. function getEID : TBits_18; inline;
  15624. function getEXID : TBits_1; inline;
  15625. function getSID : TBits_11; inline;
  15626. function getw : TBits_32; inline;
  15627. procedure setEID(thebits : TBits_18); inline;
  15628. procedure setEXID(thebits : TBits_1); inline;
  15629. procedure setSID(thebits : TBits_11); inline;
  15630. procedure setw(thebits : TBits_32); inline;
  15631. public
  15632. procedure clearEXID; inline;
  15633. procedure setEXID; inline;
  15634. property EID : TBits_18 read getEID write setEID;
  15635. property EXID : TBits_1 read getEXID write setEXID;
  15636. property SID : TBits_11 read getSID write setSID;
  15637. property w : TBits_32 read getw write setw;
  15638. end;
  15639. TCAN1_C1RXF12 = record
  15640. private
  15641. function getEID : TBits_18; inline;
  15642. function getEXID : TBits_1; inline;
  15643. function getSID : TBits_11; inline;
  15644. function getw : TBits_32; inline;
  15645. procedure setEID(thebits : TBits_18); inline;
  15646. procedure setEXID(thebits : TBits_1); inline;
  15647. procedure setSID(thebits : TBits_11); inline;
  15648. procedure setw(thebits : TBits_32); inline;
  15649. public
  15650. procedure clearEXID; inline;
  15651. procedure setEXID; inline;
  15652. property EID : TBits_18 read getEID write setEID;
  15653. property EXID : TBits_1 read getEXID write setEXID;
  15654. property SID : TBits_11 read getSID write setSID;
  15655. property w : TBits_32 read getw write setw;
  15656. end;
  15657. TCAN1_C1RXF13 = record
  15658. private
  15659. function getEID : TBits_18; inline;
  15660. function getEXID : TBits_1; inline;
  15661. function getSID : TBits_11; inline;
  15662. function getw : TBits_32; inline;
  15663. procedure setEID(thebits : TBits_18); inline;
  15664. procedure setEXID(thebits : TBits_1); inline;
  15665. procedure setSID(thebits : TBits_11); inline;
  15666. procedure setw(thebits : TBits_32); inline;
  15667. public
  15668. procedure clearEXID; inline;
  15669. procedure setEXID; inline;
  15670. property EID : TBits_18 read getEID write setEID;
  15671. property EXID : TBits_1 read getEXID write setEXID;
  15672. property SID : TBits_11 read getSID write setSID;
  15673. property w : TBits_32 read getw write setw;
  15674. end;
  15675. TCAN1_C1RXF14 = record
  15676. private
  15677. function getEID : TBits_18; inline;
  15678. function getEXID : TBits_1; inline;
  15679. function getSID : TBits_11; inline;
  15680. function getw : TBits_32; inline;
  15681. procedure setEID(thebits : TBits_18); inline;
  15682. procedure setEXID(thebits : TBits_1); inline;
  15683. procedure setSID(thebits : TBits_11); inline;
  15684. procedure setw(thebits : TBits_32); inline;
  15685. public
  15686. procedure clearEXID; inline;
  15687. procedure setEXID; inline;
  15688. property EID : TBits_18 read getEID write setEID;
  15689. property EXID : TBits_1 read getEXID write setEXID;
  15690. property SID : TBits_11 read getSID write setSID;
  15691. property w : TBits_32 read getw write setw;
  15692. end;
  15693. TCAN1_C1RXF15 = record
  15694. private
  15695. function getEID : TBits_18; inline;
  15696. function getEXID : TBits_1; inline;
  15697. function getSID : TBits_11; inline;
  15698. function getw : TBits_32; inline;
  15699. procedure setEID(thebits : TBits_18); inline;
  15700. procedure setEXID(thebits : TBits_1); inline;
  15701. procedure setSID(thebits : TBits_11); inline;
  15702. procedure setw(thebits : TBits_32); inline;
  15703. public
  15704. procedure clearEXID; inline;
  15705. procedure setEXID; inline;
  15706. property EID : TBits_18 read getEID write setEID;
  15707. property EXID : TBits_1 read getEXID write setEXID;
  15708. property SID : TBits_11 read getSID write setSID;
  15709. property w : TBits_32 read getw write setw;
  15710. end;
  15711. TCAN1_C1RXF16 = record
  15712. private
  15713. function getEID : TBits_18; inline;
  15714. function getEXID : TBits_1; inline;
  15715. function getSID : TBits_11; inline;
  15716. function getw : TBits_32; inline;
  15717. procedure setEID(thebits : TBits_18); inline;
  15718. procedure setEXID(thebits : TBits_1); inline;
  15719. procedure setSID(thebits : TBits_11); inline;
  15720. procedure setw(thebits : TBits_32); inline;
  15721. public
  15722. procedure clearEXID; inline;
  15723. procedure setEXID; inline;
  15724. property EID : TBits_18 read getEID write setEID;
  15725. property EXID : TBits_1 read getEXID write setEXID;
  15726. property SID : TBits_11 read getSID write setSID;
  15727. property w : TBits_32 read getw write setw;
  15728. end;
  15729. TCAN1_C1RXF17 = record
  15730. private
  15731. function getEID : TBits_18; inline;
  15732. function getEXID : TBits_1; inline;
  15733. function getSID : TBits_11; inline;
  15734. function getw : TBits_32; inline;
  15735. procedure setEID(thebits : TBits_18); inline;
  15736. procedure setEXID(thebits : TBits_1); inline;
  15737. procedure setSID(thebits : TBits_11); inline;
  15738. procedure setw(thebits : TBits_32); inline;
  15739. public
  15740. procedure clearEXID; inline;
  15741. procedure setEXID; inline;
  15742. property EID : TBits_18 read getEID write setEID;
  15743. property EXID : TBits_1 read getEXID write setEXID;
  15744. property SID : TBits_11 read getSID write setSID;
  15745. property w : TBits_32 read getw write setw;
  15746. end;
  15747. TCAN1_C1RXF18 = record
  15748. private
  15749. function getEID : TBits_18; inline;
  15750. function getEXID : TBits_1; inline;
  15751. function getSID : TBits_11; inline;
  15752. function getw : TBits_32; inline;
  15753. procedure setEID(thebits : TBits_18); inline;
  15754. procedure setEXID(thebits : TBits_1); inline;
  15755. procedure setSID(thebits : TBits_11); inline;
  15756. procedure setw(thebits : TBits_32); inline;
  15757. public
  15758. procedure clearEXID; inline;
  15759. procedure setEXID; inline;
  15760. property EID : TBits_18 read getEID write setEID;
  15761. property EXID : TBits_1 read getEXID write setEXID;
  15762. property SID : TBits_11 read getSID write setSID;
  15763. property w : TBits_32 read getw write setw;
  15764. end;
  15765. TCAN1_C1RXF19 = record
  15766. private
  15767. function getEID : TBits_18; inline;
  15768. function getEXID : TBits_1; inline;
  15769. function getSID : TBits_11; inline;
  15770. function getw : TBits_32; inline;
  15771. procedure setEID(thebits : TBits_18); inline;
  15772. procedure setEXID(thebits : TBits_1); inline;
  15773. procedure setSID(thebits : TBits_11); inline;
  15774. procedure setw(thebits : TBits_32); inline;
  15775. public
  15776. procedure clearEXID; inline;
  15777. procedure setEXID; inline;
  15778. property EID : TBits_18 read getEID write setEID;
  15779. property EXID : TBits_1 read getEXID write setEXID;
  15780. property SID : TBits_11 read getSID write setSID;
  15781. property w : TBits_32 read getw write setw;
  15782. end;
  15783. TCAN1_C1RXF20 = record
  15784. private
  15785. function getEID : TBits_18; inline;
  15786. function getEXID : TBits_1; inline;
  15787. function getSID : TBits_11; inline;
  15788. function getw : TBits_32; inline;
  15789. procedure setEID(thebits : TBits_18); inline;
  15790. procedure setEXID(thebits : TBits_1); inline;
  15791. procedure setSID(thebits : TBits_11); inline;
  15792. procedure setw(thebits : TBits_32); inline;
  15793. public
  15794. procedure clearEXID; inline;
  15795. procedure setEXID; inline;
  15796. property EID : TBits_18 read getEID write setEID;
  15797. property EXID : TBits_1 read getEXID write setEXID;
  15798. property SID : TBits_11 read getSID write setSID;
  15799. property w : TBits_32 read getw write setw;
  15800. end;
  15801. TCAN1_C1RXF21 = record
  15802. private
  15803. function getEID : TBits_18; inline;
  15804. function getEXID : TBits_1; inline;
  15805. function getSID : TBits_11; inline;
  15806. function getw : TBits_32; inline;
  15807. procedure setEID(thebits : TBits_18); inline;
  15808. procedure setEXID(thebits : TBits_1); inline;
  15809. procedure setSID(thebits : TBits_11); inline;
  15810. procedure setw(thebits : TBits_32); inline;
  15811. public
  15812. procedure clearEXID; inline;
  15813. procedure setEXID; inline;
  15814. property EID : TBits_18 read getEID write setEID;
  15815. property EXID : TBits_1 read getEXID write setEXID;
  15816. property SID : TBits_11 read getSID write setSID;
  15817. property w : TBits_32 read getw write setw;
  15818. end;
  15819. TCAN1_C1RXF22 = record
  15820. private
  15821. function getEID : TBits_18; inline;
  15822. function getEXID : TBits_1; inline;
  15823. function getSID : TBits_11; inline;
  15824. function getw : TBits_32; inline;
  15825. procedure setEID(thebits : TBits_18); inline;
  15826. procedure setEXID(thebits : TBits_1); inline;
  15827. procedure setSID(thebits : TBits_11); inline;
  15828. procedure setw(thebits : TBits_32); inline;
  15829. public
  15830. procedure clearEXID; inline;
  15831. procedure setEXID; inline;
  15832. property EID : TBits_18 read getEID write setEID;
  15833. property EXID : TBits_1 read getEXID write setEXID;
  15834. property SID : TBits_11 read getSID write setSID;
  15835. property w : TBits_32 read getw write setw;
  15836. end;
  15837. TCAN1_C1RXF23 = record
  15838. private
  15839. function getEID : TBits_18; inline;
  15840. function getEXID : TBits_1; inline;
  15841. function getSID : TBits_11; inline;
  15842. function getw : TBits_32; inline;
  15843. procedure setEID(thebits : TBits_18); inline;
  15844. procedure setEXID(thebits : TBits_1); inline;
  15845. procedure setSID(thebits : TBits_11); inline;
  15846. procedure setw(thebits : TBits_32); inline;
  15847. public
  15848. procedure clearEXID; inline;
  15849. procedure setEXID; inline;
  15850. property EID : TBits_18 read getEID write setEID;
  15851. property EXID : TBits_1 read getEXID write setEXID;
  15852. property SID : TBits_11 read getSID write setSID;
  15853. property w : TBits_32 read getw write setw;
  15854. end;
  15855. TCAN1_C1RXF24 = record
  15856. private
  15857. function getEID : TBits_18; inline;
  15858. function getEXID : TBits_1; inline;
  15859. function getSID : TBits_11; inline;
  15860. function getw : TBits_32; inline;
  15861. procedure setEID(thebits : TBits_18); inline;
  15862. procedure setEXID(thebits : TBits_1); inline;
  15863. procedure setSID(thebits : TBits_11); inline;
  15864. procedure setw(thebits : TBits_32); inline;
  15865. public
  15866. procedure clearEXID; inline;
  15867. procedure setEXID; inline;
  15868. property EID : TBits_18 read getEID write setEID;
  15869. property EXID : TBits_1 read getEXID write setEXID;
  15870. property SID : TBits_11 read getSID write setSID;
  15871. property w : TBits_32 read getw write setw;
  15872. end;
  15873. TCAN1_C1RXF25 = record
  15874. private
  15875. function getEID : TBits_18; inline;
  15876. function getEXID : TBits_1; inline;
  15877. function getSID : TBits_11; inline;
  15878. function getw : TBits_32; inline;
  15879. procedure setEID(thebits : TBits_18); inline;
  15880. procedure setEXID(thebits : TBits_1); inline;
  15881. procedure setSID(thebits : TBits_11); inline;
  15882. procedure setw(thebits : TBits_32); inline;
  15883. public
  15884. procedure clearEXID; inline;
  15885. procedure setEXID; inline;
  15886. property EID : TBits_18 read getEID write setEID;
  15887. property EXID : TBits_1 read getEXID write setEXID;
  15888. property SID : TBits_11 read getSID write setSID;
  15889. property w : TBits_32 read getw write setw;
  15890. end;
  15891. TCAN1_C1RXF26 = record
  15892. private
  15893. function getEID : TBits_18; inline;
  15894. function getEXID : TBits_1; inline;
  15895. function getSID : TBits_11; inline;
  15896. function getw : TBits_32; inline;
  15897. procedure setEID(thebits : TBits_18); inline;
  15898. procedure setEXID(thebits : TBits_1); inline;
  15899. procedure setSID(thebits : TBits_11); inline;
  15900. procedure setw(thebits : TBits_32); inline;
  15901. public
  15902. procedure clearEXID; inline;
  15903. procedure setEXID; inline;
  15904. property EID : TBits_18 read getEID write setEID;
  15905. property EXID : TBits_1 read getEXID write setEXID;
  15906. property SID : TBits_11 read getSID write setSID;
  15907. property w : TBits_32 read getw write setw;
  15908. end;
  15909. TCAN1_C1RXF27 = record
  15910. private
  15911. function getEID : TBits_18; inline;
  15912. function getEXID : TBits_1; inline;
  15913. function getSID : TBits_11; inline;
  15914. function getw : TBits_32; inline;
  15915. procedure setEID(thebits : TBits_18); inline;
  15916. procedure setEXID(thebits : TBits_1); inline;
  15917. procedure setSID(thebits : TBits_11); inline;
  15918. procedure setw(thebits : TBits_32); inline;
  15919. public
  15920. procedure clearEXID; inline;
  15921. procedure setEXID; inline;
  15922. property EID : TBits_18 read getEID write setEID;
  15923. property EXID : TBits_1 read getEXID write setEXID;
  15924. property SID : TBits_11 read getSID write setSID;
  15925. property w : TBits_32 read getw write setw;
  15926. end;
  15927. TCAN1_C1RXF28 = record
  15928. private
  15929. function getEID : TBits_18; inline;
  15930. function getEXID : TBits_1; inline;
  15931. function getSID : TBits_11; inline;
  15932. function getw : TBits_32; inline;
  15933. procedure setEID(thebits : TBits_18); inline;
  15934. procedure setEXID(thebits : TBits_1); inline;
  15935. procedure setSID(thebits : TBits_11); inline;
  15936. procedure setw(thebits : TBits_32); inline;
  15937. public
  15938. procedure clearEXID; inline;
  15939. procedure setEXID; inline;
  15940. property EID : TBits_18 read getEID write setEID;
  15941. property EXID : TBits_1 read getEXID write setEXID;
  15942. property SID : TBits_11 read getSID write setSID;
  15943. property w : TBits_32 read getw write setw;
  15944. end;
  15945. TCAN1_C1RXF29 = record
  15946. private
  15947. function getEID : TBits_18; inline;
  15948. function getEXID : TBits_1; inline;
  15949. function getSID : TBits_11; inline;
  15950. function getw : TBits_32; inline;
  15951. procedure setEID(thebits : TBits_18); inline;
  15952. procedure setEXID(thebits : TBits_1); inline;
  15953. procedure setSID(thebits : TBits_11); inline;
  15954. procedure setw(thebits : TBits_32); inline;
  15955. public
  15956. procedure clearEXID; inline;
  15957. procedure setEXID; inline;
  15958. property EID : TBits_18 read getEID write setEID;
  15959. property EXID : TBits_1 read getEXID write setEXID;
  15960. property SID : TBits_11 read getSID write setSID;
  15961. property w : TBits_32 read getw write setw;
  15962. end;
  15963. TCAN1_C1RXF30 = record
  15964. private
  15965. function getEID : TBits_18; inline;
  15966. function getEXID : TBits_1; inline;
  15967. function getSID : TBits_11; inline;
  15968. function getw : TBits_32; inline;
  15969. procedure setEID(thebits : TBits_18); inline;
  15970. procedure setEXID(thebits : TBits_1); inline;
  15971. procedure setSID(thebits : TBits_11); inline;
  15972. procedure setw(thebits : TBits_32); inline;
  15973. public
  15974. procedure clearEXID; inline;
  15975. procedure setEXID; inline;
  15976. property EID : TBits_18 read getEID write setEID;
  15977. property EXID : TBits_1 read getEXID write setEXID;
  15978. property SID : TBits_11 read getSID write setSID;
  15979. property w : TBits_32 read getw write setw;
  15980. end;
  15981. TCAN1_C1RXF31 = record
  15982. private
  15983. function getEID : TBits_18; inline;
  15984. function getEXID : TBits_1; inline;
  15985. function getSID : TBits_11; inline;
  15986. function getw : TBits_32; inline;
  15987. procedure setEID(thebits : TBits_18); inline;
  15988. procedure setEXID(thebits : TBits_1); inline;
  15989. procedure setSID(thebits : TBits_11); inline;
  15990. procedure setw(thebits : TBits_32); inline;
  15991. public
  15992. procedure clearEXID; inline;
  15993. procedure setEXID; inline;
  15994. property EID : TBits_18 read getEID write setEID;
  15995. property EXID : TBits_1 read getEXID write setEXID;
  15996. property SID : TBits_11 read getSID write setSID;
  15997. property w : TBits_32 read getw write setw;
  15998. end;
  15999. TCAN1_C1FIFOCON0 = record
  16000. private
  16001. function getDONLY : TBits_1; inline;
  16002. function getFRESET : TBits_1; inline;
  16003. function getFSIZE : TBits_5; inline;
  16004. function getRTREN : TBits_1; inline;
  16005. function getTXABAT : TBits_1; inline;
  16006. function getTXEN : TBits_1; inline;
  16007. function getTXERR : TBits_1; inline;
  16008. function getTXLARB : TBits_1; inline;
  16009. function getTXPRI : TBits_2; inline;
  16010. function getTXREQ : TBits_1; inline;
  16011. function getUINC : TBits_1; inline;
  16012. function getw : TBits_32; inline;
  16013. procedure setDONLY(thebits : TBits_1); inline;
  16014. procedure setFRESET(thebits : TBits_1); inline;
  16015. procedure setFSIZE(thebits : TBits_5); inline;
  16016. procedure setRTREN(thebits : TBits_1); inline;
  16017. procedure setTXABAT(thebits : TBits_1); inline;
  16018. procedure setTXEN(thebits : TBits_1); inline;
  16019. procedure setTXERR(thebits : TBits_1); inline;
  16020. procedure setTXLARB(thebits : TBits_1); inline;
  16021. procedure setTXPRI(thebits : TBits_2); inline;
  16022. procedure setTXREQ(thebits : TBits_1); inline;
  16023. procedure setUINC(thebits : TBits_1); inline;
  16024. procedure setw(thebits : TBits_32); inline;
  16025. public
  16026. procedure clearDONLY; inline;
  16027. procedure clearFRESET; inline;
  16028. procedure clearRTREN; inline;
  16029. procedure clearTXABAT; inline;
  16030. procedure clearTXEN; inline;
  16031. procedure clearTXERR; inline;
  16032. procedure clearTXLARB; inline;
  16033. procedure clearTXREQ; inline;
  16034. procedure clearUINC; inline;
  16035. procedure setDONLY; inline;
  16036. procedure setFRESET; inline;
  16037. procedure setRTREN; inline;
  16038. procedure setTXABAT; inline;
  16039. procedure setTXEN; inline;
  16040. procedure setTXERR; inline;
  16041. procedure setTXLARB; inline;
  16042. procedure setTXREQ; inline;
  16043. procedure setUINC; inline;
  16044. property DONLY : TBits_1 read getDONLY write setDONLY;
  16045. property FRESET : TBits_1 read getFRESET write setFRESET;
  16046. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16047. property RTREN : TBits_1 read getRTREN write setRTREN;
  16048. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16049. property TXEN : TBits_1 read getTXEN write setTXEN;
  16050. property TXERR : TBits_1 read getTXERR write setTXERR;
  16051. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16052. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16053. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16054. property UINC : TBits_1 read getUINC write setUINC;
  16055. property w : TBits_32 read getw write setw;
  16056. end;
  16057. TCAN1_C1FIFOINT0 = record
  16058. private
  16059. function getRXFULLIE : TBits_1; inline;
  16060. function getRXFULLIF : TBits_1; inline;
  16061. function getRXHALFIE : TBits_1; inline;
  16062. function getRXHALFIF : TBits_1; inline;
  16063. function getRXNEMPTYIE : TBits_1; inline;
  16064. function getRXNEMPTYIF : TBits_1; inline;
  16065. function getRXOVFLIE : TBits_1; inline;
  16066. function getRXOVFLIF : TBits_1; inline;
  16067. function getTXEMPTYIE : TBits_1; inline;
  16068. function getTXEMPTYIF : TBits_1; inline;
  16069. function getTXHALFIE : TBits_1; inline;
  16070. function getTXHALFIF : TBits_1; inline;
  16071. function getTXNFULLIE : TBits_1; inline;
  16072. function getTXNFULLIF : TBits_1; inline;
  16073. function getw : TBits_32; inline;
  16074. procedure setRXFULLIE(thebits : TBits_1); inline;
  16075. procedure setRXFULLIF(thebits : TBits_1); inline;
  16076. procedure setRXHALFIE(thebits : TBits_1); inline;
  16077. procedure setRXHALFIF(thebits : TBits_1); inline;
  16078. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16079. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16080. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16081. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16082. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16083. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16084. procedure setTXHALFIE(thebits : TBits_1); inline;
  16085. procedure setTXHALFIF(thebits : TBits_1); inline;
  16086. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16087. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16088. procedure setw(thebits : TBits_32); inline;
  16089. public
  16090. procedure clearRXFULLIE; inline;
  16091. procedure clearRXFULLIF; inline;
  16092. procedure clearRXHALFIE; inline;
  16093. procedure clearRXHALFIF; inline;
  16094. procedure clearRXNEMPTYIE; inline;
  16095. procedure clearRXNEMPTYIF; inline;
  16096. procedure clearRXOVFLIE; inline;
  16097. procedure clearRXOVFLIF; inline;
  16098. procedure clearTXEMPTYIE; inline;
  16099. procedure clearTXEMPTYIF; inline;
  16100. procedure clearTXHALFIE; inline;
  16101. procedure clearTXHALFIF; inline;
  16102. procedure clearTXNFULLIE; inline;
  16103. procedure clearTXNFULLIF; inline;
  16104. procedure setRXFULLIE; inline;
  16105. procedure setRXFULLIF; inline;
  16106. procedure setRXHALFIE; inline;
  16107. procedure setRXHALFIF; inline;
  16108. procedure setRXNEMPTYIE; inline;
  16109. procedure setRXNEMPTYIF; inline;
  16110. procedure setRXOVFLIE; inline;
  16111. procedure setRXOVFLIF; inline;
  16112. procedure setTXEMPTYIE; inline;
  16113. procedure setTXEMPTYIF; inline;
  16114. procedure setTXHALFIE; inline;
  16115. procedure setTXHALFIF; inline;
  16116. procedure setTXNFULLIE; inline;
  16117. procedure setTXNFULLIF; inline;
  16118. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16119. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16120. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16121. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16122. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16123. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16124. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16125. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16126. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16127. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16128. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16129. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  16130. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  16131. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  16132. property w : TBits_32 read getw write setw;
  16133. end;
  16134. TCAN1_C1FIFOCI0 = record
  16135. private
  16136. function getCFIFOCI : TBits_5; inline;
  16137. function getw : TBits_32; inline;
  16138. procedure setCFIFOCI(thebits : TBits_5); inline;
  16139. procedure setw(thebits : TBits_32); inline;
  16140. public
  16141. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  16142. property w : TBits_32 read getw write setw;
  16143. end;
  16144. TCAN1_C1FIFOCON1 = record
  16145. private
  16146. function getDONLY : TBits_1; inline;
  16147. function getFRESET : TBits_1; inline;
  16148. function getFSIZE : TBits_5; inline;
  16149. function getRTREN : TBits_1; inline;
  16150. function getTXABAT : TBits_1; inline;
  16151. function getTXEN : TBits_1; inline;
  16152. function getTXERR : TBits_1; inline;
  16153. function getTXLARB : TBits_1; inline;
  16154. function getTXPRI : TBits_2; inline;
  16155. function getTXREQ : TBits_1; inline;
  16156. function getUINC : TBits_1; inline;
  16157. function getw : TBits_32; inline;
  16158. procedure setDONLY(thebits : TBits_1); inline;
  16159. procedure setFRESET(thebits : TBits_1); inline;
  16160. procedure setFSIZE(thebits : TBits_5); inline;
  16161. procedure setRTREN(thebits : TBits_1); inline;
  16162. procedure setTXABAT(thebits : TBits_1); inline;
  16163. procedure setTXEN(thebits : TBits_1); inline;
  16164. procedure setTXERR(thebits : TBits_1); inline;
  16165. procedure setTXLARB(thebits : TBits_1); inline;
  16166. procedure setTXPRI(thebits : TBits_2); inline;
  16167. procedure setTXREQ(thebits : TBits_1); inline;
  16168. procedure setUINC(thebits : TBits_1); inline;
  16169. procedure setw(thebits : TBits_32); inline;
  16170. public
  16171. procedure clearDONLY; inline;
  16172. procedure clearFRESET; inline;
  16173. procedure clearRTREN; inline;
  16174. procedure clearTXABAT; inline;
  16175. procedure clearTXEN; inline;
  16176. procedure clearTXERR; inline;
  16177. procedure clearTXLARB; inline;
  16178. procedure clearTXREQ; inline;
  16179. procedure clearUINC; inline;
  16180. procedure setDONLY; inline;
  16181. procedure setFRESET; inline;
  16182. procedure setRTREN; inline;
  16183. procedure setTXABAT; inline;
  16184. procedure setTXEN; inline;
  16185. procedure setTXERR; inline;
  16186. procedure setTXLARB; inline;
  16187. procedure setTXREQ; inline;
  16188. procedure setUINC; inline;
  16189. property DONLY : TBits_1 read getDONLY write setDONLY;
  16190. property FRESET : TBits_1 read getFRESET write setFRESET;
  16191. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16192. property RTREN : TBits_1 read getRTREN write setRTREN;
  16193. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16194. property TXEN : TBits_1 read getTXEN write setTXEN;
  16195. property TXERR : TBits_1 read getTXERR write setTXERR;
  16196. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16197. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16198. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16199. property UINC : TBits_1 read getUINC write setUINC;
  16200. property w : TBits_32 read getw write setw;
  16201. end;
  16202. TCAN1_C1FIFOINT1 = record
  16203. private
  16204. function getRXFULLIE : TBits_1; inline;
  16205. function getRXFULLIF : TBits_1; inline;
  16206. function getRXHALFIE : TBits_1; inline;
  16207. function getRXHALFIF : TBits_1; inline;
  16208. function getRXNEMPTYIE : TBits_1; inline;
  16209. function getRXNEMPTYIF : TBits_1; inline;
  16210. function getRXOVFLIE : TBits_1; inline;
  16211. function getRXOVFLIF : TBits_1; inline;
  16212. function getTXEMPTYIE : TBits_1; inline;
  16213. function getTXEMPTYIF : TBits_1; inline;
  16214. function getTXHALFIE : TBits_1; inline;
  16215. function getTXHALFIF : TBits_1; inline;
  16216. function getTXNFULLIE : TBits_1; inline;
  16217. function getTXNFULLIF : TBits_1; inline;
  16218. function getw : TBits_32; inline;
  16219. procedure setRXFULLIE(thebits : TBits_1); inline;
  16220. procedure setRXFULLIF(thebits : TBits_1); inline;
  16221. procedure setRXHALFIE(thebits : TBits_1); inline;
  16222. procedure setRXHALFIF(thebits : TBits_1); inline;
  16223. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16224. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16225. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16226. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16227. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16228. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16229. procedure setTXHALFIE(thebits : TBits_1); inline;
  16230. procedure setTXHALFIF(thebits : TBits_1); inline;
  16231. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16232. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16233. procedure setw(thebits : TBits_32); inline;
  16234. public
  16235. procedure clearRXFULLIE; inline;
  16236. procedure clearRXFULLIF; inline;
  16237. procedure clearRXHALFIE; inline;
  16238. procedure clearRXHALFIF; inline;
  16239. procedure clearRXNEMPTYIE; inline;
  16240. procedure clearRXNEMPTYIF; inline;
  16241. procedure clearRXOVFLIE; inline;
  16242. procedure clearRXOVFLIF; inline;
  16243. procedure clearTXEMPTYIE; inline;
  16244. procedure clearTXEMPTYIF; inline;
  16245. procedure clearTXHALFIE; inline;
  16246. procedure clearTXHALFIF; inline;
  16247. procedure clearTXNFULLIE; inline;
  16248. procedure clearTXNFULLIF; inline;
  16249. procedure setRXFULLIE; inline;
  16250. procedure setRXFULLIF; inline;
  16251. procedure setRXHALFIE; inline;
  16252. procedure setRXHALFIF; inline;
  16253. procedure setRXNEMPTYIE; inline;
  16254. procedure setRXNEMPTYIF; inline;
  16255. procedure setRXOVFLIE; inline;
  16256. procedure setRXOVFLIF; inline;
  16257. procedure setTXEMPTYIE; inline;
  16258. procedure setTXEMPTYIF; inline;
  16259. procedure setTXHALFIE; inline;
  16260. procedure setTXHALFIF; inline;
  16261. procedure setTXNFULLIE; inline;
  16262. procedure setTXNFULLIF; inline;
  16263. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16264. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16265. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16266. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16267. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16268. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16269. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16270. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16271. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16272. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16273. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16274. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  16275. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  16276. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  16277. property w : TBits_32 read getw write setw;
  16278. end;
  16279. TCAN1_C1FIFOCI1 = record
  16280. private
  16281. function getCFIFOCI : TBits_5; inline;
  16282. function getw : TBits_32; inline;
  16283. procedure setCFIFOCI(thebits : TBits_5); inline;
  16284. procedure setw(thebits : TBits_32); inline;
  16285. public
  16286. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  16287. property w : TBits_32 read getw write setw;
  16288. end;
  16289. TCAN1_C1FIFOCON2 = record
  16290. private
  16291. function getDONLY : TBits_1; inline;
  16292. function getFRESET : TBits_1; inline;
  16293. function getFSIZE : TBits_5; inline;
  16294. function getRTREN : TBits_1; inline;
  16295. function getTXABAT : TBits_1; inline;
  16296. function getTXEN : TBits_1; inline;
  16297. function getTXERR : TBits_1; inline;
  16298. function getTXLARB : TBits_1; inline;
  16299. function getTXPRI : TBits_2; inline;
  16300. function getTXREQ : TBits_1; inline;
  16301. function getUINC : TBits_1; inline;
  16302. function getw : TBits_32; inline;
  16303. procedure setDONLY(thebits : TBits_1); inline;
  16304. procedure setFRESET(thebits : TBits_1); inline;
  16305. procedure setFSIZE(thebits : TBits_5); inline;
  16306. procedure setRTREN(thebits : TBits_1); inline;
  16307. procedure setTXABAT(thebits : TBits_1); inline;
  16308. procedure setTXEN(thebits : TBits_1); inline;
  16309. procedure setTXERR(thebits : TBits_1); inline;
  16310. procedure setTXLARB(thebits : TBits_1); inline;
  16311. procedure setTXPRI(thebits : TBits_2); inline;
  16312. procedure setTXREQ(thebits : TBits_1); inline;
  16313. procedure setUINC(thebits : TBits_1); inline;
  16314. procedure setw(thebits : TBits_32); inline;
  16315. public
  16316. procedure clearDONLY; inline;
  16317. procedure clearFRESET; inline;
  16318. procedure clearRTREN; inline;
  16319. procedure clearTXABAT; inline;
  16320. procedure clearTXEN; inline;
  16321. procedure clearTXERR; inline;
  16322. procedure clearTXLARB; inline;
  16323. procedure clearTXREQ; inline;
  16324. procedure clearUINC; inline;
  16325. procedure setDONLY; inline;
  16326. procedure setFRESET; inline;
  16327. procedure setRTREN; inline;
  16328. procedure setTXABAT; inline;
  16329. procedure setTXEN; inline;
  16330. procedure setTXERR; inline;
  16331. procedure setTXLARB; inline;
  16332. procedure setTXREQ; inline;
  16333. procedure setUINC; inline;
  16334. property DONLY : TBits_1 read getDONLY write setDONLY;
  16335. property FRESET : TBits_1 read getFRESET write setFRESET;
  16336. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16337. property RTREN : TBits_1 read getRTREN write setRTREN;
  16338. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16339. property TXEN : TBits_1 read getTXEN write setTXEN;
  16340. property TXERR : TBits_1 read getTXERR write setTXERR;
  16341. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16342. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16343. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16344. property UINC : TBits_1 read getUINC write setUINC;
  16345. property w : TBits_32 read getw write setw;
  16346. end;
  16347. TCAN1_C1FIFOINT2 = record
  16348. private
  16349. function getRXFULLIE : TBits_1; inline;
  16350. function getRXFULLIF : TBits_1; inline;
  16351. function getRXHALFIE : TBits_1; inline;
  16352. function getRXHALFIF : TBits_1; inline;
  16353. function getRXNEMPTYIE : TBits_1; inline;
  16354. function getRXNEMPTYIF : TBits_1; inline;
  16355. function getRXOVFLIE : TBits_1; inline;
  16356. function getRXOVFLIF : TBits_1; inline;
  16357. function getTXEMPTYIE : TBits_1; inline;
  16358. function getTXEMPTYIF : TBits_1; inline;
  16359. function getTXHALFIE : TBits_1; inline;
  16360. function getTXHALFIF : TBits_1; inline;
  16361. function getTXNFULLIE : TBits_1; inline;
  16362. function getTXNFULLIF : TBits_1; inline;
  16363. function getw : TBits_32; inline;
  16364. procedure setRXFULLIE(thebits : TBits_1); inline;
  16365. procedure setRXFULLIF(thebits : TBits_1); inline;
  16366. procedure setRXHALFIE(thebits : TBits_1); inline;
  16367. procedure setRXHALFIF(thebits : TBits_1); inline;
  16368. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16369. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16370. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16371. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16372. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16373. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16374. procedure setTXHALFIE(thebits : TBits_1); inline;
  16375. procedure setTXHALFIF(thebits : TBits_1); inline;
  16376. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16377. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16378. procedure setw(thebits : TBits_32); inline;
  16379. public
  16380. procedure clearRXFULLIE; inline;
  16381. procedure clearRXFULLIF; inline;
  16382. procedure clearRXHALFIE; inline;
  16383. procedure clearRXHALFIF; inline;
  16384. procedure clearRXNEMPTYIE; inline;
  16385. procedure clearRXNEMPTYIF; inline;
  16386. procedure clearRXOVFLIE; inline;
  16387. procedure clearRXOVFLIF; inline;
  16388. procedure clearTXEMPTYIE; inline;
  16389. procedure clearTXEMPTYIF; inline;
  16390. procedure clearTXHALFIE; inline;
  16391. procedure clearTXHALFIF; inline;
  16392. procedure clearTXNFULLIE; inline;
  16393. procedure clearTXNFULLIF; inline;
  16394. procedure setRXFULLIE; inline;
  16395. procedure setRXFULLIF; inline;
  16396. procedure setRXHALFIE; inline;
  16397. procedure setRXHALFIF; inline;
  16398. procedure setRXNEMPTYIE; inline;
  16399. procedure setRXNEMPTYIF; inline;
  16400. procedure setRXOVFLIE; inline;
  16401. procedure setRXOVFLIF; inline;
  16402. procedure setTXEMPTYIE; inline;
  16403. procedure setTXEMPTYIF; inline;
  16404. procedure setTXHALFIE; inline;
  16405. procedure setTXHALFIF; inline;
  16406. procedure setTXNFULLIE; inline;
  16407. procedure setTXNFULLIF; inline;
  16408. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16409. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16410. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16411. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16412. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16413. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16414. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16415. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16416. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16417. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16418. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16419. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  16420. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  16421. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  16422. property w : TBits_32 read getw write setw;
  16423. end;
  16424. TCAN1_C1FIFOCI2 = record
  16425. private
  16426. function getCFIFOCI : TBits_5; inline;
  16427. function getw : TBits_32; inline;
  16428. procedure setCFIFOCI(thebits : TBits_5); inline;
  16429. procedure setw(thebits : TBits_32); inline;
  16430. public
  16431. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  16432. property w : TBits_32 read getw write setw;
  16433. end;
  16434. TCAN1_C1FIFOCON3 = record
  16435. private
  16436. function getDONLY : TBits_1; inline;
  16437. function getFRESET : TBits_1; inline;
  16438. function getFSIZE : TBits_5; inline;
  16439. function getRTREN : TBits_1; inline;
  16440. function getTXABAT : TBits_1; inline;
  16441. function getTXEN : TBits_1; inline;
  16442. function getTXERR : TBits_1; inline;
  16443. function getTXLARB : TBits_1; inline;
  16444. function getTXPRI : TBits_2; inline;
  16445. function getTXREQ : TBits_1; inline;
  16446. function getUINC : TBits_1; inline;
  16447. function getw : TBits_32; inline;
  16448. procedure setDONLY(thebits : TBits_1); inline;
  16449. procedure setFRESET(thebits : TBits_1); inline;
  16450. procedure setFSIZE(thebits : TBits_5); inline;
  16451. procedure setRTREN(thebits : TBits_1); inline;
  16452. procedure setTXABAT(thebits : TBits_1); inline;
  16453. procedure setTXEN(thebits : TBits_1); inline;
  16454. procedure setTXERR(thebits : TBits_1); inline;
  16455. procedure setTXLARB(thebits : TBits_1); inline;
  16456. procedure setTXPRI(thebits : TBits_2); inline;
  16457. procedure setTXREQ(thebits : TBits_1); inline;
  16458. procedure setUINC(thebits : TBits_1); inline;
  16459. procedure setw(thebits : TBits_32); inline;
  16460. public
  16461. procedure clearDONLY; inline;
  16462. procedure clearFRESET; inline;
  16463. procedure clearRTREN; inline;
  16464. procedure clearTXABAT; inline;
  16465. procedure clearTXEN; inline;
  16466. procedure clearTXERR; inline;
  16467. procedure clearTXLARB; inline;
  16468. procedure clearTXREQ; inline;
  16469. procedure clearUINC; inline;
  16470. procedure setDONLY; inline;
  16471. procedure setFRESET; inline;
  16472. procedure setRTREN; inline;
  16473. procedure setTXABAT; inline;
  16474. procedure setTXEN; inline;
  16475. procedure setTXERR; inline;
  16476. procedure setTXLARB; inline;
  16477. procedure setTXREQ; inline;
  16478. procedure setUINC; inline;
  16479. property DONLY : TBits_1 read getDONLY write setDONLY;
  16480. property FRESET : TBits_1 read getFRESET write setFRESET;
  16481. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16482. property RTREN : TBits_1 read getRTREN write setRTREN;
  16483. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16484. property TXEN : TBits_1 read getTXEN write setTXEN;
  16485. property TXERR : TBits_1 read getTXERR write setTXERR;
  16486. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16487. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16488. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16489. property UINC : TBits_1 read getUINC write setUINC;
  16490. property w : TBits_32 read getw write setw;
  16491. end;
  16492. TCAN1_C1FIFOINT3 = record
  16493. private
  16494. function getRXFULLIE : TBits_1; inline;
  16495. function getRXFULLIF : TBits_1; inline;
  16496. function getRXHALFIE : TBits_1; inline;
  16497. function getRXHALFIF : TBits_1; inline;
  16498. function getRXNEMPTYIE : TBits_1; inline;
  16499. function getRXNEMPTYIF : TBits_1; inline;
  16500. function getRXOVFLIE : TBits_1; inline;
  16501. function getRXOVFLIF : TBits_1; inline;
  16502. function getTXEMPTYIE : TBits_1; inline;
  16503. function getTXEMPTYIF : TBits_1; inline;
  16504. function getTXHALFIE : TBits_1; inline;
  16505. function getTXHALFIF : TBits_1; inline;
  16506. function getTXNFULLIE : TBits_1; inline;
  16507. function getTXNFULLIF : TBits_1; inline;
  16508. function getw : TBits_32; inline;
  16509. procedure setRXFULLIE(thebits : TBits_1); inline;
  16510. procedure setRXFULLIF(thebits : TBits_1); inline;
  16511. procedure setRXHALFIE(thebits : TBits_1); inline;
  16512. procedure setRXHALFIF(thebits : TBits_1); inline;
  16513. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16514. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16515. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16516. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16517. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16518. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16519. procedure setTXHALFIE(thebits : TBits_1); inline;
  16520. procedure setTXHALFIF(thebits : TBits_1); inline;
  16521. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16522. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16523. procedure setw(thebits : TBits_32); inline;
  16524. public
  16525. procedure clearRXFULLIE; inline;
  16526. procedure clearRXFULLIF; inline;
  16527. procedure clearRXHALFIE; inline;
  16528. procedure clearRXHALFIF; inline;
  16529. procedure clearRXNEMPTYIE; inline;
  16530. procedure clearRXNEMPTYIF; inline;
  16531. procedure clearRXOVFLIE; inline;
  16532. procedure clearRXOVFLIF; inline;
  16533. procedure clearTXEMPTYIE; inline;
  16534. procedure clearTXEMPTYIF; inline;
  16535. procedure clearTXHALFIE; inline;
  16536. procedure clearTXHALFIF; inline;
  16537. procedure clearTXNFULLIE; inline;
  16538. procedure clearTXNFULLIF; inline;
  16539. procedure setRXFULLIE; inline;
  16540. procedure setRXFULLIF; inline;
  16541. procedure setRXHALFIE; inline;
  16542. procedure setRXHALFIF; inline;
  16543. procedure setRXNEMPTYIE; inline;
  16544. procedure setRXNEMPTYIF; inline;
  16545. procedure setRXOVFLIE; inline;
  16546. procedure setRXOVFLIF; inline;
  16547. procedure setTXEMPTYIE; inline;
  16548. procedure setTXEMPTYIF; inline;
  16549. procedure setTXHALFIE; inline;
  16550. procedure setTXHALFIF; inline;
  16551. procedure setTXNFULLIE; inline;
  16552. procedure setTXNFULLIF; inline;
  16553. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16554. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16555. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16556. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16557. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16558. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16559. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16560. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16561. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16562. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16563. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16564. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  16565. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  16566. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  16567. property w : TBits_32 read getw write setw;
  16568. end;
  16569. TCAN1_C1FIFOCI3 = record
  16570. private
  16571. function getCFIFOCI : TBits_5; inline;
  16572. function getw : TBits_32; inline;
  16573. procedure setCFIFOCI(thebits : TBits_5); inline;
  16574. procedure setw(thebits : TBits_32); inline;
  16575. public
  16576. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  16577. property w : TBits_32 read getw write setw;
  16578. end;
  16579. TCAN1_C1FIFOCON4 = record
  16580. private
  16581. function getDONLY : TBits_1; inline;
  16582. function getFRESET : TBits_1; inline;
  16583. function getFSIZE : TBits_5; inline;
  16584. function getRTREN : TBits_1; inline;
  16585. function getTXABAT : TBits_1; inline;
  16586. function getTXEN : TBits_1; inline;
  16587. function getTXERR : TBits_1; inline;
  16588. function getTXLARB : TBits_1; inline;
  16589. function getTXPRI : TBits_2; inline;
  16590. function getTXREQ : TBits_1; inline;
  16591. function getUINC : TBits_1; inline;
  16592. function getw : TBits_32; inline;
  16593. procedure setDONLY(thebits : TBits_1); inline;
  16594. procedure setFRESET(thebits : TBits_1); inline;
  16595. procedure setFSIZE(thebits : TBits_5); inline;
  16596. procedure setRTREN(thebits : TBits_1); inline;
  16597. procedure setTXABAT(thebits : TBits_1); inline;
  16598. procedure setTXEN(thebits : TBits_1); inline;
  16599. procedure setTXERR(thebits : TBits_1); inline;
  16600. procedure setTXLARB(thebits : TBits_1); inline;
  16601. procedure setTXPRI(thebits : TBits_2); inline;
  16602. procedure setTXREQ(thebits : TBits_1); inline;
  16603. procedure setUINC(thebits : TBits_1); inline;
  16604. procedure setw(thebits : TBits_32); inline;
  16605. public
  16606. procedure clearDONLY; inline;
  16607. procedure clearFRESET; inline;
  16608. procedure clearRTREN; inline;
  16609. procedure clearTXABAT; inline;
  16610. procedure clearTXEN; inline;
  16611. procedure clearTXERR; inline;
  16612. procedure clearTXLARB; inline;
  16613. procedure clearTXREQ; inline;
  16614. procedure clearUINC; inline;
  16615. procedure setDONLY; inline;
  16616. procedure setFRESET; inline;
  16617. procedure setRTREN; inline;
  16618. procedure setTXABAT; inline;
  16619. procedure setTXEN; inline;
  16620. procedure setTXERR; inline;
  16621. procedure setTXLARB; inline;
  16622. procedure setTXREQ; inline;
  16623. procedure setUINC; inline;
  16624. property DONLY : TBits_1 read getDONLY write setDONLY;
  16625. property FRESET : TBits_1 read getFRESET write setFRESET;
  16626. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16627. property RTREN : TBits_1 read getRTREN write setRTREN;
  16628. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16629. property TXEN : TBits_1 read getTXEN write setTXEN;
  16630. property TXERR : TBits_1 read getTXERR write setTXERR;
  16631. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16632. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16633. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16634. property UINC : TBits_1 read getUINC write setUINC;
  16635. property w : TBits_32 read getw write setw;
  16636. end;
  16637. TCAN1_C1FIFOINT4 = record
  16638. private
  16639. function getRXFULLIE : TBits_1; inline;
  16640. function getRXFULLIF : TBits_1; inline;
  16641. function getRXHALFIE : TBits_1; inline;
  16642. function getRXHALFIF : TBits_1; inline;
  16643. function getRXNEMPTYIE : TBits_1; inline;
  16644. function getRXNEMPTYIF : TBits_1; inline;
  16645. function getRXOVFLIE : TBits_1; inline;
  16646. function getRXOVFLIF : TBits_1; inline;
  16647. function getTXEMPTYIE : TBits_1; inline;
  16648. function getTXEMPTYIF : TBits_1; inline;
  16649. function getTXHALFIE : TBits_1; inline;
  16650. function getTXHALFIF : TBits_1; inline;
  16651. function getTXNFULLIE : TBits_1; inline;
  16652. function getTXNFULLIF : TBits_1; inline;
  16653. function getw : TBits_32; inline;
  16654. procedure setRXFULLIE(thebits : TBits_1); inline;
  16655. procedure setRXFULLIF(thebits : TBits_1); inline;
  16656. procedure setRXHALFIE(thebits : TBits_1); inline;
  16657. procedure setRXHALFIF(thebits : TBits_1); inline;
  16658. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16659. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16660. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16661. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16662. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16663. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16664. procedure setTXHALFIE(thebits : TBits_1); inline;
  16665. procedure setTXHALFIF(thebits : TBits_1); inline;
  16666. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16667. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16668. procedure setw(thebits : TBits_32); inline;
  16669. public
  16670. procedure clearRXFULLIE; inline;
  16671. procedure clearRXFULLIF; inline;
  16672. procedure clearRXHALFIE; inline;
  16673. procedure clearRXHALFIF; inline;
  16674. procedure clearRXNEMPTYIE; inline;
  16675. procedure clearRXNEMPTYIF; inline;
  16676. procedure clearRXOVFLIE; inline;
  16677. procedure clearRXOVFLIF; inline;
  16678. procedure clearTXEMPTYIE; inline;
  16679. procedure clearTXEMPTYIF; inline;
  16680. procedure clearTXHALFIE; inline;
  16681. procedure clearTXHALFIF; inline;
  16682. procedure clearTXNFULLIE; inline;
  16683. procedure clearTXNFULLIF; inline;
  16684. procedure setRXFULLIE; inline;
  16685. procedure setRXFULLIF; inline;
  16686. procedure setRXHALFIE; inline;
  16687. procedure setRXHALFIF; inline;
  16688. procedure setRXNEMPTYIE; inline;
  16689. procedure setRXNEMPTYIF; inline;
  16690. procedure setRXOVFLIE; inline;
  16691. procedure setRXOVFLIF; inline;
  16692. procedure setTXEMPTYIE; inline;
  16693. procedure setTXEMPTYIF; inline;
  16694. procedure setTXHALFIE; inline;
  16695. procedure setTXHALFIF; inline;
  16696. procedure setTXNFULLIE; inline;
  16697. procedure setTXNFULLIF; inline;
  16698. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16699. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16700. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16701. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16702. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16703. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16704. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16705. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16706. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16707. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16708. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16709. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  16710. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  16711. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  16712. property w : TBits_32 read getw write setw;
  16713. end;
  16714. TCAN1_C1FIFOCI4 = record
  16715. private
  16716. function getCFIFOCI : TBits_5; inline;
  16717. function getw : TBits_32; inline;
  16718. procedure setCFIFOCI(thebits : TBits_5); inline;
  16719. procedure setw(thebits : TBits_32); inline;
  16720. public
  16721. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  16722. property w : TBits_32 read getw write setw;
  16723. end;
  16724. TCAN1_C1FIFOCON5 = record
  16725. private
  16726. function getDONLY : TBits_1; inline;
  16727. function getFRESET : TBits_1; inline;
  16728. function getFSIZE : TBits_5; inline;
  16729. function getRTREN : TBits_1; inline;
  16730. function getTXABAT : TBits_1; inline;
  16731. function getTXEN : TBits_1; inline;
  16732. function getTXERR : TBits_1; inline;
  16733. function getTXLARB : TBits_1; inline;
  16734. function getTXPRI : TBits_2; inline;
  16735. function getTXREQ : TBits_1; inline;
  16736. function getUINC : TBits_1; inline;
  16737. function getw : TBits_32; inline;
  16738. procedure setDONLY(thebits : TBits_1); inline;
  16739. procedure setFRESET(thebits : TBits_1); inline;
  16740. procedure setFSIZE(thebits : TBits_5); inline;
  16741. procedure setRTREN(thebits : TBits_1); inline;
  16742. procedure setTXABAT(thebits : TBits_1); inline;
  16743. procedure setTXEN(thebits : TBits_1); inline;
  16744. procedure setTXERR(thebits : TBits_1); inline;
  16745. procedure setTXLARB(thebits : TBits_1); inline;
  16746. procedure setTXPRI(thebits : TBits_2); inline;
  16747. procedure setTXREQ(thebits : TBits_1); inline;
  16748. procedure setUINC(thebits : TBits_1); inline;
  16749. procedure setw(thebits : TBits_32); inline;
  16750. public
  16751. procedure clearDONLY; inline;
  16752. procedure clearFRESET; inline;
  16753. procedure clearRTREN; inline;
  16754. procedure clearTXABAT; inline;
  16755. procedure clearTXEN; inline;
  16756. procedure clearTXERR; inline;
  16757. procedure clearTXLARB; inline;
  16758. procedure clearTXREQ; inline;
  16759. procedure clearUINC; inline;
  16760. procedure setDONLY; inline;
  16761. procedure setFRESET; inline;
  16762. procedure setRTREN; inline;
  16763. procedure setTXABAT; inline;
  16764. procedure setTXEN; inline;
  16765. procedure setTXERR; inline;
  16766. procedure setTXLARB; inline;
  16767. procedure setTXREQ; inline;
  16768. procedure setUINC; inline;
  16769. property DONLY : TBits_1 read getDONLY write setDONLY;
  16770. property FRESET : TBits_1 read getFRESET write setFRESET;
  16771. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16772. property RTREN : TBits_1 read getRTREN write setRTREN;
  16773. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16774. property TXEN : TBits_1 read getTXEN write setTXEN;
  16775. property TXERR : TBits_1 read getTXERR write setTXERR;
  16776. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16777. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16778. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16779. property UINC : TBits_1 read getUINC write setUINC;
  16780. property w : TBits_32 read getw write setw;
  16781. end;
  16782. TCAN1_C1FIFOINT5 = record
  16783. private
  16784. function getRXFULLIE : TBits_1; inline;
  16785. function getRXFULLIF : TBits_1; inline;
  16786. function getRXHALFIE : TBits_1; inline;
  16787. function getRXHALFIF : TBits_1; inline;
  16788. function getRXNEMPTYIE : TBits_1; inline;
  16789. function getRXNEMPTYIF : TBits_1; inline;
  16790. function getRXOVFLIE : TBits_1; inline;
  16791. function getRXOVFLIF : TBits_1; inline;
  16792. function getTXEMPTYIE : TBits_1; inline;
  16793. function getTXEMPTYIF : TBits_1; inline;
  16794. function getTXHALFIE : TBits_1; inline;
  16795. function getTXHALFIF : TBits_1; inline;
  16796. function getTXNFULLIE : TBits_1; inline;
  16797. function getTXNFULLIF : TBits_1; inline;
  16798. function getw : TBits_32; inline;
  16799. procedure setRXFULLIE(thebits : TBits_1); inline;
  16800. procedure setRXFULLIF(thebits : TBits_1); inline;
  16801. procedure setRXHALFIE(thebits : TBits_1); inline;
  16802. procedure setRXHALFIF(thebits : TBits_1); inline;
  16803. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16804. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16805. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16806. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16807. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16808. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16809. procedure setTXHALFIE(thebits : TBits_1); inline;
  16810. procedure setTXHALFIF(thebits : TBits_1); inline;
  16811. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16812. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16813. procedure setw(thebits : TBits_32); inline;
  16814. public
  16815. procedure clearRXFULLIE; inline;
  16816. procedure clearRXFULLIF; inline;
  16817. procedure clearRXHALFIE; inline;
  16818. procedure clearRXHALFIF; inline;
  16819. procedure clearRXNEMPTYIE; inline;
  16820. procedure clearRXNEMPTYIF; inline;
  16821. procedure clearRXOVFLIE; inline;
  16822. procedure clearRXOVFLIF; inline;
  16823. procedure clearTXEMPTYIE; inline;
  16824. procedure clearTXEMPTYIF; inline;
  16825. procedure clearTXHALFIE; inline;
  16826. procedure clearTXHALFIF; inline;
  16827. procedure clearTXNFULLIE; inline;
  16828. procedure clearTXNFULLIF; inline;
  16829. procedure setRXFULLIE; inline;
  16830. procedure setRXFULLIF; inline;
  16831. procedure setRXHALFIE; inline;
  16832. procedure setRXHALFIF; inline;
  16833. procedure setRXNEMPTYIE; inline;
  16834. procedure setRXNEMPTYIF; inline;
  16835. procedure setRXOVFLIE; inline;
  16836. procedure setRXOVFLIF; inline;
  16837. procedure setTXEMPTYIE; inline;
  16838. procedure setTXEMPTYIF; inline;
  16839. procedure setTXHALFIE; inline;
  16840. procedure setTXHALFIF; inline;
  16841. procedure setTXNFULLIE; inline;
  16842. procedure setTXNFULLIF; inline;
  16843. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16844. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16845. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16846. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16847. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16848. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16849. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16850. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16851. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16852. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16853. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16854. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  16855. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  16856. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  16857. property w : TBits_32 read getw write setw;
  16858. end;
  16859. TCAN1_C1FIFOCI5 = record
  16860. private
  16861. function getCFIFOCI : TBits_5; inline;
  16862. function getw : TBits_32; inline;
  16863. procedure setCFIFOCI(thebits : TBits_5); inline;
  16864. procedure setw(thebits : TBits_32); inline;
  16865. public
  16866. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  16867. property w : TBits_32 read getw write setw;
  16868. end;
  16869. TCAN1_C1FIFOCON6 = record
  16870. private
  16871. function getDONLY : TBits_1; inline;
  16872. function getFRESET : TBits_1; inline;
  16873. function getFSIZE : TBits_5; inline;
  16874. function getRTREN : TBits_1; inline;
  16875. function getTXABAT : TBits_1; inline;
  16876. function getTXEN : TBits_1; inline;
  16877. function getTXERR : TBits_1; inline;
  16878. function getTXLARB : TBits_1; inline;
  16879. function getTXPRI : TBits_2; inline;
  16880. function getTXREQ : TBits_1; inline;
  16881. function getUINC : TBits_1; inline;
  16882. function getw : TBits_32; inline;
  16883. procedure setDONLY(thebits : TBits_1); inline;
  16884. procedure setFRESET(thebits : TBits_1); inline;
  16885. procedure setFSIZE(thebits : TBits_5); inline;
  16886. procedure setRTREN(thebits : TBits_1); inline;
  16887. procedure setTXABAT(thebits : TBits_1); inline;
  16888. procedure setTXEN(thebits : TBits_1); inline;
  16889. procedure setTXERR(thebits : TBits_1); inline;
  16890. procedure setTXLARB(thebits : TBits_1); inline;
  16891. procedure setTXPRI(thebits : TBits_2); inline;
  16892. procedure setTXREQ(thebits : TBits_1); inline;
  16893. procedure setUINC(thebits : TBits_1); inline;
  16894. procedure setw(thebits : TBits_32); inline;
  16895. public
  16896. procedure clearDONLY; inline;
  16897. procedure clearFRESET; inline;
  16898. procedure clearRTREN; inline;
  16899. procedure clearTXABAT; inline;
  16900. procedure clearTXEN; inline;
  16901. procedure clearTXERR; inline;
  16902. procedure clearTXLARB; inline;
  16903. procedure clearTXREQ; inline;
  16904. procedure clearUINC; inline;
  16905. procedure setDONLY; inline;
  16906. procedure setFRESET; inline;
  16907. procedure setRTREN; inline;
  16908. procedure setTXABAT; inline;
  16909. procedure setTXEN; inline;
  16910. procedure setTXERR; inline;
  16911. procedure setTXLARB; inline;
  16912. procedure setTXREQ; inline;
  16913. procedure setUINC; inline;
  16914. property DONLY : TBits_1 read getDONLY write setDONLY;
  16915. property FRESET : TBits_1 read getFRESET write setFRESET;
  16916. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  16917. property RTREN : TBits_1 read getRTREN write setRTREN;
  16918. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  16919. property TXEN : TBits_1 read getTXEN write setTXEN;
  16920. property TXERR : TBits_1 read getTXERR write setTXERR;
  16921. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  16922. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  16923. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  16924. property UINC : TBits_1 read getUINC write setUINC;
  16925. property w : TBits_32 read getw write setw;
  16926. end;
  16927. TCAN1_C1FIFOINT6 = record
  16928. private
  16929. function getRXFULLIE : TBits_1; inline;
  16930. function getRXFULLIF : TBits_1; inline;
  16931. function getRXHALFIE : TBits_1; inline;
  16932. function getRXHALFIF : TBits_1; inline;
  16933. function getRXNEMPTYIE : TBits_1; inline;
  16934. function getRXNEMPTYIF : TBits_1; inline;
  16935. function getRXOVFLIE : TBits_1; inline;
  16936. function getRXOVFLIF : TBits_1; inline;
  16937. function getTXEMPTYIE : TBits_1; inline;
  16938. function getTXEMPTYIF : TBits_1; inline;
  16939. function getTXHALFIE : TBits_1; inline;
  16940. function getTXHALFIF : TBits_1; inline;
  16941. function getTXNFULLIE : TBits_1; inline;
  16942. function getTXNFULLIF : TBits_1; inline;
  16943. function getw : TBits_32; inline;
  16944. procedure setRXFULLIE(thebits : TBits_1); inline;
  16945. procedure setRXFULLIF(thebits : TBits_1); inline;
  16946. procedure setRXHALFIE(thebits : TBits_1); inline;
  16947. procedure setRXHALFIF(thebits : TBits_1); inline;
  16948. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  16949. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  16950. procedure setRXOVFLIE(thebits : TBits_1); inline;
  16951. procedure setRXOVFLIF(thebits : TBits_1); inline;
  16952. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  16953. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  16954. procedure setTXHALFIE(thebits : TBits_1); inline;
  16955. procedure setTXHALFIF(thebits : TBits_1); inline;
  16956. procedure setTXNFULLIE(thebits : TBits_1); inline;
  16957. procedure setTXNFULLIF(thebits : TBits_1); inline;
  16958. procedure setw(thebits : TBits_32); inline;
  16959. public
  16960. procedure clearRXFULLIE; inline;
  16961. procedure clearRXFULLIF; inline;
  16962. procedure clearRXHALFIE; inline;
  16963. procedure clearRXHALFIF; inline;
  16964. procedure clearRXNEMPTYIE; inline;
  16965. procedure clearRXNEMPTYIF; inline;
  16966. procedure clearRXOVFLIE; inline;
  16967. procedure clearRXOVFLIF; inline;
  16968. procedure clearTXEMPTYIE; inline;
  16969. procedure clearTXEMPTYIF; inline;
  16970. procedure clearTXHALFIE; inline;
  16971. procedure clearTXHALFIF; inline;
  16972. procedure clearTXNFULLIE; inline;
  16973. procedure clearTXNFULLIF; inline;
  16974. procedure setRXFULLIE; inline;
  16975. procedure setRXFULLIF; inline;
  16976. procedure setRXHALFIE; inline;
  16977. procedure setRXHALFIF; inline;
  16978. procedure setRXNEMPTYIE; inline;
  16979. procedure setRXNEMPTYIF; inline;
  16980. procedure setRXOVFLIE; inline;
  16981. procedure setRXOVFLIF; inline;
  16982. procedure setTXEMPTYIE; inline;
  16983. procedure setTXEMPTYIF; inline;
  16984. procedure setTXHALFIE; inline;
  16985. procedure setTXHALFIF; inline;
  16986. procedure setTXNFULLIE; inline;
  16987. procedure setTXNFULLIF; inline;
  16988. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  16989. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  16990. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  16991. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  16992. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  16993. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  16994. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  16995. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  16996. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  16997. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  16998. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  16999. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17000. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17001. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17002. property w : TBits_32 read getw write setw;
  17003. end;
  17004. TCAN1_C1FIFOCI6 = record
  17005. private
  17006. function getCFIFOCI : TBits_5; inline;
  17007. function getw : TBits_32; inline;
  17008. procedure setCFIFOCI(thebits : TBits_5); inline;
  17009. procedure setw(thebits : TBits_32); inline;
  17010. public
  17011. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17012. property w : TBits_32 read getw write setw;
  17013. end;
  17014. TCAN1_C1FIFOCON7 = record
  17015. private
  17016. function getDONLY : TBits_1; inline;
  17017. function getFRESET : TBits_1; inline;
  17018. function getFSIZE : TBits_5; inline;
  17019. function getRTREN : TBits_1; inline;
  17020. function getTXABAT : TBits_1; inline;
  17021. function getTXEN : TBits_1; inline;
  17022. function getTXERR : TBits_1; inline;
  17023. function getTXLARB : TBits_1; inline;
  17024. function getTXPRI : TBits_2; inline;
  17025. function getTXREQ : TBits_1; inline;
  17026. function getUINC : TBits_1; inline;
  17027. function getw : TBits_32; inline;
  17028. procedure setDONLY(thebits : TBits_1); inline;
  17029. procedure setFRESET(thebits : TBits_1); inline;
  17030. procedure setFSIZE(thebits : TBits_5); inline;
  17031. procedure setRTREN(thebits : TBits_1); inline;
  17032. procedure setTXABAT(thebits : TBits_1); inline;
  17033. procedure setTXEN(thebits : TBits_1); inline;
  17034. procedure setTXERR(thebits : TBits_1); inline;
  17035. procedure setTXLARB(thebits : TBits_1); inline;
  17036. procedure setTXPRI(thebits : TBits_2); inline;
  17037. procedure setTXREQ(thebits : TBits_1); inline;
  17038. procedure setUINC(thebits : TBits_1); inline;
  17039. procedure setw(thebits : TBits_32); inline;
  17040. public
  17041. procedure clearDONLY; inline;
  17042. procedure clearFRESET; inline;
  17043. procedure clearRTREN; inline;
  17044. procedure clearTXABAT; inline;
  17045. procedure clearTXEN; inline;
  17046. procedure clearTXERR; inline;
  17047. procedure clearTXLARB; inline;
  17048. procedure clearTXREQ; inline;
  17049. procedure clearUINC; inline;
  17050. procedure setDONLY; inline;
  17051. procedure setFRESET; inline;
  17052. procedure setRTREN; inline;
  17053. procedure setTXABAT; inline;
  17054. procedure setTXEN; inline;
  17055. procedure setTXERR; inline;
  17056. procedure setTXLARB; inline;
  17057. procedure setTXREQ; inline;
  17058. procedure setUINC; inline;
  17059. property DONLY : TBits_1 read getDONLY write setDONLY;
  17060. property FRESET : TBits_1 read getFRESET write setFRESET;
  17061. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17062. property RTREN : TBits_1 read getRTREN write setRTREN;
  17063. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17064. property TXEN : TBits_1 read getTXEN write setTXEN;
  17065. property TXERR : TBits_1 read getTXERR write setTXERR;
  17066. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17067. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17068. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17069. property UINC : TBits_1 read getUINC write setUINC;
  17070. property w : TBits_32 read getw write setw;
  17071. end;
  17072. TCAN1_C1FIFOINT7 = record
  17073. private
  17074. function getRXFULLIE : TBits_1; inline;
  17075. function getRXFULLIF : TBits_1; inline;
  17076. function getRXHALFIE : TBits_1; inline;
  17077. function getRXHALFIF : TBits_1; inline;
  17078. function getRXNEMPTYIE : TBits_1; inline;
  17079. function getRXNEMPTYIF : TBits_1; inline;
  17080. function getRXOVFLIE : TBits_1; inline;
  17081. function getRXOVFLIF : TBits_1; inline;
  17082. function getTXEMPTYIE : TBits_1; inline;
  17083. function getTXEMPTYIF : TBits_1; inline;
  17084. function getTXHALFIE : TBits_1; inline;
  17085. function getTXHALFIF : TBits_1; inline;
  17086. function getTXNFULLIE : TBits_1; inline;
  17087. function getTXNFULLIF : TBits_1; inline;
  17088. function getw : TBits_32; inline;
  17089. procedure setRXFULLIE(thebits : TBits_1); inline;
  17090. procedure setRXFULLIF(thebits : TBits_1); inline;
  17091. procedure setRXHALFIE(thebits : TBits_1); inline;
  17092. procedure setRXHALFIF(thebits : TBits_1); inline;
  17093. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17094. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17095. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17096. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17097. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17098. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17099. procedure setTXHALFIE(thebits : TBits_1); inline;
  17100. procedure setTXHALFIF(thebits : TBits_1); inline;
  17101. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17102. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17103. procedure setw(thebits : TBits_32); inline;
  17104. public
  17105. procedure clearRXFULLIE; inline;
  17106. procedure clearRXFULLIF; inline;
  17107. procedure clearRXHALFIE; inline;
  17108. procedure clearRXHALFIF; inline;
  17109. procedure clearRXNEMPTYIE; inline;
  17110. procedure clearRXNEMPTYIF; inline;
  17111. procedure clearRXOVFLIE; inline;
  17112. procedure clearRXOVFLIF; inline;
  17113. procedure clearTXEMPTYIE; inline;
  17114. procedure clearTXEMPTYIF; inline;
  17115. procedure clearTXHALFIE; inline;
  17116. procedure clearTXHALFIF; inline;
  17117. procedure clearTXNFULLIE; inline;
  17118. procedure clearTXNFULLIF; inline;
  17119. procedure setRXFULLIE; inline;
  17120. procedure setRXFULLIF; inline;
  17121. procedure setRXHALFIE; inline;
  17122. procedure setRXHALFIF; inline;
  17123. procedure setRXNEMPTYIE; inline;
  17124. procedure setRXNEMPTYIF; inline;
  17125. procedure setRXOVFLIE; inline;
  17126. procedure setRXOVFLIF; inline;
  17127. procedure setTXEMPTYIE; inline;
  17128. procedure setTXEMPTYIF; inline;
  17129. procedure setTXHALFIE; inline;
  17130. procedure setTXHALFIF; inline;
  17131. procedure setTXNFULLIE; inline;
  17132. procedure setTXNFULLIF; inline;
  17133. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17134. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17135. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17136. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17137. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17138. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17139. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17140. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17141. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17142. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17143. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17144. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17145. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17146. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17147. property w : TBits_32 read getw write setw;
  17148. end;
  17149. TCAN1_C1FIFOCI7 = record
  17150. private
  17151. function getCFIFOCI : TBits_5; inline;
  17152. function getw : TBits_32; inline;
  17153. procedure setCFIFOCI(thebits : TBits_5); inline;
  17154. procedure setw(thebits : TBits_32); inline;
  17155. public
  17156. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17157. property w : TBits_32 read getw write setw;
  17158. end;
  17159. TCAN1_C1FIFOCON8 = record
  17160. private
  17161. function getDONLY : TBits_1; inline;
  17162. function getFRESET : TBits_1; inline;
  17163. function getFSIZE : TBits_5; inline;
  17164. function getRTREN : TBits_1; inline;
  17165. function getTXABAT : TBits_1; inline;
  17166. function getTXEN : TBits_1; inline;
  17167. function getTXERR : TBits_1; inline;
  17168. function getTXLARB : TBits_1; inline;
  17169. function getTXPRI : TBits_2; inline;
  17170. function getTXREQ : TBits_1; inline;
  17171. function getUINC : TBits_1; inline;
  17172. function getw : TBits_32; inline;
  17173. procedure setDONLY(thebits : TBits_1); inline;
  17174. procedure setFRESET(thebits : TBits_1); inline;
  17175. procedure setFSIZE(thebits : TBits_5); inline;
  17176. procedure setRTREN(thebits : TBits_1); inline;
  17177. procedure setTXABAT(thebits : TBits_1); inline;
  17178. procedure setTXEN(thebits : TBits_1); inline;
  17179. procedure setTXERR(thebits : TBits_1); inline;
  17180. procedure setTXLARB(thebits : TBits_1); inline;
  17181. procedure setTXPRI(thebits : TBits_2); inline;
  17182. procedure setTXREQ(thebits : TBits_1); inline;
  17183. procedure setUINC(thebits : TBits_1); inline;
  17184. procedure setw(thebits : TBits_32); inline;
  17185. public
  17186. procedure clearDONLY; inline;
  17187. procedure clearFRESET; inline;
  17188. procedure clearRTREN; inline;
  17189. procedure clearTXABAT; inline;
  17190. procedure clearTXEN; inline;
  17191. procedure clearTXERR; inline;
  17192. procedure clearTXLARB; inline;
  17193. procedure clearTXREQ; inline;
  17194. procedure clearUINC; inline;
  17195. procedure setDONLY; inline;
  17196. procedure setFRESET; inline;
  17197. procedure setRTREN; inline;
  17198. procedure setTXABAT; inline;
  17199. procedure setTXEN; inline;
  17200. procedure setTXERR; inline;
  17201. procedure setTXLARB; inline;
  17202. procedure setTXREQ; inline;
  17203. procedure setUINC; inline;
  17204. property DONLY : TBits_1 read getDONLY write setDONLY;
  17205. property FRESET : TBits_1 read getFRESET write setFRESET;
  17206. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17207. property RTREN : TBits_1 read getRTREN write setRTREN;
  17208. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17209. property TXEN : TBits_1 read getTXEN write setTXEN;
  17210. property TXERR : TBits_1 read getTXERR write setTXERR;
  17211. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17212. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17213. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17214. property UINC : TBits_1 read getUINC write setUINC;
  17215. property w : TBits_32 read getw write setw;
  17216. end;
  17217. TCAN1_C1FIFOINT8 = record
  17218. private
  17219. function getRXFULLIE : TBits_1; inline;
  17220. function getRXFULLIF : TBits_1; inline;
  17221. function getRXHALFIE : TBits_1; inline;
  17222. function getRXHALFIF : TBits_1; inline;
  17223. function getRXNEMPTYIE : TBits_1; inline;
  17224. function getRXNEMPTYIF : TBits_1; inline;
  17225. function getRXOVFLIE : TBits_1; inline;
  17226. function getRXOVFLIF : TBits_1; inline;
  17227. function getTXEMPTYIE : TBits_1; inline;
  17228. function getTXEMPTYIF : TBits_1; inline;
  17229. function getTXHALFIE : TBits_1; inline;
  17230. function getTXHALFIF : TBits_1; inline;
  17231. function getTXNFULLIE : TBits_1; inline;
  17232. function getTXNFULLIF : TBits_1; inline;
  17233. function getw : TBits_32; inline;
  17234. procedure setRXFULLIE(thebits : TBits_1); inline;
  17235. procedure setRXFULLIF(thebits : TBits_1); inline;
  17236. procedure setRXHALFIE(thebits : TBits_1); inline;
  17237. procedure setRXHALFIF(thebits : TBits_1); inline;
  17238. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17239. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17240. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17241. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17242. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17243. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17244. procedure setTXHALFIE(thebits : TBits_1); inline;
  17245. procedure setTXHALFIF(thebits : TBits_1); inline;
  17246. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17247. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17248. procedure setw(thebits : TBits_32); inline;
  17249. public
  17250. procedure clearRXFULLIE; inline;
  17251. procedure clearRXFULLIF; inline;
  17252. procedure clearRXHALFIE; inline;
  17253. procedure clearRXHALFIF; inline;
  17254. procedure clearRXNEMPTYIE; inline;
  17255. procedure clearRXNEMPTYIF; inline;
  17256. procedure clearRXOVFLIE; inline;
  17257. procedure clearRXOVFLIF; inline;
  17258. procedure clearTXEMPTYIE; inline;
  17259. procedure clearTXEMPTYIF; inline;
  17260. procedure clearTXHALFIE; inline;
  17261. procedure clearTXHALFIF; inline;
  17262. procedure clearTXNFULLIE; inline;
  17263. procedure clearTXNFULLIF; inline;
  17264. procedure setRXFULLIE; inline;
  17265. procedure setRXFULLIF; inline;
  17266. procedure setRXHALFIE; inline;
  17267. procedure setRXHALFIF; inline;
  17268. procedure setRXNEMPTYIE; inline;
  17269. procedure setRXNEMPTYIF; inline;
  17270. procedure setRXOVFLIE; inline;
  17271. procedure setRXOVFLIF; inline;
  17272. procedure setTXEMPTYIE; inline;
  17273. procedure setTXEMPTYIF; inline;
  17274. procedure setTXHALFIE; inline;
  17275. procedure setTXHALFIF; inline;
  17276. procedure setTXNFULLIE; inline;
  17277. procedure setTXNFULLIF; inline;
  17278. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17279. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17280. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17281. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17282. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17283. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17284. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17285. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17286. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17287. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17288. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17289. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17290. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17291. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17292. property w : TBits_32 read getw write setw;
  17293. end;
  17294. TCAN1_C1FIFOCI8 = record
  17295. private
  17296. function getCFIFOCI : TBits_5; inline;
  17297. function getw : TBits_32; inline;
  17298. procedure setCFIFOCI(thebits : TBits_5); inline;
  17299. procedure setw(thebits : TBits_32); inline;
  17300. public
  17301. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17302. property w : TBits_32 read getw write setw;
  17303. end;
  17304. TCAN1_C1FIFOCON9 = record
  17305. private
  17306. function getDONLY : TBits_1; inline;
  17307. function getFRESET : TBits_1; inline;
  17308. function getFSIZE : TBits_5; inline;
  17309. function getRTREN : TBits_1; inline;
  17310. function getTXABAT : TBits_1; inline;
  17311. function getTXEN : TBits_1; inline;
  17312. function getTXERR : TBits_1; inline;
  17313. function getTXLARB : TBits_1; inline;
  17314. function getTXPRI : TBits_2; inline;
  17315. function getTXREQ : TBits_1; inline;
  17316. function getUINC : TBits_1; inline;
  17317. function getw : TBits_32; inline;
  17318. procedure setDONLY(thebits : TBits_1); inline;
  17319. procedure setFRESET(thebits : TBits_1); inline;
  17320. procedure setFSIZE(thebits : TBits_5); inline;
  17321. procedure setRTREN(thebits : TBits_1); inline;
  17322. procedure setTXABAT(thebits : TBits_1); inline;
  17323. procedure setTXEN(thebits : TBits_1); inline;
  17324. procedure setTXERR(thebits : TBits_1); inline;
  17325. procedure setTXLARB(thebits : TBits_1); inline;
  17326. procedure setTXPRI(thebits : TBits_2); inline;
  17327. procedure setTXREQ(thebits : TBits_1); inline;
  17328. procedure setUINC(thebits : TBits_1); inline;
  17329. procedure setw(thebits : TBits_32); inline;
  17330. public
  17331. procedure clearDONLY; inline;
  17332. procedure clearFRESET; inline;
  17333. procedure clearRTREN; inline;
  17334. procedure clearTXABAT; inline;
  17335. procedure clearTXEN; inline;
  17336. procedure clearTXERR; inline;
  17337. procedure clearTXLARB; inline;
  17338. procedure clearTXREQ; inline;
  17339. procedure clearUINC; inline;
  17340. procedure setDONLY; inline;
  17341. procedure setFRESET; inline;
  17342. procedure setRTREN; inline;
  17343. procedure setTXABAT; inline;
  17344. procedure setTXEN; inline;
  17345. procedure setTXERR; inline;
  17346. procedure setTXLARB; inline;
  17347. procedure setTXREQ; inline;
  17348. procedure setUINC; inline;
  17349. property DONLY : TBits_1 read getDONLY write setDONLY;
  17350. property FRESET : TBits_1 read getFRESET write setFRESET;
  17351. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17352. property RTREN : TBits_1 read getRTREN write setRTREN;
  17353. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17354. property TXEN : TBits_1 read getTXEN write setTXEN;
  17355. property TXERR : TBits_1 read getTXERR write setTXERR;
  17356. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17357. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17358. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17359. property UINC : TBits_1 read getUINC write setUINC;
  17360. property w : TBits_32 read getw write setw;
  17361. end;
  17362. TCAN1_C1FIFOINT9 = record
  17363. private
  17364. function getRXFULLIE : TBits_1; inline;
  17365. function getRXFULLIF : TBits_1; inline;
  17366. function getRXHALFIE : TBits_1; inline;
  17367. function getRXHALFIF : TBits_1; inline;
  17368. function getRXNEMPTYIE : TBits_1; inline;
  17369. function getRXNEMPTYIF : TBits_1; inline;
  17370. function getRXOVFLIE : TBits_1; inline;
  17371. function getRXOVFLIF : TBits_1; inline;
  17372. function getTXEMPTYIE : TBits_1; inline;
  17373. function getTXEMPTYIF : TBits_1; inline;
  17374. function getTXHALFIE : TBits_1; inline;
  17375. function getTXHALFIF : TBits_1; inline;
  17376. function getTXNFULLIE : TBits_1; inline;
  17377. function getTXNFULLIF : TBits_1; inline;
  17378. function getw : TBits_32; inline;
  17379. procedure setRXFULLIE(thebits : TBits_1); inline;
  17380. procedure setRXFULLIF(thebits : TBits_1); inline;
  17381. procedure setRXHALFIE(thebits : TBits_1); inline;
  17382. procedure setRXHALFIF(thebits : TBits_1); inline;
  17383. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17384. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17385. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17386. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17387. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17388. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17389. procedure setTXHALFIE(thebits : TBits_1); inline;
  17390. procedure setTXHALFIF(thebits : TBits_1); inline;
  17391. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17392. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17393. procedure setw(thebits : TBits_32); inline;
  17394. public
  17395. procedure clearRXFULLIE; inline;
  17396. procedure clearRXFULLIF; inline;
  17397. procedure clearRXHALFIE; inline;
  17398. procedure clearRXHALFIF; inline;
  17399. procedure clearRXNEMPTYIE; inline;
  17400. procedure clearRXNEMPTYIF; inline;
  17401. procedure clearRXOVFLIE; inline;
  17402. procedure clearRXOVFLIF; inline;
  17403. procedure clearTXEMPTYIE; inline;
  17404. procedure clearTXEMPTYIF; inline;
  17405. procedure clearTXHALFIE; inline;
  17406. procedure clearTXHALFIF; inline;
  17407. procedure clearTXNFULLIE; inline;
  17408. procedure clearTXNFULLIF; inline;
  17409. procedure setRXFULLIE; inline;
  17410. procedure setRXFULLIF; inline;
  17411. procedure setRXHALFIE; inline;
  17412. procedure setRXHALFIF; inline;
  17413. procedure setRXNEMPTYIE; inline;
  17414. procedure setRXNEMPTYIF; inline;
  17415. procedure setRXOVFLIE; inline;
  17416. procedure setRXOVFLIF; inline;
  17417. procedure setTXEMPTYIE; inline;
  17418. procedure setTXEMPTYIF; inline;
  17419. procedure setTXHALFIE; inline;
  17420. procedure setTXHALFIF; inline;
  17421. procedure setTXNFULLIE; inline;
  17422. procedure setTXNFULLIF; inline;
  17423. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17424. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17425. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17426. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17427. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17428. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17429. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17430. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17431. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17432. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17433. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17434. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17435. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17436. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17437. property w : TBits_32 read getw write setw;
  17438. end;
  17439. TCAN1_C1FIFOCI9 = record
  17440. private
  17441. function getCFIFOCI : TBits_5; inline;
  17442. function getw : TBits_32; inline;
  17443. procedure setCFIFOCI(thebits : TBits_5); inline;
  17444. procedure setw(thebits : TBits_32); inline;
  17445. public
  17446. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17447. property w : TBits_32 read getw write setw;
  17448. end;
  17449. TCAN1_C1FIFOCON10 = record
  17450. private
  17451. function getDONLY : TBits_1; inline;
  17452. function getFRESET : TBits_1; inline;
  17453. function getFSIZE : TBits_5; inline;
  17454. function getRTREN : TBits_1; inline;
  17455. function getTXABAT : TBits_1; inline;
  17456. function getTXEN : TBits_1; inline;
  17457. function getTXERR : TBits_1; inline;
  17458. function getTXLARB : TBits_1; inline;
  17459. function getTXPRI : TBits_2; inline;
  17460. function getTXREQ : TBits_1; inline;
  17461. function getUINC : TBits_1; inline;
  17462. function getw : TBits_32; inline;
  17463. procedure setDONLY(thebits : TBits_1); inline;
  17464. procedure setFRESET(thebits : TBits_1); inline;
  17465. procedure setFSIZE(thebits : TBits_5); inline;
  17466. procedure setRTREN(thebits : TBits_1); inline;
  17467. procedure setTXABAT(thebits : TBits_1); inline;
  17468. procedure setTXEN(thebits : TBits_1); inline;
  17469. procedure setTXERR(thebits : TBits_1); inline;
  17470. procedure setTXLARB(thebits : TBits_1); inline;
  17471. procedure setTXPRI(thebits : TBits_2); inline;
  17472. procedure setTXREQ(thebits : TBits_1); inline;
  17473. procedure setUINC(thebits : TBits_1); inline;
  17474. procedure setw(thebits : TBits_32); inline;
  17475. public
  17476. procedure clearDONLY; inline;
  17477. procedure clearFRESET; inline;
  17478. procedure clearRTREN; inline;
  17479. procedure clearTXABAT; inline;
  17480. procedure clearTXEN; inline;
  17481. procedure clearTXERR; inline;
  17482. procedure clearTXLARB; inline;
  17483. procedure clearTXREQ; inline;
  17484. procedure clearUINC; inline;
  17485. procedure setDONLY; inline;
  17486. procedure setFRESET; inline;
  17487. procedure setRTREN; inline;
  17488. procedure setTXABAT; inline;
  17489. procedure setTXEN; inline;
  17490. procedure setTXERR; inline;
  17491. procedure setTXLARB; inline;
  17492. procedure setTXREQ; inline;
  17493. procedure setUINC; inline;
  17494. property DONLY : TBits_1 read getDONLY write setDONLY;
  17495. property FRESET : TBits_1 read getFRESET write setFRESET;
  17496. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17497. property RTREN : TBits_1 read getRTREN write setRTREN;
  17498. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17499. property TXEN : TBits_1 read getTXEN write setTXEN;
  17500. property TXERR : TBits_1 read getTXERR write setTXERR;
  17501. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17502. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17503. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17504. property UINC : TBits_1 read getUINC write setUINC;
  17505. property w : TBits_32 read getw write setw;
  17506. end;
  17507. TCAN1_C1FIFOINT10 = record
  17508. private
  17509. function getRXFULLIE : TBits_1; inline;
  17510. function getRXFULLIF : TBits_1; inline;
  17511. function getRXHALFIE : TBits_1; inline;
  17512. function getRXHALFIF : TBits_1; inline;
  17513. function getRXNEMPTYIE : TBits_1; inline;
  17514. function getRXNEMPTYIF : TBits_1; inline;
  17515. function getRXOVFLIE : TBits_1; inline;
  17516. function getRXOVFLIF : TBits_1; inline;
  17517. function getTXEMPTYIE : TBits_1; inline;
  17518. function getTXEMPTYIF : TBits_1; inline;
  17519. function getTXHALFIE : TBits_1; inline;
  17520. function getTXHALFIF : TBits_1; inline;
  17521. function getTXNFULLIE : TBits_1; inline;
  17522. function getTXNFULLIF : TBits_1; inline;
  17523. function getw : TBits_32; inline;
  17524. procedure setRXFULLIE(thebits : TBits_1); inline;
  17525. procedure setRXFULLIF(thebits : TBits_1); inline;
  17526. procedure setRXHALFIE(thebits : TBits_1); inline;
  17527. procedure setRXHALFIF(thebits : TBits_1); inline;
  17528. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17529. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17530. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17531. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17532. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17533. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17534. procedure setTXHALFIE(thebits : TBits_1); inline;
  17535. procedure setTXHALFIF(thebits : TBits_1); inline;
  17536. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17537. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17538. procedure setw(thebits : TBits_32); inline;
  17539. public
  17540. procedure clearRXFULLIE; inline;
  17541. procedure clearRXFULLIF; inline;
  17542. procedure clearRXHALFIE; inline;
  17543. procedure clearRXHALFIF; inline;
  17544. procedure clearRXNEMPTYIE; inline;
  17545. procedure clearRXNEMPTYIF; inline;
  17546. procedure clearRXOVFLIE; inline;
  17547. procedure clearRXOVFLIF; inline;
  17548. procedure clearTXEMPTYIE; inline;
  17549. procedure clearTXEMPTYIF; inline;
  17550. procedure clearTXHALFIE; inline;
  17551. procedure clearTXHALFIF; inline;
  17552. procedure clearTXNFULLIE; inline;
  17553. procedure clearTXNFULLIF; inline;
  17554. procedure setRXFULLIE; inline;
  17555. procedure setRXFULLIF; inline;
  17556. procedure setRXHALFIE; inline;
  17557. procedure setRXHALFIF; inline;
  17558. procedure setRXNEMPTYIE; inline;
  17559. procedure setRXNEMPTYIF; inline;
  17560. procedure setRXOVFLIE; inline;
  17561. procedure setRXOVFLIF; inline;
  17562. procedure setTXEMPTYIE; inline;
  17563. procedure setTXEMPTYIF; inline;
  17564. procedure setTXHALFIE; inline;
  17565. procedure setTXHALFIF; inline;
  17566. procedure setTXNFULLIE; inline;
  17567. procedure setTXNFULLIF; inline;
  17568. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17569. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17570. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17571. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17572. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17573. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17574. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17575. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17576. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17577. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17578. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17579. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17580. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17581. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17582. property w : TBits_32 read getw write setw;
  17583. end;
  17584. TCAN1_C1FIFOCI10 = record
  17585. private
  17586. function getCFIFOCI : TBits_5; inline;
  17587. function getw : TBits_32; inline;
  17588. procedure setCFIFOCI(thebits : TBits_5); inline;
  17589. procedure setw(thebits : TBits_32); inline;
  17590. public
  17591. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17592. property w : TBits_32 read getw write setw;
  17593. end;
  17594. TCAN1_C1FIFOCON11 = record
  17595. private
  17596. function getDONLY : TBits_1; inline;
  17597. function getFRESET : TBits_1; inline;
  17598. function getFSIZE : TBits_5; inline;
  17599. function getRTREN : TBits_1; inline;
  17600. function getTXABAT : TBits_1; inline;
  17601. function getTXEN : TBits_1; inline;
  17602. function getTXERR : TBits_1; inline;
  17603. function getTXLARB : TBits_1; inline;
  17604. function getTXPRI : TBits_2; inline;
  17605. function getTXREQ : TBits_1; inline;
  17606. function getUINC : TBits_1; inline;
  17607. function getw : TBits_32; inline;
  17608. procedure setDONLY(thebits : TBits_1); inline;
  17609. procedure setFRESET(thebits : TBits_1); inline;
  17610. procedure setFSIZE(thebits : TBits_5); inline;
  17611. procedure setRTREN(thebits : TBits_1); inline;
  17612. procedure setTXABAT(thebits : TBits_1); inline;
  17613. procedure setTXEN(thebits : TBits_1); inline;
  17614. procedure setTXERR(thebits : TBits_1); inline;
  17615. procedure setTXLARB(thebits : TBits_1); inline;
  17616. procedure setTXPRI(thebits : TBits_2); inline;
  17617. procedure setTXREQ(thebits : TBits_1); inline;
  17618. procedure setUINC(thebits : TBits_1); inline;
  17619. procedure setw(thebits : TBits_32); inline;
  17620. public
  17621. procedure clearDONLY; inline;
  17622. procedure clearFRESET; inline;
  17623. procedure clearRTREN; inline;
  17624. procedure clearTXABAT; inline;
  17625. procedure clearTXEN; inline;
  17626. procedure clearTXERR; inline;
  17627. procedure clearTXLARB; inline;
  17628. procedure clearTXREQ; inline;
  17629. procedure clearUINC; inline;
  17630. procedure setDONLY; inline;
  17631. procedure setFRESET; inline;
  17632. procedure setRTREN; inline;
  17633. procedure setTXABAT; inline;
  17634. procedure setTXEN; inline;
  17635. procedure setTXERR; inline;
  17636. procedure setTXLARB; inline;
  17637. procedure setTXREQ; inline;
  17638. procedure setUINC; inline;
  17639. property DONLY : TBits_1 read getDONLY write setDONLY;
  17640. property FRESET : TBits_1 read getFRESET write setFRESET;
  17641. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17642. property RTREN : TBits_1 read getRTREN write setRTREN;
  17643. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17644. property TXEN : TBits_1 read getTXEN write setTXEN;
  17645. property TXERR : TBits_1 read getTXERR write setTXERR;
  17646. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17647. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17648. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17649. property UINC : TBits_1 read getUINC write setUINC;
  17650. property w : TBits_32 read getw write setw;
  17651. end;
  17652. TCAN1_C1FIFOINT11 = record
  17653. private
  17654. function getRXFULLIE : TBits_1; inline;
  17655. function getRXFULLIF : TBits_1; inline;
  17656. function getRXHALFIE : TBits_1; inline;
  17657. function getRXHALFIF : TBits_1; inline;
  17658. function getRXNEMPTYIE : TBits_1; inline;
  17659. function getRXNEMPTYIF : TBits_1; inline;
  17660. function getRXOVFLIE : TBits_1; inline;
  17661. function getRXOVFLIF : TBits_1; inline;
  17662. function getTXEMPTYIE : TBits_1; inline;
  17663. function getTXEMPTYIF : TBits_1; inline;
  17664. function getTXHALFIE : TBits_1; inline;
  17665. function getTXHALFIF : TBits_1; inline;
  17666. function getTXNFULLIE : TBits_1; inline;
  17667. function getTXNFULLIF : TBits_1; inline;
  17668. function getw : TBits_32; inline;
  17669. procedure setRXFULLIE(thebits : TBits_1); inline;
  17670. procedure setRXFULLIF(thebits : TBits_1); inline;
  17671. procedure setRXHALFIE(thebits : TBits_1); inline;
  17672. procedure setRXHALFIF(thebits : TBits_1); inline;
  17673. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17674. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17675. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17676. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17677. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17678. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17679. procedure setTXHALFIE(thebits : TBits_1); inline;
  17680. procedure setTXHALFIF(thebits : TBits_1); inline;
  17681. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17682. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17683. procedure setw(thebits : TBits_32); inline;
  17684. public
  17685. procedure clearRXFULLIE; inline;
  17686. procedure clearRXFULLIF; inline;
  17687. procedure clearRXHALFIE; inline;
  17688. procedure clearRXHALFIF; inline;
  17689. procedure clearRXNEMPTYIE; inline;
  17690. procedure clearRXNEMPTYIF; inline;
  17691. procedure clearRXOVFLIE; inline;
  17692. procedure clearRXOVFLIF; inline;
  17693. procedure clearTXEMPTYIE; inline;
  17694. procedure clearTXEMPTYIF; inline;
  17695. procedure clearTXHALFIE; inline;
  17696. procedure clearTXHALFIF; inline;
  17697. procedure clearTXNFULLIE; inline;
  17698. procedure clearTXNFULLIF; inline;
  17699. procedure setRXFULLIE; inline;
  17700. procedure setRXFULLIF; inline;
  17701. procedure setRXHALFIE; inline;
  17702. procedure setRXHALFIF; inline;
  17703. procedure setRXNEMPTYIE; inline;
  17704. procedure setRXNEMPTYIF; inline;
  17705. procedure setRXOVFLIE; inline;
  17706. procedure setRXOVFLIF; inline;
  17707. procedure setTXEMPTYIE; inline;
  17708. procedure setTXEMPTYIF; inline;
  17709. procedure setTXHALFIE; inline;
  17710. procedure setTXHALFIF; inline;
  17711. procedure setTXNFULLIE; inline;
  17712. procedure setTXNFULLIF; inline;
  17713. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17714. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17715. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17716. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17717. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17718. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17719. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17720. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17721. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17722. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17723. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17724. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17725. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17726. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17727. property w : TBits_32 read getw write setw;
  17728. end;
  17729. TCAN1_C1FIFOCI11 = record
  17730. private
  17731. function getCFIFOCI : TBits_5; inline;
  17732. function getw : TBits_32; inline;
  17733. procedure setCFIFOCI(thebits : TBits_5); inline;
  17734. procedure setw(thebits : TBits_32); inline;
  17735. public
  17736. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17737. property w : TBits_32 read getw write setw;
  17738. end;
  17739. TCAN1_C1FIFOCON12 = record
  17740. private
  17741. function getDONLY : TBits_1; inline;
  17742. function getFRESET : TBits_1; inline;
  17743. function getFSIZE : TBits_5; inline;
  17744. function getRTREN : TBits_1; inline;
  17745. function getTXABAT : TBits_1; inline;
  17746. function getTXEN : TBits_1; inline;
  17747. function getTXERR : TBits_1; inline;
  17748. function getTXLARB : TBits_1; inline;
  17749. function getTXPRI : TBits_2; inline;
  17750. function getTXREQ : TBits_1; inline;
  17751. function getUINC : TBits_1; inline;
  17752. function getw : TBits_32; inline;
  17753. procedure setDONLY(thebits : TBits_1); inline;
  17754. procedure setFRESET(thebits : TBits_1); inline;
  17755. procedure setFSIZE(thebits : TBits_5); inline;
  17756. procedure setRTREN(thebits : TBits_1); inline;
  17757. procedure setTXABAT(thebits : TBits_1); inline;
  17758. procedure setTXEN(thebits : TBits_1); inline;
  17759. procedure setTXERR(thebits : TBits_1); inline;
  17760. procedure setTXLARB(thebits : TBits_1); inline;
  17761. procedure setTXPRI(thebits : TBits_2); inline;
  17762. procedure setTXREQ(thebits : TBits_1); inline;
  17763. procedure setUINC(thebits : TBits_1); inline;
  17764. procedure setw(thebits : TBits_32); inline;
  17765. public
  17766. procedure clearDONLY; inline;
  17767. procedure clearFRESET; inline;
  17768. procedure clearRTREN; inline;
  17769. procedure clearTXABAT; inline;
  17770. procedure clearTXEN; inline;
  17771. procedure clearTXERR; inline;
  17772. procedure clearTXLARB; inline;
  17773. procedure clearTXREQ; inline;
  17774. procedure clearUINC; inline;
  17775. procedure setDONLY; inline;
  17776. procedure setFRESET; inline;
  17777. procedure setRTREN; inline;
  17778. procedure setTXABAT; inline;
  17779. procedure setTXEN; inline;
  17780. procedure setTXERR; inline;
  17781. procedure setTXLARB; inline;
  17782. procedure setTXREQ; inline;
  17783. procedure setUINC; inline;
  17784. property DONLY : TBits_1 read getDONLY write setDONLY;
  17785. property FRESET : TBits_1 read getFRESET write setFRESET;
  17786. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17787. property RTREN : TBits_1 read getRTREN write setRTREN;
  17788. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17789. property TXEN : TBits_1 read getTXEN write setTXEN;
  17790. property TXERR : TBits_1 read getTXERR write setTXERR;
  17791. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17792. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17793. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17794. property UINC : TBits_1 read getUINC write setUINC;
  17795. property w : TBits_32 read getw write setw;
  17796. end;
  17797. TCAN1_C1FIFOINT12 = record
  17798. private
  17799. function getRXFULLIE : TBits_1; inline;
  17800. function getRXFULLIF : TBits_1; inline;
  17801. function getRXHALFIE : TBits_1; inline;
  17802. function getRXHALFIF : TBits_1; inline;
  17803. function getRXNEMPTYIE : TBits_1; inline;
  17804. function getRXNEMPTYIF : TBits_1; inline;
  17805. function getRXOVFLIE : TBits_1; inline;
  17806. function getRXOVFLIF : TBits_1; inline;
  17807. function getTXEMPTYIE : TBits_1; inline;
  17808. function getTXEMPTYIF : TBits_1; inline;
  17809. function getTXHALFIE : TBits_1; inline;
  17810. function getTXHALFIF : TBits_1; inline;
  17811. function getTXNFULLIE : TBits_1; inline;
  17812. function getTXNFULLIF : TBits_1; inline;
  17813. function getw : TBits_32; inline;
  17814. procedure setRXFULLIE(thebits : TBits_1); inline;
  17815. procedure setRXFULLIF(thebits : TBits_1); inline;
  17816. procedure setRXHALFIE(thebits : TBits_1); inline;
  17817. procedure setRXHALFIF(thebits : TBits_1); inline;
  17818. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17819. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17820. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17821. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17822. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17823. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17824. procedure setTXHALFIE(thebits : TBits_1); inline;
  17825. procedure setTXHALFIF(thebits : TBits_1); inline;
  17826. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17827. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17828. procedure setw(thebits : TBits_32); inline;
  17829. public
  17830. procedure clearRXFULLIE; inline;
  17831. procedure clearRXFULLIF; inline;
  17832. procedure clearRXHALFIE; inline;
  17833. procedure clearRXHALFIF; inline;
  17834. procedure clearRXNEMPTYIE; inline;
  17835. procedure clearRXNEMPTYIF; inline;
  17836. procedure clearRXOVFLIE; inline;
  17837. procedure clearRXOVFLIF; inline;
  17838. procedure clearTXEMPTYIE; inline;
  17839. procedure clearTXEMPTYIF; inline;
  17840. procedure clearTXHALFIE; inline;
  17841. procedure clearTXHALFIF; inline;
  17842. procedure clearTXNFULLIE; inline;
  17843. procedure clearTXNFULLIF; inline;
  17844. procedure setRXFULLIE; inline;
  17845. procedure setRXFULLIF; inline;
  17846. procedure setRXHALFIE; inline;
  17847. procedure setRXHALFIF; inline;
  17848. procedure setRXNEMPTYIE; inline;
  17849. procedure setRXNEMPTYIF; inline;
  17850. procedure setRXOVFLIE; inline;
  17851. procedure setRXOVFLIF; inline;
  17852. procedure setTXEMPTYIE; inline;
  17853. procedure setTXEMPTYIF; inline;
  17854. procedure setTXHALFIE; inline;
  17855. procedure setTXHALFIF; inline;
  17856. procedure setTXNFULLIE; inline;
  17857. procedure setTXNFULLIF; inline;
  17858. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  17859. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  17860. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  17861. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  17862. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  17863. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  17864. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  17865. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  17866. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  17867. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  17868. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  17869. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  17870. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  17871. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  17872. property w : TBits_32 read getw write setw;
  17873. end;
  17874. TCAN1_C1FIFOCI12 = record
  17875. private
  17876. function getCFIFOCI : TBits_5; inline;
  17877. function getw : TBits_32; inline;
  17878. procedure setCFIFOCI(thebits : TBits_5); inline;
  17879. procedure setw(thebits : TBits_32); inline;
  17880. public
  17881. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  17882. property w : TBits_32 read getw write setw;
  17883. end;
  17884. TCAN1_C1FIFOCON13 = record
  17885. private
  17886. function getDONLY : TBits_1; inline;
  17887. function getFRESET : TBits_1; inline;
  17888. function getFSIZE : TBits_5; inline;
  17889. function getRTREN : TBits_1; inline;
  17890. function getTXABAT : TBits_1; inline;
  17891. function getTXEN : TBits_1; inline;
  17892. function getTXERR : TBits_1; inline;
  17893. function getTXLARB : TBits_1; inline;
  17894. function getTXPRI : TBits_2; inline;
  17895. function getTXREQ : TBits_1; inline;
  17896. function getUINC : TBits_1; inline;
  17897. function getw : TBits_32; inline;
  17898. procedure setDONLY(thebits : TBits_1); inline;
  17899. procedure setFRESET(thebits : TBits_1); inline;
  17900. procedure setFSIZE(thebits : TBits_5); inline;
  17901. procedure setRTREN(thebits : TBits_1); inline;
  17902. procedure setTXABAT(thebits : TBits_1); inline;
  17903. procedure setTXEN(thebits : TBits_1); inline;
  17904. procedure setTXERR(thebits : TBits_1); inline;
  17905. procedure setTXLARB(thebits : TBits_1); inline;
  17906. procedure setTXPRI(thebits : TBits_2); inline;
  17907. procedure setTXREQ(thebits : TBits_1); inline;
  17908. procedure setUINC(thebits : TBits_1); inline;
  17909. procedure setw(thebits : TBits_32); inline;
  17910. public
  17911. procedure clearDONLY; inline;
  17912. procedure clearFRESET; inline;
  17913. procedure clearRTREN; inline;
  17914. procedure clearTXABAT; inline;
  17915. procedure clearTXEN; inline;
  17916. procedure clearTXERR; inline;
  17917. procedure clearTXLARB; inline;
  17918. procedure clearTXREQ; inline;
  17919. procedure clearUINC; inline;
  17920. procedure setDONLY; inline;
  17921. procedure setFRESET; inline;
  17922. procedure setRTREN; inline;
  17923. procedure setTXABAT; inline;
  17924. procedure setTXEN; inline;
  17925. procedure setTXERR; inline;
  17926. procedure setTXLARB; inline;
  17927. procedure setTXREQ; inline;
  17928. procedure setUINC; inline;
  17929. property DONLY : TBits_1 read getDONLY write setDONLY;
  17930. property FRESET : TBits_1 read getFRESET write setFRESET;
  17931. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  17932. property RTREN : TBits_1 read getRTREN write setRTREN;
  17933. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  17934. property TXEN : TBits_1 read getTXEN write setTXEN;
  17935. property TXERR : TBits_1 read getTXERR write setTXERR;
  17936. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  17937. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  17938. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  17939. property UINC : TBits_1 read getUINC write setUINC;
  17940. property w : TBits_32 read getw write setw;
  17941. end;
  17942. TCAN1_C1FIFOINT13 = record
  17943. private
  17944. function getRXFULLIE : TBits_1; inline;
  17945. function getRXFULLIF : TBits_1; inline;
  17946. function getRXHALFIE : TBits_1; inline;
  17947. function getRXHALFIF : TBits_1; inline;
  17948. function getRXNEMPTYIE : TBits_1; inline;
  17949. function getRXNEMPTYIF : TBits_1; inline;
  17950. function getRXOVFLIE : TBits_1; inline;
  17951. function getRXOVFLIF : TBits_1; inline;
  17952. function getTXEMPTYIE : TBits_1; inline;
  17953. function getTXEMPTYIF : TBits_1; inline;
  17954. function getTXHALFIE : TBits_1; inline;
  17955. function getTXHALFIF : TBits_1; inline;
  17956. function getTXNFULLIE : TBits_1; inline;
  17957. function getTXNFULLIF : TBits_1; inline;
  17958. function getw : TBits_32; inline;
  17959. procedure setRXFULLIE(thebits : TBits_1); inline;
  17960. procedure setRXFULLIF(thebits : TBits_1); inline;
  17961. procedure setRXHALFIE(thebits : TBits_1); inline;
  17962. procedure setRXHALFIF(thebits : TBits_1); inline;
  17963. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  17964. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  17965. procedure setRXOVFLIE(thebits : TBits_1); inline;
  17966. procedure setRXOVFLIF(thebits : TBits_1); inline;
  17967. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  17968. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  17969. procedure setTXHALFIE(thebits : TBits_1); inline;
  17970. procedure setTXHALFIF(thebits : TBits_1); inline;
  17971. procedure setTXNFULLIE(thebits : TBits_1); inline;
  17972. procedure setTXNFULLIF(thebits : TBits_1); inline;
  17973. procedure setw(thebits : TBits_32); inline;
  17974. public
  17975. procedure clearRXFULLIE; inline;
  17976. procedure clearRXFULLIF; inline;
  17977. procedure clearRXHALFIE; inline;
  17978. procedure clearRXHALFIF; inline;
  17979. procedure clearRXNEMPTYIE; inline;
  17980. procedure clearRXNEMPTYIF; inline;
  17981. procedure clearRXOVFLIE; inline;
  17982. procedure clearRXOVFLIF; inline;
  17983. procedure clearTXEMPTYIE; inline;
  17984. procedure clearTXEMPTYIF; inline;
  17985. procedure clearTXHALFIE; inline;
  17986. procedure clearTXHALFIF; inline;
  17987. procedure clearTXNFULLIE; inline;
  17988. procedure clearTXNFULLIF; inline;
  17989. procedure setRXFULLIE; inline;
  17990. procedure setRXFULLIF; inline;
  17991. procedure setRXHALFIE; inline;
  17992. procedure setRXHALFIF; inline;
  17993. procedure setRXNEMPTYIE; inline;
  17994. procedure setRXNEMPTYIF; inline;
  17995. procedure setRXOVFLIE; inline;
  17996. procedure setRXOVFLIF; inline;
  17997. procedure setTXEMPTYIE; inline;
  17998. procedure setTXEMPTYIF; inline;
  17999. procedure setTXHALFIE; inline;
  18000. procedure setTXHALFIF; inline;
  18001. procedure setTXNFULLIE; inline;
  18002. procedure setTXNFULLIF; inline;
  18003. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18004. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18005. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18006. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18007. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18008. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18009. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18010. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18011. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18012. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18013. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18014. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18015. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18016. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18017. property w : TBits_32 read getw write setw;
  18018. end;
  18019. TCAN1_C1FIFOCI13 = record
  18020. private
  18021. function getCFIFOCI : TBits_5; inline;
  18022. function getw : TBits_32; inline;
  18023. procedure setCFIFOCI(thebits : TBits_5); inline;
  18024. procedure setw(thebits : TBits_32); inline;
  18025. public
  18026. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18027. property w : TBits_32 read getw write setw;
  18028. end;
  18029. TCAN1_C1FIFOCON14 = record
  18030. private
  18031. function getDONLY : TBits_1; inline;
  18032. function getFRESET : TBits_1; inline;
  18033. function getFSIZE : TBits_5; inline;
  18034. function getRTREN : TBits_1; inline;
  18035. function getTXABAT : TBits_1; inline;
  18036. function getTXEN : TBits_1; inline;
  18037. function getTXERR : TBits_1; inline;
  18038. function getTXLARB : TBits_1; inline;
  18039. function getTXPRI : TBits_2; inline;
  18040. function getTXREQ : TBits_1; inline;
  18041. function getUINC : TBits_1; inline;
  18042. function getw : TBits_32; inline;
  18043. procedure setDONLY(thebits : TBits_1); inline;
  18044. procedure setFRESET(thebits : TBits_1); inline;
  18045. procedure setFSIZE(thebits : TBits_5); inline;
  18046. procedure setRTREN(thebits : TBits_1); inline;
  18047. procedure setTXABAT(thebits : TBits_1); inline;
  18048. procedure setTXEN(thebits : TBits_1); inline;
  18049. procedure setTXERR(thebits : TBits_1); inline;
  18050. procedure setTXLARB(thebits : TBits_1); inline;
  18051. procedure setTXPRI(thebits : TBits_2); inline;
  18052. procedure setTXREQ(thebits : TBits_1); inline;
  18053. procedure setUINC(thebits : TBits_1); inline;
  18054. procedure setw(thebits : TBits_32); inline;
  18055. public
  18056. procedure clearDONLY; inline;
  18057. procedure clearFRESET; inline;
  18058. procedure clearRTREN; inline;
  18059. procedure clearTXABAT; inline;
  18060. procedure clearTXEN; inline;
  18061. procedure clearTXERR; inline;
  18062. procedure clearTXLARB; inline;
  18063. procedure clearTXREQ; inline;
  18064. procedure clearUINC; inline;
  18065. procedure setDONLY; inline;
  18066. procedure setFRESET; inline;
  18067. procedure setRTREN; inline;
  18068. procedure setTXABAT; inline;
  18069. procedure setTXEN; inline;
  18070. procedure setTXERR; inline;
  18071. procedure setTXLARB; inline;
  18072. procedure setTXREQ; inline;
  18073. procedure setUINC; inline;
  18074. property DONLY : TBits_1 read getDONLY write setDONLY;
  18075. property FRESET : TBits_1 read getFRESET write setFRESET;
  18076. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18077. property RTREN : TBits_1 read getRTREN write setRTREN;
  18078. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18079. property TXEN : TBits_1 read getTXEN write setTXEN;
  18080. property TXERR : TBits_1 read getTXERR write setTXERR;
  18081. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18082. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18083. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18084. property UINC : TBits_1 read getUINC write setUINC;
  18085. property w : TBits_32 read getw write setw;
  18086. end;
  18087. TCAN1_C1FIFOINT14 = record
  18088. private
  18089. function getRXFULLIE : TBits_1; inline;
  18090. function getRXFULLIF : TBits_1; inline;
  18091. function getRXHALFIE : TBits_1; inline;
  18092. function getRXHALFIF : TBits_1; inline;
  18093. function getRXNEMPTYIE : TBits_1; inline;
  18094. function getRXNEMPTYIF : TBits_1; inline;
  18095. function getRXOVFLIE : TBits_1; inline;
  18096. function getRXOVFLIF : TBits_1; inline;
  18097. function getTXEMPTYIE : TBits_1; inline;
  18098. function getTXEMPTYIF : TBits_1; inline;
  18099. function getTXHALFIE : TBits_1; inline;
  18100. function getTXHALFIF : TBits_1; inline;
  18101. function getTXNFULLIE : TBits_1; inline;
  18102. function getTXNFULLIF : TBits_1; inline;
  18103. function getw : TBits_32; inline;
  18104. procedure setRXFULLIE(thebits : TBits_1); inline;
  18105. procedure setRXFULLIF(thebits : TBits_1); inline;
  18106. procedure setRXHALFIE(thebits : TBits_1); inline;
  18107. procedure setRXHALFIF(thebits : TBits_1); inline;
  18108. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18109. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18110. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18111. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18112. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18113. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18114. procedure setTXHALFIE(thebits : TBits_1); inline;
  18115. procedure setTXHALFIF(thebits : TBits_1); inline;
  18116. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18117. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18118. procedure setw(thebits : TBits_32); inline;
  18119. public
  18120. procedure clearRXFULLIE; inline;
  18121. procedure clearRXFULLIF; inline;
  18122. procedure clearRXHALFIE; inline;
  18123. procedure clearRXHALFIF; inline;
  18124. procedure clearRXNEMPTYIE; inline;
  18125. procedure clearRXNEMPTYIF; inline;
  18126. procedure clearRXOVFLIE; inline;
  18127. procedure clearRXOVFLIF; inline;
  18128. procedure clearTXEMPTYIE; inline;
  18129. procedure clearTXEMPTYIF; inline;
  18130. procedure clearTXHALFIE; inline;
  18131. procedure clearTXHALFIF; inline;
  18132. procedure clearTXNFULLIE; inline;
  18133. procedure clearTXNFULLIF; inline;
  18134. procedure setRXFULLIE; inline;
  18135. procedure setRXFULLIF; inline;
  18136. procedure setRXHALFIE; inline;
  18137. procedure setRXHALFIF; inline;
  18138. procedure setRXNEMPTYIE; inline;
  18139. procedure setRXNEMPTYIF; inline;
  18140. procedure setRXOVFLIE; inline;
  18141. procedure setRXOVFLIF; inline;
  18142. procedure setTXEMPTYIE; inline;
  18143. procedure setTXEMPTYIF; inline;
  18144. procedure setTXHALFIE; inline;
  18145. procedure setTXHALFIF; inline;
  18146. procedure setTXNFULLIE; inline;
  18147. procedure setTXNFULLIF; inline;
  18148. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18149. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18150. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18151. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18152. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18153. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18154. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18155. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18156. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18157. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18158. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18159. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18160. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18161. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18162. property w : TBits_32 read getw write setw;
  18163. end;
  18164. TCAN1_C1FIFOCI14 = record
  18165. private
  18166. function getCFIFOCI : TBits_5; inline;
  18167. function getw : TBits_32; inline;
  18168. procedure setCFIFOCI(thebits : TBits_5); inline;
  18169. procedure setw(thebits : TBits_32); inline;
  18170. public
  18171. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18172. property w : TBits_32 read getw write setw;
  18173. end;
  18174. TCAN1_C1FIFOCON15 = record
  18175. private
  18176. function getDONLY : TBits_1; inline;
  18177. function getFRESET : TBits_1; inline;
  18178. function getFSIZE : TBits_5; inline;
  18179. function getRTREN : TBits_1; inline;
  18180. function getTXABAT : TBits_1; inline;
  18181. function getTXEN : TBits_1; inline;
  18182. function getTXERR : TBits_1; inline;
  18183. function getTXLARB : TBits_1; inline;
  18184. function getTXPRI : TBits_2; inline;
  18185. function getTXREQ : TBits_1; inline;
  18186. function getUINC : TBits_1; inline;
  18187. function getw : TBits_32; inline;
  18188. procedure setDONLY(thebits : TBits_1); inline;
  18189. procedure setFRESET(thebits : TBits_1); inline;
  18190. procedure setFSIZE(thebits : TBits_5); inline;
  18191. procedure setRTREN(thebits : TBits_1); inline;
  18192. procedure setTXABAT(thebits : TBits_1); inline;
  18193. procedure setTXEN(thebits : TBits_1); inline;
  18194. procedure setTXERR(thebits : TBits_1); inline;
  18195. procedure setTXLARB(thebits : TBits_1); inline;
  18196. procedure setTXPRI(thebits : TBits_2); inline;
  18197. procedure setTXREQ(thebits : TBits_1); inline;
  18198. procedure setUINC(thebits : TBits_1); inline;
  18199. procedure setw(thebits : TBits_32); inline;
  18200. public
  18201. procedure clearDONLY; inline;
  18202. procedure clearFRESET; inline;
  18203. procedure clearRTREN; inline;
  18204. procedure clearTXABAT; inline;
  18205. procedure clearTXEN; inline;
  18206. procedure clearTXERR; inline;
  18207. procedure clearTXLARB; inline;
  18208. procedure clearTXREQ; inline;
  18209. procedure clearUINC; inline;
  18210. procedure setDONLY; inline;
  18211. procedure setFRESET; inline;
  18212. procedure setRTREN; inline;
  18213. procedure setTXABAT; inline;
  18214. procedure setTXEN; inline;
  18215. procedure setTXERR; inline;
  18216. procedure setTXLARB; inline;
  18217. procedure setTXREQ; inline;
  18218. procedure setUINC; inline;
  18219. property DONLY : TBits_1 read getDONLY write setDONLY;
  18220. property FRESET : TBits_1 read getFRESET write setFRESET;
  18221. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18222. property RTREN : TBits_1 read getRTREN write setRTREN;
  18223. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18224. property TXEN : TBits_1 read getTXEN write setTXEN;
  18225. property TXERR : TBits_1 read getTXERR write setTXERR;
  18226. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18227. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18228. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18229. property UINC : TBits_1 read getUINC write setUINC;
  18230. property w : TBits_32 read getw write setw;
  18231. end;
  18232. TCAN1_C1FIFOINT15 = record
  18233. private
  18234. function getRXFULLIE : TBits_1; inline;
  18235. function getRXFULLIF : TBits_1; inline;
  18236. function getRXHALFIE : TBits_1; inline;
  18237. function getRXHALFIF : TBits_1; inline;
  18238. function getRXNEMPTYIE : TBits_1; inline;
  18239. function getRXNEMPTYIF : TBits_1; inline;
  18240. function getRXOVFLIE : TBits_1; inline;
  18241. function getRXOVFLIF : TBits_1; inline;
  18242. function getTXEMPTYIE : TBits_1; inline;
  18243. function getTXEMPTYIF : TBits_1; inline;
  18244. function getTXHALFIE : TBits_1; inline;
  18245. function getTXHALFIF : TBits_1; inline;
  18246. function getTXNFULLIE : TBits_1; inline;
  18247. function getTXNFULLIF : TBits_1; inline;
  18248. function getw : TBits_32; inline;
  18249. procedure setRXFULLIE(thebits : TBits_1); inline;
  18250. procedure setRXFULLIF(thebits : TBits_1); inline;
  18251. procedure setRXHALFIE(thebits : TBits_1); inline;
  18252. procedure setRXHALFIF(thebits : TBits_1); inline;
  18253. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18254. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18255. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18256. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18257. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18258. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18259. procedure setTXHALFIE(thebits : TBits_1); inline;
  18260. procedure setTXHALFIF(thebits : TBits_1); inline;
  18261. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18262. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18263. procedure setw(thebits : TBits_32); inline;
  18264. public
  18265. procedure clearRXFULLIE; inline;
  18266. procedure clearRXFULLIF; inline;
  18267. procedure clearRXHALFIE; inline;
  18268. procedure clearRXHALFIF; inline;
  18269. procedure clearRXNEMPTYIE; inline;
  18270. procedure clearRXNEMPTYIF; inline;
  18271. procedure clearRXOVFLIE; inline;
  18272. procedure clearRXOVFLIF; inline;
  18273. procedure clearTXEMPTYIE; inline;
  18274. procedure clearTXEMPTYIF; inline;
  18275. procedure clearTXHALFIE; inline;
  18276. procedure clearTXHALFIF; inline;
  18277. procedure clearTXNFULLIE; inline;
  18278. procedure clearTXNFULLIF; inline;
  18279. procedure setRXFULLIE; inline;
  18280. procedure setRXFULLIF; inline;
  18281. procedure setRXHALFIE; inline;
  18282. procedure setRXHALFIF; inline;
  18283. procedure setRXNEMPTYIE; inline;
  18284. procedure setRXNEMPTYIF; inline;
  18285. procedure setRXOVFLIE; inline;
  18286. procedure setRXOVFLIF; inline;
  18287. procedure setTXEMPTYIE; inline;
  18288. procedure setTXEMPTYIF; inline;
  18289. procedure setTXHALFIE; inline;
  18290. procedure setTXHALFIF; inline;
  18291. procedure setTXNFULLIE; inline;
  18292. procedure setTXNFULLIF; inline;
  18293. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18294. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18295. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18296. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18297. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18298. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18299. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18300. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18301. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18302. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18303. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18304. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18305. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18306. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18307. property w : TBits_32 read getw write setw;
  18308. end;
  18309. TCAN1_C1FIFOCI15 = record
  18310. private
  18311. function getCFIFOCI : TBits_5; inline;
  18312. function getw : TBits_32; inline;
  18313. procedure setCFIFOCI(thebits : TBits_5); inline;
  18314. procedure setw(thebits : TBits_32); inline;
  18315. public
  18316. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18317. property w : TBits_32 read getw write setw;
  18318. end;
  18319. TCAN1_C1FIFOCON16 = record
  18320. private
  18321. function getDONLY : TBits_1; inline;
  18322. function getFRESET : TBits_1; inline;
  18323. function getFSIZE : TBits_5; inline;
  18324. function getRTREN : TBits_1; inline;
  18325. function getTXABAT : TBits_1; inline;
  18326. function getTXEN : TBits_1; inline;
  18327. function getTXERR : TBits_1; inline;
  18328. function getTXLARB : TBits_1; inline;
  18329. function getTXPRI : TBits_2; inline;
  18330. function getTXREQ : TBits_1; inline;
  18331. function getUINC : TBits_1; inline;
  18332. function getw : TBits_32; inline;
  18333. procedure setDONLY(thebits : TBits_1); inline;
  18334. procedure setFRESET(thebits : TBits_1); inline;
  18335. procedure setFSIZE(thebits : TBits_5); inline;
  18336. procedure setRTREN(thebits : TBits_1); inline;
  18337. procedure setTXABAT(thebits : TBits_1); inline;
  18338. procedure setTXEN(thebits : TBits_1); inline;
  18339. procedure setTXERR(thebits : TBits_1); inline;
  18340. procedure setTXLARB(thebits : TBits_1); inline;
  18341. procedure setTXPRI(thebits : TBits_2); inline;
  18342. procedure setTXREQ(thebits : TBits_1); inline;
  18343. procedure setUINC(thebits : TBits_1); inline;
  18344. procedure setw(thebits : TBits_32); inline;
  18345. public
  18346. procedure clearDONLY; inline;
  18347. procedure clearFRESET; inline;
  18348. procedure clearRTREN; inline;
  18349. procedure clearTXABAT; inline;
  18350. procedure clearTXEN; inline;
  18351. procedure clearTXERR; inline;
  18352. procedure clearTXLARB; inline;
  18353. procedure clearTXREQ; inline;
  18354. procedure clearUINC; inline;
  18355. procedure setDONLY; inline;
  18356. procedure setFRESET; inline;
  18357. procedure setRTREN; inline;
  18358. procedure setTXABAT; inline;
  18359. procedure setTXEN; inline;
  18360. procedure setTXERR; inline;
  18361. procedure setTXLARB; inline;
  18362. procedure setTXREQ; inline;
  18363. procedure setUINC; inline;
  18364. property DONLY : TBits_1 read getDONLY write setDONLY;
  18365. property FRESET : TBits_1 read getFRESET write setFRESET;
  18366. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18367. property RTREN : TBits_1 read getRTREN write setRTREN;
  18368. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18369. property TXEN : TBits_1 read getTXEN write setTXEN;
  18370. property TXERR : TBits_1 read getTXERR write setTXERR;
  18371. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18372. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18373. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18374. property UINC : TBits_1 read getUINC write setUINC;
  18375. property w : TBits_32 read getw write setw;
  18376. end;
  18377. TCAN1_C1FIFOINT16 = record
  18378. private
  18379. function getRXFULLIE : TBits_1; inline;
  18380. function getRXFULLIF : TBits_1; inline;
  18381. function getRXHALFIE : TBits_1; inline;
  18382. function getRXHALFIF : TBits_1; inline;
  18383. function getRXNEMPTYIE : TBits_1; inline;
  18384. function getRXNEMPTYIF : TBits_1; inline;
  18385. function getRXOVFLIE : TBits_1; inline;
  18386. function getRXOVFLIF : TBits_1; inline;
  18387. function getTXEMPTYIE : TBits_1; inline;
  18388. function getTXEMPTYIF : TBits_1; inline;
  18389. function getTXHALFIE : TBits_1; inline;
  18390. function getTXHALFIF : TBits_1; inline;
  18391. function getTXNFULLIE : TBits_1; inline;
  18392. function getTXNFULLIF : TBits_1; inline;
  18393. function getw : TBits_32; inline;
  18394. procedure setRXFULLIE(thebits : TBits_1); inline;
  18395. procedure setRXFULLIF(thebits : TBits_1); inline;
  18396. procedure setRXHALFIE(thebits : TBits_1); inline;
  18397. procedure setRXHALFIF(thebits : TBits_1); inline;
  18398. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18399. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18400. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18401. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18402. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18403. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18404. procedure setTXHALFIE(thebits : TBits_1); inline;
  18405. procedure setTXHALFIF(thebits : TBits_1); inline;
  18406. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18407. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18408. procedure setw(thebits : TBits_32); inline;
  18409. public
  18410. procedure clearRXFULLIE; inline;
  18411. procedure clearRXFULLIF; inline;
  18412. procedure clearRXHALFIE; inline;
  18413. procedure clearRXHALFIF; inline;
  18414. procedure clearRXNEMPTYIE; inline;
  18415. procedure clearRXNEMPTYIF; inline;
  18416. procedure clearRXOVFLIE; inline;
  18417. procedure clearRXOVFLIF; inline;
  18418. procedure clearTXEMPTYIE; inline;
  18419. procedure clearTXEMPTYIF; inline;
  18420. procedure clearTXHALFIE; inline;
  18421. procedure clearTXHALFIF; inline;
  18422. procedure clearTXNFULLIE; inline;
  18423. procedure clearTXNFULLIF; inline;
  18424. procedure setRXFULLIE; inline;
  18425. procedure setRXFULLIF; inline;
  18426. procedure setRXHALFIE; inline;
  18427. procedure setRXHALFIF; inline;
  18428. procedure setRXNEMPTYIE; inline;
  18429. procedure setRXNEMPTYIF; inline;
  18430. procedure setRXOVFLIE; inline;
  18431. procedure setRXOVFLIF; inline;
  18432. procedure setTXEMPTYIE; inline;
  18433. procedure setTXEMPTYIF; inline;
  18434. procedure setTXHALFIE; inline;
  18435. procedure setTXHALFIF; inline;
  18436. procedure setTXNFULLIE; inline;
  18437. procedure setTXNFULLIF; inline;
  18438. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18439. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18440. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18441. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18442. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18443. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18444. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18445. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18446. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18447. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18448. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18449. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18450. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18451. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18452. property w : TBits_32 read getw write setw;
  18453. end;
  18454. TCAN1_C1FIFOCI16 = record
  18455. private
  18456. function getCFIFOCI : TBits_5; inline;
  18457. function getw : TBits_32; inline;
  18458. procedure setCFIFOCI(thebits : TBits_5); inline;
  18459. procedure setw(thebits : TBits_32); inline;
  18460. public
  18461. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18462. property w : TBits_32 read getw write setw;
  18463. end;
  18464. TCAN1_C1FIFOCON17 = record
  18465. private
  18466. function getDONLY : TBits_1; inline;
  18467. function getFRESET : TBits_1; inline;
  18468. function getFSIZE : TBits_5; inline;
  18469. function getRTREN : TBits_1; inline;
  18470. function getTXABAT : TBits_1; inline;
  18471. function getTXEN : TBits_1; inline;
  18472. function getTXERR : TBits_1; inline;
  18473. function getTXLARB : TBits_1; inline;
  18474. function getTXPRI : TBits_2; inline;
  18475. function getTXREQ : TBits_1; inline;
  18476. function getUINC : TBits_1; inline;
  18477. function getw : TBits_32; inline;
  18478. procedure setDONLY(thebits : TBits_1); inline;
  18479. procedure setFRESET(thebits : TBits_1); inline;
  18480. procedure setFSIZE(thebits : TBits_5); inline;
  18481. procedure setRTREN(thebits : TBits_1); inline;
  18482. procedure setTXABAT(thebits : TBits_1); inline;
  18483. procedure setTXEN(thebits : TBits_1); inline;
  18484. procedure setTXERR(thebits : TBits_1); inline;
  18485. procedure setTXLARB(thebits : TBits_1); inline;
  18486. procedure setTXPRI(thebits : TBits_2); inline;
  18487. procedure setTXREQ(thebits : TBits_1); inline;
  18488. procedure setUINC(thebits : TBits_1); inline;
  18489. procedure setw(thebits : TBits_32); inline;
  18490. public
  18491. procedure clearDONLY; inline;
  18492. procedure clearFRESET; inline;
  18493. procedure clearRTREN; inline;
  18494. procedure clearTXABAT; inline;
  18495. procedure clearTXEN; inline;
  18496. procedure clearTXERR; inline;
  18497. procedure clearTXLARB; inline;
  18498. procedure clearTXREQ; inline;
  18499. procedure clearUINC; inline;
  18500. procedure setDONLY; inline;
  18501. procedure setFRESET; inline;
  18502. procedure setRTREN; inline;
  18503. procedure setTXABAT; inline;
  18504. procedure setTXEN; inline;
  18505. procedure setTXERR; inline;
  18506. procedure setTXLARB; inline;
  18507. procedure setTXREQ; inline;
  18508. procedure setUINC; inline;
  18509. property DONLY : TBits_1 read getDONLY write setDONLY;
  18510. property FRESET : TBits_1 read getFRESET write setFRESET;
  18511. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18512. property RTREN : TBits_1 read getRTREN write setRTREN;
  18513. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18514. property TXEN : TBits_1 read getTXEN write setTXEN;
  18515. property TXERR : TBits_1 read getTXERR write setTXERR;
  18516. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18517. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18518. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18519. property UINC : TBits_1 read getUINC write setUINC;
  18520. property w : TBits_32 read getw write setw;
  18521. end;
  18522. TCAN1_C1FIFOINT17 = record
  18523. private
  18524. function getRXFULLIE : TBits_1; inline;
  18525. function getRXFULLIF : TBits_1; inline;
  18526. function getRXHALFIE : TBits_1; inline;
  18527. function getRXHALFIF : TBits_1; inline;
  18528. function getRXNEMPTYIE : TBits_1; inline;
  18529. function getRXNEMPTYIF : TBits_1; inline;
  18530. function getRXOVFLIE : TBits_1; inline;
  18531. function getRXOVFLIF : TBits_1; inline;
  18532. function getTXEMPTYIE : TBits_1; inline;
  18533. function getTXEMPTYIF : TBits_1; inline;
  18534. function getTXHALFIE : TBits_1; inline;
  18535. function getTXHALFIF : TBits_1; inline;
  18536. function getTXNFULLIE : TBits_1; inline;
  18537. function getTXNFULLIF : TBits_1; inline;
  18538. function getw : TBits_32; inline;
  18539. procedure setRXFULLIE(thebits : TBits_1); inline;
  18540. procedure setRXFULLIF(thebits : TBits_1); inline;
  18541. procedure setRXHALFIE(thebits : TBits_1); inline;
  18542. procedure setRXHALFIF(thebits : TBits_1); inline;
  18543. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18544. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18545. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18546. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18547. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18548. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18549. procedure setTXHALFIE(thebits : TBits_1); inline;
  18550. procedure setTXHALFIF(thebits : TBits_1); inline;
  18551. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18552. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18553. procedure setw(thebits : TBits_32); inline;
  18554. public
  18555. procedure clearRXFULLIE; inline;
  18556. procedure clearRXFULLIF; inline;
  18557. procedure clearRXHALFIE; inline;
  18558. procedure clearRXHALFIF; inline;
  18559. procedure clearRXNEMPTYIE; inline;
  18560. procedure clearRXNEMPTYIF; inline;
  18561. procedure clearRXOVFLIE; inline;
  18562. procedure clearRXOVFLIF; inline;
  18563. procedure clearTXEMPTYIE; inline;
  18564. procedure clearTXEMPTYIF; inline;
  18565. procedure clearTXHALFIE; inline;
  18566. procedure clearTXHALFIF; inline;
  18567. procedure clearTXNFULLIE; inline;
  18568. procedure clearTXNFULLIF; inline;
  18569. procedure setRXFULLIE; inline;
  18570. procedure setRXFULLIF; inline;
  18571. procedure setRXHALFIE; inline;
  18572. procedure setRXHALFIF; inline;
  18573. procedure setRXNEMPTYIE; inline;
  18574. procedure setRXNEMPTYIF; inline;
  18575. procedure setRXOVFLIE; inline;
  18576. procedure setRXOVFLIF; inline;
  18577. procedure setTXEMPTYIE; inline;
  18578. procedure setTXEMPTYIF; inline;
  18579. procedure setTXHALFIE; inline;
  18580. procedure setTXHALFIF; inline;
  18581. procedure setTXNFULLIE; inline;
  18582. procedure setTXNFULLIF; inline;
  18583. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18584. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18585. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18586. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18587. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18588. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18589. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18590. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18591. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18592. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18593. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18594. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18595. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18596. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18597. property w : TBits_32 read getw write setw;
  18598. end;
  18599. TCAN1_C1FIFOCI17 = record
  18600. private
  18601. function getCFIFOCI : TBits_5; inline;
  18602. function getw : TBits_32; inline;
  18603. procedure setCFIFOCI(thebits : TBits_5); inline;
  18604. procedure setw(thebits : TBits_32); inline;
  18605. public
  18606. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18607. property w : TBits_32 read getw write setw;
  18608. end;
  18609. TCAN1_C1FIFOCON18 = record
  18610. private
  18611. function getDONLY : TBits_1; inline;
  18612. function getFRESET : TBits_1; inline;
  18613. function getFSIZE : TBits_5; inline;
  18614. function getRTREN : TBits_1; inline;
  18615. function getTXABAT : TBits_1; inline;
  18616. function getTXEN : TBits_1; inline;
  18617. function getTXERR : TBits_1; inline;
  18618. function getTXLARB : TBits_1; inline;
  18619. function getTXPRI : TBits_2; inline;
  18620. function getTXREQ : TBits_1; inline;
  18621. function getUINC : TBits_1; inline;
  18622. function getw : TBits_32; inline;
  18623. procedure setDONLY(thebits : TBits_1); inline;
  18624. procedure setFRESET(thebits : TBits_1); inline;
  18625. procedure setFSIZE(thebits : TBits_5); inline;
  18626. procedure setRTREN(thebits : TBits_1); inline;
  18627. procedure setTXABAT(thebits : TBits_1); inline;
  18628. procedure setTXEN(thebits : TBits_1); inline;
  18629. procedure setTXERR(thebits : TBits_1); inline;
  18630. procedure setTXLARB(thebits : TBits_1); inline;
  18631. procedure setTXPRI(thebits : TBits_2); inline;
  18632. procedure setTXREQ(thebits : TBits_1); inline;
  18633. procedure setUINC(thebits : TBits_1); inline;
  18634. procedure setw(thebits : TBits_32); inline;
  18635. public
  18636. procedure clearDONLY; inline;
  18637. procedure clearFRESET; inline;
  18638. procedure clearRTREN; inline;
  18639. procedure clearTXABAT; inline;
  18640. procedure clearTXEN; inline;
  18641. procedure clearTXERR; inline;
  18642. procedure clearTXLARB; inline;
  18643. procedure clearTXREQ; inline;
  18644. procedure clearUINC; inline;
  18645. procedure setDONLY; inline;
  18646. procedure setFRESET; inline;
  18647. procedure setRTREN; inline;
  18648. procedure setTXABAT; inline;
  18649. procedure setTXEN; inline;
  18650. procedure setTXERR; inline;
  18651. procedure setTXLARB; inline;
  18652. procedure setTXREQ; inline;
  18653. procedure setUINC; inline;
  18654. property DONLY : TBits_1 read getDONLY write setDONLY;
  18655. property FRESET : TBits_1 read getFRESET write setFRESET;
  18656. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18657. property RTREN : TBits_1 read getRTREN write setRTREN;
  18658. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18659. property TXEN : TBits_1 read getTXEN write setTXEN;
  18660. property TXERR : TBits_1 read getTXERR write setTXERR;
  18661. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18662. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18663. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18664. property UINC : TBits_1 read getUINC write setUINC;
  18665. property w : TBits_32 read getw write setw;
  18666. end;
  18667. TCAN1_C1FIFOINT18 = record
  18668. private
  18669. function getRXFULLIE : TBits_1; inline;
  18670. function getRXFULLIF : TBits_1; inline;
  18671. function getRXHALFIE : TBits_1; inline;
  18672. function getRXHALFIF : TBits_1; inline;
  18673. function getRXNEMPTYIE : TBits_1; inline;
  18674. function getRXNEMPTYIF : TBits_1; inline;
  18675. function getRXOVFLIE : TBits_1; inline;
  18676. function getRXOVFLIF : TBits_1; inline;
  18677. function getTXEMPTYIE : TBits_1; inline;
  18678. function getTXEMPTYIF : TBits_1; inline;
  18679. function getTXHALFIE : TBits_1; inline;
  18680. function getTXHALFIF : TBits_1; inline;
  18681. function getTXNFULLIE : TBits_1; inline;
  18682. function getTXNFULLIF : TBits_1; inline;
  18683. function getw : TBits_32; inline;
  18684. procedure setRXFULLIE(thebits : TBits_1); inline;
  18685. procedure setRXFULLIF(thebits : TBits_1); inline;
  18686. procedure setRXHALFIE(thebits : TBits_1); inline;
  18687. procedure setRXHALFIF(thebits : TBits_1); inline;
  18688. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18689. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18690. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18691. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18692. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18693. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18694. procedure setTXHALFIE(thebits : TBits_1); inline;
  18695. procedure setTXHALFIF(thebits : TBits_1); inline;
  18696. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18697. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18698. procedure setw(thebits : TBits_32); inline;
  18699. public
  18700. procedure clearRXFULLIE; inline;
  18701. procedure clearRXFULLIF; inline;
  18702. procedure clearRXHALFIE; inline;
  18703. procedure clearRXHALFIF; inline;
  18704. procedure clearRXNEMPTYIE; inline;
  18705. procedure clearRXNEMPTYIF; inline;
  18706. procedure clearRXOVFLIE; inline;
  18707. procedure clearRXOVFLIF; inline;
  18708. procedure clearTXEMPTYIE; inline;
  18709. procedure clearTXEMPTYIF; inline;
  18710. procedure clearTXHALFIE; inline;
  18711. procedure clearTXHALFIF; inline;
  18712. procedure clearTXNFULLIE; inline;
  18713. procedure clearTXNFULLIF; inline;
  18714. procedure setRXFULLIE; inline;
  18715. procedure setRXFULLIF; inline;
  18716. procedure setRXHALFIE; inline;
  18717. procedure setRXHALFIF; inline;
  18718. procedure setRXNEMPTYIE; inline;
  18719. procedure setRXNEMPTYIF; inline;
  18720. procedure setRXOVFLIE; inline;
  18721. procedure setRXOVFLIF; inline;
  18722. procedure setTXEMPTYIE; inline;
  18723. procedure setTXEMPTYIF; inline;
  18724. procedure setTXHALFIE; inline;
  18725. procedure setTXHALFIF; inline;
  18726. procedure setTXNFULLIE; inline;
  18727. procedure setTXNFULLIF; inline;
  18728. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18729. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18730. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18731. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18732. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18733. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18734. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18735. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18736. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18737. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18738. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18739. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18740. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18741. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18742. property w : TBits_32 read getw write setw;
  18743. end;
  18744. TCAN1_C1FIFOCI18 = record
  18745. private
  18746. function getCFIFOCI : TBits_5; inline;
  18747. function getw : TBits_32; inline;
  18748. procedure setCFIFOCI(thebits : TBits_5); inline;
  18749. procedure setw(thebits : TBits_32); inline;
  18750. public
  18751. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18752. property w : TBits_32 read getw write setw;
  18753. end;
  18754. TCAN1_C1FIFOCON19 = record
  18755. private
  18756. function getDONLY : TBits_1; inline;
  18757. function getFRESET : TBits_1; inline;
  18758. function getFSIZE : TBits_5; inline;
  18759. function getRTREN : TBits_1; inline;
  18760. function getTXABAT : TBits_1; inline;
  18761. function getTXEN : TBits_1; inline;
  18762. function getTXERR : TBits_1; inline;
  18763. function getTXLARB : TBits_1; inline;
  18764. function getTXPRI : TBits_2; inline;
  18765. function getTXREQ : TBits_1; inline;
  18766. function getUINC : TBits_1; inline;
  18767. function getw : TBits_32; inline;
  18768. procedure setDONLY(thebits : TBits_1); inline;
  18769. procedure setFRESET(thebits : TBits_1); inline;
  18770. procedure setFSIZE(thebits : TBits_5); inline;
  18771. procedure setRTREN(thebits : TBits_1); inline;
  18772. procedure setTXABAT(thebits : TBits_1); inline;
  18773. procedure setTXEN(thebits : TBits_1); inline;
  18774. procedure setTXERR(thebits : TBits_1); inline;
  18775. procedure setTXLARB(thebits : TBits_1); inline;
  18776. procedure setTXPRI(thebits : TBits_2); inline;
  18777. procedure setTXREQ(thebits : TBits_1); inline;
  18778. procedure setUINC(thebits : TBits_1); inline;
  18779. procedure setw(thebits : TBits_32); inline;
  18780. public
  18781. procedure clearDONLY; inline;
  18782. procedure clearFRESET; inline;
  18783. procedure clearRTREN; inline;
  18784. procedure clearTXABAT; inline;
  18785. procedure clearTXEN; inline;
  18786. procedure clearTXERR; inline;
  18787. procedure clearTXLARB; inline;
  18788. procedure clearTXREQ; inline;
  18789. procedure clearUINC; inline;
  18790. procedure setDONLY; inline;
  18791. procedure setFRESET; inline;
  18792. procedure setRTREN; inline;
  18793. procedure setTXABAT; inline;
  18794. procedure setTXEN; inline;
  18795. procedure setTXERR; inline;
  18796. procedure setTXLARB; inline;
  18797. procedure setTXREQ; inline;
  18798. procedure setUINC; inline;
  18799. property DONLY : TBits_1 read getDONLY write setDONLY;
  18800. property FRESET : TBits_1 read getFRESET write setFRESET;
  18801. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18802. property RTREN : TBits_1 read getRTREN write setRTREN;
  18803. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18804. property TXEN : TBits_1 read getTXEN write setTXEN;
  18805. property TXERR : TBits_1 read getTXERR write setTXERR;
  18806. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18807. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18808. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18809. property UINC : TBits_1 read getUINC write setUINC;
  18810. property w : TBits_32 read getw write setw;
  18811. end;
  18812. TCAN1_C1FIFOINT19 = record
  18813. private
  18814. function getRXFULLIE : TBits_1; inline;
  18815. function getRXFULLIF : TBits_1; inline;
  18816. function getRXHALFIE : TBits_1; inline;
  18817. function getRXHALFIF : TBits_1; inline;
  18818. function getRXNEMPTYIE : TBits_1; inline;
  18819. function getRXNEMPTYIF : TBits_1; inline;
  18820. function getRXOVFLIE : TBits_1; inline;
  18821. function getRXOVFLIF : TBits_1; inline;
  18822. function getTXEMPTYIE : TBits_1; inline;
  18823. function getTXEMPTYIF : TBits_1; inline;
  18824. function getTXHALFIE : TBits_1; inline;
  18825. function getTXHALFIF : TBits_1; inline;
  18826. function getTXNFULLIE : TBits_1; inline;
  18827. function getTXNFULLIF : TBits_1; inline;
  18828. function getw : TBits_32; inline;
  18829. procedure setRXFULLIE(thebits : TBits_1); inline;
  18830. procedure setRXFULLIF(thebits : TBits_1); inline;
  18831. procedure setRXHALFIE(thebits : TBits_1); inline;
  18832. procedure setRXHALFIF(thebits : TBits_1); inline;
  18833. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18834. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18835. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18836. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18837. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18838. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18839. procedure setTXHALFIE(thebits : TBits_1); inline;
  18840. procedure setTXHALFIF(thebits : TBits_1); inline;
  18841. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18842. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18843. procedure setw(thebits : TBits_32); inline;
  18844. public
  18845. procedure clearRXFULLIE; inline;
  18846. procedure clearRXFULLIF; inline;
  18847. procedure clearRXHALFIE; inline;
  18848. procedure clearRXHALFIF; inline;
  18849. procedure clearRXNEMPTYIE; inline;
  18850. procedure clearRXNEMPTYIF; inline;
  18851. procedure clearRXOVFLIE; inline;
  18852. procedure clearRXOVFLIF; inline;
  18853. procedure clearTXEMPTYIE; inline;
  18854. procedure clearTXEMPTYIF; inline;
  18855. procedure clearTXHALFIE; inline;
  18856. procedure clearTXHALFIF; inline;
  18857. procedure clearTXNFULLIE; inline;
  18858. procedure clearTXNFULLIF; inline;
  18859. procedure setRXFULLIE; inline;
  18860. procedure setRXFULLIF; inline;
  18861. procedure setRXHALFIE; inline;
  18862. procedure setRXHALFIF; inline;
  18863. procedure setRXNEMPTYIE; inline;
  18864. procedure setRXNEMPTYIF; inline;
  18865. procedure setRXOVFLIE; inline;
  18866. procedure setRXOVFLIF; inline;
  18867. procedure setTXEMPTYIE; inline;
  18868. procedure setTXEMPTYIF; inline;
  18869. procedure setTXHALFIE; inline;
  18870. procedure setTXHALFIF; inline;
  18871. procedure setTXNFULLIE; inline;
  18872. procedure setTXNFULLIF; inline;
  18873. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  18874. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  18875. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  18876. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  18877. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  18878. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  18879. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  18880. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  18881. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  18882. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  18883. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  18884. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  18885. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  18886. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  18887. property w : TBits_32 read getw write setw;
  18888. end;
  18889. TCAN1_C1FIFOCI19 = record
  18890. private
  18891. function getCFIFOCI : TBits_5; inline;
  18892. function getw : TBits_32; inline;
  18893. procedure setCFIFOCI(thebits : TBits_5); inline;
  18894. procedure setw(thebits : TBits_32); inline;
  18895. public
  18896. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  18897. property w : TBits_32 read getw write setw;
  18898. end;
  18899. TCAN1_C1FIFOCON20 = record
  18900. private
  18901. function getDONLY : TBits_1; inline;
  18902. function getFRESET : TBits_1; inline;
  18903. function getFSIZE : TBits_5; inline;
  18904. function getRTREN : TBits_1; inline;
  18905. function getTXABAT : TBits_1; inline;
  18906. function getTXEN : TBits_1; inline;
  18907. function getTXERR : TBits_1; inline;
  18908. function getTXLARB : TBits_1; inline;
  18909. function getTXPRI : TBits_2; inline;
  18910. function getTXREQ : TBits_1; inline;
  18911. function getUINC : TBits_1; inline;
  18912. function getw : TBits_32; inline;
  18913. procedure setDONLY(thebits : TBits_1); inline;
  18914. procedure setFRESET(thebits : TBits_1); inline;
  18915. procedure setFSIZE(thebits : TBits_5); inline;
  18916. procedure setRTREN(thebits : TBits_1); inline;
  18917. procedure setTXABAT(thebits : TBits_1); inline;
  18918. procedure setTXEN(thebits : TBits_1); inline;
  18919. procedure setTXERR(thebits : TBits_1); inline;
  18920. procedure setTXLARB(thebits : TBits_1); inline;
  18921. procedure setTXPRI(thebits : TBits_2); inline;
  18922. procedure setTXREQ(thebits : TBits_1); inline;
  18923. procedure setUINC(thebits : TBits_1); inline;
  18924. procedure setw(thebits : TBits_32); inline;
  18925. public
  18926. procedure clearDONLY; inline;
  18927. procedure clearFRESET; inline;
  18928. procedure clearRTREN; inline;
  18929. procedure clearTXABAT; inline;
  18930. procedure clearTXEN; inline;
  18931. procedure clearTXERR; inline;
  18932. procedure clearTXLARB; inline;
  18933. procedure clearTXREQ; inline;
  18934. procedure clearUINC; inline;
  18935. procedure setDONLY; inline;
  18936. procedure setFRESET; inline;
  18937. procedure setRTREN; inline;
  18938. procedure setTXABAT; inline;
  18939. procedure setTXEN; inline;
  18940. procedure setTXERR; inline;
  18941. procedure setTXLARB; inline;
  18942. procedure setTXREQ; inline;
  18943. procedure setUINC; inline;
  18944. property DONLY : TBits_1 read getDONLY write setDONLY;
  18945. property FRESET : TBits_1 read getFRESET write setFRESET;
  18946. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  18947. property RTREN : TBits_1 read getRTREN write setRTREN;
  18948. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  18949. property TXEN : TBits_1 read getTXEN write setTXEN;
  18950. property TXERR : TBits_1 read getTXERR write setTXERR;
  18951. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  18952. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  18953. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  18954. property UINC : TBits_1 read getUINC write setUINC;
  18955. property w : TBits_32 read getw write setw;
  18956. end;
  18957. TCAN1_C1FIFOINT20 = record
  18958. private
  18959. function getRXFULLIE : TBits_1; inline;
  18960. function getRXFULLIF : TBits_1; inline;
  18961. function getRXHALFIE : TBits_1; inline;
  18962. function getRXHALFIF : TBits_1; inline;
  18963. function getRXNEMPTYIE : TBits_1; inline;
  18964. function getRXNEMPTYIF : TBits_1; inline;
  18965. function getRXOVFLIE : TBits_1; inline;
  18966. function getRXOVFLIF : TBits_1; inline;
  18967. function getTXEMPTYIE : TBits_1; inline;
  18968. function getTXEMPTYIF : TBits_1; inline;
  18969. function getTXHALFIE : TBits_1; inline;
  18970. function getTXHALFIF : TBits_1; inline;
  18971. function getTXNFULLIE : TBits_1; inline;
  18972. function getTXNFULLIF : TBits_1; inline;
  18973. function getw : TBits_32; inline;
  18974. procedure setRXFULLIE(thebits : TBits_1); inline;
  18975. procedure setRXFULLIF(thebits : TBits_1); inline;
  18976. procedure setRXHALFIE(thebits : TBits_1); inline;
  18977. procedure setRXHALFIF(thebits : TBits_1); inline;
  18978. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  18979. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  18980. procedure setRXOVFLIE(thebits : TBits_1); inline;
  18981. procedure setRXOVFLIF(thebits : TBits_1); inline;
  18982. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  18983. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  18984. procedure setTXHALFIE(thebits : TBits_1); inline;
  18985. procedure setTXHALFIF(thebits : TBits_1); inline;
  18986. procedure setTXNFULLIE(thebits : TBits_1); inline;
  18987. procedure setTXNFULLIF(thebits : TBits_1); inline;
  18988. procedure setw(thebits : TBits_32); inline;
  18989. public
  18990. procedure clearRXFULLIE; inline;
  18991. procedure clearRXFULLIF; inline;
  18992. procedure clearRXHALFIE; inline;
  18993. procedure clearRXHALFIF; inline;
  18994. procedure clearRXNEMPTYIE; inline;
  18995. procedure clearRXNEMPTYIF; inline;
  18996. procedure clearRXOVFLIE; inline;
  18997. procedure clearRXOVFLIF; inline;
  18998. procedure clearTXEMPTYIE; inline;
  18999. procedure clearTXEMPTYIF; inline;
  19000. procedure clearTXHALFIE; inline;
  19001. procedure clearTXHALFIF; inline;
  19002. procedure clearTXNFULLIE; inline;
  19003. procedure clearTXNFULLIF; inline;
  19004. procedure setRXFULLIE; inline;
  19005. procedure setRXFULLIF; inline;
  19006. procedure setRXHALFIE; inline;
  19007. procedure setRXHALFIF; inline;
  19008. procedure setRXNEMPTYIE; inline;
  19009. procedure setRXNEMPTYIF; inline;
  19010. procedure setRXOVFLIE; inline;
  19011. procedure setRXOVFLIF; inline;
  19012. procedure setTXEMPTYIE; inline;
  19013. procedure setTXEMPTYIF; inline;
  19014. procedure setTXHALFIE; inline;
  19015. procedure setTXHALFIF; inline;
  19016. procedure setTXNFULLIE; inline;
  19017. procedure setTXNFULLIF; inline;
  19018. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19019. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19020. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19021. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19022. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19023. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19024. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19025. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19026. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19027. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19028. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19029. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19030. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19031. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19032. property w : TBits_32 read getw write setw;
  19033. end;
  19034. TCAN1_C1FIFOCI20 = record
  19035. private
  19036. function getCFIFOCI : TBits_5; inline;
  19037. function getw : TBits_32; inline;
  19038. procedure setCFIFOCI(thebits : TBits_5); inline;
  19039. procedure setw(thebits : TBits_32); inline;
  19040. public
  19041. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19042. property w : TBits_32 read getw write setw;
  19043. end;
  19044. TCAN1_C1FIFOCON21 = record
  19045. private
  19046. function getDONLY : TBits_1; inline;
  19047. function getFRESET : TBits_1; inline;
  19048. function getFSIZE : TBits_5; inline;
  19049. function getRTREN : TBits_1; inline;
  19050. function getTXABAT : TBits_1; inline;
  19051. function getTXEN : TBits_1; inline;
  19052. function getTXERR : TBits_1; inline;
  19053. function getTXLARB : TBits_1; inline;
  19054. function getTXPRI : TBits_2; inline;
  19055. function getTXREQ : TBits_1; inline;
  19056. function getUINC : TBits_1; inline;
  19057. function getw : TBits_32; inline;
  19058. procedure setDONLY(thebits : TBits_1); inline;
  19059. procedure setFRESET(thebits : TBits_1); inline;
  19060. procedure setFSIZE(thebits : TBits_5); inline;
  19061. procedure setRTREN(thebits : TBits_1); inline;
  19062. procedure setTXABAT(thebits : TBits_1); inline;
  19063. procedure setTXEN(thebits : TBits_1); inline;
  19064. procedure setTXERR(thebits : TBits_1); inline;
  19065. procedure setTXLARB(thebits : TBits_1); inline;
  19066. procedure setTXPRI(thebits : TBits_2); inline;
  19067. procedure setTXREQ(thebits : TBits_1); inline;
  19068. procedure setUINC(thebits : TBits_1); inline;
  19069. procedure setw(thebits : TBits_32); inline;
  19070. public
  19071. procedure clearDONLY; inline;
  19072. procedure clearFRESET; inline;
  19073. procedure clearRTREN; inline;
  19074. procedure clearTXABAT; inline;
  19075. procedure clearTXEN; inline;
  19076. procedure clearTXERR; inline;
  19077. procedure clearTXLARB; inline;
  19078. procedure clearTXREQ; inline;
  19079. procedure clearUINC; inline;
  19080. procedure setDONLY; inline;
  19081. procedure setFRESET; inline;
  19082. procedure setRTREN; inline;
  19083. procedure setTXABAT; inline;
  19084. procedure setTXEN; inline;
  19085. procedure setTXERR; inline;
  19086. procedure setTXLARB; inline;
  19087. procedure setTXREQ; inline;
  19088. procedure setUINC; inline;
  19089. property DONLY : TBits_1 read getDONLY write setDONLY;
  19090. property FRESET : TBits_1 read getFRESET write setFRESET;
  19091. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19092. property RTREN : TBits_1 read getRTREN write setRTREN;
  19093. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19094. property TXEN : TBits_1 read getTXEN write setTXEN;
  19095. property TXERR : TBits_1 read getTXERR write setTXERR;
  19096. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19097. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19098. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19099. property UINC : TBits_1 read getUINC write setUINC;
  19100. property w : TBits_32 read getw write setw;
  19101. end;
  19102. TCAN1_C1FIFOINT21 = record
  19103. private
  19104. function getRXFULLIE : TBits_1; inline;
  19105. function getRXFULLIF : TBits_1; inline;
  19106. function getRXHALFIE : TBits_1; inline;
  19107. function getRXHALFIF : TBits_1; inline;
  19108. function getRXNEMPTYIE : TBits_1; inline;
  19109. function getRXNEMPTYIF : TBits_1; inline;
  19110. function getRXOVFLIE : TBits_1; inline;
  19111. function getRXOVFLIF : TBits_1; inline;
  19112. function getTXEMPTYIE : TBits_1; inline;
  19113. function getTXEMPTYIF : TBits_1; inline;
  19114. function getTXHALFIE : TBits_1; inline;
  19115. function getTXHALFIF : TBits_1; inline;
  19116. function getTXNFULLIE : TBits_1; inline;
  19117. function getTXNFULLIF : TBits_1; inline;
  19118. function getw : TBits_32; inline;
  19119. procedure setRXFULLIE(thebits : TBits_1); inline;
  19120. procedure setRXFULLIF(thebits : TBits_1); inline;
  19121. procedure setRXHALFIE(thebits : TBits_1); inline;
  19122. procedure setRXHALFIF(thebits : TBits_1); inline;
  19123. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19124. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19125. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19126. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19127. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19128. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19129. procedure setTXHALFIE(thebits : TBits_1); inline;
  19130. procedure setTXHALFIF(thebits : TBits_1); inline;
  19131. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19132. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19133. procedure setw(thebits : TBits_32); inline;
  19134. public
  19135. procedure clearRXFULLIE; inline;
  19136. procedure clearRXFULLIF; inline;
  19137. procedure clearRXHALFIE; inline;
  19138. procedure clearRXHALFIF; inline;
  19139. procedure clearRXNEMPTYIE; inline;
  19140. procedure clearRXNEMPTYIF; inline;
  19141. procedure clearRXOVFLIE; inline;
  19142. procedure clearRXOVFLIF; inline;
  19143. procedure clearTXEMPTYIE; inline;
  19144. procedure clearTXEMPTYIF; inline;
  19145. procedure clearTXHALFIE; inline;
  19146. procedure clearTXHALFIF; inline;
  19147. procedure clearTXNFULLIE; inline;
  19148. procedure clearTXNFULLIF; inline;
  19149. procedure setRXFULLIE; inline;
  19150. procedure setRXFULLIF; inline;
  19151. procedure setRXHALFIE; inline;
  19152. procedure setRXHALFIF; inline;
  19153. procedure setRXNEMPTYIE; inline;
  19154. procedure setRXNEMPTYIF; inline;
  19155. procedure setRXOVFLIE; inline;
  19156. procedure setRXOVFLIF; inline;
  19157. procedure setTXEMPTYIE; inline;
  19158. procedure setTXEMPTYIF; inline;
  19159. procedure setTXHALFIE; inline;
  19160. procedure setTXHALFIF; inline;
  19161. procedure setTXNFULLIE; inline;
  19162. procedure setTXNFULLIF; inline;
  19163. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19164. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19165. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19166. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19167. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19168. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19169. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19170. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19171. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19172. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19173. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19174. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19175. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19176. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19177. property w : TBits_32 read getw write setw;
  19178. end;
  19179. TCAN1_C1FIFOCI21 = record
  19180. private
  19181. function getCFIFOCI : TBits_5; inline;
  19182. function getw : TBits_32; inline;
  19183. procedure setCFIFOCI(thebits : TBits_5); inline;
  19184. procedure setw(thebits : TBits_32); inline;
  19185. public
  19186. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19187. property w : TBits_32 read getw write setw;
  19188. end;
  19189. TCAN1_C1FIFOCON22 = record
  19190. private
  19191. function getDONLY : TBits_1; inline;
  19192. function getFRESET : TBits_1; inline;
  19193. function getFSIZE : TBits_5; inline;
  19194. function getRTREN : TBits_1; inline;
  19195. function getTXABAT : TBits_1; inline;
  19196. function getTXEN : TBits_1; inline;
  19197. function getTXERR : TBits_1; inline;
  19198. function getTXLARB : TBits_1; inline;
  19199. function getTXPRI : TBits_2; inline;
  19200. function getTXREQ : TBits_1; inline;
  19201. function getUINC : TBits_1; inline;
  19202. function getw : TBits_32; inline;
  19203. procedure setDONLY(thebits : TBits_1); inline;
  19204. procedure setFRESET(thebits : TBits_1); inline;
  19205. procedure setFSIZE(thebits : TBits_5); inline;
  19206. procedure setRTREN(thebits : TBits_1); inline;
  19207. procedure setTXABAT(thebits : TBits_1); inline;
  19208. procedure setTXEN(thebits : TBits_1); inline;
  19209. procedure setTXERR(thebits : TBits_1); inline;
  19210. procedure setTXLARB(thebits : TBits_1); inline;
  19211. procedure setTXPRI(thebits : TBits_2); inline;
  19212. procedure setTXREQ(thebits : TBits_1); inline;
  19213. procedure setUINC(thebits : TBits_1); inline;
  19214. procedure setw(thebits : TBits_32); inline;
  19215. public
  19216. procedure clearDONLY; inline;
  19217. procedure clearFRESET; inline;
  19218. procedure clearRTREN; inline;
  19219. procedure clearTXABAT; inline;
  19220. procedure clearTXEN; inline;
  19221. procedure clearTXERR; inline;
  19222. procedure clearTXLARB; inline;
  19223. procedure clearTXREQ; inline;
  19224. procedure clearUINC; inline;
  19225. procedure setDONLY; inline;
  19226. procedure setFRESET; inline;
  19227. procedure setRTREN; inline;
  19228. procedure setTXABAT; inline;
  19229. procedure setTXEN; inline;
  19230. procedure setTXERR; inline;
  19231. procedure setTXLARB; inline;
  19232. procedure setTXREQ; inline;
  19233. procedure setUINC; inline;
  19234. property DONLY : TBits_1 read getDONLY write setDONLY;
  19235. property FRESET : TBits_1 read getFRESET write setFRESET;
  19236. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19237. property RTREN : TBits_1 read getRTREN write setRTREN;
  19238. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19239. property TXEN : TBits_1 read getTXEN write setTXEN;
  19240. property TXERR : TBits_1 read getTXERR write setTXERR;
  19241. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19242. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19243. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19244. property UINC : TBits_1 read getUINC write setUINC;
  19245. property w : TBits_32 read getw write setw;
  19246. end;
  19247. TCAN1_C1FIFOINT22 = record
  19248. private
  19249. function getRXFULLIE : TBits_1; inline;
  19250. function getRXFULLIF : TBits_1; inline;
  19251. function getRXHALFIE : TBits_1; inline;
  19252. function getRXHALFIF : TBits_1; inline;
  19253. function getRXNEMPTYIE : TBits_1; inline;
  19254. function getRXNEMPTYIF : TBits_1; inline;
  19255. function getRXOVFLIE : TBits_1; inline;
  19256. function getRXOVFLIF : TBits_1; inline;
  19257. function getTXEMPTYIE : TBits_1; inline;
  19258. function getTXEMPTYIF : TBits_1; inline;
  19259. function getTXHALFIE : TBits_1; inline;
  19260. function getTXHALFIF : TBits_1; inline;
  19261. function getTXNFULLIE : TBits_1; inline;
  19262. function getTXNFULLIF : TBits_1; inline;
  19263. function getw : TBits_32; inline;
  19264. procedure setRXFULLIE(thebits : TBits_1); inline;
  19265. procedure setRXFULLIF(thebits : TBits_1); inline;
  19266. procedure setRXHALFIE(thebits : TBits_1); inline;
  19267. procedure setRXHALFIF(thebits : TBits_1); inline;
  19268. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19269. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19270. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19271. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19272. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19273. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19274. procedure setTXHALFIE(thebits : TBits_1); inline;
  19275. procedure setTXHALFIF(thebits : TBits_1); inline;
  19276. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19277. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19278. procedure setw(thebits : TBits_32); inline;
  19279. public
  19280. procedure clearRXFULLIE; inline;
  19281. procedure clearRXFULLIF; inline;
  19282. procedure clearRXHALFIE; inline;
  19283. procedure clearRXHALFIF; inline;
  19284. procedure clearRXNEMPTYIE; inline;
  19285. procedure clearRXNEMPTYIF; inline;
  19286. procedure clearRXOVFLIE; inline;
  19287. procedure clearRXOVFLIF; inline;
  19288. procedure clearTXEMPTYIE; inline;
  19289. procedure clearTXEMPTYIF; inline;
  19290. procedure clearTXHALFIE; inline;
  19291. procedure clearTXHALFIF; inline;
  19292. procedure clearTXNFULLIE; inline;
  19293. procedure clearTXNFULLIF; inline;
  19294. procedure setRXFULLIE; inline;
  19295. procedure setRXFULLIF; inline;
  19296. procedure setRXHALFIE; inline;
  19297. procedure setRXHALFIF; inline;
  19298. procedure setRXNEMPTYIE; inline;
  19299. procedure setRXNEMPTYIF; inline;
  19300. procedure setRXOVFLIE; inline;
  19301. procedure setRXOVFLIF; inline;
  19302. procedure setTXEMPTYIE; inline;
  19303. procedure setTXEMPTYIF; inline;
  19304. procedure setTXHALFIE; inline;
  19305. procedure setTXHALFIF; inline;
  19306. procedure setTXNFULLIE; inline;
  19307. procedure setTXNFULLIF; inline;
  19308. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19309. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19310. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19311. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19312. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19313. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19314. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19315. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19316. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19317. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19318. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19319. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19320. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19321. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19322. property w : TBits_32 read getw write setw;
  19323. end;
  19324. TCAN1_C1FIFOCI22 = record
  19325. private
  19326. function getCFIFOCI : TBits_5; inline;
  19327. function getw : TBits_32; inline;
  19328. procedure setCFIFOCI(thebits : TBits_5); inline;
  19329. procedure setw(thebits : TBits_32); inline;
  19330. public
  19331. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19332. property w : TBits_32 read getw write setw;
  19333. end;
  19334. TCAN1_C1FIFOCON23 = record
  19335. private
  19336. function getDONLY : TBits_1; inline;
  19337. function getFRESET : TBits_1; inline;
  19338. function getFSIZE : TBits_5; inline;
  19339. function getRTREN : TBits_1; inline;
  19340. function getTXABAT : TBits_1; inline;
  19341. function getTXEN : TBits_1; inline;
  19342. function getTXERR : TBits_1; inline;
  19343. function getTXLARB : TBits_1; inline;
  19344. function getTXPRI : TBits_2; inline;
  19345. function getTXREQ : TBits_1; inline;
  19346. function getUINC : TBits_1; inline;
  19347. function getw : TBits_32; inline;
  19348. procedure setDONLY(thebits : TBits_1); inline;
  19349. procedure setFRESET(thebits : TBits_1); inline;
  19350. procedure setFSIZE(thebits : TBits_5); inline;
  19351. procedure setRTREN(thebits : TBits_1); inline;
  19352. procedure setTXABAT(thebits : TBits_1); inline;
  19353. procedure setTXEN(thebits : TBits_1); inline;
  19354. procedure setTXERR(thebits : TBits_1); inline;
  19355. procedure setTXLARB(thebits : TBits_1); inline;
  19356. procedure setTXPRI(thebits : TBits_2); inline;
  19357. procedure setTXREQ(thebits : TBits_1); inline;
  19358. procedure setUINC(thebits : TBits_1); inline;
  19359. procedure setw(thebits : TBits_32); inline;
  19360. public
  19361. procedure clearDONLY; inline;
  19362. procedure clearFRESET; inline;
  19363. procedure clearRTREN; inline;
  19364. procedure clearTXABAT; inline;
  19365. procedure clearTXEN; inline;
  19366. procedure clearTXERR; inline;
  19367. procedure clearTXLARB; inline;
  19368. procedure clearTXREQ; inline;
  19369. procedure clearUINC; inline;
  19370. procedure setDONLY; inline;
  19371. procedure setFRESET; inline;
  19372. procedure setRTREN; inline;
  19373. procedure setTXABAT; inline;
  19374. procedure setTXEN; inline;
  19375. procedure setTXERR; inline;
  19376. procedure setTXLARB; inline;
  19377. procedure setTXREQ; inline;
  19378. procedure setUINC; inline;
  19379. property DONLY : TBits_1 read getDONLY write setDONLY;
  19380. property FRESET : TBits_1 read getFRESET write setFRESET;
  19381. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19382. property RTREN : TBits_1 read getRTREN write setRTREN;
  19383. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19384. property TXEN : TBits_1 read getTXEN write setTXEN;
  19385. property TXERR : TBits_1 read getTXERR write setTXERR;
  19386. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19387. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19388. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19389. property UINC : TBits_1 read getUINC write setUINC;
  19390. property w : TBits_32 read getw write setw;
  19391. end;
  19392. TCAN1_C1FIFOINT23 = record
  19393. private
  19394. function getRXFULLIE : TBits_1; inline;
  19395. function getRXFULLIF : TBits_1; inline;
  19396. function getRXHALFIE : TBits_1; inline;
  19397. function getRXHALFIF : TBits_1; inline;
  19398. function getRXNEMPTYIE : TBits_1; inline;
  19399. function getRXNEMPTYIF : TBits_1; inline;
  19400. function getRXOVFLIE : TBits_1; inline;
  19401. function getRXOVFLIF : TBits_1; inline;
  19402. function getTXEMPTYIE : TBits_1; inline;
  19403. function getTXEMPTYIF : TBits_1; inline;
  19404. function getTXHALFIE : TBits_1; inline;
  19405. function getTXHALFIF : TBits_1; inline;
  19406. function getTXNFULLIE : TBits_1; inline;
  19407. function getTXNFULLIF : TBits_1; inline;
  19408. function getw : TBits_32; inline;
  19409. procedure setRXFULLIE(thebits : TBits_1); inline;
  19410. procedure setRXFULLIF(thebits : TBits_1); inline;
  19411. procedure setRXHALFIE(thebits : TBits_1); inline;
  19412. procedure setRXHALFIF(thebits : TBits_1); inline;
  19413. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19414. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19415. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19416. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19417. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19418. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19419. procedure setTXHALFIE(thebits : TBits_1); inline;
  19420. procedure setTXHALFIF(thebits : TBits_1); inline;
  19421. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19422. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19423. procedure setw(thebits : TBits_32); inline;
  19424. public
  19425. procedure clearRXFULLIE; inline;
  19426. procedure clearRXFULLIF; inline;
  19427. procedure clearRXHALFIE; inline;
  19428. procedure clearRXHALFIF; inline;
  19429. procedure clearRXNEMPTYIE; inline;
  19430. procedure clearRXNEMPTYIF; inline;
  19431. procedure clearRXOVFLIE; inline;
  19432. procedure clearRXOVFLIF; inline;
  19433. procedure clearTXEMPTYIE; inline;
  19434. procedure clearTXEMPTYIF; inline;
  19435. procedure clearTXHALFIE; inline;
  19436. procedure clearTXHALFIF; inline;
  19437. procedure clearTXNFULLIE; inline;
  19438. procedure clearTXNFULLIF; inline;
  19439. procedure setRXFULLIE; inline;
  19440. procedure setRXFULLIF; inline;
  19441. procedure setRXHALFIE; inline;
  19442. procedure setRXHALFIF; inline;
  19443. procedure setRXNEMPTYIE; inline;
  19444. procedure setRXNEMPTYIF; inline;
  19445. procedure setRXOVFLIE; inline;
  19446. procedure setRXOVFLIF; inline;
  19447. procedure setTXEMPTYIE; inline;
  19448. procedure setTXEMPTYIF; inline;
  19449. procedure setTXHALFIE; inline;
  19450. procedure setTXHALFIF; inline;
  19451. procedure setTXNFULLIE; inline;
  19452. procedure setTXNFULLIF; inline;
  19453. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19454. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19455. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19456. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19457. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19458. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19459. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19460. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19461. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19462. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19463. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19464. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19465. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19466. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19467. property w : TBits_32 read getw write setw;
  19468. end;
  19469. TCAN1_C1FIFOCI23 = record
  19470. private
  19471. function getCFIFOCI : TBits_5; inline;
  19472. function getw : TBits_32; inline;
  19473. procedure setCFIFOCI(thebits : TBits_5); inline;
  19474. procedure setw(thebits : TBits_32); inline;
  19475. public
  19476. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19477. property w : TBits_32 read getw write setw;
  19478. end;
  19479. TCAN1_C1FIFOCON24 = record
  19480. private
  19481. function getDONLY : TBits_1; inline;
  19482. function getFRESET : TBits_1; inline;
  19483. function getFSIZE : TBits_5; inline;
  19484. function getRTREN : TBits_1; inline;
  19485. function getTXABAT : TBits_1; inline;
  19486. function getTXEN : TBits_1; inline;
  19487. function getTXERR : TBits_1; inline;
  19488. function getTXLARB : TBits_1; inline;
  19489. function getTXPRI : TBits_2; inline;
  19490. function getTXREQ : TBits_1; inline;
  19491. function getUINC : TBits_1; inline;
  19492. function getw : TBits_32; inline;
  19493. procedure setDONLY(thebits : TBits_1); inline;
  19494. procedure setFRESET(thebits : TBits_1); inline;
  19495. procedure setFSIZE(thebits : TBits_5); inline;
  19496. procedure setRTREN(thebits : TBits_1); inline;
  19497. procedure setTXABAT(thebits : TBits_1); inline;
  19498. procedure setTXEN(thebits : TBits_1); inline;
  19499. procedure setTXERR(thebits : TBits_1); inline;
  19500. procedure setTXLARB(thebits : TBits_1); inline;
  19501. procedure setTXPRI(thebits : TBits_2); inline;
  19502. procedure setTXREQ(thebits : TBits_1); inline;
  19503. procedure setUINC(thebits : TBits_1); inline;
  19504. procedure setw(thebits : TBits_32); inline;
  19505. public
  19506. procedure clearDONLY; inline;
  19507. procedure clearFRESET; inline;
  19508. procedure clearRTREN; inline;
  19509. procedure clearTXABAT; inline;
  19510. procedure clearTXEN; inline;
  19511. procedure clearTXERR; inline;
  19512. procedure clearTXLARB; inline;
  19513. procedure clearTXREQ; inline;
  19514. procedure clearUINC; inline;
  19515. procedure setDONLY; inline;
  19516. procedure setFRESET; inline;
  19517. procedure setRTREN; inline;
  19518. procedure setTXABAT; inline;
  19519. procedure setTXEN; inline;
  19520. procedure setTXERR; inline;
  19521. procedure setTXLARB; inline;
  19522. procedure setTXREQ; inline;
  19523. procedure setUINC; inline;
  19524. property DONLY : TBits_1 read getDONLY write setDONLY;
  19525. property FRESET : TBits_1 read getFRESET write setFRESET;
  19526. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19527. property RTREN : TBits_1 read getRTREN write setRTREN;
  19528. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19529. property TXEN : TBits_1 read getTXEN write setTXEN;
  19530. property TXERR : TBits_1 read getTXERR write setTXERR;
  19531. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19532. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19533. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19534. property UINC : TBits_1 read getUINC write setUINC;
  19535. property w : TBits_32 read getw write setw;
  19536. end;
  19537. TCAN1_C1FIFOINT24 = record
  19538. private
  19539. function getRXFULLIE : TBits_1; inline;
  19540. function getRXFULLIF : TBits_1; inline;
  19541. function getRXHALFIE : TBits_1; inline;
  19542. function getRXHALFIF : TBits_1; inline;
  19543. function getRXNEMPTYIE : TBits_1; inline;
  19544. function getRXNEMPTYIF : TBits_1; inline;
  19545. function getRXOVFLIE : TBits_1; inline;
  19546. function getRXOVFLIF : TBits_1; inline;
  19547. function getTXEMPTYIE : TBits_1; inline;
  19548. function getTXEMPTYIF : TBits_1; inline;
  19549. function getTXHALFIE : TBits_1; inline;
  19550. function getTXHALFIF : TBits_1; inline;
  19551. function getTXNFULLIE : TBits_1; inline;
  19552. function getTXNFULLIF : TBits_1; inline;
  19553. function getw : TBits_32; inline;
  19554. procedure setRXFULLIE(thebits : TBits_1); inline;
  19555. procedure setRXFULLIF(thebits : TBits_1); inline;
  19556. procedure setRXHALFIE(thebits : TBits_1); inline;
  19557. procedure setRXHALFIF(thebits : TBits_1); inline;
  19558. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19559. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19560. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19561. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19562. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19563. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19564. procedure setTXHALFIE(thebits : TBits_1); inline;
  19565. procedure setTXHALFIF(thebits : TBits_1); inline;
  19566. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19567. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19568. procedure setw(thebits : TBits_32); inline;
  19569. public
  19570. procedure clearRXFULLIE; inline;
  19571. procedure clearRXFULLIF; inline;
  19572. procedure clearRXHALFIE; inline;
  19573. procedure clearRXHALFIF; inline;
  19574. procedure clearRXNEMPTYIE; inline;
  19575. procedure clearRXNEMPTYIF; inline;
  19576. procedure clearRXOVFLIE; inline;
  19577. procedure clearRXOVFLIF; inline;
  19578. procedure clearTXEMPTYIE; inline;
  19579. procedure clearTXEMPTYIF; inline;
  19580. procedure clearTXHALFIE; inline;
  19581. procedure clearTXHALFIF; inline;
  19582. procedure clearTXNFULLIE; inline;
  19583. procedure clearTXNFULLIF; inline;
  19584. procedure setRXFULLIE; inline;
  19585. procedure setRXFULLIF; inline;
  19586. procedure setRXHALFIE; inline;
  19587. procedure setRXHALFIF; inline;
  19588. procedure setRXNEMPTYIE; inline;
  19589. procedure setRXNEMPTYIF; inline;
  19590. procedure setRXOVFLIE; inline;
  19591. procedure setRXOVFLIF; inline;
  19592. procedure setTXEMPTYIE; inline;
  19593. procedure setTXEMPTYIF; inline;
  19594. procedure setTXHALFIE; inline;
  19595. procedure setTXHALFIF; inline;
  19596. procedure setTXNFULLIE; inline;
  19597. procedure setTXNFULLIF; inline;
  19598. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19599. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19600. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19601. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19602. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19603. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19604. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19605. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19606. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19607. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19608. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19609. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19610. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19611. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19612. property w : TBits_32 read getw write setw;
  19613. end;
  19614. TCAN1_C1FIFOCI24 = record
  19615. private
  19616. function getCFIFOCI : TBits_5; inline;
  19617. function getw : TBits_32; inline;
  19618. procedure setCFIFOCI(thebits : TBits_5); inline;
  19619. procedure setw(thebits : TBits_32); inline;
  19620. public
  19621. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19622. property w : TBits_32 read getw write setw;
  19623. end;
  19624. TCAN1_C1FIFOCON25 = record
  19625. private
  19626. function getDONLY : TBits_1; inline;
  19627. function getFRESET : TBits_1; inline;
  19628. function getFSIZE : TBits_5; inline;
  19629. function getRTREN : TBits_1; inline;
  19630. function getTXABAT : TBits_1; inline;
  19631. function getTXEN : TBits_1; inline;
  19632. function getTXERR : TBits_1; inline;
  19633. function getTXLARB : TBits_1; inline;
  19634. function getTXPRI : TBits_2; inline;
  19635. function getTXREQ : TBits_1; inline;
  19636. function getUINC : TBits_1; inline;
  19637. function getw : TBits_32; inline;
  19638. procedure setDONLY(thebits : TBits_1); inline;
  19639. procedure setFRESET(thebits : TBits_1); inline;
  19640. procedure setFSIZE(thebits : TBits_5); inline;
  19641. procedure setRTREN(thebits : TBits_1); inline;
  19642. procedure setTXABAT(thebits : TBits_1); inline;
  19643. procedure setTXEN(thebits : TBits_1); inline;
  19644. procedure setTXERR(thebits : TBits_1); inline;
  19645. procedure setTXLARB(thebits : TBits_1); inline;
  19646. procedure setTXPRI(thebits : TBits_2); inline;
  19647. procedure setTXREQ(thebits : TBits_1); inline;
  19648. procedure setUINC(thebits : TBits_1); inline;
  19649. procedure setw(thebits : TBits_32); inline;
  19650. public
  19651. procedure clearDONLY; inline;
  19652. procedure clearFRESET; inline;
  19653. procedure clearRTREN; inline;
  19654. procedure clearTXABAT; inline;
  19655. procedure clearTXEN; inline;
  19656. procedure clearTXERR; inline;
  19657. procedure clearTXLARB; inline;
  19658. procedure clearTXREQ; inline;
  19659. procedure clearUINC; inline;
  19660. procedure setDONLY; inline;
  19661. procedure setFRESET; inline;
  19662. procedure setRTREN; inline;
  19663. procedure setTXABAT; inline;
  19664. procedure setTXEN; inline;
  19665. procedure setTXERR; inline;
  19666. procedure setTXLARB; inline;
  19667. procedure setTXREQ; inline;
  19668. procedure setUINC; inline;
  19669. property DONLY : TBits_1 read getDONLY write setDONLY;
  19670. property FRESET : TBits_1 read getFRESET write setFRESET;
  19671. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19672. property RTREN : TBits_1 read getRTREN write setRTREN;
  19673. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19674. property TXEN : TBits_1 read getTXEN write setTXEN;
  19675. property TXERR : TBits_1 read getTXERR write setTXERR;
  19676. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19677. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19678. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19679. property UINC : TBits_1 read getUINC write setUINC;
  19680. property w : TBits_32 read getw write setw;
  19681. end;
  19682. TCAN1_C1FIFOINT25 = record
  19683. private
  19684. function getRXFULLIE : TBits_1; inline;
  19685. function getRXFULLIF : TBits_1; inline;
  19686. function getRXHALFIE : TBits_1; inline;
  19687. function getRXHALFIF : TBits_1; inline;
  19688. function getRXNEMPTYIE : TBits_1; inline;
  19689. function getRXNEMPTYIF : TBits_1; inline;
  19690. function getRXOVFLIE : TBits_1; inline;
  19691. function getRXOVFLIF : TBits_1; inline;
  19692. function getTXEMPTYIE : TBits_1; inline;
  19693. function getTXEMPTYIF : TBits_1; inline;
  19694. function getTXHALFIE : TBits_1; inline;
  19695. function getTXHALFIF : TBits_1; inline;
  19696. function getTXNFULLIE : TBits_1; inline;
  19697. function getTXNFULLIF : TBits_1; inline;
  19698. function getw : TBits_32; inline;
  19699. procedure setRXFULLIE(thebits : TBits_1); inline;
  19700. procedure setRXFULLIF(thebits : TBits_1); inline;
  19701. procedure setRXHALFIE(thebits : TBits_1); inline;
  19702. procedure setRXHALFIF(thebits : TBits_1); inline;
  19703. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19704. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19705. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19706. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19707. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19708. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19709. procedure setTXHALFIE(thebits : TBits_1); inline;
  19710. procedure setTXHALFIF(thebits : TBits_1); inline;
  19711. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19712. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19713. procedure setw(thebits : TBits_32); inline;
  19714. public
  19715. procedure clearRXFULLIE; inline;
  19716. procedure clearRXFULLIF; inline;
  19717. procedure clearRXHALFIE; inline;
  19718. procedure clearRXHALFIF; inline;
  19719. procedure clearRXNEMPTYIE; inline;
  19720. procedure clearRXNEMPTYIF; inline;
  19721. procedure clearRXOVFLIE; inline;
  19722. procedure clearRXOVFLIF; inline;
  19723. procedure clearTXEMPTYIE; inline;
  19724. procedure clearTXEMPTYIF; inline;
  19725. procedure clearTXHALFIE; inline;
  19726. procedure clearTXHALFIF; inline;
  19727. procedure clearTXNFULLIE; inline;
  19728. procedure clearTXNFULLIF; inline;
  19729. procedure setRXFULLIE; inline;
  19730. procedure setRXFULLIF; inline;
  19731. procedure setRXHALFIE; inline;
  19732. procedure setRXHALFIF; inline;
  19733. procedure setRXNEMPTYIE; inline;
  19734. procedure setRXNEMPTYIF; inline;
  19735. procedure setRXOVFLIE; inline;
  19736. procedure setRXOVFLIF; inline;
  19737. procedure setTXEMPTYIE; inline;
  19738. procedure setTXEMPTYIF; inline;
  19739. procedure setTXHALFIE; inline;
  19740. procedure setTXHALFIF; inline;
  19741. procedure setTXNFULLIE; inline;
  19742. procedure setTXNFULLIF; inline;
  19743. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19744. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19745. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19746. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19747. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19748. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19749. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19750. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19751. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19752. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19753. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19754. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19755. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19756. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19757. property w : TBits_32 read getw write setw;
  19758. end;
  19759. TCAN1_C1FIFOCI25 = record
  19760. private
  19761. function getCFIFOCI : TBits_5; inline;
  19762. function getw : TBits_32; inline;
  19763. procedure setCFIFOCI(thebits : TBits_5); inline;
  19764. procedure setw(thebits : TBits_32); inline;
  19765. public
  19766. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19767. property w : TBits_32 read getw write setw;
  19768. end;
  19769. TCAN1_C1FIFOCON26 = record
  19770. private
  19771. function getDONLY : TBits_1; inline;
  19772. function getFRESET : TBits_1; inline;
  19773. function getFSIZE : TBits_5; inline;
  19774. function getRTREN : TBits_1; inline;
  19775. function getTXABAT : TBits_1; inline;
  19776. function getTXEN : TBits_1; inline;
  19777. function getTXERR : TBits_1; inline;
  19778. function getTXLARB : TBits_1; inline;
  19779. function getTXPRI : TBits_2; inline;
  19780. function getTXREQ : TBits_1; inline;
  19781. function getUINC : TBits_1; inline;
  19782. function getw : TBits_32; inline;
  19783. procedure setDONLY(thebits : TBits_1); inline;
  19784. procedure setFRESET(thebits : TBits_1); inline;
  19785. procedure setFSIZE(thebits : TBits_5); inline;
  19786. procedure setRTREN(thebits : TBits_1); inline;
  19787. procedure setTXABAT(thebits : TBits_1); inline;
  19788. procedure setTXEN(thebits : TBits_1); inline;
  19789. procedure setTXERR(thebits : TBits_1); inline;
  19790. procedure setTXLARB(thebits : TBits_1); inline;
  19791. procedure setTXPRI(thebits : TBits_2); inline;
  19792. procedure setTXREQ(thebits : TBits_1); inline;
  19793. procedure setUINC(thebits : TBits_1); inline;
  19794. procedure setw(thebits : TBits_32); inline;
  19795. public
  19796. procedure clearDONLY; inline;
  19797. procedure clearFRESET; inline;
  19798. procedure clearRTREN; inline;
  19799. procedure clearTXABAT; inline;
  19800. procedure clearTXEN; inline;
  19801. procedure clearTXERR; inline;
  19802. procedure clearTXLARB; inline;
  19803. procedure clearTXREQ; inline;
  19804. procedure clearUINC; inline;
  19805. procedure setDONLY; inline;
  19806. procedure setFRESET; inline;
  19807. procedure setRTREN; inline;
  19808. procedure setTXABAT; inline;
  19809. procedure setTXEN; inline;
  19810. procedure setTXERR; inline;
  19811. procedure setTXLARB; inline;
  19812. procedure setTXREQ; inline;
  19813. procedure setUINC; inline;
  19814. property DONLY : TBits_1 read getDONLY write setDONLY;
  19815. property FRESET : TBits_1 read getFRESET write setFRESET;
  19816. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19817. property RTREN : TBits_1 read getRTREN write setRTREN;
  19818. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19819. property TXEN : TBits_1 read getTXEN write setTXEN;
  19820. property TXERR : TBits_1 read getTXERR write setTXERR;
  19821. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19822. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19823. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19824. property UINC : TBits_1 read getUINC write setUINC;
  19825. property w : TBits_32 read getw write setw;
  19826. end;
  19827. TCAN1_C1FIFOINT26 = record
  19828. private
  19829. function getRXFULLIE : TBits_1; inline;
  19830. function getRXFULLIF : TBits_1; inline;
  19831. function getRXHALFIE : TBits_1; inline;
  19832. function getRXHALFIF : TBits_1; inline;
  19833. function getRXNEMPTYIE : TBits_1; inline;
  19834. function getRXNEMPTYIF : TBits_1; inline;
  19835. function getRXOVFLIE : TBits_1; inline;
  19836. function getRXOVFLIF : TBits_1; inline;
  19837. function getTXEMPTYIE : TBits_1; inline;
  19838. function getTXEMPTYIF : TBits_1; inline;
  19839. function getTXHALFIE : TBits_1; inline;
  19840. function getTXHALFIF : TBits_1; inline;
  19841. function getTXNFULLIE : TBits_1; inline;
  19842. function getTXNFULLIF : TBits_1; inline;
  19843. function getw : TBits_32; inline;
  19844. procedure setRXFULLIE(thebits : TBits_1); inline;
  19845. procedure setRXFULLIF(thebits : TBits_1); inline;
  19846. procedure setRXHALFIE(thebits : TBits_1); inline;
  19847. procedure setRXHALFIF(thebits : TBits_1); inline;
  19848. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19849. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19850. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19851. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19852. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19853. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19854. procedure setTXHALFIE(thebits : TBits_1); inline;
  19855. procedure setTXHALFIF(thebits : TBits_1); inline;
  19856. procedure setTXNFULLIE(thebits : TBits_1); inline;
  19857. procedure setTXNFULLIF(thebits : TBits_1); inline;
  19858. procedure setw(thebits : TBits_32); inline;
  19859. public
  19860. procedure clearRXFULLIE; inline;
  19861. procedure clearRXFULLIF; inline;
  19862. procedure clearRXHALFIE; inline;
  19863. procedure clearRXHALFIF; inline;
  19864. procedure clearRXNEMPTYIE; inline;
  19865. procedure clearRXNEMPTYIF; inline;
  19866. procedure clearRXOVFLIE; inline;
  19867. procedure clearRXOVFLIF; inline;
  19868. procedure clearTXEMPTYIE; inline;
  19869. procedure clearTXEMPTYIF; inline;
  19870. procedure clearTXHALFIE; inline;
  19871. procedure clearTXHALFIF; inline;
  19872. procedure clearTXNFULLIE; inline;
  19873. procedure clearTXNFULLIF; inline;
  19874. procedure setRXFULLIE; inline;
  19875. procedure setRXFULLIF; inline;
  19876. procedure setRXHALFIE; inline;
  19877. procedure setRXHALFIF; inline;
  19878. procedure setRXNEMPTYIE; inline;
  19879. procedure setRXNEMPTYIF; inline;
  19880. procedure setRXOVFLIE; inline;
  19881. procedure setRXOVFLIF; inline;
  19882. procedure setTXEMPTYIE; inline;
  19883. procedure setTXEMPTYIF; inline;
  19884. procedure setTXHALFIE; inline;
  19885. procedure setTXHALFIF; inline;
  19886. procedure setTXNFULLIE; inline;
  19887. procedure setTXNFULLIF; inline;
  19888. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  19889. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  19890. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  19891. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  19892. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  19893. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  19894. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  19895. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  19896. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  19897. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  19898. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  19899. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  19900. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  19901. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  19902. property w : TBits_32 read getw write setw;
  19903. end;
  19904. TCAN1_C1FIFOCI26 = record
  19905. private
  19906. function getCFIFOCI : TBits_5; inline;
  19907. function getw : TBits_32; inline;
  19908. procedure setCFIFOCI(thebits : TBits_5); inline;
  19909. procedure setw(thebits : TBits_32); inline;
  19910. public
  19911. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  19912. property w : TBits_32 read getw write setw;
  19913. end;
  19914. TCAN1_C1FIFOCON27 = record
  19915. private
  19916. function getDONLY : TBits_1; inline;
  19917. function getFRESET : TBits_1; inline;
  19918. function getFSIZE : TBits_5; inline;
  19919. function getRTREN : TBits_1; inline;
  19920. function getTXABAT : TBits_1; inline;
  19921. function getTXEN : TBits_1; inline;
  19922. function getTXERR : TBits_1; inline;
  19923. function getTXLARB : TBits_1; inline;
  19924. function getTXPRI : TBits_2; inline;
  19925. function getTXREQ : TBits_1; inline;
  19926. function getUINC : TBits_1; inline;
  19927. function getw : TBits_32; inline;
  19928. procedure setDONLY(thebits : TBits_1); inline;
  19929. procedure setFRESET(thebits : TBits_1); inline;
  19930. procedure setFSIZE(thebits : TBits_5); inline;
  19931. procedure setRTREN(thebits : TBits_1); inline;
  19932. procedure setTXABAT(thebits : TBits_1); inline;
  19933. procedure setTXEN(thebits : TBits_1); inline;
  19934. procedure setTXERR(thebits : TBits_1); inline;
  19935. procedure setTXLARB(thebits : TBits_1); inline;
  19936. procedure setTXPRI(thebits : TBits_2); inline;
  19937. procedure setTXREQ(thebits : TBits_1); inline;
  19938. procedure setUINC(thebits : TBits_1); inline;
  19939. procedure setw(thebits : TBits_32); inline;
  19940. public
  19941. procedure clearDONLY; inline;
  19942. procedure clearFRESET; inline;
  19943. procedure clearRTREN; inline;
  19944. procedure clearTXABAT; inline;
  19945. procedure clearTXEN; inline;
  19946. procedure clearTXERR; inline;
  19947. procedure clearTXLARB; inline;
  19948. procedure clearTXREQ; inline;
  19949. procedure clearUINC; inline;
  19950. procedure setDONLY; inline;
  19951. procedure setFRESET; inline;
  19952. procedure setRTREN; inline;
  19953. procedure setTXABAT; inline;
  19954. procedure setTXEN; inline;
  19955. procedure setTXERR; inline;
  19956. procedure setTXLARB; inline;
  19957. procedure setTXREQ; inline;
  19958. procedure setUINC; inline;
  19959. property DONLY : TBits_1 read getDONLY write setDONLY;
  19960. property FRESET : TBits_1 read getFRESET write setFRESET;
  19961. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  19962. property RTREN : TBits_1 read getRTREN write setRTREN;
  19963. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  19964. property TXEN : TBits_1 read getTXEN write setTXEN;
  19965. property TXERR : TBits_1 read getTXERR write setTXERR;
  19966. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  19967. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  19968. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  19969. property UINC : TBits_1 read getUINC write setUINC;
  19970. property w : TBits_32 read getw write setw;
  19971. end;
  19972. TCAN1_C1FIFOINT27 = record
  19973. private
  19974. function getRXFULLIE : TBits_1; inline;
  19975. function getRXFULLIF : TBits_1; inline;
  19976. function getRXHALFIE : TBits_1; inline;
  19977. function getRXHALFIF : TBits_1; inline;
  19978. function getRXNEMPTYIE : TBits_1; inline;
  19979. function getRXNEMPTYIF : TBits_1; inline;
  19980. function getRXOVFLIE : TBits_1; inline;
  19981. function getRXOVFLIF : TBits_1; inline;
  19982. function getTXEMPTYIE : TBits_1; inline;
  19983. function getTXEMPTYIF : TBits_1; inline;
  19984. function getTXHALFIE : TBits_1; inline;
  19985. function getTXHALFIF : TBits_1; inline;
  19986. function getTXNFULLIE : TBits_1; inline;
  19987. function getTXNFULLIF : TBits_1; inline;
  19988. function getw : TBits_32; inline;
  19989. procedure setRXFULLIE(thebits : TBits_1); inline;
  19990. procedure setRXFULLIF(thebits : TBits_1); inline;
  19991. procedure setRXHALFIE(thebits : TBits_1); inline;
  19992. procedure setRXHALFIF(thebits : TBits_1); inline;
  19993. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  19994. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  19995. procedure setRXOVFLIE(thebits : TBits_1); inline;
  19996. procedure setRXOVFLIF(thebits : TBits_1); inline;
  19997. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  19998. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  19999. procedure setTXHALFIE(thebits : TBits_1); inline;
  20000. procedure setTXHALFIF(thebits : TBits_1); inline;
  20001. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20002. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20003. procedure setw(thebits : TBits_32); inline;
  20004. public
  20005. procedure clearRXFULLIE; inline;
  20006. procedure clearRXFULLIF; inline;
  20007. procedure clearRXHALFIE; inline;
  20008. procedure clearRXHALFIF; inline;
  20009. procedure clearRXNEMPTYIE; inline;
  20010. procedure clearRXNEMPTYIF; inline;
  20011. procedure clearRXOVFLIE; inline;
  20012. procedure clearRXOVFLIF; inline;
  20013. procedure clearTXEMPTYIE; inline;
  20014. procedure clearTXEMPTYIF; inline;
  20015. procedure clearTXHALFIE; inline;
  20016. procedure clearTXHALFIF; inline;
  20017. procedure clearTXNFULLIE; inline;
  20018. procedure clearTXNFULLIF; inline;
  20019. procedure setRXFULLIE; inline;
  20020. procedure setRXFULLIF; inline;
  20021. procedure setRXHALFIE; inline;
  20022. procedure setRXHALFIF; inline;
  20023. procedure setRXNEMPTYIE; inline;
  20024. procedure setRXNEMPTYIF; inline;
  20025. procedure setRXOVFLIE; inline;
  20026. procedure setRXOVFLIF; inline;
  20027. procedure setTXEMPTYIE; inline;
  20028. procedure setTXEMPTYIF; inline;
  20029. procedure setTXHALFIE; inline;
  20030. procedure setTXHALFIF; inline;
  20031. procedure setTXNFULLIE; inline;
  20032. procedure setTXNFULLIF; inline;
  20033. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20034. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20035. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20036. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20037. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20038. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20039. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20040. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20041. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20042. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20043. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20044. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20045. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20046. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20047. property w : TBits_32 read getw write setw;
  20048. end;
  20049. TCAN1_C1FIFOCI27 = record
  20050. private
  20051. function getCFIFOCI : TBits_5; inline;
  20052. function getw : TBits_32; inline;
  20053. procedure setCFIFOCI(thebits : TBits_5); inline;
  20054. procedure setw(thebits : TBits_32); inline;
  20055. public
  20056. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20057. property w : TBits_32 read getw write setw;
  20058. end;
  20059. TCAN1_C1FIFOCON28 = record
  20060. private
  20061. function getDONLY : TBits_1; inline;
  20062. function getFRESET : TBits_1; inline;
  20063. function getFSIZE : TBits_5; inline;
  20064. function getRTREN : TBits_1; inline;
  20065. function getTXABAT : TBits_1; inline;
  20066. function getTXEN : TBits_1; inline;
  20067. function getTXERR : TBits_1; inline;
  20068. function getTXLARB : TBits_1; inline;
  20069. function getTXPRI : TBits_2; inline;
  20070. function getTXREQ : TBits_1; inline;
  20071. function getUINC : TBits_1; inline;
  20072. function getw : TBits_32; inline;
  20073. procedure setDONLY(thebits : TBits_1); inline;
  20074. procedure setFRESET(thebits : TBits_1); inline;
  20075. procedure setFSIZE(thebits : TBits_5); inline;
  20076. procedure setRTREN(thebits : TBits_1); inline;
  20077. procedure setTXABAT(thebits : TBits_1); inline;
  20078. procedure setTXEN(thebits : TBits_1); inline;
  20079. procedure setTXERR(thebits : TBits_1); inline;
  20080. procedure setTXLARB(thebits : TBits_1); inline;
  20081. procedure setTXPRI(thebits : TBits_2); inline;
  20082. procedure setTXREQ(thebits : TBits_1); inline;
  20083. procedure setUINC(thebits : TBits_1); inline;
  20084. procedure setw(thebits : TBits_32); inline;
  20085. public
  20086. procedure clearDONLY; inline;
  20087. procedure clearFRESET; inline;
  20088. procedure clearRTREN; inline;
  20089. procedure clearTXABAT; inline;
  20090. procedure clearTXEN; inline;
  20091. procedure clearTXERR; inline;
  20092. procedure clearTXLARB; inline;
  20093. procedure clearTXREQ; inline;
  20094. procedure clearUINC; inline;
  20095. procedure setDONLY; inline;
  20096. procedure setFRESET; inline;
  20097. procedure setRTREN; inline;
  20098. procedure setTXABAT; inline;
  20099. procedure setTXEN; inline;
  20100. procedure setTXERR; inline;
  20101. procedure setTXLARB; inline;
  20102. procedure setTXREQ; inline;
  20103. procedure setUINC; inline;
  20104. property DONLY : TBits_1 read getDONLY write setDONLY;
  20105. property FRESET : TBits_1 read getFRESET write setFRESET;
  20106. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20107. property RTREN : TBits_1 read getRTREN write setRTREN;
  20108. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20109. property TXEN : TBits_1 read getTXEN write setTXEN;
  20110. property TXERR : TBits_1 read getTXERR write setTXERR;
  20111. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20112. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20113. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20114. property UINC : TBits_1 read getUINC write setUINC;
  20115. property w : TBits_32 read getw write setw;
  20116. end;
  20117. TCAN1_C1FIFOINT28 = record
  20118. private
  20119. function getRXFULLIE : TBits_1; inline;
  20120. function getRXFULLIF : TBits_1; inline;
  20121. function getRXHALFIE : TBits_1; inline;
  20122. function getRXHALFIF : TBits_1; inline;
  20123. function getRXNEMPTYIE : TBits_1; inline;
  20124. function getRXNEMPTYIF : TBits_1; inline;
  20125. function getRXOVFLIE : TBits_1; inline;
  20126. function getRXOVFLIF : TBits_1; inline;
  20127. function getTXEMPTYIE : TBits_1; inline;
  20128. function getTXEMPTYIF : TBits_1; inline;
  20129. function getTXHALFIE : TBits_1; inline;
  20130. function getTXHALFIF : TBits_1; inline;
  20131. function getTXNFULLIE : TBits_1; inline;
  20132. function getTXNFULLIF : TBits_1; inline;
  20133. function getw : TBits_32; inline;
  20134. procedure setRXFULLIE(thebits : TBits_1); inline;
  20135. procedure setRXFULLIF(thebits : TBits_1); inline;
  20136. procedure setRXHALFIE(thebits : TBits_1); inline;
  20137. procedure setRXHALFIF(thebits : TBits_1); inline;
  20138. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20139. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20140. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20141. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20142. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20143. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20144. procedure setTXHALFIE(thebits : TBits_1); inline;
  20145. procedure setTXHALFIF(thebits : TBits_1); inline;
  20146. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20147. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20148. procedure setw(thebits : TBits_32); inline;
  20149. public
  20150. procedure clearRXFULLIE; inline;
  20151. procedure clearRXFULLIF; inline;
  20152. procedure clearRXHALFIE; inline;
  20153. procedure clearRXHALFIF; inline;
  20154. procedure clearRXNEMPTYIE; inline;
  20155. procedure clearRXNEMPTYIF; inline;
  20156. procedure clearRXOVFLIE; inline;
  20157. procedure clearRXOVFLIF; inline;
  20158. procedure clearTXEMPTYIE; inline;
  20159. procedure clearTXEMPTYIF; inline;
  20160. procedure clearTXHALFIE; inline;
  20161. procedure clearTXHALFIF; inline;
  20162. procedure clearTXNFULLIE; inline;
  20163. procedure clearTXNFULLIF; inline;
  20164. procedure setRXFULLIE; inline;
  20165. procedure setRXFULLIF; inline;
  20166. procedure setRXHALFIE; inline;
  20167. procedure setRXHALFIF; inline;
  20168. procedure setRXNEMPTYIE; inline;
  20169. procedure setRXNEMPTYIF; inline;
  20170. procedure setRXOVFLIE; inline;
  20171. procedure setRXOVFLIF; inline;
  20172. procedure setTXEMPTYIE; inline;
  20173. procedure setTXEMPTYIF; inline;
  20174. procedure setTXHALFIE; inline;
  20175. procedure setTXHALFIF; inline;
  20176. procedure setTXNFULLIE; inline;
  20177. procedure setTXNFULLIF; inline;
  20178. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20179. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20180. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20181. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20182. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20183. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20184. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20185. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20186. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20187. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20188. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20189. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20190. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20191. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20192. property w : TBits_32 read getw write setw;
  20193. end;
  20194. TCAN1_C1FIFOCI28 = record
  20195. private
  20196. function getCFIFOCI : TBits_5; inline;
  20197. function getw : TBits_32; inline;
  20198. procedure setCFIFOCI(thebits : TBits_5); inline;
  20199. procedure setw(thebits : TBits_32); inline;
  20200. public
  20201. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20202. property w : TBits_32 read getw write setw;
  20203. end;
  20204. TCAN1_C1FIFOCON29 = record
  20205. private
  20206. function getDONLY : TBits_1; inline;
  20207. function getFRESET : TBits_1; inline;
  20208. function getFSIZE : TBits_5; inline;
  20209. function getRTREN : TBits_1; inline;
  20210. function getTXABAT : TBits_1; inline;
  20211. function getTXEN : TBits_1; inline;
  20212. function getTXERR : TBits_1; inline;
  20213. function getTXLARB : TBits_1; inline;
  20214. function getTXPRI : TBits_2; inline;
  20215. function getTXREQ : TBits_1; inline;
  20216. function getUINC : TBits_1; inline;
  20217. function getw : TBits_32; inline;
  20218. procedure setDONLY(thebits : TBits_1); inline;
  20219. procedure setFRESET(thebits : TBits_1); inline;
  20220. procedure setFSIZE(thebits : TBits_5); inline;
  20221. procedure setRTREN(thebits : TBits_1); inline;
  20222. procedure setTXABAT(thebits : TBits_1); inline;
  20223. procedure setTXEN(thebits : TBits_1); inline;
  20224. procedure setTXERR(thebits : TBits_1); inline;
  20225. procedure setTXLARB(thebits : TBits_1); inline;
  20226. procedure setTXPRI(thebits : TBits_2); inline;
  20227. procedure setTXREQ(thebits : TBits_1); inline;
  20228. procedure setUINC(thebits : TBits_1); inline;
  20229. procedure setw(thebits : TBits_32); inline;
  20230. public
  20231. procedure clearDONLY; inline;
  20232. procedure clearFRESET; inline;
  20233. procedure clearRTREN; inline;
  20234. procedure clearTXABAT; inline;
  20235. procedure clearTXEN; inline;
  20236. procedure clearTXERR; inline;
  20237. procedure clearTXLARB; inline;
  20238. procedure clearTXREQ; inline;
  20239. procedure clearUINC; inline;
  20240. procedure setDONLY; inline;
  20241. procedure setFRESET; inline;
  20242. procedure setRTREN; inline;
  20243. procedure setTXABAT; inline;
  20244. procedure setTXEN; inline;
  20245. procedure setTXERR; inline;
  20246. procedure setTXLARB; inline;
  20247. procedure setTXREQ; inline;
  20248. procedure setUINC; inline;
  20249. property DONLY : TBits_1 read getDONLY write setDONLY;
  20250. property FRESET : TBits_1 read getFRESET write setFRESET;
  20251. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20252. property RTREN : TBits_1 read getRTREN write setRTREN;
  20253. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20254. property TXEN : TBits_1 read getTXEN write setTXEN;
  20255. property TXERR : TBits_1 read getTXERR write setTXERR;
  20256. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20257. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20258. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20259. property UINC : TBits_1 read getUINC write setUINC;
  20260. property w : TBits_32 read getw write setw;
  20261. end;
  20262. TCAN1_C1FIFOINT29 = record
  20263. private
  20264. function getRXFULLIE : TBits_1; inline;
  20265. function getRXFULLIF : TBits_1; inline;
  20266. function getRXHALFIE : TBits_1; inline;
  20267. function getRXHALFIF : TBits_1; inline;
  20268. function getRXNEMPTYIE : TBits_1; inline;
  20269. function getRXNEMPTYIF : TBits_1; inline;
  20270. function getRXOVFLIE : TBits_1; inline;
  20271. function getRXOVFLIF : TBits_1; inline;
  20272. function getTXEMPTYIE : TBits_1; inline;
  20273. function getTXEMPTYIF : TBits_1; inline;
  20274. function getTXHALFIE : TBits_1; inline;
  20275. function getTXHALFIF : TBits_1; inline;
  20276. function getTXNFULLIE : TBits_1; inline;
  20277. function getTXNFULLIF : TBits_1; inline;
  20278. function getw : TBits_32; inline;
  20279. procedure setRXFULLIE(thebits : TBits_1); inline;
  20280. procedure setRXFULLIF(thebits : TBits_1); inline;
  20281. procedure setRXHALFIE(thebits : TBits_1); inline;
  20282. procedure setRXHALFIF(thebits : TBits_1); inline;
  20283. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20284. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20285. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20286. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20287. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20288. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20289. procedure setTXHALFIE(thebits : TBits_1); inline;
  20290. procedure setTXHALFIF(thebits : TBits_1); inline;
  20291. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20292. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20293. procedure setw(thebits : TBits_32); inline;
  20294. public
  20295. procedure clearRXFULLIE; inline;
  20296. procedure clearRXFULLIF; inline;
  20297. procedure clearRXHALFIE; inline;
  20298. procedure clearRXHALFIF; inline;
  20299. procedure clearRXNEMPTYIE; inline;
  20300. procedure clearRXNEMPTYIF; inline;
  20301. procedure clearRXOVFLIE; inline;
  20302. procedure clearRXOVFLIF; inline;
  20303. procedure clearTXEMPTYIE; inline;
  20304. procedure clearTXEMPTYIF; inline;
  20305. procedure clearTXHALFIE; inline;
  20306. procedure clearTXHALFIF; inline;
  20307. procedure clearTXNFULLIE; inline;
  20308. procedure clearTXNFULLIF; inline;
  20309. procedure setRXFULLIE; inline;
  20310. procedure setRXFULLIF; inline;
  20311. procedure setRXHALFIE; inline;
  20312. procedure setRXHALFIF; inline;
  20313. procedure setRXNEMPTYIE; inline;
  20314. procedure setRXNEMPTYIF; inline;
  20315. procedure setRXOVFLIE; inline;
  20316. procedure setRXOVFLIF; inline;
  20317. procedure setTXEMPTYIE; inline;
  20318. procedure setTXEMPTYIF; inline;
  20319. procedure setTXHALFIE; inline;
  20320. procedure setTXHALFIF; inline;
  20321. procedure setTXNFULLIE; inline;
  20322. procedure setTXNFULLIF; inline;
  20323. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20324. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20325. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20326. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20327. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20328. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20329. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20330. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20331. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20332. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20333. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20334. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20335. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20336. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20337. property w : TBits_32 read getw write setw;
  20338. end;
  20339. TCAN1_C1FIFOCI29 = record
  20340. private
  20341. function getCFIFOCI : TBits_5; inline;
  20342. function getw : TBits_32; inline;
  20343. procedure setCFIFOCI(thebits : TBits_5); inline;
  20344. procedure setw(thebits : TBits_32); inline;
  20345. public
  20346. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20347. property w : TBits_32 read getw write setw;
  20348. end;
  20349. TCAN1_C1FIFOCON30 = record
  20350. private
  20351. function getDONLY : TBits_1; inline;
  20352. function getFRESET : TBits_1; inline;
  20353. function getFSIZE : TBits_5; inline;
  20354. function getRTREN : TBits_1; inline;
  20355. function getTXABAT : TBits_1; inline;
  20356. function getTXEN : TBits_1; inline;
  20357. function getTXERR : TBits_1; inline;
  20358. function getTXLARB : TBits_1; inline;
  20359. function getTXPRI : TBits_2; inline;
  20360. function getTXREQ : TBits_1; inline;
  20361. function getUINC : TBits_1; inline;
  20362. function getw : TBits_32; inline;
  20363. procedure setDONLY(thebits : TBits_1); inline;
  20364. procedure setFRESET(thebits : TBits_1); inline;
  20365. procedure setFSIZE(thebits : TBits_5); inline;
  20366. procedure setRTREN(thebits : TBits_1); inline;
  20367. procedure setTXABAT(thebits : TBits_1); inline;
  20368. procedure setTXEN(thebits : TBits_1); inline;
  20369. procedure setTXERR(thebits : TBits_1); inline;
  20370. procedure setTXLARB(thebits : TBits_1); inline;
  20371. procedure setTXPRI(thebits : TBits_2); inline;
  20372. procedure setTXREQ(thebits : TBits_1); inline;
  20373. procedure setUINC(thebits : TBits_1); inline;
  20374. procedure setw(thebits : TBits_32); inline;
  20375. public
  20376. procedure clearDONLY; inline;
  20377. procedure clearFRESET; inline;
  20378. procedure clearRTREN; inline;
  20379. procedure clearTXABAT; inline;
  20380. procedure clearTXEN; inline;
  20381. procedure clearTXERR; inline;
  20382. procedure clearTXLARB; inline;
  20383. procedure clearTXREQ; inline;
  20384. procedure clearUINC; inline;
  20385. procedure setDONLY; inline;
  20386. procedure setFRESET; inline;
  20387. procedure setRTREN; inline;
  20388. procedure setTXABAT; inline;
  20389. procedure setTXEN; inline;
  20390. procedure setTXERR; inline;
  20391. procedure setTXLARB; inline;
  20392. procedure setTXREQ; inline;
  20393. procedure setUINC; inline;
  20394. property DONLY : TBits_1 read getDONLY write setDONLY;
  20395. property FRESET : TBits_1 read getFRESET write setFRESET;
  20396. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20397. property RTREN : TBits_1 read getRTREN write setRTREN;
  20398. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20399. property TXEN : TBits_1 read getTXEN write setTXEN;
  20400. property TXERR : TBits_1 read getTXERR write setTXERR;
  20401. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20402. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20403. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20404. property UINC : TBits_1 read getUINC write setUINC;
  20405. property w : TBits_32 read getw write setw;
  20406. end;
  20407. TCAN1_C1FIFOINT30 = record
  20408. private
  20409. function getRXFULLIE : TBits_1; inline;
  20410. function getRXFULLIF : TBits_1; inline;
  20411. function getRXHALFIE : TBits_1; inline;
  20412. function getRXHALFIF : TBits_1; inline;
  20413. function getRXNEMPTYIE : TBits_1; inline;
  20414. function getRXNEMPTYIF : TBits_1; inline;
  20415. function getRXOVFLIE : TBits_1; inline;
  20416. function getRXOVFLIF : TBits_1; inline;
  20417. function getTXEMPTYIE : TBits_1; inline;
  20418. function getTXEMPTYIF : TBits_1; inline;
  20419. function getTXHALFIE : TBits_1; inline;
  20420. function getTXHALFIF : TBits_1; inline;
  20421. function getTXNFULLIE : TBits_1; inline;
  20422. function getTXNFULLIF : TBits_1; inline;
  20423. function getw : TBits_32; inline;
  20424. procedure setRXFULLIE(thebits : TBits_1); inline;
  20425. procedure setRXFULLIF(thebits : TBits_1); inline;
  20426. procedure setRXHALFIE(thebits : TBits_1); inline;
  20427. procedure setRXHALFIF(thebits : TBits_1); inline;
  20428. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20429. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20430. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20431. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20432. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20433. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20434. procedure setTXHALFIE(thebits : TBits_1); inline;
  20435. procedure setTXHALFIF(thebits : TBits_1); inline;
  20436. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20437. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20438. procedure setw(thebits : TBits_32); inline;
  20439. public
  20440. procedure clearRXFULLIE; inline;
  20441. procedure clearRXFULLIF; inline;
  20442. procedure clearRXHALFIE; inline;
  20443. procedure clearRXHALFIF; inline;
  20444. procedure clearRXNEMPTYIE; inline;
  20445. procedure clearRXNEMPTYIF; inline;
  20446. procedure clearRXOVFLIE; inline;
  20447. procedure clearRXOVFLIF; inline;
  20448. procedure clearTXEMPTYIE; inline;
  20449. procedure clearTXEMPTYIF; inline;
  20450. procedure clearTXHALFIE; inline;
  20451. procedure clearTXHALFIF; inline;
  20452. procedure clearTXNFULLIE; inline;
  20453. procedure clearTXNFULLIF; inline;
  20454. procedure setRXFULLIE; inline;
  20455. procedure setRXFULLIF; inline;
  20456. procedure setRXHALFIE; inline;
  20457. procedure setRXHALFIF; inline;
  20458. procedure setRXNEMPTYIE; inline;
  20459. procedure setRXNEMPTYIF; inline;
  20460. procedure setRXOVFLIE; inline;
  20461. procedure setRXOVFLIF; inline;
  20462. procedure setTXEMPTYIE; inline;
  20463. procedure setTXEMPTYIF; inline;
  20464. procedure setTXHALFIE; inline;
  20465. procedure setTXHALFIF; inline;
  20466. procedure setTXNFULLIE; inline;
  20467. procedure setTXNFULLIF; inline;
  20468. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20469. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20470. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20471. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20472. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20473. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20474. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20475. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20476. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20477. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20478. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20479. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20480. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20481. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20482. property w : TBits_32 read getw write setw;
  20483. end;
  20484. TCAN1_C1FIFOCI30 = record
  20485. private
  20486. function getCFIFOCI : TBits_5; inline;
  20487. function getw : TBits_32; inline;
  20488. procedure setCFIFOCI(thebits : TBits_5); inline;
  20489. procedure setw(thebits : TBits_32); inline;
  20490. public
  20491. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20492. property w : TBits_32 read getw write setw;
  20493. end;
  20494. TCAN1_C1FIFOCON31 = record
  20495. private
  20496. function getDONLY : TBits_1; inline;
  20497. function getFRESET : TBits_1; inline;
  20498. function getFSIZE : TBits_5; inline;
  20499. function getRTREN : TBits_1; inline;
  20500. function getTXABAT : TBits_1; inline;
  20501. function getTXEN : TBits_1; inline;
  20502. function getTXERR : TBits_1; inline;
  20503. function getTXLARB : TBits_1; inline;
  20504. function getTXPRI : TBits_2; inline;
  20505. function getTXREQ : TBits_1; inline;
  20506. function getUINC : TBits_1; inline;
  20507. function getw : TBits_32; inline;
  20508. procedure setDONLY(thebits : TBits_1); inline;
  20509. procedure setFRESET(thebits : TBits_1); inline;
  20510. procedure setFSIZE(thebits : TBits_5); inline;
  20511. procedure setRTREN(thebits : TBits_1); inline;
  20512. procedure setTXABAT(thebits : TBits_1); inline;
  20513. procedure setTXEN(thebits : TBits_1); inline;
  20514. procedure setTXERR(thebits : TBits_1); inline;
  20515. procedure setTXLARB(thebits : TBits_1); inline;
  20516. procedure setTXPRI(thebits : TBits_2); inline;
  20517. procedure setTXREQ(thebits : TBits_1); inline;
  20518. procedure setUINC(thebits : TBits_1); inline;
  20519. procedure setw(thebits : TBits_32); inline;
  20520. public
  20521. procedure clearDONLY; inline;
  20522. procedure clearFRESET; inline;
  20523. procedure clearRTREN; inline;
  20524. procedure clearTXABAT; inline;
  20525. procedure clearTXEN; inline;
  20526. procedure clearTXERR; inline;
  20527. procedure clearTXLARB; inline;
  20528. procedure clearTXREQ; inline;
  20529. procedure clearUINC; inline;
  20530. procedure setDONLY; inline;
  20531. procedure setFRESET; inline;
  20532. procedure setRTREN; inline;
  20533. procedure setTXABAT; inline;
  20534. procedure setTXEN; inline;
  20535. procedure setTXERR; inline;
  20536. procedure setTXLARB; inline;
  20537. procedure setTXREQ; inline;
  20538. procedure setUINC; inline;
  20539. property DONLY : TBits_1 read getDONLY write setDONLY;
  20540. property FRESET : TBits_1 read getFRESET write setFRESET;
  20541. property FSIZE : TBits_5 read getFSIZE write setFSIZE;
  20542. property RTREN : TBits_1 read getRTREN write setRTREN;
  20543. property TXABAT : TBits_1 read getTXABAT write setTXABAT;
  20544. property TXEN : TBits_1 read getTXEN write setTXEN;
  20545. property TXERR : TBits_1 read getTXERR write setTXERR;
  20546. property TXLARB : TBits_1 read getTXLARB write setTXLARB;
  20547. property TXPRI : TBits_2 read getTXPRI write setTXPRI;
  20548. property TXREQ : TBits_1 read getTXREQ write setTXREQ;
  20549. property UINC : TBits_1 read getUINC write setUINC;
  20550. property w : TBits_32 read getw write setw;
  20551. end;
  20552. TCAN1_C1FIFOINT31 = record
  20553. private
  20554. function getRXFULLIE : TBits_1; inline;
  20555. function getRXFULLIF : TBits_1; inline;
  20556. function getRXHALFIE : TBits_1; inline;
  20557. function getRXHALFIF : TBits_1; inline;
  20558. function getRXNEMPTYIE : TBits_1; inline;
  20559. function getRXNEMPTYIF : TBits_1; inline;
  20560. function getRXOVFLIE : TBits_1; inline;
  20561. function getRXOVFLIF : TBits_1; inline;
  20562. function getTXEMPTYIE : TBits_1; inline;
  20563. function getTXEMPTYIF : TBits_1; inline;
  20564. function getTXHALFIE : TBits_1; inline;
  20565. function getTXHALFIF : TBits_1; inline;
  20566. function getTXNFULLIE : TBits_1; inline;
  20567. function getTXNFULLIF : TBits_1; inline;
  20568. function getw : TBits_32; inline;
  20569. procedure setRXFULLIE(thebits : TBits_1); inline;
  20570. procedure setRXFULLIF(thebits : TBits_1); inline;
  20571. procedure setRXHALFIE(thebits : TBits_1); inline;
  20572. procedure setRXHALFIF(thebits : TBits_1); inline;
  20573. procedure setRXNEMPTYIE(thebits : TBits_1); inline;
  20574. procedure setRXNEMPTYIF(thebits : TBits_1); inline;
  20575. procedure setRXOVFLIE(thebits : TBits_1); inline;
  20576. procedure setRXOVFLIF(thebits : TBits_1); inline;
  20577. procedure setTXEMPTYIE(thebits : TBits_1); inline;
  20578. procedure setTXEMPTYIF(thebits : TBits_1); inline;
  20579. procedure setTXHALFIE(thebits : TBits_1); inline;
  20580. procedure setTXHALFIF(thebits : TBits_1); inline;
  20581. procedure setTXNFULLIE(thebits : TBits_1); inline;
  20582. procedure setTXNFULLIF(thebits : TBits_1); inline;
  20583. procedure setw(thebits : TBits_32); inline;
  20584. public
  20585. procedure clearRXFULLIE; inline;
  20586. procedure clearRXFULLIF; inline;
  20587. procedure clearRXHALFIE; inline;
  20588. procedure clearRXHALFIF; inline;
  20589. procedure clearRXNEMPTYIE; inline;
  20590. procedure clearRXNEMPTYIF; inline;
  20591. procedure clearRXOVFLIE; inline;
  20592. procedure clearRXOVFLIF; inline;
  20593. procedure clearTXEMPTYIE; inline;
  20594. procedure clearTXEMPTYIF; inline;
  20595. procedure clearTXHALFIE; inline;
  20596. procedure clearTXHALFIF; inline;
  20597. procedure clearTXNFULLIE; inline;
  20598. procedure clearTXNFULLIF; inline;
  20599. procedure setRXFULLIE; inline;
  20600. procedure setRXFULLIF; inline;
  20601. procedure setRXHALFIE; inline;
  20602. procedure setRXHALFIF; inline;
  20603. procedure setRXNEMPTYIE; inline;
  20604. procedure setRXNEMPTYIF; inline;
  20605. procedure setRXOVFLIE; inline;
  20606. procedure setRXOVFLIF; inline;
  20607. procedure setTXEMPTYIE; inline;
  20608. procedure setTXEMPTYIF; inline;
  20609. procedure setTXHALFIE; inline;
  20610. procedure setTXHALFIF; inline;
  20611. procedure setTXNFULLIE; inline;
  20612. procedure setTXNFULLIF; inline;
  20613. property RXFULLIE : TBits_1 read getRXFULLIE write setRXFULLIE;
  20614. property RXFULLIF : TBits_1 read getRXFULLIF write setRXFULLIF;
  20615. property RXHALFIE : TBits_1 read getRXHALFIE write setRXHALFIE;
  20616. property RXHALFIF : TBits_1 read getRXHALFIF write setRXHALFIF;
  20617. property RXNEMPTYIE : TBits_1 read getRXNEMPTYIE write setRXNEMPTYIE;
  20618. property RXNEMPTYIF : TBits_1 read getRXNEMPTYIF write setRXNEMPTYIF;
  20619. property RXOVFLIE : TBits_1 read getRXOVFLIE write setRXOVFLIE;
  20620. property RXOVFLIF : TBits_1 read getRXOVFLIF write setRXOVFLIF;
  20621. property TXEMPTYIE : TBits_1 read getTXEMPTYIE write setTXEMPTYIE;
  20622. property TXEMPTYIF : TBits_1 read getTXEMPTYIF write setTXEMPTYIF;
  20623. property TXHALFIE : TBits_1 read getTXHALFIE write setTXHALFIE;
  20624. property TXHALFIF : TBits_1 read getTXHALFIF write setTXHALFIF;
  20625. property TXNFULLIE : TBits_1 read getTXNFULLIE write setTXNFULLIE;
  20626. property TXNFULLIF : TBits_1 read getTXNFULLIF write setTXNFULLIF;
  20627. property w : TBits_32 read getw write setw;
  20628. end;
  20629. TCAN1_C1FIFOCI31 = record
  20630. private
  20631. function getCFIFOCI : TBits_5; inline;
  20632. function getw : TBits_32; inline;
  20633. procedure setCFIFOCI(thebits : TBits_5); inline;
  20634. procedure setw(thebits : TBits_32); inline;
  20635. public
  20636. property CFIFOCI : TBits_5 read getCFIFOCI write setCFIFOCI;
  20637. property w : TBits_32 read getw write setw;
  20638. end;
  20639. type
  20640. TCAN1Registers = record
  20641. C1CONbits : TCAN1_C1CON;
  20642. C1CON : longWord;
  20643. C1CONCLR : longWord;
  20644. C1CONSET : longWord;
  20645. C1CONINV : longWord;
  20646. C1CFGbits : TCAN1_C1CFG;
  20647. C1CFG : longWord;
  20648. C1CFGCLR : longWord;
  20649. C1CFGSET : longWord;
  20650. C1CFGINV : longWord;
  20651. C1INTbits : TCAN1_C1INT;
  20652. C1INT : longWord;
  20653. C1INTCLR : longWord;
  20654. C1INTSET : longWord;
  20655. C1INTINV : longWord;
  20656. C1VECbits : TCAN1_C1VEC;
  20657. C1VEC : longWord;
  20658. C1VECCLR : longWord;
  20659. C1VECSET : longWord;
  20660. C1VECINV : longWord;
  20661. C1TRECbits : TCAN1_C1TREC;
  20662. C1TREC : longWord;
  20663. C1TRECCLR : longWord;
  20664. C1TRECSET : longWord;
  20665. C1TRECINV : longWord;
  20666. C1FSTATbits : TCAN1_C1FSTAT;
  20667. C1FSTAT : longWord;
  20668. C1FSTATCLR : longWord;
  20669. C1FSTATSET : longWord;
  20670. C1FSTATINV : longWord;
  20671. C1RXOVFbits : TCAN1_C1RXOVF;
  20672. C1RXOVF : longWord;
  20673. C1RXOVFCLR : longWord;
  20674. C1RXOVFSET : longWord;
  20675. C1RXOVFINV : longWord;
  20676. C1TMRbits : TCAN1_C1TMR;
  20677. C1TMR : longWord;
  20678. C1TMRCLR : longWord;
  20679. C1TMRSET : longWord;
  20680. C1TMRINV : longWord;
  20681. C1RXM0bits : TCAN1_C1RXM0;
  20682. C1RXM0 : longWord;
  20683. C1RXM0CLR : longWord;
  20684. C1RXM0SET : longWord;
  20685. C1RXM0INV : longWord;
  20686. C1RXM1bits : TCAN1_C1RXM1;
  20687. C1RXM1 : longWord;
  20688. C1RXM1CLR : longWord;
  20689. C1RXM1SET : longWord;
  20690. C1RXM1INV : longWord;
  20691. C1RXM2bits : TCAN1_C1RXM2;
  20692. C1RXM2 : longWord;
  20693. C1RXM2CLR : longWord;
  20694. C1RXM2SET : longWord;
  20695. C1RXM2INV : longWord;
  20696. C1RXM3bits : TCAN1_C1RXM3;
  20697. C1RXM3 : longWord;
  20698. C1RXM3CLR : longWord;
  20699. C1RXM3SET : longWord;
  20700. C1RXM3INV : longWord;
  20701. C1FLTCON0bits : TCAN1_C1FLTCON0;
  20702. C1FLTCON0 : longWord;
  20703. C1FLTCON0CLR : longWord;
  20704. C1FLTCON0SET : longWord;
  20705. C1FLTCON0INV : longWord;
  20706. C1FLTCON1bits : TCAN1_C1FLTCON1;
  20707. C1FLTCON1 : longWord;
  20708. C1FLTCON1CLR : longWord;
  20709. C1FLTCON1SET : longWord;
  20710. C1FLTCON1INV : longWord;
  20711. C1FLTCON2bits : TCAN1_C1FLTCON2;
  20712. C1FLTCON2 : longWord;
  20713. C1FLTCON2CLR : longWord;
  20714. C1FLTCON2SET : longWord;
  20715. C1FLTCON2INV : longWord;
  20716. C1FLTCON3bits : TCAN1_C1FLTCON3;
  20717. C1FLTCON3 : longWord;
  20718. C1FLTCON3CLR : longWord;
  20719. C1FLTCON3SET : longWord;
  20720. C1FLTCON3INV : longWord;
  20721. C1FLTCON4bits : TCAN1_C1FLTCON4;
  20722. C1FLTCON4 : longWord;
  20723. C1FLTCON4CLR : longWord;
  20724. C1FLTCON4SET : longWord;
  20725. C1FLTCON4INV : longWord;
  20726. C1FLTCON5bits : TCAN1_C1FLTCON5;
  20727. C1FLTCON5 : longWord;
  20728. C1FLTCON5CLR : longWord;
  20729. C1FLTCON5SET : longWord;
  20730. C1FLTCON5INV : longWord;
  20731. C1FLTCON6bits : TCAN1_C1FLTCON6;
  20732. C1FLTCON6 : longWord;
  20733. C1FLTCON6CLR : longWord;
  20734. C1FLTCON6SET : longWord;
  20735. C1FLTCON6INV : longWord;
  20736. C1FLTCON7bits : TCAN1_C1FLTCON7;
  20737. C1FLTCON7 : longWord;
  20738. C1FLTCON7CLR : longWord;
  20739. C1FLTCON7SET : longWord;
  20740. C1FLTCON7INV : longWord;
  20741. C1RXF0bits : TCAN1_C1RXF0;
  20742. C1RXF0 : longWord;
  20743. C1RXF0CLR : longWord;
  20744. C1RXF0SET : longWord;
  20745. C1RXF0INV : longWord;
  20746. C1RXF1bits : TCAN1_C1RXF1;
  20747. C1RXF1 : longWord;
  20748. C1RXF1CLR : longWord;
  20749. C1RXF1SET : longWord;
  20750. C1RXF1INV : longWord;
  20751. C1RXF2bits : TCAN1_C1RXF2;
  20752. C1RXF2 : longWord;
  20753. C1RXF2CLR : longWord;
  20754. C1RXF2SET : longWord;
  20755. C1RXF2INV : longWord;
  20756. C1RXF3bits : TCAN1_C1RXF3;
  20757. C1RXF3 : longWord;
  20758. C1RXF3CLR : longWord;
  20759. C1RXF3SET : longWord;
  20760. C1RXF3INV : longWord;
  20761. C1RXF4bits : TCAN1_C1RXF4;
  20762. C1RXF4 : longWord;
  20763. C1RXF4CLR : longWord;
  20764. C1RXF4SET : longWord;
  20765. C1RXF4INV : longWord;
  20766. C1RXF5bits : TCAN1_C1RXF5;
  20767. C1RXF5 : longWord;
  20768. C1RXF5CLR : longWord;
  20769. C1RXF5SET : longWord;
  20770. C1RXF5INV : longWord;
  20771. C1RXF6bits : TCAN1_C1RXF6;
  20772. C1RXF6 : longWord;
  20773. C1RXF6CLR : longWord;
  20774. C1RXF6SET : longWord;
  20775. C1RXF6INV : longWord;
  20776. C1RXF7bits : TCAN1_C1RXF7;
  20777. C1RXF7 : longWord;
  20778. C1RXF7CLR : longWord;
  20779. C1RXF7SET : longWord;
  20780. C1RXF7INV : longWord;
  20781. C1RXF8bits : TCAN1_C1RXF8;
  20782. C1RXF8 : longWord;
  20783. C1RXF8CLR : longWord;
  20784. C1RXF8SET : longWord;
  20785. C1RXF8INV : longWord;
  20786. C1RXF9bits : TCAN1_C1RXF9;
  20787. C1RXF9 : longWord;
  20788. C1RXF9CLR : longWord;
  20789. C1RXF9SET : longWord;
  20790. C1RXF9INV : longWord;
  20791. C1RXF10bits : TCAN1_C1RXF10;
  20792. C1RXF10 : longWord;
  20793. C1RXF10CLR : longWord;
  20794. C1RXF10SET : longWord;
  20795. C1RXF10INV : longWord;
  20796. C1RXF11bits : TCAN1_C1RXF11;
  20797. C1RXF11 : longWord;
  20798. C1RXF11CLR : longWord;
  20799. C1RXF11SET : longWord;
  20800. C1RXF11INV : longWord;
  20801. C1RXF12bits : TCAN1_C1RXF12;
  20802. C1RXF12 : longWord;
  20803. C1RXF12CLR : longWord;
  20804. C1RXF12SET : longWord;
  20805. C1RXF12INV : longWord;
  20806. C1RXF13bits : TCAN1_C1RXF13;
  20807. C1RXF13 : longWord;
  20808. C1RXF13CLR : longWord;
  20809. C1RXF13SET : longWord;
  20810. C1RXF13INV : longWord;
  20811. C1RXF14bits : TCAN1_C1RXF14;
  20812. C1RXF14 : longWord;
  20813. C1RXF14CLR : longWord;
  20814. C1RXF14SET : longWord;
  20815. C1RXF14INV : longWord;
  20816. C1RXF15bits : TCAN1_C1RXF15;
  20817. C1RXF15 : longWord;
  20818. C1RXF15CLR : longWord;
  20819. C1RXF15SET : longWord;
  20820. C1RXF15INV : longWord;
  20821. C1RXF16bits : TCAN1_C1RXF16;
  20822. C1RXF16 : longWord;
  20823. C1RXF16CLR : longWord;
  20824. C1RXF16SET : longWord;
  20825. C1RXF16INV : longWord;
  20826. C1RXF17bits : TCAN1_C1RXF17;
  20827. C1RXF17 : longWord;
  20828. C1RXF17CLR : longWord;
  20829. C1RXF17SET : longWord;
  20830. C1RXF17INV : longWord;
  20831. C1RXF18bits : TCAN1_C1RXF18;
  20832. C1RXF18 : longWord;
  20833. C1RXF18CLR : longWord;
  20834. C1RXF18SET : longWord;
  20835. C1RXF18INV : longWord;
  20836. C1RXF19bits : TCAN1_C1RXF19;
  20837. C1RXF19 : longWord;
  20838. C1RXF19CLR : longWord;
  20839. C1RXF19SET : longWord;
  20840. C1RXF19INV : longWord;
  20841. C1RXF20bits : TCAN1_C1RXF20;
  20842. C1RXF20 : longWord;
  20843. C1RXF20CLR : longWord;
  20844. C1RXF20SET : longWord;
  20845. C1RXF20INV : longWord;
  20846. C1RXF21bits : TCAN1_C1RXF21;
  20847. C1RXF21 : longWord;
  20848. C1RXF21CLR : longWord;
  20849. C1RXF21SET : longWord;
  20850. C1RXF21INV : longWord;
  20851. C1RXF22bits : TCAN1_C1RXF22;
  20852. C1RXF22 : longWord;
  20853. C1RXF22CLR : longWord;
  20854. C1RXF22SET : longWord;
  20855. C1RXF22INV : longWord;
  20856. C1RXF23bits : TCAN1_C1RXF23;
  20857. C1RXF23 : longWord;
  20858. C1RXF23CLR : longWord;
  20859. C1RXF23SET : longWord;
  20860. C1RXF23INV : longWord;
  20861. C1RXF24bits : TCAN1_C1RXF24;
  20862. C1RXF24 : longWord;
  20863. C1RXF24CLR : longWord;
  20864. C1RXF24SET : longWord;
  20865. C1RXF24INV : longWord;
  20866. C1RXF25bits : TCAN1_C1RXF25;
  20867. C1RXF25 : longWord;
  20868. C1RXF25CLR : longWord;
  20869. C1RXF25SET : longWord;
  20870. C1RXF25INV : longWord;
  20871. C1RXF26bits : TCAN1_C1RXF26;
  20872. C1RXF26 : longWord;
  20873. C1RXF26CLR : longWord;
  20874. C1RXF26SET : longWord;
  20875. C1RXF26INV : longWord;
  20876. C1RXF27bits : TCAN1_C1RXF27;
  20877. C1RXF27 : longWord;
  20878. C1RXF27CLR : longWord;
  20879. C1RXF27SET : longWord;
  20880. C1RXF27INV : longWord;
  20881. C1RXF28bits : TCAN1_C1RXF28;
  20882. C1RXF28 : longWord;
  20883. C1RXF28CLR : longWord;
  20884. C1RXF28SET : longWord;
  20885. C1RXF28INV : longWord;
  20886. C1RXF29bits : TCAN1_C1RXF29;
  20887. C1RXF29 : longWord;
  20888. C1RXF29CLR : longWord;
  20889. C1RXF29SET : longWord;
  20890. C1RXF29INV : longWord;
  20891. C1RXF30bits : TCAN1_C1RXF30;
  20892. C1RXF30 : longWord;
  20893. C1RXF30CLR : longWord;
  20894. C1RXF30SET : longWord;
  20895. C1RXF30INV : longWord;
  20896. C1RXF31bits : TCAN1_C1RXF31;
  20897. C1RXF31 : longWord;
  20898. C1RXF31CLR : longWord;
  20899. C1RXF31SET : longWord;
  20900. C1RXF31INV : longWord;
  20901. C1FIFOBA : longWord;
  20902. C1FIFOBACLR : longWord;
  20903. C1FIFOBASET : longWord;
  20904. C1FIFOBAINV : longWord;
  20905. C1FIFOCON0bits : TCAN1_C1FIFOCON0;
  20906. C1FIFOCON0 : longWord;
  20907. C1FIFOCON0CLR : longWord;
  20908. C1FIFOCON0SET : longWord;
  20909. C1FIFOCON0INV : longWord;
  20910. C1FIFOINT0bits : TCAN1_C1FIFOINT0;
  20911. C1FIFOINT0 : longWord;
  20912. C1FIFOINT0CLR : longWord;
  20913. C1FIFOINT0SET : longWord;
  20914. C1FIFOINT0INV : longWord;
  20915. C1FIFOUA0 : longWord;
  20916. C1FIFOUA0CLR : longWord;
  20917. C1FIFOUA0SET : longWord;
  20918. C1FIFOUA0INV : longWord;
  20919. C1FIFOCI0bits : TCAN1_C1FIFOCI0;
  20920. C1FIFOCI0 : longWord;
  20921. C1FIFOCI0CLR : longWord;
  20922. C1FIFOCI0SET : longWord;
  20923. C1FIFOCI0INV : longWord;
  20924. C1FIFOCON1bits : TCAN1_C1FIFOCON1;
  20925. C1FIFOCON1 : longWord;
  20926. C1FIFOCON1CLR : longWord;
  20927. C1FIFOCON1SET : longWord;
  20928. C1FIFOCON1INV : longWord;
  20929. C1FIFOINT1bits : TCAN1_C1FIFOINT1;
  20930. C1FIFOINT1 : longWord;
  20931. C1FIFOINT1CLR : longWord;
  20932. C1FIFOINT1SET : longWord;
  20933. C1FIFOINT1INV : longWord;
  20934. C1FIFOUA1 : longWord;
  20935. C1FIFOUA1CLR : longWord;
  20936. C1FIFOUA1SET : longWord;
  20937. C1FIFOUA1INV : longWord;
  20938. C1FIFOCI1bits : TCAN1_C1FIFOCI1;
  20939. C1FIFOCI1 : longWord;
  20940. C1FIFOCI1CLR : longWord;
  20941. C1FIFOCI1SET : longWord;
  20942. C1FIFOCI1INV : longWord;
  20943. C1FIFOCON2bits : TCAN1_C1FIFOCON2;
  20944. C1FIFOCON2 : longWord;
  20945. C1FIFOCON2CLR : longWord;
  20946. C1FIFOCON2SET : longWord;
  20947. C1FIFOCON2INV : longWord;
  20948. C1FIFOINT2bits : TCAN1_C1FIFOINT2;
  20949. C1FIFOINT2 : longWord;
  20950. C1FIFOINT2CLR : longWord;
  20951. C1FIFOINT2SET : longWord;
  20952. C1FIFOINT2INV : longWord;
  20953. C1FIFOUA2 : longWord;
  20954. C1FIFOUA2CLR : longWord;
  20955. C1FIFOUA2SET : longWord;
  20956. C1FIFOUA2INV : longWord;
  20957. C1FIFOCI2bits : TCAN1_C1FIFOCI2;
  20958. C1FIFOCI2 : longWord;
  20959. C1FIFOCI2CLR : longWord;
  20960. C1FIFOCI2SET : longWord;
  20961. C1FIFOCI2INV : longWord;
  20962. C1FIFOCON3bits : TCAN1_C1FIFOCON3;
  20963. C1FIFOCON3 : longWord;
  20964. C1FIFOCON3CLR : longWord;
  20965. C1FIFOCON3SET : longWord;
  20966. C1FIFOCON3INV : longWord;
  20967. C1FIFOINT3bits : TCAN1_C1FIFOINT3;
  20968. C1FIFOINT3 : longWord;
  20969. C1FIFOINT3CLR : longWord;
  20970. C1FIFOINT3SET : longWord;
  20971. C1FIFOINT3INV : longWord;
  20972. C1FIFOUA3 : longWord;
  20973. C1FIFOUA3CLR : longWord;
  20974. C1FIFOUA3SET : longWord;
  20975. C1FIFOUA3INV : longWord;
  20976. C1FIFOCI3bits : TCAN1_C1FIFOCI3;
  20977. C1FIFOCI3 : longWord;
  20978. C1FIFOCI3CLR : longWord;
  20979. C1FIFOCI3SET : longWord;
  20980. C1FIFOCI3INV : longWord;
  20981. C1FIFOCON4bits : TCAN1_C1FIFOCON4;
  20982. C1FIFOCON4 : longWord;
  20983. C1FIFOCON4CLR : longWord;
  20984. C1FIFOCON4SET : longWord;
  20985. C1FIFOCON4INV : longWord;
  20986. C1FIFOINT4bits : TCAN1_C1FIFOINT4;
  20987. C1FIFOINT4 : longWord;
  20988. C1FIFOINT4CLR : longWord;
  20989. C1FIFOINT4SET : longWord;
  20990. C1FIFOINT4INV : longWord;
  20991. C1FIFOUA4 : longWord;
  20992. C1FIFOUA4CLR : longWord;
  20993. C1FIFOUA4SET : longWord;
  20994. C1FIFOUA4INV : longWord;
  20995. C1FIFOCI4bits : TCAN1_C1FIFOCI4;
  20996. C1FIFOCI4 : longWord;
  20997. C1FIFOCI4CLR : longWord;
  20998. C1FIFOCI4SET : longWord;
  20999. C1FIFOCI4INV : longWord;
  21000. C1FIFOCON5bits : TCAN1_C1FIFOCON5;
  21001. C1FIFOCON5 : longWord;
  21002. C1FIFOCON5CLR : longWord;
  21003. C1FIFOCON5SET : longWord;
  21004. C1FIFOCON5INV : longWord;
  21005. C1FIFOINT5bits : TCAN1_C1FIFOINT5;
  21006. C1FIFOINT5 : longWord;
  21007. C1FIFOINT5CLR : longWord;
  21008. C1FIFOINT5SET : longWord;
  21009. C1FIFOINT5INV : longWord;
  21010. C1FIFOUA5 : longWord;
  21011. C1FIFOUA5CLR : longWord;
  21012. C1FIFOUA5SET : longWord;
  21013. C1FIFOUA5INV : longWord;
  21014. C1FIFOCI5bits : TCAN1_C1FIFOCI5;
  21015. C1FIFOCI5 : longWord;
  21016. C1FIFOCI5CLR : longWord;
  21017. C1FIFOCI5SET : longWord;
  21018. C1FIFOCI5INV : longWord;
  21019. C1FIFOCON6bits : TCAN1_C1FIFOCON6;
  21020. C1FIFOCON6 : longWord;
  21021. C1FIFOCON6CLR : longWord;
  21022. C1FIFOCON6SET : longWord;
  21023. C1FIFOCON6INV : longWord;
  21024. C1FIFOINT6bits : TCAN1_C1FIFOINT6;
  21025. C1FIFOINT6 : longWord;
  21026. C1FIFOINT6CLR : longWord;
  21027. C1FIFOINT6SET : longWord;
  21028. C1FIFOINT6INV : longWord;
  21029. C1FIFOUA6 : longWord;
  21030. C1FIFOUA6CLR : longWord;
  21031. C1FIFOUA6SET : longWord;
  21032. C1FIFOUA6INV : longWord;
  21033. C1FIFOCI6bits : TCAN1_C1FIFOCI6;
  21034. C1FIFOCI6 : longWord;
  21035. C1FIFOCI6CLR : longWord;
  21036. C1FIFOCI6SET : longWord;
  21037. C1FIFOCI6INV : longWord;
  21038. C1FIFOCON7bits : TCAN1_C1FIFOCON7;
  21039. C1FIFOCON7 : longWord;
  21040. C1FIFOCON7CLR : longWord;
  21041. C1FIFOCON7SET : longWord;
  21042. C1FIFOCON7INV : longWord;
  21043. C1FIFOINT7bits : TCAN1_C1FIFOINT7;
  21044. C1FIFOINT7 : longWord;
  21045. C1FIFOINT7CLR : longWord;
  21046. C1FIFOINT7SET : longWord;
  21047. C1FIFOINT7INV : longWord;
  21048. C1FIFOUA7 : longWord;
  21049. C1FIFOUA7CLR : longWord;
  21050. C1FIFOUA7SET : longWord;
  21051. C1FIFOUA7INV : longWord;
  21052. C1FIFOCI7bits : TCAN1_C1FIFOCI7;
  21053. C1FIFOCI7 : longWord;
  21054. C1FIFOCI7CLR : longWord;
  21055. C1FIFOCI7SET : longWord;
  21056. C1FIFOCI7INV : longWord;
  21057. C1FIFOCON8bits : TCAN1_C1FIFOCON8;
  21058. C1FIFOCON8 : longWord;
  21059. C1FIFOCON8CLR : longWord;
  21060. C1FIFOCON8SET : longWord;
  21061. C1FIFOCON8INV : longWord;
  21062. C1FIFOINT8bits : TCAN1_C1FIFOINT8;
  21063. C1FIFOINT8 : longWord;
  21064. C1FIFOINT8CLR : longWord;
  21065. C1FIFOINT8SET : longWord;
  21066. C1FIFOINT8INV : longWord;
  21067. C1FIFOUA8 : longWord;
  21068. C1FIFOUA8CLR : longWord;
  21069. C1FIFOUA8SET : longWord;
  21070. C1FIFOUA8INV : longWord;
  21071. C1FIFOCI8bits : TCAN1_C1FIFOCI8;
  21072. C1FIFOCI8 : longWord;
  21073. C1FIFOCI8CLR : longWord;
  21074. C1FIFOCI8SET : longWord;
  21075. C1FIFOCI8INV : longWord;
  21076. C1FIFOCON9bits : TCAN1_C1FIFOCON9;
  21077. C1FIFOCON9 : longWord;
  21078. C1FIFOCON9CLR : longWord;
  21079. C1FIFOCON9SET : longWord;
  21080. C1FIFOCON9INV : longWord;
  21081. C1FIFOINT9bits : TCAN1_C1FIFOINT9;
  21082. C1FIFOINT9 : longWord;
  21083. C1FIFOINT9CLR : longWord;
  21084. C1FIFOINT9SET : longWord;
  21085. C1FIFOINT9INV : longWord;
  21086. C1FIFOUA9 : longWord;
  21087. C1FIFOUA9CLR : longWord;
  21088. C1FIFOUA9SET : longWord;
  21089. C1FIFOUA9INV : longWord;
  21090. C1FIFOCI9bits : TCAN1_C1FIFOCI9;
  21091. C1FIFOCI9 : longWord;
  21092. C1FIFOCI9CLR : longWord;
  21093. C1FIFOCI9SET : longWord;
  21094. C1FIFOCI9INV : longWord;
  21095. C1FIFOCON10bits : TCAN1_C1FIFOCON10;
  21096. C1FIFOCON10 : longWord;
  21097. C1FIFOCON10CLR : longWord;
  21098. C1FIFOCON10SET : longWord;
  21099. C1FIFOCON10INV : longWord;
  21100. C1FIFOINT10bits : TCAN1_C1FIFOINT10;
  21101. C1FIFOINT10 : longWord;
  21102. C1FIFOINT10CLR : longWord;
  21103. C1FIFOINT10SET : longWord;
  21104. C1FIFOINT10INV : longWord;
  21105. C1FIFOUA10 : longWord;
  21106. C1FIFOUA10CLR : longWord;
  21107. C1FIFOUA10SET : longWord;
  21108. C1FIFOUA10INV : longWord;
  21109. C1FIFOCI10bits : TCAN1_C1FIFOCI10;
  21110. C1FIFOCI10 : longWord;
  21111. C1FIFOCI10CLR : longWord;
  21112. C1FIFOCI10SET : longWord;
  21113. C1FIFOCI10INV : longWord;
  21114. C1FIFOCON11bits : TCAN1_C1FIFOCON11;
  21115. C1FIFOCON11 : longWord;
  21116. C1FIFOCON11CLR : longWord;
  21117. C1FIFOCON11SET : longWord;
  21118. C1FIFOCON11INV : longWord;
  21119. C1FIFOINT11bits : TCAN1_C1FIFOINT11;
  21120. C1FIFOINT11 : longWord;
  21121. C1FIFOINT11CLR : longWord;
  21122. C1FIFOINT11SET : longWord;
  21123. C1FIFOINT11INV : longWord;
  21124. C1FIFOUA11 : longWord;
  21125. C1FIFOUA11CLR : longWord;
  21126. C1FIFOUA11SET : longWord;
  21127. C1FIFOUA11INV : longWord;
  21128. C1FIFOCI11bits : TCAN1_C1FIFOCI11;
  21129. C1FIFOCI11 : longWord;
  21130. C1FIFOCI11CLR : longWord;
  21131. C1FIFOCI11SET : longWord;
  21132. C1FIFOCI11INV : longWord;
  21133. C1FIFOCON12bits : TCAN1_C1FIFOCON12;
  21134. C1FIFOCON12 : longWord;
  21135. C1FIFOCON12CLR : longWord;
  21136. C1FIFOCON12SET : longWord;
  21137. C1FIFOCON12INV : longWord;
  21138. C1FIFOINT12bits : TCAN1_C1FIFOINT12;
  21139. C1FIFOINT12 : longWord;
  21140. C1FIFOINT12CLR : longWord;
  21141. C1FIFOINT12SET : longWord;
  21142. C1FIFOINT12INV : longWord;
  21143. C1FIFOUA12 : longWord;
  21144. C1FIFOUA12CLR : longWord;
  21145. C1FIFOUA12SET : longWord;
  21146. C1FIFOUA12INV : longWord;
  21147. C1FIFOCI12bits : TCAN1_C1FIFOCI12;
  21148. C1FIFOCI12 : longWord;
  21149. C1FIFOCI12CLR : longWord;
  21150. C1FIFOCI12SET : longWord;
  21151. C1FIFOCI12INV : longWord;
  21152. C1FIFOCON13bits : TCAN1_C1FIFOCON13;
  21153. C1FIFOCON13 : longWord;
  21154. C1FIFOCON13CLR : longWord;
  21155. C1FIFOCON13SET : longWord;
  21156. C1FIFOCON13INV : longWord;
  21157. C1FIFOINT13bits : TCAN1_C1FIFOINT13;
  21158. C1FIFOINT13 : longWord;
  21159. C1FIFOINT13CLR : longWord;
  21160. C1FIFOINT13SET : longWord;
  21161. C1FIFOINT13INV : longWord;
  21162. C1FIFOUA13 : longWord;
  21163. C1FIFOUA13CLR : longWord;
  21164. C1FIFOUA13SET : longWord;
  21165. C1FIFOUA13INV : longWord;
  21166. C1FIFOCI13bits : TCAN1_C1FIFOCI13;
  21167. C1FIFOCI13 : longWord;
  21168. C1FIFOCI13CLR : longWord;
  21169. C1FIFOCI13SET : longWord;
  21170. C1FIFOCI13INV : longWord;
  21171. C1FIFOCON14bits : TCAN1_C1FIFOCON14;
  21172. C1FIFOCON14 : longWord;
  21173. C1FIFOCON14CLR : longWord;
  21174. C1FIFOCON14SET : longWord;
  21175. C1FIFOCON14INV : longWord;
  21176. C1FIFOINT14bits : TCAN1_C1FIFOINT14;
  21177. C1FIFOINT14 : longWord;
  21178. C1FIFOINT14CLR : longWord;
  21179. C1FIFOINT14SET : longWord;
  21180. C1FIFOINT14INV : longWord;
  21181. C1FIFOUA14 : longWord;
  21182. C1FIFOUA14CLR : longWord;
  21183. C1FIFOUA14SET : longWord;
  21184. C1FIFOUA14INV : longWord;
  21185. C1FIFOCI14bits : TCAN1_C1FIFOCI14;
  21186. C1FIFOCI14 : longWord;
  21187. C1FIFOCI14CLR : longWord;
  21188. C1FIFOCI14SET : longWord;
  21189. C1FIFOCI14INV : longWord;
  21190. C1FIFOCON15bits : TCAN1_C1FIFOCON15;
  21191. C1FIFOCON15 : longWord;
  21192. C1FIFOCON15CLR : longWord;
  21193. C1FIFOCON15SET : longWord;
  21194. C1FIFOCON15INV : longWord;
  21195. C1FIFOINT15bits : TCAN1_C1FIFOINT15;
  21196. C1FIFOINT15 : longWord;
  21197. C1FIFOINT15CLR : longWord;
  21198. C1FIFOINT15SET : longWord;
  21199. C1FIFOINT15INV : longWord;
  21200. C1FIFOUA15 : longWord;
  21201. C1FIFOUA15CLR : longWord;
  21202. C1FIFOUA15SET : longWord;
  21203. C1FIFOUA15INV : longWord;
  21204. C1FIFOCI15bits : TCAN1_C1FIFOCI15;
  21205. C1FIFOCI15 : longWord;
  21206. C1FIFOCI15CLR : longWord;
  21207. C1FIFOCI15SET : longWord;
  21208. C1FIFOCI15INV : longWord;
  21209. C1FIFOCON16bits : TCAN1_C1FIFOCON16;
  21210. C1FIFOCON16 : longWord;
  21211. C1FIFOCON16CLR : longWord;
  21212. C1FIFOCON16SET : longWord;
  21213. C1FIFOCON16INV : longWord;
  21214. C1FIFOINT16bits : TCAN1_C1FIFOINT16;
  21215. C1FIFOINT16 : longWord;
  21216. C1FIFOINT16CLR : longWord;
  21217. C1FIFOINT16SET : longWord;
  21218. C1FIFOINT16INV : longWord;
  21219. C1FIFOUA16 : longWord;
  21220. C1FIFOUA16CLR : longWord;
  21221. C1FIFOUA16SET : longWord;
  21222. C1FIFOUA16INV : longWord;
  21223. C1FIFOCI16bits : TCAN1_C1FIFOCI16;
  21224. C1FIFOCI16 : longWord;
  21225. C1FIFOCI16CLR : longWord;
  21226. C1FIFOCI16SET : longWord;
  21227. C1FIFOCI16INV : longWord;
  21228. C1FIFOCON17bits : TCAN1_C1FIFOCON17;
  21229. C1FIFOCON17 : longWord;
  21230. C1FIFOCON17CLR : longWord;
  21231. C1FIFOCON17SET : longWord;
  21232. C1FIFOCON17INV : longWord;
  21233. C1FIFOINT17bits : TCAN1_C1FIFOINT17;
  21234. C1FIFOINT17 : longWord;
  21235. C1FIFOINT17CLR : longWord;
  21236. C1FIFOINT17SET : longWord;
  21237. C1FIFOINT17INV : longWord;
  21238. C1FIFOUA17 : longWord;
  21239. C1FIFOUA17CLR : longWord;
  21240. C1FIFOUA17SET : longWord;
  21241. C1FIFOUA17INV : longWord;
  21242. C1FIFOCI17bits : TCAN1_C1FIFOCI17;
  21243. C1FIFOCI17 : longWord;
  21244. C1FIFOCI17CLR : longWord;
  21245. C1FIFOCI17SET : longWord;
  21246. C1FIFOCI17INV : longWord;
  21247. C1FIFOCON18bits : TCAN1_C1FIFOCON18;
  21248. C1FIFOCON18 : longWord;
  21249. C1FIFOCON18CLR : longWord;
  21250. C1FIFOCON18SET : longWord;
  21251. C1FIFOCON18INV : longWord;
  21252. C1FIFOINT18bits : TCAN1_C1FIFOINT18;
  21253. C1FIFOINT18 : longWord;
  21254. C1FIFOINT18CLR : longWord;
  21255. C1FIFOINT18SET : longWord;
  21256. C1FIFOINT18INV : longWord;
  21257. C1FIFOUA18 : longWord;
  21258. C1FIFOUA18CLR : longWord;
  21259. C1FIFOUA18SET : longWord;
  21260. C1FIFOUA18INV : longWord;
  21261. C1FIFOCI18bits : TCAN1_C1FIFOCI18;
  21262. C1FIFOCI18 : longWord;
  21263. C1FIFOCI18CLR : longWord;
  21264. C1FIFOCI18SET : longWord;
  21265. C1FIFOCI18INV : longWord;
  21266. C1FIFOCON19bits : TCAN1_C1FIFOCON19;
  21267. C1FIFOCON19 : longWord;
  21268. C1FIFOCON19CLR : longWord;
  21269. C1FIFOCON19SET : longWord;
  21270. C1FIFOCON19INV : longWord;
  21271. C1FIFOINT19bits : TCAN1_C1FIFOINT19;
  21272. C1FIFOINT19 : longWord;
  21273. C1FIFOINT19CLR : longWord;
  21274. C1FIFOINT19SET : longWord;
  21275. C1FIFOINT19INV : longWord;
  21276. C1FIFOUA19 : longWord;
  21277. C1FIFOUA19CLR : longWord;
  21278. C1FIFOUA19SET : longWord;
  21279. C1FIFOUA19INV : longWord;
  21280. C1FIFOCI19bits : TCAN1_C1FIFOCI19;
  21281. C1FIFOCI19 : longWord;
  21282. C1FIFOCI19CLR : longWord;
  21283. C1FIFOCI19SET : longWord;
  21284. C1FIFOCI19INV : longWord;
  21285. C1FIFOCON20bits : TCAN1_C1FIFOCON20;
  21286. C1FIFOCON20 : longWord;
  21287. C1FIFOCON20CLR : longWord;
  21288. C1FIFOCON20SET : longWord;
  21289. C1FIFOCON20INV : longWord;
  21290. C1FIFOINT20bits : TCAN1_C1FIFOINT20;
  21291. C1FIFOINT20 : longWord;
  21292. C1FIFOINT20CLR : longWord;
  21293. C1FIFOINT20SET : longWord;
  21294. C1FIFOINT20INV : longWord;
  21295. C1FIFOUA20 : longWord;
  21296. C1FIFOUA20CLR : longWord;
  21297. C1FIFOUA20SET : longWord;
  21298. C1FIFOUA20INV : longWord;
  21299. C1FIFOCI20bits : TCAN1_C1FIFOCI20;
  21300. C1FIFOCI20 : longWord;
  21301. C1FIFOCI20CLR : longWord;
  21302. C1FIFOCI20SET : longWord;
  21303. C1FIFOCI20INV : longWord;
  21304. C1FIFOCON21bits : TCAN1_C1FIFOCON21;
  21305. C1FIFOCON21 : longWord;
  21306. C1FIFOCON21CLR : longWord;
  21307. C1FIFOCON21SET : longWord;
  21308. C1FIFOCON21INV : longWord;
  21309. C1FIFOINT21bits : TCAN1_C1FIFOINT21;
  21310. C1FIFOINT21 : longWord;
  21311. C1FIFOINT21CLR : longWord;
  21312. C1FIFOINT21SET : longWord;
  21313. C1FIFOINT21INV : longWord;
  21314. C1FIFOUA21 : longWord;
  21315. C1FIFOUA21CLR : longWord;
  21316. C1FIFOUA21SET : longWord;
  21317. C1FIFOUA21INV : longWord;
  21318. C1FIFOCI21bits : TCAN1_C1FIFOCI21;
  21319. C1FIFOCI21 : longWord;
  21320. C1FIFOCI21CLR : longWord;
  21321. C1FIFOCI21SET : longWord;
  21322. C1FIFOCI21INV : longWord;
  21323. C1FIFOCON22bits : TCAN1_C1FIFOCON22;
  21324. C1FIFOCON22 : longWord;
  21325. C1FIFOCON22CLR : longWord;
  21326. C1FIFOCON22SET : longWord;
  21327. C1FIFOCON22INV : longWord;
  21328. C1FIFOINT22bits : TCAN1_C1FIFOINT22;
  21329. C1FIFOINT22 : longWord;
  21330. C1FIFOINT22CLR : longWord;
  21331. C1FIFOINT22SET : longWord;
  21332. C1FIFOINT22INV : longWord;
  21333. C1FIFOUA22 : longWord;
  21334. C1FIFOUA22CLR : longWord;
  21335. C1FIFOUA22SET : longWord;
  21336. C1FIFOUA22INV : longWord;
  21337. C1FIFOCI22bits : TCAN1_C1FIFOCI22;
  21338. C1FIFOCI22 : longWord;
  21339. C1FIFOCI22CLR : longWord;
  21340. C1FIFOCI22SET : longWord;
  21341. C1FIFOCI22INV : longWord;
  21342. C1FIFOCON23bits : TCAN1_C1FIFOCON23;
  21343. C1FIFOCON23 : longWord;
  21344. C1FIFOCON23CLR : longWord;
  21345. C1FIFOCON23SET : longWord;
  21346. C1FIFOCON23INV : longWord;
  21347. C1FIFOINT23bits : TCAN1_C1FIFOINT23;
  21348. C1FIFOINT23 : longWord;
  21349. C1FIFOINT23CLR : longWord;
  21350. C1FIFOINT23SET : longWord;
  21351. C1FIFOINT23INV : longWord;
  21352. C1FIFOUA23 : longWord;
  21353. C1FIFOUA23CLR : longWord;
  21354. C1FIFOUA23SET : longWord;
  21355. C1FIFOUA23INV : longWord;
  21356. C1FIFOCI23bits : TCAN1_C1FIFOCI23;
  21357. C1FIFOCI23 : longWord;
  21358. C1FIFOCI23CLR : longWord;
  21359. C1FIFOCI23SET : longWord;
  21360. C1FIFOCI23INV : longWord;
  21361. C1FIFOCON24bits : TCAN1_C1FIFOCON24;
  21362. C1FIFOCON24 : longWord;
  21363. C1FIFOCON24CLR : longWord;
  21364. C1FIFOCON24SET : longWord;
  21365. C1FIFOCON24INV : longWord;
  21366. C1FIFOINT24bits : TCAN1_C1FIFOINT24;
  21367. C1FIFOINT24 : longWord;
  21368. C1FIFOINT24CLR : longWord;
  21369. C1FIFOINT24SET : longWord;
  21370. C1FIFOINT24INV : longWord;
  21371. C1FIFOUA24 : longWord;
  21372. C1FIFOUA24CLR : longWord;
  21373. C1FIFOUA24SET : longWord;
  21374. C1FIFOUA24INV : longWord;
  21375. C1FIFOCI24bits : TCAN1_C1FIFOCI24;
  21376. C1FIFOCI24 : longWord;
  21377. C1FIFOCI24CLR : longWord;
  21378. C1FIFOCI24SET : longWord;
  21379. C1FIFOCI24INV : longWord;
  21380. C1FIFOCON25bits : TCAN1_C1FIFOCON25;
  21381. C1FIFOCON25 : longWord;
  21382. C1FIFOCON25CLR : longWord;
  21383. C1FIFOCON25SET : longWord;
  21384. C1FIFOCON25INV : longWord;
  21385. C1FIFOINT25bits : TCAN1_C1FIFOINT25;
  21386. C1FIFOINT25 : longWord;
  21387. C1FIFOINT25CLR : longWord;
  21388. C1FIFOINT25SET : longWord;
  21389. C1FIFOINT25INV : longWord;
  21390. C1FIFOUA25 : longWord;
  21391. C1FIFOUA25CLR : longWord;
  21392. C1FIFOUA25SET : longWord;
  21393. C1FIFOUA25INV : longWord;
  21394. C1FIFOCI25bits : TCAN1_C1FIFOCI25;
  21395. C1FIFOCI25 : longWord;
  21396. C1FIFOCI25CLR : longWord;
  21397. C1FIFOCI25SET : longWord;
  21398. C1FIFOCI25INV : longWord;
  21399. C1FIFOCON26bits : TCAN1_C1FIFOCON26;
  21400. C1FIFOCON26 : longWord;
  21401. C1FIFOCON26CLR : longWord;
  21402. C1FIFOCON26SET : longWord;
  21403. C1FIFOCON26INV : longWord;
  21404. C1FIFOINT26bits : TCAN1_C1FIFOINT26;
  21405. C1FIFOINT26 : longWord;
  21406. C1FIFOINT26CLR : longWord;
  21407. C1FIFOINT26SET : longWord;
  21408. C1FIFOINT26INV : longWord;
  21409. C1FIFOUA26 : longWord;
  21410. C1FIFOUA26CLR : longWord;
  21411. C1FIFOUA26SET : longWord;
  21412. C1FIFOUA26INV : longWord;
  21413. C1FIFOCI26bits : TCAN1_C1FIFOCI26;
  21414. C1FIFOCI26 : longWord;
  21415. C1FIFOCI26CLR : longWord;
  21416. C1FIFOCI26SET : longWord;
  21417. C1FIFOCI26INV : longWord;
  21418. C1FIFOCON27bits : TCAN1_C1FIFOCON27;
  21419. C1FIFOCON27 : longWord;
  21420. C1FIFOCON27CLR : longWord;
  21421. C1FIFOCON27SET : longWord;
  21422. C1FIFOCON27INV : longWord;
  21423. C1FIFOINT27bits : TCAN1_C1FIFOINT27;
  21424. C1FIFOINT27 : longWord;
  21425. C1FIFOINT27CLR : longWord;
  21426. C1FIFOINT27SET : longWord;
  21427. C1FIFOINT27INV : longWord;
  21428. C1FIFOUA27 : longWord;
  21429. C1FIFOUA27CLR : longWord;
  21430. C1FIFOUA27SET : longWord;
  21431. C1FIFOUA27INV : longWord;
  21432. C1FIFOCI27bits : TCAN1_C1FIFOCI27;
  21433. C1FIFOCI27 : longWord;
  21434. C1FIFOCI27CLR : longWord;
  21435. C1FIFOCI27SET : longWord;
  21436. C1FIFOCI27INV : longWord;
  21437. C1FIFOCON28bits : TCAN1_C1FIFOCON28;
  21438. C1FIFOCON28 : longWord;
  21439. C1FIFOCON28CLR : longWord;
  21440. C1FIFOCON28SET : longWord;
  21441. C1FIFOCON28INV : longWord;
  21442. C1FIFOINT28bits : TCAN1_C1FIFOINT28;
  21443. C1FIFOINT28 : longWord;
  21444. C1FIFOINT28CLR : longWord;
  21445. C1FIFOINT28SET : longWord;
  21446. C1FIFOINT28INV : longWord;
  21447. C1FIFOUA28 : longWord;
  21448. C1FIFOUA28CLR : longWord;
  21449. C1FIFOUA28SET : longWord;
  21450. C1FIFOUA28INV : longWord;
  21451. C1FIFOCI28bits : TCAN1_C1FIFOCI28;
  21452. C1FIFOCI28 : longWord;
  21453. C1FIFOCI28CLR : longWord;
  21454. C1FIFOCI28SET : longWord;
  21455. C1FIFOCI28INV : longWord;
  21456. C1FIFOCON29bits : TCAN1_C1FIFOCON29;
  21457. C1FIFOCON29 : longWord;
  21458. C1FIFOCON29CLR : longWord;
  21459. C1FIFOCON29SET : longWord;
  21460. C1FIFOCON29INV : longWord;
  21461. C1FIFOINT29bits : TCAN1_C1FIFOINT29;
  21462. C1FIFOINT29 : longWord;
  21463. C1FIFOINT29CLR : longWord;
  21464. C1FIFOINT29SET : longWord;
  21465. C1FIFOINT29INV : longWord;
  21466. C1FIFOUA29 : longWord;
  21467. C1FIFOUA29CLR : longWord;
  21468. C1FIFOUA29SET : longWord;
  21469. C1FIFOUA29INV : longWord;
  21470. C1FIFOCI29bits : TCAN1_C1FIFOCI29;
  21471. C1FIFOCI29 : longWord;
  21472. C1FIFOCI29CLR : longWord;
  21473. C1FIFOCI29SET : longWord;
  21474. C1FIFOCI29INV : longWord;
  21475. C1FIFOCON30bits : TCAN1_C1FIFOCON30;
  21476. C1FIFOCON30 : longWord;
  21477. C1FIFOCON30CLR : longWord;
  21478. C1FIFOCON30SET : longWord;
  21479. C1FIFOCON30INV : longWord;
  21480. C1FIFOINT30bits : TCAN1_C1FIFOINT30;
  21481. C1FIFOINT30 : longWord;
  21482. C1FIFOINT30CLR : longWord;
  21483. C1FIFOINT30SET : longWord;
  21484. C1FIFOINT30INV : longWord;
  21485. C1FIFOUA30 : longWord;
  21486. C1FIFOUA30CLR : longWord;
  21487. C1FIFOUA30SET : longWord;
  21488. C1FIFOUA30INV : longWord;
  21489. C1FIFOCI30bits : TCAN1_C1FIFOCI30;
  21490. C1FIFOCI30 : longWord;
  21491. C1FIFOCI30CLR : longWord;
  21492. C1FIFOCI30SET : longWord;
  21493. C1FIFOCI30INV : longWord;
  21494. C1FIFOCON31bits : TCAN1_C1FIFOCON31;
  21495. C1FIFOCON31 : longWord;
  21496. C1FIFOCON31CLR : longWord;
  21497. C1FIFOCON31SET : longWord;
  21498. C1FIFOCON31INV : longWord;
  21499. C1FIFOINT31bits : TCAN1_C1FIFOINT31;
  21500. C1FIFOINT31 : longWord;
  21501. C1FIFOINT31CLR : longWord;
  21502. C1FIFOINT31SET : longWord;
  21503. C1FIFOINT31INV : longWord;
  21504. C1FIFOUA31 : longWord;
  21505. C1FIFOUA31CLR : longWord;
  21506. C1FIFOUA31SET : longWord;
  21507. C1FIFOUA31INV : longWord;
  21508. C1FIFOCI31bits : TCAN1_C1FIFOCI31;
  21509. C1FIFOCI31 : longWord;
  21510. C1FIFOCI31CLR : longWord;
  21511. C1FIFOCI31SET : longWord;
  21512. C1FIFOCI31INV : longWord;
  21513. end;
  21514. TDEVCFG_DEVCFG3 = record
  21515. private
  21516. function getFCANIO : TBits_1; inline;
  21517. function getFSRSSEL : TBits_3; inline;
  21518. function getFUSBIDIO : TBits_1; inline;
  21519. function getFVBUSONIO : TBits_1; inline;
  21520. function getUSERID : TBits_16; inline;
  21521. function getw : TBits_32; inline;
  21522. procedure setFCANIO(thebits : TBits_1); inline;
  21523. procedure setFSRSSEL(thebits : TBits_3); inline;
  21524. procedure setFUSBIDIO(thebits : TBits_1); inline;
  21525. procedure setFVBUSONIO(thebits : TBits_1); inline;
  21526. procedure setUSERID(thebits : TBits_16); inline;
  21527. procedure setw(thebits : TBits_32); inline;
  21528. public
  21529. procedure clearFCANIO; inline;
  21530. procedure clearFUSBIDIO; inline;
  21531. procedure clearFVBUSONIO; inline;
  21532. procedure setFCANIO; inline;
  21533. procedure setFUSBIDIO; inline;
  21534. procedure setFVBUSONIO; inline;
  21535. property FCANIO : TBits_1 read getFCANIO write setFCANIO;
  21536. property FSRSSEL : TBits_3 read getFSRSSEL write setFSRSSEL;
  21537. property FUSBIDIO : TBits_1 read getFUSBIDIO write setFUSBIDIO;
  21538. property FVBUSONIO : TBits_1 read getFVBUSONIO write setFVBUSONIO;
  21539. property USERID : TBits_16 read getUSERID write setUSERID;
  21540. property w : TBits_32 read getw write setw;
  21541. end;
  21542. TDEVCFG_DEVCFG2 = record
  21543. private
  21544. function getFPLLIDIV : TBits_3; inline;
  21545. function getFPLLMUL : TBits_3; inline;
  21546. function getFPLLODIV : TBits_3; inline;
  21547. function getUPLLEN : TBits_1; inline;
  21548. function getUPLLIDIV : TBits_3; inline;
  21549. function getw : TBits_32; inline;
  21550. procedure setFPLLIDIV(thebits : TBits_3); inline;
  21551. procedure setFPLLMUL(thebits : TBits_3); inline;
  21552. procedure setFPLLODIV(thebits : TBits_3); inline;
  21553. procedure setUPLLEN(thebits : TBits_1); inline;
  21554. procedure setUPLLIDIV(thebits : TBits_3); inline;
  21555. procedure setw(thebits : TBits_32); inline;
  21556. public
  21557. procedure clearUPLLEN; inline;
  21558. procedure setUPLLEN; inline;
  21559. property FPLLIDIV : TBits_3 read getFPLLIDIV write setFPLLIDIV;
  21560. property FPLLMUL : TBits_3 read getFPLLMUL write setFPLLMUL;
  21561. property FPLLODIV : TBits_3 read getFPLLODIV write setFPLLODIV;
  21562. property UPLLEN : TBits_1 read getUPLLEN write setUPLLEN;
  21563. property UPLLIDIV : TBits_3 read getUPLLIDIV write setUPLLIDIV;
  21564. property w : TBits_32 read getw write setw;
  21565. end;
  21566. TDEVCFG_DEVCFG1 = record
  21567. private
  21568. function getFCKSM : TBits_2; inline;
  21569. function getFNOSC : TBits_3; inline;
  21570. function getFPBDIV : TBits_2; inline;
  21571. function getFSOSCEN : TBits_1; inline;
  21572. function getFWDTEN : TBits_1; inline;
  21573. function getIESO : TBits_1; inline;
  21574. function getOSCIOFNC : TBits_1; inline;
  21575. function getPOSCMOD : TBits_2; inline;
  21576. function getWDTPS : TBits_5; inline;
  21577. function getw : TBits_32; inline;
  21578. procedure setFCKSM(thebits : TBits_2); inline;
  21579. procedure setFNOSC(thebits : TBits_3); inline;
  21580. procedure setFPBDIV(thebits : TBits_2); inline;
  21581. procedure setFSOSCEN(thebits : TBits_1); inline;
  21582. procedure setFWDTEN(thebits : TBits_1); inline;
  21583. procedure setIESO(thebits : TBits_1); inline;
  21584. procedure setOSCIOFNC(thebits : TBits_1); inline;
  21585. procedure setPOSCMOD(thebits : TBits_2); inline;
  21586. procedure setWDTPS(thebits : TBits_5); inline;
  21587. procedure setw(thebits : TBits_32); inline;
  21588. public
  21589. procedure clearFSOSCEN; inline;
  21590. procedure clearFWDTEN; inline;
  21591. procedure clearIESO; inline;
  21592. procedure clearOSCIOFNC; inline;
  21593. procedure setFSOSCEN; inline;
  21594. procedure setFWDTEN; inline;
  21595. procedure setIESO; inline;
  21596. procedure setOSCIOFNC; inline;
  21597. property FCKSM : TBits_2 read getFCKSM write setFCKSM;
  21598. property FNOSC : TBits_3 read getFNOSC write setFNOSC;
  21599. property FPBDIV : TBits_2 read getFPBDIV write setFPBDIV;
  21600. property FSOSCEN : TBits_1 read getFSOSCEN write setFSOSCEN;
  21601. property FWDTEN : TBits_1 read getFWDTEN write setFWDTEN;
  21602. property IESO : TBits_1 read getIESO write setIESO;
  21603. property OSCIOFNC : TBits_1 read getOSCIOFNC write setOSCIOFNC;
  21604. property POSCMOD : TBits_2 read getPOSCMOD write setPOSCMOD;
  21605. property WDTPS : TBits_5 read getWDTPS write setWDTPS;
  21606. property w : TBits_32 read getw write setw;
  21607. end;
  21608. TDEVCFG_DEVCFG0 = record
  21609. private
  21610. function getBWP : TBits_1; inline;
  21611. function getCP : TBits_1; inline;
  21612. function getDEBUG : TBits_2; inline;
  21613. function getFDEBUG : TBits_2; inline;
  21614. function getICESEL : TBits_1; inline;
  21615. function getPWP : TBits_8; inline;
  21616. function getw : TBits_32; inline;
  21617. procedure setBWP(thebits : TBits_1); inline;
  21618. procedure setCP(thebits : TBits_1); inline;
  21619. procedure setDEBUG(thebits : TBits_2); inline;
  21620. procedure setFDEBUG(thebits : TBits_2); inline;
  21621. procedure setICESEL(thebits : TBits_1); inline;
  21622. procedure setPWP(thebits : TBits_8); inline;
  21623. procedure setw(thebits : TBits_32); inline;
  21624. public
  21625. procedure clearBWP; inline;
  21626. procedure clearCP; inline;
  21627. procedure clearICESEL; inline;
  21628. procedure setBWP; inline;
  21629. procedure setCP; inline;
  21630. procedure setICESEL; inline;
  21631. property BWP : TBits_1 read getBWP write setBWP;
  21632. property CP : TBits_1 read getCP write setCP;
  21633. property DEBUG : TBits_2 read getDEBUG write setDEBUG;
  21634. property FDEBUG : TBits_2 read getFDEBUG write setFDEBUG;
  21635. property ICESEL : TBits_1 read getICESEL write setICESEL;
  21636. property PWP : TBits_8 read getPWP write setPWP;
  21637. property w : TBits_32 read getw write setw;
  21638. end;
  21639. const
  21640. _CORE_TIMER_IRQ = 0;
  21641. _CORE_SOFTWARE_0_IRQ = 1;
  21642. _CORE_SOFTWARE_1_IRQ = 2;
  21643. _EXTERNAL_0_IRQ = 3;
  21644. _TIMER_1_IRQ = 4;
  21645. _INPUT_CAPTURE_1_IRQ = 5;
  21646. _OUTPUT_COMPARE_1_IRQ = 6;
  21647. _EXTERNAL_1_IRQ = 7;
  21648. _TIMER_2_IRQ = 8;
  21649. _INPUT_CAPTURE_2_IRQ = 9;
  21650. _OUTPUT_COMPARE_2_IRQ = 10;
  21651. _EXTERNAL_2_IRQ = 11;
  21652. _TIMER_3_IRQ = 12;
  21653. _INPUT_CAPTURE_3_IRQ = 13;
  21654. _OUTPUT_COMPARE_3_IRQ = 14;
  21655. _EXTERNAL_3_IRQ = 15;
  21656. _TIMER_4_IRQ = 16;
  21657. _INPUT_CAPTURE_4_IRQ = 17;
  21658. _OUTPUT_COMPARE_4_IRQ = 18;
  21659. _EXTERNAL_4_IRQ = 19;
  21660. _TIMER_5_IRQ = 20;
  21661. _INPUT_CAPTURE_5_IRQ = 21;
  21662. _OUTPUT_COMPARE_5_IRQ = 22;
  21663. _SPI1_ERR_IRQ = 23;
  21664. _SPI1_RX_IRQ = 24;
  21665. _SPI1_TX_IRQ = 25;
  21666. _I2C1A_ERR_IRQ = 26;
  21667. _I2C3_BUS_IRQ = 26;
  21668. _SPI1A_ERR_IRQ = 26;
  21669. _SPI3_ERR_IRQ = 26;
  21670. _UART1A_ERR_IRQ = 26;
  21671. _UART1_ERR_IRQ = 26;
  21672. _I2C1A_RX_IRQ = 27;
  21673. _I2C3_SLAVE_IRQ = 27;
  21674. _SPI1A_RX_IRQ = 27;
  21675. _SPI3_RX_IRQ = 27;
  21676. _UART1A_RX_IRQ = 27;
  21677. _UART1_RX_IRQ = 27;
  21678. _I2C1A_TX_IRQ = 28;
  21679. _I2C3_MASTER_IRQ = 28;
  21680. _SPI1A_TX_IRQ = 28;
  21681. _SPI3_TX_IRQ = 28;
  21682. _UART1A_TX_IRQ = 28;
  21683. _UART1_TX_IRQ = 28;
  21684. _I2C1_BUS_IRQ = 29;
  21685. _I2C1_SLAVE_IRQ = 30;
  21686. _I2C1_MASTER_IRQ = 31;
  21687. _CHANGE_NOTICE_IRQ = 32;
  21688. _ADC_IRQ = 33;
  21689. _PMP_IRQ = 34;
  21690. _COMPARATOR_1_IRQ = 35;
  21691. _COMPARATOR_2_IRQ = 36;
  21692. _I2C2A_ERR_IRQ = 37;
  21693. _I2C4_BUS_IRQ = 37;
  21694. _SPI2_ERR_IRQ = 37;
  21695. _SPI2A_ERR_IRQ = 37;
  21696. _UART2A_ERR_IRQ = 37;
  21697. _UART3_ERR_IRQ = 37;
  21698. _I2C2A_RX_IRQ = 38;
  21699. _I2C4_SLAVE_IRQ = 38;
  21700. _SPI2_RX_IRQ = 38;
  21701. _SPI2A_RX_IRQ = 38;
  21702. _UART2A_RX_IRQ = 38;
  21703. _UART3_RX_IRQ = 38;
  21704. _I2C2A_TX_IRQ = 39;
  21705. _I2C4_MASTER_IRQ = 39;
  21706. _SPI2A_TX_IRQ = 39;
  21707. _SPI2_TX_IRQ = 39;
  21708. _UART2A_TX_IRQ = 39;
  21709. _UART3_TX_IRQ = 39;
  21710. _I2C3A_ERR_IRQ = 40;
  21711. _I2C5_BUS_IRQ = 40;
  21712. _SPI3A_ERR_IRQ = 40;
  21713. _SPI4_ERR_IRQ = 40;
  21714. _UART2_ERR_IRQ = 40;
  21715. _UART3A_ERR_IRQ = 40;
  21716. _I2C3A_RX_IRQ = 41;
  21717. _I2C5_SLAVE_IRQ = 41;
  21718. _SPI3A_RX_IRQ = 41;
  21719. _SPI4_RX_IRQ = 41;
  21720. _UART2_RX_IRQ = 41;
  21721. _UART3A_RX_IRQ = 41;
  21722. _I2C3A_TX_IRQ = 42;
  21723. _I2C5_MASTER_IRQ = 42;
  21724. _SPI3A_TX_IRQ = 42;
  21725. _SPI4_TX_IRQ = 42;
  21726. _UART2_TX_IRQ = 42;
  21727. _UART3A_TX_IRQ = 42;
  21728. _I2C2_BUS_IRQ = 43;
  21729. _I2C2_SLAVE_IRQ = 44;
  21730. _I2C2_MASTER_IRQ = 45;
  21731. _FAIL_SAFE_MONITOR_IRQ = 46;
  21732. _RTCC_IRQ = 47;
  21733. _DMA0_IRQ = 48;
  21734. _DMA1_IRQ = 49;
  21735. _DMA2_IRQ = 50;
  21736. _DMA3_IRQ = 51;
  21737. _FLASH_CONTROL_IRQ = 56;
  21738. _USB_IRQ = 57;
  21739. _CAN1_IRQ = 58;
  21740. _INPUT_CAPTURE_ERROR_1_IRQ = 61;
  21741. _INPUT_CAPTURE_ERROR_2_IRQ = 62;
  21742. _INPUT_CAPTURE_ERROR_3_IRQ = 63;
  21743. _INPUT_CAPTURE_ERROR_4_IRQ = 64;
  21744. _INPUT_CAPTURE_ERROR_5_IRQ = 65;
  21745. _PMP_ERROR_IRQ = 66;
  21746. _UART1B_ERR_IRQ = 67;
  21747. _UART4_ERR_IRQ = 67;
  21748. _UART1B_RX_IRQ = 68;
  21749. _UART4_RX_IRQ = 68;
  21750. _UART1B_TX_IRQ = 69;
  21751. _UART4_TX_IRQ = 69;
  21752. _UART2B_ERR_IRQ = 70;
  21753. _UART6_ERR_IRQ = 70;
  21754. _UART2B_RX_IRQ = 71;
  21755. _UART6_RX_IRQ = 71;
  21756. _UART2B_TX_IRQ = 72;
  21757. _UART6_TX_IRQ = 72;
  21758. _UART3B_ERR_IRQ = 73;
  21759. _UART5_ERR_IRQ = 73;
  21760. _UART3B_RX_IRQ = 74;
  21761. _UART5_RX_IRQ = 74;
  21762. _UART3B_TX_IRQ = 75;
  21763. _UART5_TX_IRQ = 75;
  21764. const
  21765. ADC10_BASE_ADDRESS = $BF809000;
  21766. var
  21767. ADC10 : TADC10Registers absolute ADC10_BASE_ADDRESS;
  21768. const
  21769. BMX_BASE_ADDRESS = $BF882000;
  21770. var
  21771. BMX : TBMXRegisters absolute BMX_BASE_ADDRESS;
  21772. const
  21773. CAN1_BASE_ADDRESS = $BF88B000;
  21774. var
  21775. CAN1 : TCAN1Registers absolute CAN1_BASE_ADDRESS;
  21776. const
  21777. CFG_BASE_ADDRESS = $BF80F200;
  21778. var
  21779. CFG : TCFGRegisters absolute CFG_BASE_ADDRESS;
  21780. const
  21781. CMP_BASE_ADDRESS = $BF80A000;
  21782. var
  21783. CMP : TCMPRegisters absolute CMP_BASE_ADDRESS;
  21784. const
  21785. CVR_BASE_ADDRESS = $BF809800;
  21786. var
  21787. CVR : TCVRRegisters absolute CVR_BASE_ADDRESS;
  21788. const
  21789. DMAC_BASE_ADDRESS = $BF883000;
  21790. var
  21791. DMAC : TDMACRegisters absolute DMAC_BASE_ADDRESS;
  21792. const
  21793. DMAC0_BASE_ADDRESS = $BF883060;
  21794. var
  21795. DMAC0 : TDMAC0Registers absolute DMAC0_BASE_ADDRESS;
  21796. const
  21797. DMAC1_BASE_ADDRESS = $BF883120;
  21798. var
  21799. DMAC1 : TDMAC1Registers absolute DMAC1_BASE_ADDRESS;
  21800. const
  21801. DMAC2_BASE_ADDRESS = $BF8831E0;
  21802. var
  21803. DMAC2 : TDMAC2Registers absolute DMAC2_BASE_ADDRESS;
  21804. const
  21805. DMAC3_BASE_ADDRESS = $BF8832A0;
  21806. var
  21807. DMAC3 : TDMAC3Registers absolute DMAC3_BASE_ADDRESS;
  21808. const
  21809. I2C1_BASE_ADDRESS = $BF805300;
  21810. var
  21811. I2C1 : TI2C1Registers absolute I2C1_BASE_ADDRESS;
  21812. const
  21813. I2C1A_BASE_ADDRESS = $BF805000;
  21814. var
  21815. I2C1A : TI2C1ARegisters absolute I2C1A_BASE_ADDRESS;
  21816. const
  21817. I2C2_BASE_ADDRESS = $BF805400;
  21818. var
  21819. I2C2 : TI2C2Registers absolute I2C2_BASE_ADDRESS;
  21820. const
  21821. I2C2A_BASE_ADDRESS = $BF805100;
  21822. var
  21823. I2C2A : TI2C2ARegisters absolute I2C2A_BASE_ADDRESS;
  21824. const
  21825. I2C5_BASE_ADDRESS = $BF805200;
  21826. var
  21827. I2C5 : TI2C5Registers absolute I2C5_BASE_ADDRESS;
  21828. const
  21829. ICAP1_BASE_ADDRESS = $BF802000;
  21830. var
  21831. ICAP1 : TICAP1Registers absolute ICAP1_BASE_ADDRESS;
  21832. const
  21833. ICAP2_BASE_ADDRESS = $BF802200;
  21834. var
  21835. ICAP2 : TICAP2Registers absolute ICAP2_BASE_ADDRESS;
  21836. const
  21837. ICAP3_BASE_ADDRESS = $BF802400;
  21838. var
  21839. ICAP3 : TICAP3Registers absolute ICAP3_BASE_ADDRESS;
  21840. const
  21841. ICAP4_BASE_ADDRESS = $BF802600;
  21842. var
  21843. ICAP4 : TICAP4Registers absolute ICAP4_BASE_ADDRESS;
  21844. const
  21845. ICAP5_BASE_ADDRESS = $BF802800;
  21846. var
  21847. ICAP5 : TICAP5Registers absolute ICAP5_BASE_ADDRESS;
  21848. const
  21849. INT_BASE_ADDRESS = $BF881000;
  21850. var
  21851. INT : TINTRegisters absolute INT_BASE_ADDRESS;
  21852. const
  21853. NVM_BASE_ADDRESS = $BF80F400;
  21854. var
  21855. NVM : TNVMRegisters absolute NVM_BASE_ADDRESS;
  21856. const
  21857. OCMP1_BASE_ADDRESS = $BF803000;
  21858. var
  21859. OCMP1 : TOCMP1Registers absolute OCMP1_BASE_ADDRESS;
  21860. const
  21861. OCMP2_BASE_ADDRESS = $BF803200;
  21862. var
  21863. OCMP2 : TOCMP2Registers absolute OCMP2_BASE_ADDRESS;
  21864. const
  21865. OCMP3_BASE_ADDRESS = $BF803400;
  21866. var
  21867. OCMP3 : TOCMP3Registers absolute OCMP3_BASE_ADDRESS;
  21868. const
  21869. OCMP4_BASE_ADDRESS = $BF803600;
  21870. var
  21871. OCMP4 : TOCMP4Registers absolute OCMP4_BASE_ADDRESS;
  21872. const
  21873. OCMP5_BASE_ADDRESS = $BF803800;
  21874. var
  21875. OCMP5 : TOCMP5Registers absolute OCMP5_BASE_ADDRESS;
  21876. const
  21877. OSC_BASE_ADDRESS = $BF80F000;
  21878. var
  21879. OSC : TOSCRegisters absolute OSC_BASE_ADDRESS;
  21880. const
  21881. PCACHE_BASE_ADDRESS = $BF884000;
  21882. var
  21883. PCACHE : TPCACHERegisters absolute PCACHE_BASE_ADDRESS;
  21884. const
  21885. PMP_BASE_ADDRESS = $BF807000;
  21886. var
  21887. PMP : TPMPRegisters absolute PMP_BASE_ADDRESS;
  21888. const
  21889. PORTA_BASE_ADDRESS = $BF886000;
  21890. var
  21891. PORTA : TPORTARegisters absolute PORTA_BASE_ADDRESS;
  21892. const
  21893. PORTB_BASE_ADDRESS = $BF886040;
  21894. var
  21895. PORTB : TPORTBRegisters absolute PORTB_BASE_ADDRESS;
  21896. const
  21897. PORTC_BASE_ADDRESS = $BF886080;
  21898. var
  21899. PORTC : TPORTCRegisters absolute PORTC_BASE_ADDRESS;
  21900. const
  21901. PORTD_BASE_ADDRESS = $BF8860C0;
  21902. var
  21903. PORTD : TPORTDRegisters absolute PORTD_BASE_ADDRESS;
  21904. const
  21905. PORTE_BASE_ADDRESS = $BF886100;
  21906. var
  21907. PORTE : TPORTERegisters absolute PORTE_BASE_ADDRESS;
  21908. const
  21909. PORTF_BASE_ADDRESS = $BF886140;
  21910. var
  21911. PORTF : TPORTFRegisters absolute PORTF_BASE_ADDRESS;
  21912. const
  21913. PORTG_BASE_ADDRESS = $BF886180;
  21914. var
  21915. PORTG : TPORTGRegisters absolute PORTG_BASE_ADDRESS;
  21916. const
  21917. RCON_BASE_ADDRESS = $BF80F600;
  21918. var
  21919. RCON : TRCONRegisters absolute RCON_BASE_ADDRESS;
  21920. const
  21921. RTCC_BASE_ADDRESS = $BF800200;
  21922. var
  21923. RTCC : TRTCCRegisters absolute RTCC_BASE_ADDRESS;
  21924. const
  21925. SPI1_BASE_ADDRESS = $BF805E00;
  21926. var
  21927. SPI1 : TSPI1Registers absolute SPI1_BASE_ADDRESS;
  21928. const
  21929. SPI1A_BASE_ADDRESS = $BF805800;
  21930. var
  21931. SPI1A : TSPI1ARegisters absolute SPI1A_BASE_ADDRESS;
  21932. const
  21933. SPI2_BASE_ADDRESS = $BF805A00;
  21934. var
  21935. SPI2 : TSPI2Registers absolute SPI2_BASE_ADDRESS;
  21936. const
  21937. SPI4_BASE_ADDRESS = $BF805C00;
  21938. var
  21939. SPI4 : TSPI4Registers absolute SPI4_BASE_ADDRESS;
  21940. const
  21941. TMR1_BASE_ADDRESS = $BF800600;
  21942. var
  21943. TMR1 : TTMR1Registers absolute TMR1_BASE_ADDRESS;
  21944. const
  21945. TMR2_BASE_ADDRESS = $BF800800;
  21946. var
  21947. TMR2 : TTMR2Registers absolute TMR2_BASE_ADDRESS;
  21948. const
  21949. TMR3_BASE_ADDRESS = $BF800A00;
  21950. var
  21951. TMR3 : TTMR3Registers absolute TMR3_BASE_ADDRESS;
  21952. const
  21953. TMR4_BASE_ADDRESS = $BF800C00;
  21954. var
  21955. TMR4 : TTMR4Registers absolute TMR4_BASE_ADDRESS;
  21956. const
  21957. TMR5_BASE_ADDRESS = $BF800E00;
  21958. var
  21959. TMR5 : TTMR5Registers absolute TMR5_BASE_ADDRESS;
  21960. const
  21961. UART1A_BASE_ADDRESS = $BF806000;
  21962. var
  21963. UART1A : TUART1ARegisters absolute UART1A_BASE_ADDRESS;
  21964. const
  21965. UART3_BASE_ADDRESS = $BF806400;
  21966. var
  21967. UART3 : TUART3Registers absolute UART3_BASE_ADDRESS;
  21968. const
  21969. UART3A_BASE_ADDRESS = $BF806800;
  21970. var
  21971. UART3A : TUART3ARegisters absolute UART3A_BASE_ADDRESS;
  21972. const
  21973. UART3B_BASE_ADDRESS = $BF806A00;
  21974. var
  21975. UART3B : TUART3BRegisters absolute UART3B_BASE_ADDRESS;
  21976. const
  21977. UART4_BASE_ADDRESS = $BF806200;
  21978. var
  21979. UART4 : TUART4Registers absolute UART4_BASE_ADDRESS;
  21980. const
  21981. UART6_BASE_ADDRESS = $BF806600;
  21982. var
  21983. UART6 : TUART6Registers absolute UART6_BASE_ADDRESS;
  21984. const
  21985. USB_BASE_ADDRESS = $BF885040;
  21986. var
  21987. USB : TUSBRegisters absolute USB_BASE_ADDRESS;
  21988. const
  21989. WDT_BASE_ADDRESS = $BF800000;
  21990. var
  21991. WDT : TWDTRegisters absolute WDT_BASE_ADDRESS;
  21992. const
  21993. _APPI_BASE_ADDRESS = $BF880190;
  21994. var
  21995. _APPI : T_APPIRegisters absolute _APPI_BASE_ADDRESS;
  21996. const
  21997. _APPO_BASE_ADDRESS = $BF880180;
  21998. var
  21999. _APPO : T_APPORegisters absolute _APPO_BASE_ADDRESS;
  22000. const
  22001. _DDPSTAT_BASE_ADDRESS = $BF880140;
  22002. var
  22003. _DDPSTAT : T_DDPSTATRegisters absolute _DDPSTAT_BASE_ADDRESS;
  22004. const
  22005. _STRO_BASE_ADDRESS = $BF880170;
  22006. var
  22007. _STRO : T_STRORegisters absolute _STRO_BASE_ADDRESS;
  22008. implementation
  22009. type
  22010. TDefRegMap = record
  22011. val : longWord;
  22012. clr : longWord;
  22013. &set : longWord;
  22014. inv : longWord;
  22015. end;
  22016. pTDefRegMap = ^TDefRegMap;
  22017. procedure TWDT_WDTCON.setWDTCLR; inline;
  22018. begin
  22019. pTDefRegMap(@Self)^.&set := $00000001;
  22020. end;
  22021. procedure TWDT_WDTCON.clearWDTCLR; inline;
  22022. begin
  22023. pTDefRegMap(@Self)^.clr := $00000001;
  22024. end;
  22025. procedure TWDT_WDTCON.setWDTCLR(thebits : TBits_1); inline;
  22026. begin
  22027. if thebits = 0 then
  22028. pTDefRegMap(@Self)^.clr := $00000001
  22029. else
  22030. pTDefRegMap(@Self)^.&set := $00000001;
  22031. end;
  22032. function TWDT_WDTCON.getWDTCLR : TBits_1; inline;
  22033. begin
  22034. getWDTCLR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  22035. end;
  22036. procedure TWDT_WDTCON.setSWDTPS(thebits : TBits_5); inline;
  22037. begin
  22038. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  22039. end;
  22040. function TWDT_WDTCON.getSWDTPS : TBits_5; inline;
  22041. begin
  22042. getSWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  22043. end;
  22044. procedure TWDT_WDTCON.setON; inline;
  22045. begin
  22046. pTDefRegMap(@Self)^.&set := $00008000;
  22047. end;
  22048. procedure TWDT_WDTCON.clearON; inline;
  22049. begin
  22050. pTDefRegMap(@Self)^.clr := $00008000;
  22051. end;
  22052. procedure TWDT_WDTCON.setON(thebits : TBits_1); inline;
  22053. begin
  22054. if thebits = 0 then
  22055. pTDefRegMap(@Self)^.clr := $00008000
  22056. else
  22057. pTDefRegMap(@Self)^.&set := $00008000;
  22058. end;
  22059. function TWDT_WDTCON.getON : TBits_1; inline;
  22060. begin
  22061. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22062. end;
  22063. procedure TWDT_WDTCON.setSWDTPS0; inline;
  22064. begin
  22065. pTDefRegMap(@Self)^.&set := $00000004;
  22066. end;
  22067. procedure TWDT_WDTCON.clearSWDTPS0; inline;
  22068. begin
  22069. pTDefRegMap(@Self)^.clr := $00000004;
  22070. end;
  22071. procedure TWDT_WDTCON.setSWDTPS0(thebits : TBits_1); inline;
  22072. begin
  22073. if thebits = 0 then
  22074. pTDefRegMap(@Self)^.clr := $00000004
  22075. else
  22076. pTDefRegMap(@Self)^.&set := $00000004;
  22077. end;
  22078. function TWDT_WDTCON.getSWDTPS0 : TBits_1; inline;
  22079. begin
  22080. getSWDTPS0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22081. end;
  22082. procedure TWDT_WDTCON.setSWDTPS1; inline;
  22083. begin
  22084. pTDefRegMap(@Self)^.&set := $00000008;
  22085. end;
  22086. procedure TWDT_WDTCON.clearSWDTPS1; inline;
  22087. begin
  22088. pTDefRegMap(@Self)^.clr := $00000008;
  22089. end;
  22090. procedure TWDT_WDTCON.setSWDTPS1(thebits : TBits_1); inline;
  22091. begin
  22092. if thebits = 0 then
  22093. pTDefRegMap(@Self)^.clr := $00000008
  22094. else
  22095. pTDefRegMap(@Self)^.&set := $00000008;
  22096. end;
  22097. function TWDT_WDTCON.getSWDTPS1 : TBits_1; inline;
  22098. begin
  22099. getSWDTPS1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22100. end;
  22101. procedure TWDT_WDTCON.setSWDTPS2; inline;
  22102. begin
  22103. pTDefRegMap(@Self)^.&set := $00000010;
  22104. end;
  22105. procedure TWDT_WDTCON.clearSWDTPS2; inline;
  22106. begin
  22107. pTDefRegMap(@Self)^.clr := $00000010;
  22108. end;
  22109. procedure TWDT_WDTCON.setSWDTPS2(thebits : TBits_1); inline;
  22110. begin
  22111. if thebits = 0 then
  22112. pTDefRegMap(@Self)^.clr := $00000010
  22113. else
  22114. pTDefRegMap(@Self)^.&set := $00000010;
  22115. end;
  22116. function TWDT_WDTCON.getSWDTPS2 : TBits_1; inline;
  22117. begin
  22118. getSWDTPS2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  22119. end;
  22120. procedure TWDT_WDTCON.setSWDTPS3; inline;
  22121. begin
  22122. pTDefRegMap(@Self)^.&set := $00000020;
  22123. end;
  22124. procedure TWDT_WDTCON.clearSWDTPS3; inline;
  22125. begin
  22126. pTDefRegMap(@Self)^.clr := $00000020;
  22127. end;
  22128. procedure TWDT_WDTCON.setSWDTPS3(thebits : TBits_1); inline;
  22129. begin
  22130. if thebits = 0 then
  22131. pTDefRegMap(@Self)^.clr := $00000020
  22132. else
  22133. pTDefRegMap(@Self)^.&set := $00000020;
  22134. end;
  22135. function TWDT_WDTCON.getSWDTPS3 : TBits_1; inline;
  22136. begin
  22137. getSWDTPS3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  22138. end;
  22139. procedure TWDT_WDTCON.setSWDTPS4; inline;
  22140. begin
  22141. pTDefRegMap(@Self)^.&set := $00000040;
  22142. end;
  22143. procedure TWDT_WDTCON.clearSWDTPS4; inline;
  22144. begin
  22145. pTDefRegMap(@Self)^.clr := $00000040;
  22146. end;
  22147. procedure TWDT_WDTCON.setSWDTPS4(thebits : TBits_1); inline;
  22148. begin
  22149. if thebits = 0 then
  22150. pTDefRegMap(@Self)^.clr := $00000040
  22151. else
  22152. pTDefRegMap(@Self)^.&set := $00000040;
  22153. end;
  22154. function TWDT_WDTCON.getSWDTPS4 : TBits_1; inline;
  22155. begin
  22156. getSWDTPS4 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  22157. end;
  22158. procedure TWDT_WDTCON.setWDTPSTA(thebits : TBits_5); inline;
  22159. begin
  22160. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  22161. end;
  22162. function TWDT_WDTCON.getWDTPSTA : TBits_5; inline;
  22163. begin
  22164. getWDTPSTA := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  22165. end;
  22166. procedure TWDT_WDTCON.setWDTPS(thebits : TBits_5); inline;
  22167. begin
  22168. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF83 or ( thebits shl 2 );
  22169. end;
  22170. function TWDT_WDTCON.getWDTPS : TBits_5; inline;
  22171. begin
  22172. getWDTPS := (pTDefRegMap(@Self)^.val and $0000007C) shr 2;
  22173. end;
  22174. procedure TWDT_WDTCON.setw(thebits : TBits_32); inline;
  22175. begin
  22176. pTDefRegMap(@Self)^.val := thebits;
  22177. end;
  22178. function TWDT_WDTCON.getw : TBits_32; inline;
  22179. begin
  22180. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22181. end;
  22182. procedure TRTCC_RTCCON.setRTCOE; inline;
  22183. begin
  22184. pTDefRegMap(@Self)^.&set := $00000001;
  22185. end;
  22186. procedure TRTCC_RTCCON.clearRTCOE; inline;
  22187. begin
  22188. pTDefRegMap(@Self)^.clr := $00000001;
  22189. end;
  22190. procedure TRTCC_RTCCON.setRTCOE(thebits : TBits_1); inline;
  22191. begin
  22192. if thebits = 0 then
  22193. pTDefRegMap(@Self)^.clr := $00000001
  22194. else
  22195. pTDefRegMap(@Self)^.&set := $00000001;
  22196. end;
  22197. function TRTCC_RTCCON.getRTCOE : TBits_1; inline;
  22198. begin
  22199. getRTCOE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  22200. end;
  22201. procedure TRTCC_RTCCON.setHALFSEC; inline;
  22202. begin
  22203. pTDefRegMap(@Self)^.&set := $00000002;
  22204. end;
  22205. procedure TRTCC_RTCCON.clearHALFSEC; inline;
  22206. begin
  22207. pTDefRegMap(@Self)^.clr := $00000002;
  22208. end;
  22209. procedure TRTCC_RTCCON.setHALFSEC(thebits : TBits_1); inline;
  22210. begin
  22211. if thebits = 0 then
  22212. pTDefRegMap(@Self)^.clr := $00000002
  22213. else
  22214. pTDefRegMap(@Self)^.&set := $00000002;
  22215. end;
  22216. function TRTCC_RTCCON.getHALFSEC : TBits_1; inline;
  22217. begin
  22218. getHALFSEC := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22219. end;
  22220. procedure TRTCC_RTCCON.setRTCSYNC; inline;
  22221. begin
  22222. pTDefRegMap(@Self)^.&set := $00000004;
  22223. end;
  22224. procedure TRTCC_RTCCON.clearRTCSYNC; inline;
  22225. begin
  22226. pTDefRegMap(@Self)^.clr := $00000004;
  22227. end;
  22228. procedure TRTCC_RTCCON.setRTCSYNC(thebits : TBits_1); inline;
  22229. begin
  22230. if thebits = 0 then
  22231. pTDefRegMap(@Self)^.clr := $00000004
  22232. else
  22233. pTDefRegMap(@Self)^.&set := $00000004;
  22234. end;
  22235. function TRTCC_RTCCON.getRTCSYNC : TBits_1; inline;
  22236. begin
  22237. getRTCSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22238. end;
  22239. procedure TRTCC_RTCCON.setRTCWREN; inline;
  22240. begin
  22241. pTDefRegMap(@Self)^.&set := $00000008;
  22242. end;
  22243. procedure TRTCC_RTCCON.clearRTCWREN; inline;
  22244. begin
  22245. pTDefRegMap(@Self)^.clr := $00000008;
  22246. end;
  22247. procedure TRTCC_RTCCON.setRTCWREN(thebits : TBits_1); inline;
  22248. begin
  22249. if thebits = 0 then
  22250. pTDefRegMap(@Self)^.clr := $00000008
  22251. else
  22252. pTDefRegMap(@Self)^.&set := $00000008;
  22253. end;
  22254. function TRTCC_RTCCON.getRTCWREN : TBits_1; inline;
  22255. begin
  22256. getRTCWREN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22257. end;
  22258. procedure TRTCC_RTCCON.setRTCCLKON; inline;
  22259. begin
  22260. pTDefRegMap(@Self)^.&set := $00000040;
  22261. end;
  22262. procedure TRTCC_RTCCON.clearRTCCLKON; inline;
  22263. begin
  22264. pTDefRegMap(@Self)^.clr := $00000040;
  22265. end;
  22266. procedure TRTCC_RTCCON.setRTCCLKON(thebits : TBits_1); inline;
  22267. begin
  22268. if thebits = 0 then
  22269. pTDefRegMap(@Self)^.clr := $00000040
  22270. else
  22271. pTDefRegMap(@Self)^.&set := $00000040;
  22272. end;
  22273. function TRTCC_RTCCON.getRTCCLKON : TBits_1; inline;
  22274. begin
  22275. getRTCCLKON := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  22276. end;
  22277. procedure TRTCC_RTCCON.setRTSECSEL; inline;
  22278. begin
  22279. pTDefRegMap(@Self)^.&set := $00000080;
  22280. end;
  22281. procedure TRTCC_RTCCON.clearRTSECSEL; inline;
  22282. begin
  22283. pTDefRegMap(@Self)^.clr := $00000080;
  22284. end;
  22285. procedure TRTCC_RTCCON.setRTSECSEL(thebits : TBits_1); inline;
  22286. begin
  22287. if thebits = 0 then
  22288. pTDefRegMap(@Self)^.clr := $00000080
  22289. else
  22290. pTDefRegMap(@Self)^.&set := $00000080;
  22291. end;
  22292. function TRTCC_RTCCON.getRTSECSEL : TBits_1; inline;
  22293. begin
  22294. getRTSECSEL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22295. end;
  22296. procedure TRTCC_RTCCON.setSIDL; inline;
  22297. begin
  22298. pTDefRegMap(@Self)^.&set := $00002000;
  22299. end;
  22300. procedure TRTCC_RTCCON.clearSIDL; inline;
  22301. begin
  22302. pTDefRegMap(@Self)^.clr := $00002000;
  22303. end;
  22304. procedure TRTCC_RTCCON.setSIDL(thebits : TBits_1); inline;
  22305. begin
  22306. if thebits = 0 then
  22307. pTDefRegMap(@Self)^.clr := $00002000
  22308. else
  22309. pTDefRegMap(@Self)^.&set := $00002000;
  22310. end;
  22311. function TRTCC_RTCCON.getSIDL : TBits_1; inline;
  22312. begin
  22313. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22314. end;
  22315. procedure TRTCC_RTCCON.setON; inline;
  22316. begin
  22317. pTDefRegMap(@Self)^.&set := $00008000;
  22318. end;
  22319. procedure TRTCC_RTCCON.clearON; inline;
  22320. begin
  22321. pTDefRegMap(@Self)^.clr := $00008000;
  22322. end;
  22323. procedure TRTCC_RTCCON.setON(thebits : TBits_1); inline;
  22324. begin
  22325. if thebits = 0 then
  22326. pTDefRegMap(@Self)^.clr := $00008000
  22327. else
  22328. pTDefRegMap(@Self)^.&set := $00008000;
  22329. end;
  22330. function TRTCC_RTCCON.getON : TBits_1; inline;
  22331. begin
  22332. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22333. end;
  22334. procedure TRTCC_RTCCON.setCAL(thebits : TBits_10); inline;
  22335. begin
  22336. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FC00FFFF or ( thebits shl 16 );
  22337. end;
  22338. function TRTCC_RTCCON.getCAL : TBits_10; inline;
  22339. begin
  22340. getCAL := (pTDefRegMap(@Self)^.val and $03FF0000) shr 16;
  22341. end;
  22342. procedure TRTCC_RTCCON.setw(thebits : TBits_32); inline;
  22343. begin
  22344. pTDefRegMap(@Self)^.val := thebits;
  22345. end;
  22346. function TRTCC_RTCCON.getw : TBits_32; inline;
  22347. begin
  22348. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22349. end;
  22350. procedure TRTCC_RTCALRM.setARPT(thebits : TBits_8); inline;
  22351. begin
  22352. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  22353. end;
  22354. function TRTCC_RTCALRM.getARPT : TBits_8; inline;
  22355. begin
  22356. getARPT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  22357. end;
  22358. procedure TRTCC_RTCALRM.setAMASK(thebits : TBits_4); inline;
  22359. begin
  22360. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  22361. end;
  22362. function TRTCC_RTCALRM.getAMASK : TBits_4; inline;
  22363. begin
  22364. getAMASK := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  22365. end;
  22366. procedure TRTCC_RTCALRM.setALRMSYNC; inline;
  22367. begin
  22368. pTDefRegMap(@Self)^.&set := $00001000;
  22369. end;
  22370. procedure TRTCC_RTCALRM.clearALRMSYNC; inline;
  22371. begin
  22372. pTDefRegMap(@Self)^.clr := $00001000;
  22373. end;
  22374. procedure TRTCC_RTCALRM.setALRMSYNC(thebits : TBits_1); inline;
  22375. begin
  22376. if thebits = 0 then
  22377. pTDefRegMap(@Self)^.clr := $00001000
  22378. else
  22379. pTDefRegMap(@Self)^.&set := $00001000;
  22380. end;
  22381. function TRTCC_RTCALRM.getALRMSYNC : TBits_1; inline;
  22382. begin
  22383. getALRMSYNC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  22384. end;
  22385. procedure TRTCC_RTCALRM.setPIV; inline;
  22386. begin
  22387. pTDefRegMap(@Self)^.&set := $00002000;
  22388. end;
  22389. procedure TRTCC_RTCALRM.clearPIV; inline;
  22390. begin
  22391. pTDefRegMap(@Self)^.clr := $00002000;
  22392. end;
  22393. procedure TRTCC_RTCALRM.setPIV(thebits : TBits_1); inline;
  22394. begin
  22395. if thebits = 0 then
  22396. pTDefRegMap(@Self)^.clr := $00002000
  22397. else
  22398. pTDefRegMap(@Self)^.&set := $00002000;
  22399. end;
  22400. function TRTCC_RTCALRM.getPIV : TBits_1; inline;
  22401. begin
  22402. getPIV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22403. end;
  22404. procedure TRTCC_RTCALRM.setCHIME; inline;
  22405. begin
  22406. pTDefRegMap(@Self)^.&set := $00004000;
  22407. end;
  22408. procedure TRTCC_RTCALRM.clearCHIME; inline;
  22409. begin
  22410. pTDefRegMap(@Self)^.clr := $00004000;
  22411. end;
  22412. procedure TRTCC_RTCALRM.setCHIME(thebits : TBits_1); inline;
  22413. begin
  22414. if thebits = 0 then
  22415. pTDefRegMap(@Self)^.clr := $00004000
  22416. else
  22417. pTDefRegMap(@Self)^.&set := $00004000;
  22418. end;
  22419. function TRTCC_RTCALRM.getCHIME : TBits_1; inline;
  22420. begin
  22421. getCHIME := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  22422. end;
  22423. procedure TRTCC_RTCALRM.setALRMEN; inline;
  22424. begin
  22425. pTDefRegMap(@Self)^.&set := $00008000;
  22426. end;
  22427. procedure TRTCC_RTCALRM.clearALRMEN; inline;
  22428. begin
  22429. pTDefRegMap(@Self)^.clr := $00008000;
  22430. end;
  22431. procedure TRTCC_RTCALRM.setALRMEN(thebits : TBits_1); inline;
  22432. begin
  22433. if thebits = 0 then
  22434. pTDefRegMap(@Self)^.clr := $00008000
  22435. else
  22436. pTDefRegMap(@Self)^.&set := $00008000;
  22437. end;
  22438. function TRTCC_RTCALRM.getALRMEN : TBits_1; inline;
  22439. begin
  22440. getALRMEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22441. end;
  22442. procedure TRTCC_RTCALRM.setw(thebits : TBits_32); inline;
  22443. begin
  22444. pTDefRegMap(@Self)^.val := thebits;
  22445. end;
  22446. function TRTCC_RTCALRM.getw : TBits_32; inline;
  22447. begin
  22448. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22449. end;
  22450. procedure TRTCC_RTCTIME.setSEC01(thebits : TBits_4); inline;
  22451. begin
  22452. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  22453. end;
  22454. function TRTCC_RTCTIME.getSEC01 : TBits_4; inline;
  22455. begin
  22456. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  22457. end;
  22458. procedure TRTCC_RTCTIME.setSEC10(thebits : TBits_4); inline;
  22459. begin
  22460. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  22461. end;
  22462. function TRTCC_RTCTIME.getSEC10 : TBits_4; inline;
  22463. begin
  22464. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  22465. end;
  22466. procedure TRTCC_RTCTIME.setMIN01(thebits : TBits_4); inline;
  22467. begin
  22468. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  22469. end;
  22470. function TRTCC_RTCTIME.getMIN01 : TBits_4; inline;
  22471. begin
  22472. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  22473. end;
  22474. procedure TRTCC_RTCTIME.setMIN10(thebits : TBits_4); inline;
  22475. begin
  22476. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  22477. end;
  22478. function TRTCC_RTCTIME.getMIN10 : TBits_4; inline;
  22479. begin
  22480. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  22481. end;
  22482. procedure TRTCC_RTCTIME.setHR01(thebits : TBits_4); inline;
  22483. begin
  22484. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  22485. end;
  22486. function TRTCC_RTCTIME.getHR01 : TBits_4; inline;
  22487. begin
  22488. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  22489. end;
  22490. procedure TRTCC_RTCTIME.setHR10(thebits : TBits_4); inline;
  22491. begin
  22492. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  22493. end;
  22494. function TRTCC_RTCTIME.getHR10 : TBits_4; inline;
  22495. begin
  22496. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  22497. end;
  22498. procedure TRTCC_RTCTIME.setw(thebits : TBits_32); inline;
  22499. begin
  22500. pTDefRegMap(@Self)^.val := thebits;
  22501. end;
  22502. function TRTCC_RTCTIME.getw : TBits_32; inline;
  22503. begin
  22504. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22505. end;
  22506. procedure TRTCC_RTCDATE.setWDAY01(thebits : TBits_4); inline;
  22507. begin
  22508. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  22509. end;
  22510. function TRTCC_RTCDATE.getWDAY01 : TBits_4; inline;
  22511. begin
  22512. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  22513. end;
  22514. procedure TRTCC_RTCDATE.setDAY01(thebits : TBits_4); inline;
  22515. begin
  22516. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  22517. end;
  22518. function TRTCC_RTCDATE.getDAY01 : TBits_4; inline;
  22519. begin
  22520. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  22521. end;
  22522. procedure TRTCC_RTCDATE.setDAY10(thebits : TBits_4); inline;
  22523. begin
  22524. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  22525. end;
  22526. function TRTCC_RTCDATE.getDAY10 : TBits_4; inline;
  22527. begin
  22528. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  22529. end;
  22530. procedure TRTCC_RTCDATE.setMONTH01(thebits : TBits_4); inline;
  22531. begin
  22532. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  22533. end;
  22534. function TRTCC_RTCDATE.getMONTH01 : TBits_4; inline;
  22535. begin
  22536. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  22537. end;
  22538. procedure TRTCC_RTCDATE.setMONTH10(thebits : TBits_4); inline;
  22539. begin
  22540. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  22541. end;
  22542. function TRTCC_RTCDATE.getMONTH10 : TBits_4; inline;
  22543. begin
  22544. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  22545. end;
  22546. procedure TRTCC_RTCDATE.setYEAR01(thebits : TBits_4); inline;
  22547. begin
  22548. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  22549. end;
  22550. function TRTCC_RTCDATE.getYEAR01 : TBits_4; inline;
  22551. begin
  22552. getYEAR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  22553. end;
  22554. procedure TRTCC_RTCDATE.setYEAR10(thebits : TBits_4); inline;
  22555. begin
  22556. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  22557. end;
  22558. function TRTCC_RTCDATE.getYEAR10 : TBits_4; inline;
  22559. begin
  22560. getYEAR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  22561. end;
  22562. procedure TRTCC_RTCDATE.setw(thebits : TBits_32); inline;
  22563. begin
  22564. pTDefRegMap(@Self)^.val := thebits;
  22565. end;
  22566. function TRTCC_RTCDATE.getw : TBits_32; inline;
  22567. begin
  22568. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22569. end;
  22570. procedure TRTCC_ALRMTIME.setSEC01(thebits : TBits_4); inline;
  22571. begin
  22572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  22573. end;
  22574. function TRTCC_ALRMTIME.getSEC01 : TBits_4; inline;
  22575. begin
  22576. getSEC01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  22577. end;
  22578. procedure TRTCC_ALRMTIME.setSEC10(thebits : TBits_4); inline;
  22579. begin
  22580. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  22581. end;
  22582. function TRTCC_ALRMTIME.getSEC10 : TBits_4; inline;
  22583. begin
  22584. getSEC10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  22585. end;
  22586. procedure TRTCC_ALRMTIME.setMIN01(thebits : TBits_4); inline;
  22587. begin
  22588. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  22589. end;
  22590. function TRTCC_ALRMTIME.getMIN01 : TBits_4; inline;
  22591. begin
  22592. getMIN01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  22593. end;
  22594. procedure TRTCC_ALRMTIME.setMIN10(thebits : TBits_4); inline;
  22595. begin
  22596. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  22597. end;
  22598. function TRTCC_ALRMTIME.getMIN10 : TBits_4; inline;
  22599. begin
  22600. getMIN10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  22601. end;
  22602. procedure TRTCC_ALRMTIME.setHR01(thebits : TBits_4); inline;
  22603. begin
  22604. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  22605. end;
  22606. function TRTCC_ALRMTIME.getHR01 : TBits_4; inline;
  22607. begin
  22608. getHR01 := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  22609. end;
  22610. procedure TRTCC_ALRMTIME.setHR10(thebits : TBits_4); inline;
  22611. begin
  22612. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0FFFFFFF or ( thebits shl 28 );
  22613. end;
  22614. function TRTCC_ALRMTIME.getHR10 : TBits_4; inline;
  22615. begin
  22616. getHR10 := (pTDefRegMap(@Self)^.val and $F0000000) shr 28;
  22617. end;
  22618. procedure TRTCC_ALRMTIME.setw(thebits : TBits_32); inline;
  22619. begin
  22620. pTDefRegMap(@Self)^.val := thebits;
  22621. end;
  22622. function TRTCC_ALRMTIME.getw : TBits_32; inline;
  22623. begin
  22624. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22625. end;
  22626. procedure TRTCC_ALRMDATE.setWDAY01(thebits : TBits_4); inline;
  22627. begin
  22628. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  22629. end;
  22630. function TRTCC_ALRMDATE.getWDAY01 : TBits_4; inline;
  22631. begin
  22632. getWDAY01 := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  22633. end;
  22634. procedure TRTCC_ALRMDATE.setDAY01(thebits : TBits_4); inline;
  22635. begin
  22636. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF0FF or ( thebits shl 8 );
  22637. end;
  22638. function TRTCC_ALRMDATE.getDAY01 : TBits_4; inline;
  22639. begin
  22640. getDAY01 := (pTDefRegMap(@Self)^.val and $00000F00) shr 8;
  22641. end;
  22642. procedure TRTCC_ALRMDATE.setDAY10(thebits : TBits_4); inline;
  22643. begin
  22644. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0FFF or ( thebits shl 12 );
  22645. end;
  22646. function TRTCC_ALRMDATE.getDAY10 : TBits_4; inline;
  22647. begin
  22648. getDAY10 := (pTDefRegMap(@Self)^.val and $0000F000) shr 12;
  22649. end;
  22650. procedure TRTCC_ALRMDATE.setMONTH01(thebits : TBits_4); inline;
  22651. begin
  22652. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  22653. end;
  22654. function TRTCC_ALRMDATE.getMONTH01 : TBits_4; inline;
  22655. begin
  22656. getMONTH01 := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  22657. end;
  22658. procedure TRTCC_ALRMDATE.setMONTH10(thebits : TBits_4); inline;
  22659. begin
  22660. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF0FFFFF or ( thebits shl 20 );
  22661. end;
  22662. function TRTCC_ALRMDATE.getMONTH10 : TBits_4; inline;
  22663. begin
  22664. getMONTH10 := (pTDefRegMap(@Self)^.val and $00F00000) shr 20;
  22665. end;
  22666. procedure TRTCC_ALRMDATE.setw(thebits : TBits_32); inline;
  22667. begin
  22668. pTDefRegMap(@Self)^.val := thebits;
  22669. end;
  22670. function TRTCC_ALRMDATE.getw : TBits_32; inline;
  22671. begin
  22672. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22673. end;
  22674. procedure TTMR1_T1CON.setTCS; inline;
  22675. begin
  22676. pTDefRegMap(@Self)^.&set := $00000002;
  22677. end;
  22678. procedure TTMR1_T1CON.clearTCS; inline;
  22679. begin
  22680. pTDefRegMap(@Self)^.clr := $00000002;
  22681. end;
  22682. procedure TTMR1_T1CON.setTCS(thebits : TBits_1); inline;
  22683. begin
  22684. if thebits = 0 then
  22685. pTDefRegMap(@Self)^.clr := $00000002
  22686. else
  22687. pTDefRegMap(@Self)^.&set := $00000002;
  22688. end;
  22689. function TTMR1_T1CON.getTCS : TBits_1; inline;
  22690. begin
  22691. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22692. end;
  22693. procedure TTMR1_T1CON.setTSYNC; inline;
  22694. begin
  22695. pTDefRegMap(@Self)^.&set := $00000004;
  22696. end;
  22697. procedure TTMR1_T1CON.clearTSYNC; inline;
  22698. begin
  22699. pTDefRegMap(@Self)^.clr := $00000004;
  22700. end;
  22701. procedure TTMR1_T1CON.setTSYNC(thebits : TBits_1); inline;
  22702. begin
  22703. if thebits = 0 then
  22704. pTDefRegMap(@Self)^.clr := $00000004
  22705. else
  22706. pTDefRegMap(@Self)^.&set := $00000004;
  22707. end;
  22708. function TTMR1_T1CON.getTSYNC : TBits_1; inline;
  22709. begin
  22710. getTSYNC := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  22711. end;
  22712. procedure TTMR1_T1CON.setTCKPS(thebits : TBits_2); inline;
  22713. begin
  22714. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  22715. end;
  22716. function TTMR1_T1CON.getTCKPS : TBits_2; inline;
  22717. begin
  22718. getTCKPS := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  22719. end;
  22720. procedure TTMR1_T1CON.setTGATE; inline;
  22721. begin
  22722. pTDefRegMap(@Self)^.&set := $00000080;
  22723. end;
  22724. procedure TTMR1_T1CON.clearTGATE; inline;
  22725. begin
  22726. pTDefRegMap(@Self)^.clr := $00000080;
  22727. end;
  22728. procedure TTMR1_T1CON.setTGATE(thebits : TBits_1); inline;
  22729. begin
  22730. if thebits = 0 then
  22731. pTDefRegMap(@Self)^.clr := $00000080
  22732. else
  22733. pTDefRegMap(@Self)^.&set := $00000080;
  22734. end;
  22735. function TTMR1_T1CON.getTGATE : TBits_1; inline;
  22736. begin
  22737. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22738. end;
  22739. procedure TTMR1_T1CON.setTWIP; inline;
  22740. begin
  22741. pTDefRegMap(@Self)^.&set := $00000800;
  22742. end;
  22743. procedure TTMR1_T1CON.clearTWIP; inline;
  22744. begin
  22745. pTDefRegMap(@Self)^.clr := $00000800;
  22746. end;
  22747. procedure TTMR1_T1CON.setTWIP(thebits : TBits_1); inline;
  22748. begin
  22749. if thebits = 0 then
  22750. pTDefRegMap(@Self)^.clr := $00000800
  22751. else
  22752. pTDefRegMap(@Self)^.&set := $00000800;
  22753. end;
  22754. function TTMR1_T1CON.getTWIP : TBits_1; inline;
  22755. begin
  22756. getTWIP := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  22757. end;
  22758. procedure TTMR1_T1CON.setTWDIS; inline;
  22759. begin
  22760. pTDefRegMap(@Self)^.&set := $00001000;
  22761. end;
  22762. procedure TTMR1_T1CON.clearTWDIS; inline;
  22763. begin
  22764. pTDefRegMap(@Self)^.clr := $00001000;
  22765. end;
  22766. procedure TTMR1_T1CON.setTWDIS(thebits : TBits_1); inline;
  22767. begin
  22768. if thebits = 0 then
  22769. pTDefRegMap(@Self)^.clr := $00001000
  22770. else
  22771. pTDefRegMap(@Self)^.&set := $00001000;
  22772. end;
  22773. function TTMR1_T1CON.getTWDIS : TBits_1; inline;
  22774. begin
  22775. getTWDIS := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  22776. end;
  22777. procedure TTMR1_T1CON.setSIDL; inline;
  22778. begin
  22779. pTDefRegMap(@Self)^.&set := $00002000;
  22780. end;
  22781. procedure TTMR1_T1CON.clearSIDL; inline;
  22782. begin
  22783. pTDefRegMap(@Self)^.clr := $00002000;
  22784. end;
  22785. procedure TTMR1_T1CON.setSIDL(thebits : TBits_1); inline;
  22786. begin
  22787. if thebits = 0 then
  22788. pTDefRegMap(@Self)^.clr := $00002000
  22789. else
  22790. pTDefRegMap(@Self)^.&set := $00002000;
  22791. end;
  22792. function TTMR1_T1CON.getSIDL : TBits_1; inline;
  22793. begin
  22794. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22795. end;
  22796. procedure TTMR1_T1CON.setON; inline;
  22797. begin
  22798. pTDefRegMap(@Self)^.&set := $00008000;
  22799. end;
  22800. procedure TTMR1_T1CON.clearON; inline;
  22801. begin
  22802. pTDefRegMap(@Self)^.clr := $00008000;
  22803. end;
  22804. procedure TTMR1_T1CON.setON(thebits : TBits_1); inline;
  22805. begin
  22806. if thebits = 0 then
  22807. pTDefRegMap(@Self)^.clr := $00008000
  22808. else
  22809. pTDefRegMap(@Self)^.&set := $00008000;
  22810. end;
  22811. function TTMR1_T1CON.getON : TBits_1; inline;
  22812. begin
  22813. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22814. end;
  22815. procedure TTMR1_T1CON.setTCKPS0; inline;
  22816. begin
  22817. pTDefRegMap(@Self)^.&set := $00000010;
  22818. end;
  22819. procedure TTMR1_T1CON.clearTCKPS0; inline;
  22820. begin
  22821. pTDefRegMap(@Self)^.clr := $00000010;
  22822. end;
  22823. procedure TTMR1_T1CON.setTCKPS0(thebits : TBits_1); inline;
  22824. begin
  22825. if thebits = 0 then
  22826. pTDefRegMap(@Self)^.clr := $00000010
  22827. else
  22828. pTDefRegMap(@Self)^.&set := $00000010;
  22829. end;
  22830. function TTMR1_T1CON.getTCKPS0 : TBits_1; inline;
  22831. begin
  22832. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  22833. end;
  22834. procedure TTMR1_T1CON.setTCKPS1; inline;
  22835. begin
  22836. pTDefRegMap(@Self)^.&set := $00000020;
  22837. end;
  22838. procedure TTMR1_T1CON.clearTCKPS1; inline;
  22839. begin
  22840. pTDefRegMap(@Self)^.clr := $00000020;
  22841. end;
  22842. procedure TTMR1_T1CON.setTCKPS1(thebits : TBits_1); inline;
  22843. begin
  22844. if thebits = 0 then
  22845. pTDefRegMap(@Self)^.clr := $00000020
  22846. else
  22847. pTDefRegMap(@Self)^.&set := $00000020;
  22848. end;
  22849. function TTMR1_T1CON.getTCKPS1 : TBits_1; inline;
  22850. begin
  22851. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  22852. end;
  22853. procedure TTMR1_T1CON.setTSIDL; inline;
  22854. begin
  22855. pTDefRegMap(@Self)^.&set := $00002000;
  22856. end;
  22857. procedure TTMR1_T1CON.clearTSIDL; inline;
  22858. begin
  22859. pTDefRegMap(@Self)^.clr := $00002000;
  22860. end;
  22861. procedure TTMR1_T1CON.setTSIDL(thebits : TBits_1); inline;
  22862. begin
  22863. if thebits = 0 then
  22864. pTDefRegMap(@Self)^.clr := $00002000
  22865. else
  22866. pTDefRegMap(@Self)^.&set := $00002000;
  22867. end;
  22868. function TTMR1_T1CON.getTSIDL : TBits_1; inline;
  22869. begin
  22870. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22871. end;
  22872. procedure TTMR1_T1CON.setTON; inline;
  22873. begin
  22874. pTDefRegMap(@Self)^.&set := $00008000;
  22875. end;
  22876. procedure TTMR1_T1CON.clearTON; inline;
  22877. begin
  22878. pTDefRegMap(@Self)^.clr := $00008000;
  22879. end;
  22880. procedure TTMR1_T1CON.setTON(thebits : TBits_1); inline;
  22881. begin
  22882. if thebits = 0 then
  22883. pTDefRegMap(@Self)^.clr := $00008000
  22884. else
  22885. pTDefRegMap(@Self)^.&set := $00008000;
  22886. end;
  22887. function TTMR1_T1CON.getTON : TBits_1; inline;
  22888. begin
  22889. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  22890. end;
  22891. procedure TTMR1_T1CON.setw(thebits : TBits_32); inline;
  22892. begin
  22893. pTDefRegMap(@Self)^.val := thebits;
  22894. end;
  22895. function TTMR1_T1CON.getw : TBits_32; inline;
  22896. begin
  22897. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  22898. end;
  22899. procedure TTMR2_T2CON.setTCS; inline;
  22900. begin
  22901. pTDefRegMap(@Self)^.&set := $00000002;
  22902. end;
  22903. procedure TTMR2_T2CON.clearTCS; inline;
  22904. begin
  22905. pTDefRegMap(@Self)^.clr := $00000002;
  22906. end;
  22907. procedure TTMR2_T2CON.setTCS(thebits : TBits_1); inline;
  22908. begin
  22909. if thebits = 0 then
  22910. pTDefRegMap(@Self)^.clr := $00000002
  22911. else
  22912. pTDefRegMap(@Self)^.&set := $00000002;
  22913. end;
  22914. function TTMR2_T2CON.getTCS : TBits_1; inline;
  22915. begin
  22916. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  22917. end;
  22918. procedure TTMR2_T2CON.setT32; inline;
  22919. begin
  22920. pTDefRegMap(@Self)^.&set := $00000008;
  22921. end;
  22922. procedure TTMR2_T2CON.clearT32; inline;
  22923. begin
  22924. pTDefRegMap(@Self)^.clr := $00000008;
  22925. end;
  22926. procedure TTMR2_T2CON.setT32(thebits : TBits_1); inline;
  22927. begin
  22928. if thebits = 0 then
  22929. pTDefRegMap(@Self)^.clr := $00000008
  22930. else
  22931. pTDefRegMap(@Self)^.&set := $00000008;
  22932. end;
  22933. function TTMR2_T2CON.getT32 : TBits_1; inline;
  22934. begin
  22935. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  22936. end;
  22937. procedure TTMR2_T2CON.setTCKPS(thebits : TBits_3); inline;
  22938. begin
  22939. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  22940. end;
  22941. function TTMR2_T2CON.getTCKPS : TBits_3; inline;
  22942. begin
  22943. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  22944. end;
  22945. procedure TTMR2_T2CON.setTGATE; inline;
  22946. begin
  22947. pTDefRegMap(@Self)^.&set := $00000080;
  22948. end;
  22949. procedure TTMR2_T2CON.clearTGATE; inline;
  22950. begin
  22951. pTDefRegMap(@Self)^.clr := $00000080;
  22952. end;
  22953. procedure TTMR2_T2CON.setTGATE(thebits : TBits_1); inline;
  22954. begin
  22955. if thebits = 0 then
  22956. pTDefRegMap(@Self)^.clr := $00000080
  22957. else
  22958. pTDefRegMap(@Self)^.&set := $00000080;
  22959. end;
  22960. function TTMR2_T2CON.getTGATE : TBits_1; inline;
  22961. begin
  22962. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  22963. end;
  22964. procedure TTMR2_T2CON.setSIDL; inline;
  22965. begin
  22966. pTDefRegMap(@Self)^.&set := $00002000;
  22967. end;
  22968. procedure TTMR2_T2CON.clearSIDL; inline;
  22969. begin
  22970. pTDefRegMap(@Self)^.clr := $00002000;
  22971. end;
  22972. procedure TTMR2_T2CON.setSIDL(thebits : TBits_1); inline;
  22973. begin
  22974. if thebits = 0 then
  22975. pTDefRegMap(@Self)^.clr := $00002000
  22976. else
  22977. pTDefRegMap(@Self)^.&set := $00002000;
  22978. end;
  22979. function TTMR2_T2CON.getSIDL : TBits_1; inline;
  22980. begin
  22981. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  22982. end;
  22983. procedure TTMR2_T2CON.setON; inline;
  22984. begin
  22985. pTDefRegMap(@Self)^.&set := $00008000;
  22986. end;
  22987. procedure TTMR2_T2CON.clearON; inline;
  22988. begin
  22989. pTDefRegMap(@Self)^.clr := $00008000;
  22990. end;
  22991. procedure TTMR2_T2CON.setON(thebits : TBits_1); inline;
  22992. begin
  22993. if thebits = 0 then
  22994. pTDefRegMap(@Self)^.clr := $00008000
  22995. else
  22996. pTDefRegMap(@Self)^.&set := $00008000;
  22997. end;
  22998. function TTMR2_T2CON.getON : TBits_1; inline;
  22999. begin
  23000. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23001. end;
  23002. procedure TTMR2_T2CON.setTCKPS0; inline;
  23003. begin
  23004. pTDefRegMap(@Self)^.&set := $00000010;
  23005. end;
  23006. procedure TTMR2_T2CON.clearTCKPS0; inline;
  23007. begin
  23008. pTDefRegMap(@Self)^.clr := $00000010;
  23009. end;
  23010. procedure TTMR2_T2CON.setTCKPS0(thebits : TBits_1); inline;
  23011. begin
  23012. if thebits = 0 then
  23013. pTDefRegMap(@Self)^.clr := $00000010
  23014. else
  23015. pTDefRegMap(@Self)^.&set := $00000010;
  23016. end;
  23017. function TTMR2_T2CON.getTCKPS0 : TBits_1; inline;
  23018. begin
  23019. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23020. end;
  23021. procedure TTMR2_T2CON.setTCKPS1; inline;
  23022. begin
  23023. pTDefRegMap(@Self)^.&set := $00000020;
  23024. end;
  23025. procedure TTMR2_T2CON.clearTCKPS1; inline;
  23026. begin
  23027. pTDefRegMap(@Self)^.clr := $00000020;
  23028. end;
  23029. procedure TTMR2_T2CON.setTCKPS1(thebits : TBits_1); inline;
  23030. begin
  23031. if thebits = 0 then
  23032. pTDefRegMap(@Self)^.clr := $00000020
  23033. else
  23034. pTDefRegMap(@Self)^.&set := $00000020;
  23035. end;
  23036. function TTMR2_T2CON.getTCKPS1 : TBits_1; inline;
  23037. begin
  23038. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23039. end;
  23040. procedure TTMR2_T2CON.setTCKPS2; inline;
  23041. begin
  23042. pTDefRegMap(@Self)^.&set := $00000040;
  23043. end;
  23044. procedure TTMR2_T2CON.clearTCKPS2; inline;
  23045. begin
  23046. pTDefRegMap(@Self)^.clr := $00000040;
  23047. end;
  23048. procedure TTMR2_T2CON.setTCKPS2(thebits : TBits_1); inline;
  23049. begin
  23050. if thebits = 0 then
  23051. pTDefRegMap(@Self)^.clr := $00000040
  23052. else
  23053. pTDefRegMap(@Self)^.&set := $00000040;
  23054. end;
  23055. function TTMR2_T2CON.getTCKPS2 : TBits_1; inline;
  23056. begin
  23057. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23058. end;
  23059. procedure TTMR2_T2CON.setTSIDL; inline;
  23060. begin
  23061. pTDefRegMap(@Self)^.&set := $00002000;
  23062. end;
  23063. procedure TTMR2_T2CON.clearTSIDL; inline;
  23064. begin
  23065. pTDefRegMap(@Self)^.clr := $00002000;
  23066. end;
  23067. procedure TTMR2_T2CON.setTSIDL(thebits : TBits_1); inline;
  23068. begin
  23069. if thebits = 0 then
  23070. pTDefRegMap(@Self)^.clr := $00002000
  23071. else
  23072. pTDefRegMap(@Self)^.&set := $00002000;
  23073. end;
  23074. function TTMR2_T2CON.getTSIDL : TBits_1; inline;
  23075. begin
  23076. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23077. end;
  23078. procedure TTMR2_T2CON.setTON; inline;
  23079. begin
  23080. pTDefRegMap(@Self)^.&set := $00008000;
  23081. end;
  23082. procedure TTMR2_T2CON.clearTON; inline;
  23083. begin
  23084. pTDefRegMap(@Self)^.clr := $00008000;
  23085. end;
  23086. procedure TTMR2_T2CON.setTON(thebits : TBits_1); inline;
  23087. begin
  23088. if thebits = 0 then
  23089. pTDefRegMap(@Self)^.clr := $00008000
  23090. else
  23091. pTDefRegMap(@Self)^.&set := $00008000;
  23092. end;
  23093. function TTMR2_T2CON.getTON : TBits_1; inline;
  23094. begin
  23095. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23096. end;
  23097. procedure TTMR2_T2CON.setw(thebits : TBits_32); inline;
  23098. begin
  23099. pTDefRegMap(@Self)^.val := thebits;
  23100. end;
  23101. function TTMR2_T2CON.getw : TBits_32; inline;
  23102. begin
  23103. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23104. end;
  23105. procedure TTMR3_T3CON.setTCS; inline;
  23106. begin
  23107. pTDefRegMap(@Self)^.&set := $00000002;
  23108. end;
  23109. procedure TTMR3_T3CON.clearTCS; inline;
  23110. begin
  23111. pTDefRegMap(@Self)^.clr := $00000002;
  23112. end;
  23113. procedure TTMR3_T3CON.setTCS(thebits : TBits_1); inline;
  23114. begin
  23115. if thebits = 0 then
  23116. pTDefRegMap(@Self)^.clr := $00000002
  23117. else
  23118. pTDefRegMap(@Self)^.&set := $00000002;
  23119. end;
  23120. function TTMR3_T3CON.getTCS : TBits_1; inline;
  23121. begin
  23122. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23123. end;
  23124. procedure TTMR3_T3CON.setTCKPS(thebits : TBits_3); inline;
  23125. begin
  23126. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  23127. end;
  23128. function TTMR3_T3CON.getTCKPS : TBits_3; inline;
  23129. begin
  23130. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  23131. end;
  23132. procedure TTMR3_T3CON.setTGATE; inline;
  23133. begin
  23134. pTDefRegMap(@Self)^.&set := $00000080;
  23135. end;
  23136. procedure TTMR3_T3CON.clearTGATE; inline;
  23137. begin
  23138. pTDefRegMap(@Self)^.clr := $00000080;
  23139. end;
  23140. procedure TTMR3_T3CON.setTGATE(thebits : TBits_1); inline;
  23141. begin
  23142. if thebits = 0 then
  23143. pTDefRegMap(@Self)^.clr := $00000080
  23144. else
  23145. pTDefRegMap(@Self)^.&set := $00000080;
  23146. end;
  23147. function TTMR3_T3CON.getTGATE : TBits_1; inline;
  23148. begin
  23149. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23150. end;
  23151. procedure TTMR3_T3CON.setSIDL; inline;
  23152. begin
  23153. pTDefRegMap(@Self)^.&set := $00002000;
  23154. end;
  23155. procedure TTMR3_T3CON.clearSIDL; inline;
  23156. begin
  23157. pTDefRegMap(@Self)^.clr := $00002000;
  23158. end;
  23159. procedure TTMR3_T3CON.setSIDL(thebits : TBits_1); inline;
  23160. begin
  23161. if thebits = 0 then
  23162. pTDefRegMap(@Self)^.clr := $00002000
  23163. else
  23164. pTDefRegMap(@Self)^.&set := $00002000;
  23165. end;
  23166. function TTMR3_T3CON.getSIDL : TBits_1; inline;
  23167. begin
  23168. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23169. end;
  23170. procedure TTMR3_T3CON.setON; inline;
  23171. begin
  23172. pTDefRegMap(@Self)^.&set := $00008000;
  23173. end;
  23174. procedure TTMR3_T3CON.clearON; inline;
  23175. begin
  23176. pTDefRegMap(@Self)^.clr := $00008000;
  23177. end;
  23178. procedure TTMR3_T3CON.setON(thebits : TBits_1); inline;
  23179. begin
  23180. if thebits = 0 then
  23181. pTDefRegMap(@Self)^.clr := $00008000
  23182. else
  23183. pTDefRegMap(@Self)^.&set := $00008000;
  23184. end;
  23185. function TTMR3_T3CON.getON : TBits_1; inline;
  23186. begin
  23187. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23188. end;
  23189. procedure TTMR3_T3CON.setTCKPS0; inline;
  23190. begin
  23191. pTDefRegMap(@Self)^.&set := $00000010;
  23192. end;
  23193. procedure TTMR3_T3CON.clearTCKPS0; inline;
  23194. begin
  23195. pTDefRegMap(@Self)^.clr := $00000010;
  23196. end;
  23197. procedure TTMR3_T3CON.setTCKPS0(thebits : TBits_1); inline;
  23198. begin
  23199. if thebits = 0 then
  23200. pTDefRegMap(@Self)^.clr := $00000010
  23201. else
  23202. pTDefRegMap(@Self)^.&set := $00000010;
  23203. end;
  23204. function TTMR3_T3CON.getTCKPS0 : TBits_1; inline;
  23205. begin
  23206. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23207. end;
  23208. procedure TTMR3_T3CON.setTCKPS1; inline;
  23209. begin
  23210. pTDefRegMap(@Self)^.&set := $00000020;
  23211. end;
  23212. procedure TTMR3_T3CON.clearTCKPS1; inline;
  23213. begin
  23214. pTDefRegMap(@Self)^.clr := $00000020;
  23215. end;
  23216. procedure TTMR3_T3CON.setTCKPS1(thebits : TBits_1); inline;
  23217. begin
  23218. if thebits = 0 then
  23219. pTDefRegMap(@Self)^.clr := $00000020
  23220. else
  23221. pTDefRegMap(@Self)^.&set := $00000020;
  23222. end;
  23223. function TTMR3_T3CON.getTCKPS1 : TBits_1; inline;
  23224. begin
  23225. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23226. end;
  23227. procedure TTMR3_T3CON.setTCKPS2; inline;
  23228. begin
  23229. pTDefRegMap(@Self)^.&set := $00000040;
  23230. end;
  23231. procedure TTMR3_T3CON.clearTCKPS2; inline;
  23232. begin
  23233. pTDefRegMap(@Self)^.clr := $00000040;
  23234. end;
  23235. procedure TTMR3_T3CON.setTCKPS2(thebits : TBits_1); inline;
  23236. begin
  23237. if thebits = 0 then
  23238. pTDefRegMap(@Self)^.clr := $00000040
  23239. else
  23240. pTDefRegMap(@Self)^.&set := $00000040;
  23241. end;
  23242. function TTMR3_T3CON.getTCKPS2 : TBits_1; inline;
  23243. begin
  23244. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23245. end;
  23246. procedure TTMR3_T3CON.setTSIDL; inline;
  23247. begin
  23248. pTDefRegMap(@Self)^.&set := $00002000;
  23249. end;
  23250. procedure TTMR3_T3CON.clearTSIDL; inline;
  23251. begin
  23252. pTDefRegMap(@Self)^.clr := $00002000;
  23253. end;
  23254. procedure TTMR3_T3CON.setTSIDL(thebits : TBits_1); inline;
  23255. begin
  23256. if thebits = 0 then
  23257. pTDefRegMap(@Self)^.clr := $00002000
  23258. else
  23259. pTDefRegMap(@Self)^.&set := $00002000;
  23260. end;
  23261. function TTMR3_T3CON.getTSIDL : TBits_1; inline;
  23262. begin
  23263. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23264. end;
  23265. procedure TTMR3_T3CON.setTON; inline;
  23266. begin
  23267. pTDefRegMap(@Self)^.&set := $00008000;
  23268. end;
  23269. procedure TTMR3_T3CON.clearTON; inline;
  23270. begin
  23271. pTDefRegMap(@Self)^.clr := $00008000;
  23272. end;
  23273. procedure TTMR3_T3CON.setTON(thebits : TBits_1); inline;
  23274. begin
  23275. if thebits = 0 then
  23276. pTDefRegMap(@Self)^.clr := $00008000
  23277. else
  23278. pTDefRegMap(@Self)^.&set := $00008000;
  23279. end;
  23280. function TTMR3_T3CON.getTON : TBits_1; inline;
  23281. begin
  23282. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23283. end;
  23284. procedure TTMR3_T3CON.setw(thebits : TBits_32); inline;
  23285. begin
  23286. pTDefRegMap(@Self)^.val := thebits;
  23287. end;
  23288. function TTMR3_T3CON.getw : TBits_32; inline;
  23289. begin
  23290. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23291. end;
  23292. procedure TTMR4_T4CON.setTCS; inline;
  23293. begin
  23294. pTDefRegMap(@Self)^.&set := $00000002;
  23295. end;
  23296. procedure TTMR4_T4CON.clearTCS; inline;
  23297. begin
  23298. pTDefRegMap(@Self)^.clr := $00000002;
  23299. end;
  23300. procedure TTMR4_T4CON.setTCS(thebits : TBits_1); inline;
  23301. begin
  23302. if thebits = 0 then
  23303. pTDefRegMap(@Self)^.clr := $00000002
  23304. else
  23305. pTDefRegMap(@Self)^.&set := $00000002;
  23306. end;
  23307. function TTMR4_T4CON.getTCS : TBits_1; inline;
  23308. begin
  23309. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23310. end;
  23311. procedure TTMR4_T4CON.setT32; inline;
  23312. begin
  23313. pTDefRegMap(@Self)^.&set := $00000008;
  23314. end;
  23315. procedure TTMR4_T4CON.clearT32; inline;
  23316. begin
  23317. pTDefRegMap(@Self)^.clr := $00000008;
  23318. end;
  23319. procedure TTMR4_T4CON.setT32(thebits : TBits_1); inline;
  23320. begin
  23321. if thebits = 0 then
  23322. pTDefRegMap(@Self)^.clr := $00000008
  23323. else
  23324. pTDefRegMap(@Self)^.&set := $00000008;
  23325. end;
  23326. function TTMR4_T4CON.getT32 : TBits_1; inline;
  23327. begin
  23328. getT32 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23329. end;
  23330. procedure TTMR4_T4CON.setTCKPS(thebits : TBits_3); inline;
  23331. begin
  23332. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  23333. end;
  23334. function TTMR4_T4CON.getTCKPS : TBits_3; inline;
  23335. begin
  23336. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  23337. end;
  23338. procedure TTMR4_T4CON.setTGATE; inline;
  23339. begin
  23340. pTDefRegMap(@Self)^.&set := $00000080;
  23341. end;
  23342. procedure TTMR4_T4CON.clearTGATE; inline;
  23343. begin
  23344. pTDefRegMap(@Self)^.clr := $00000080;
  23345. end;
  23346. procedure TTMR4_T4CON.setTGATE(thebits : TBits_1); inline;
  23347. begin
  23348. if thebits = 0 then
  23349. pTDefRegMap(@Self)^.clr := $00000080
  23350. else
  23351. pTDefRegMap(@Self)^.&set := $00000080;
  23352. end;
  23353. function TTMR4_T4CON.getTGATE : TBits_1; inline;
  23354. begin
  23355. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23356. end;
  23357. procedure TTMR4_T4CON.setSIDL; inline;
  23358. begin
  23359. pTDefRegMap(@Self)^.&set := $00002000;
  23360. end;
  23361. procedure TTMR4_T4CON.clearSIDL; inline;
  23362. begin
  23363. pTDefRegMap(@Self)^.clr := $00002000;
  23364. end;
  23365. procedure TTMR4_T4CON.setSIDL(thebits : TBits_1); inline;
  23366. begin
  23367. if thebits = 0 then
  23368. pTDefRegMap(@Self)^.clr := $00002000
  23369. else
  23370. pTDefRegMap(@Self)^.&set := $00002000;
  23371. end;
  23372. function TTMR4_T4CON.getSIDL : TBits_1; inline;
  23373. begin
  23374. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23375. end;
  23376. procedure TTMR4_T4CON.setON; inline;
  23377. begin
  23378. pTDefRegMap(@Self)^.&set := $00008000;
  23379. end;
  23380. procedure TTMR4_T4CON.clearON; inline;
  23381. begin
  23382. pTDefRegMap(@Self)^.clr := $00008000;
  23383. end;
  23384. procedure TTMR4_T4CON.setON(thebits : TBits_1); inline;
  23385. begin
  23386. if thebits = 0 then
  23387. pTDefRegMap(@Self)^.clr := $00008000
  23388. else
  23389. pTDefRegMap(@Self)^.&set := $00008000;
  23390. end;
  23391. function TTMR4_T4CON.getON : TBits_1; inline;
  23392. begin
  23393. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23394. end;
  23395. procedure TTMR4_T4CON.setTCKPS0; inline;
  23396. begin
  23397. pTDefRegMap(@Self)^.&set := $00000010;
  23398. end;
  23399. procedure TTMR4_T4CON.clearTCKPS0; inline;
  23400. begin
  23401. pTDefRegMap(@Self)^.clr := $00000010;
  23402. end;
  23403. procedure TTMR4_T4CON.setTCKPS0(thebits : TBits_1); inline;
  23404. begin
  23405. if thebits = 0 then
  23406. pTDefRegMap(@Self)^.clr := $00000010
  23407. else
  23408. pTDefRegMap(@Self)^.&set := $00000010;
  23409. end;
  23410. function TTMR4_T4CON.getTCKPS0 : TBits_1; inline;
  23411. begin
  23412. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23413. end;
  23414. procedure TTMR4_T4CON.setTCKPS1; inline;
  23415. begin
  23416. pTDefRegMap(@Self)^.&set := $00000020;
  23417. end;
  23418. procedure TTMR4_T4CON.clearTCKPS1; inline;
  23419. begin
  23420. pTDefRegMap(@Self)^.clr := $00000020;
  23421. end;
  23422. procedure TTMR4_T4CON.setTCKPS1(thebits : TBits_1); inline;
  23423. begin
  23424. if thebits = 0 then
  23425. pTDefRegMap(@Self)^.clr := $00000020
  23426. else
  23427. pTDefRegMap(@Self)^.&set := $00000020;
  23428. end;
  23429. function TTMR4_T4CON.getTCKPS1 : TBits_1; inline;
  23430. begin
  23431. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23432. end;
  23433. procedure TTMR4_T4CON.setTCKPS2; inline;
  23434. begin
  23435. pTDefRegMap(@Self)^.&set := $00000040;
  23436. end;
  23437. procedure TTMR4_T4CON.clearTCKPS2; inline;
  23438. begin
  23439. pTDefRegMap(@Self)^.clr := $00000040;
  23440. end;
  23441. procedure TTMR4_T4CON.setTCKPS2(thebits : TBits_1); inline;
  23442. begin
  23443. if thebits = 0 then
  23444. pTDefRegMap(@Self)^.clr := $00000040
  23445. else
  23446. pTDefRegMap(@Self)^.&set := $00000040;
  23447. end;
  23448. function TTMR4_T4CON.getTCKPS2 : TBits_1; inline;
  23449. begin
  23450. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23451. end;
  23452. procedure TTMR4_T4CON.setTSIDL; inline;
  23453. begin
  23454. pTDefRegMap(@Self)^.&set := $00002000;
  23455. end;
  23456. procedure TTMR4_T4CON.clearTSIDL; inline;
  23457. begin
  23458. pTDefRegMap(@Self)^.clr := $00002000;
  23459. end;
  23460. procedure TTMR4_T4CON.setTSIDL(thebits : TBits_1); inline;
  23461. begin
  23462. if thebits = 0 then
  23463. pTDefRegMap(@Self)^.clr := $00002000
  23464. else
  23465. pTDefRegMap(@Self)^.&set := $00002000;
  23466. end;
  23467. function TTMR4_T4CON.getTSIDL : TBits_1; inline;
  23468. begin
  23469. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23470. end;
  23471. procedure TTMR4_T4CON.setTON; inline;
  23472. begin
  23473. pTDefRegMap(@Self)^.&set := $00008000;
  23474. end;
  23475. procedure TTMR4_T4CON.clearTON; inline;
  23476. begin
  23477. pTDefRegMap(@Self)^.clr := $00008000;
  23478. end;
  23479. procedure TTMR4_T4CON.setTON(thebits : TBits_1); inline;
  23480. begin
  23481. if thebits = 0 then
  23482. pTDefRegMap(@Self)^.clr := $00008000
  23483. else
  23484. pTDefRegMap(@Self)^.&set := $00008000;
  23485. end;
  23486. function TTMR4_T4CON.getTON : TBits_1; inline;
  23487. begin
  23488. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23489. end;
  23490. procedure TTMR4_T4CON.setw(thebits : TBits_32); inline;
  23491. begin
  23492. pTDefRegMap(@Self)^.val := thebits;
  23493. end;
  23494. function TTMR4_T4CON.getw : TBits_32; inline;
  23495. begin
  23496. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23497. end;
  23498. procedure TTMR5_T5CON.setTCS; inline;
  23499. begin
  23500. pTDefRegMap(@Self)^.&set := $00000002;
  23501. end;
  23502. procedure TTMR5_T5CON.clearTCS; inline;
  23503. begin
  23504. pTDefRegMap(@Self)^.clr := $00000002;
  23505. end;
  23506. procedure TTMR5_T5CON.setTCS(thebits : TBits_1); inline;
  23507. begin
  23508. if thebits = 0 then
  23509. pTDefRegMap(@Self)^.clr := $00000002
  23510. else
  23511. pTDefRegMap(@Self)^.&set := $00000002;
  23512. end;
  23513. function TTMR5_T5CON.getTCS : TBits_1; inline;
  23514. begin
  23515. getTCS := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23516. end;
  23517. procedure TTMR5_T5CON.setTCKPS(thebits : TBits_3); inline;
  23518. begin
  23519. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  23520. end;
  23521. function TTMR5_T5CON.getTCKPS : TBits_3; inline;
  23522. begin
  23523. getTCKPS := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  23524. end;
  23525. procedure TTMR5_T5CON.setTGATE; inline;
  23526. begin
  23527. pTDefRegMap(@Self)^.&set := $00000080;
  23528. end;
  23529. procedure TTMR5_T5CON.clearTGATE; inline;
  23530. begin
  23531. pTDefRegMap(@Self)^.clr := $00000080;
  23532. end;
  23533. procedure TTMR5_T5CON.setTGATE(thebits : TBits_1); inline;
  23534. begin
  23535. if thebits = 0 then
  23536. pTDefRegMap(@Self)^.clr := $00000080
  23537. else
  23538. pTDefRegMap(@Self)^.&set := $00000080;
  23539. end;
  23540. function TTMR5_T5CON.getTGATE : TBits_1; inline;
  23541. begin
  23542. getTGATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23543. end;
  23544. procedure TTMR5_T5CON.setSIDL; inline;
  23545. begin
  23546. pTDefRegMap(@Self)^.&set := $00002000;
  23547. end;
  23548. procedure TTMR5_T5CON.clearSIDL; inline;
  23549. begin
  23550. pTDefRegMap(@Self)^.clr := $00002000;
  23551. end;
  23552. procedure TTMR5_T5CON.setSIDL(thebits : TBits_1); inline;
  23553. begin
  23554. if thebits = 0 then
  23555. pTDefRegMap(@Self)^.clr := $00002000
  23556. else
  23557. pTDefRegMap(@Self)^.&set := $00002000;
  23558. end;
  23559. function TTMR5_T5CON.getSIDL : TBits_1; inline;
  23560. begin
  23561. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23562. end;
  23563. procedure TTMR5_T5CON.setON; inline;
  23564. begin
  23565. pTDefRegMap(@Self)^.&set := $00008000;
  23566. end;
  23567. procedure TTMR5_T5CON.clearON; inline;
  23568. begin
  23569. pTDefRegMap(@Self)^.clr := $00008000;
  23570. end;
  23571. procedure TTMR5_T5CON.setON(thebits : TBits_1); inline;
  23572. begin
  23573. if thebits = 0 then
  23574. pTDefRegMap(@Self)^.clr := $00008000
  23575. else
  23576. pTDefRegMap(@Self)^.&set := $00008000;
  23577. end;
  23578. function TTMR5_T5CON.getON : TBits_1; inline;
  23579. begin
  23580. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23581. end;
  23582. procedure TTMR5_T5CON.setTCKPS0; inline;
  23583. begin
  23584. pTDefRegMap(@Self)^.&set := $00000010;
  23585. end;
  23586. procedure TTMR5_T5CON.clearTCKPS0; inline;
  23587. begin
  23588. pTDefRegMap(@Self)^.clr := $00000010;
  23589. end;
  23590. procedure TTMR5_T5CON.setTCKPS0(thebits : TBits_1); inline;
  23591. begin
  23592. if thebits = 0 then
  23593. pTDefRegMap(@Self)^.clr := $00000010
  23594. else
  23595. pTDefRegMap(@Self)^.&set := $00000010;
  23596. end;
  23597. function TTMR5_T5CON.getTCKPS0 : TBits_1; inline;
  23598. begin
  23599. getTCKPS0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23600. end;
  23601. procedure TTMR5_T5CON.setTCKPS1; inline;
  23602. begin
  23603. pTDefRegMap(@Self)^.&set := $00000020;
  23604. end;
  23605. procedure TTMR5_T5CON.clearTCKPS1; inline;
  23606. begin
  23607. pTDefRegMap(@Self)^.clr := $00000020;
  23608. end;
  23609. procedure TTMR5_T5CON.setTCKPS1(thebits : TBits_1); inline;
  23610. begin
  23611. if thebits = 0 then
  23612. pTDefRegMap(@Self)^.clr := $00000020
  23613. else
  23614. pTDefRegMap(@Self)^.&set := $00000020;
  23615. end;
  23616. function TTMR5_T5CON.getTCKPS1 : TBits_1; inline;
  23617. begin
  23618. getTCKPS1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23619. end;
  23620. procedure TTMR5_T5CON.setTCKPS2; inline;
  23621. begin
  23622. pTDefRegMap(@Self)^.&set := $00000040;
  23623. end;
  23624. procedure TTMR5_T5CON.clearTCKPS2; inline;
  23625. begin
  23626. pTDefRegMap(@Self)^.clr := $00000040;
  23627. end;
  23628. procedure TTMR5_T5CON.setTCKPS2(thebits : TBits_1); inline;
  23629. begin
  23630. if thebits = 0 then
  23631. pTDefRegMap(@Self)^.clr := $00000040
  23632. else
  23633. pTDefRegMap(@Self)^.&set := $00000040;
  23634. end;
  23635. function TTMR5_T5CON.getTCKPS2 : TBits_1; inline;
  23636. begin
  23637. getTCKPS2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23638. end;
  23639. procedure TTMR5_T5CON.setTSIDL; inline;
  23640. begin
  23641. pTDefRegMap(@Self)^.&set := $00002000;
  23642. end;
  23643. procedure TTMR5_T5CON.clearTSIDL; inline;
  23644. begin
  23645. pTDefRegMap(@Self)^.clr := $00002000;
  23646. end;
  23647. procedure TTMR5_T5CON.setTSIDL(thebits : TBits_1); inline;
  23648. begin
  23649. if thebits = 0 then
  23650. pTDefRegMap(@Self)^.clr := $00002000
  23651. else
  23652. pTDefRegMap(@Self)^.&set := $00002000;
  23653. end;
  23654. function TTMR5_T5CON.getTSIDL : TBits_1; inline;
  23655. begin
  23656. getTSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23657. end;
  23658. procedure TTMR5_T5CON.setTON; inline;
  23659. begin
  23660. pTDefRegMap(@Self)^.&set := $00008000;
  23661. end;
  23662. procedure TTMR5_T5CON.clearTON; inline;
  23663. begin
  23664. pTDefRegMap(@Self)^.clr := $00008000;
  23665. end;
  23666. procedure TTMR5_T5CON.setTON(thebits : TBits_1); inline;
  23667. begin
  23668. if thebits = 0 then
  23669. pTDefRegMap(@Self)^.clr := $00008000
  23670. else
  23671. pTDefRegMap(@Self)^.&set := $00008000;
  23672. end;
  23673. function TTMR5_T5CON.getTON : TBits_1; inline;
  23674. begin
  23675. getTON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23676. end;
  23677. procedure TTMR5_T5CON.setw(thebits : TBits_32); inline;
  23678. begin
  23679. pTDefRegMap(@Self)^.val := thebits;
  23680. end;
  23681. function TTMR5_T5CON.getw : TBits_32; inline;
  23682. begin
  23683. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23684. end;
  23685. procedure TICAP1_IC1CON.setICM(thebits : TBits_3); inline;
  23686. begin
  23687. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  23688. end;
  23689. function TICAP1_IC1CON.getICM : TBits_3; inline;
  23690. begin
  23691. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  23692. end;
  23693. procedure TICAP1_IC1CON.setICBNE; inline;
  23694. begin
  23695. pTDefRegMap(@Self)^.&set := $00000008;
  23696. end;
  23697. procedure TICAP1_IC1CON.clearICBNE; inline;
  23698. begin
  23699. pTDefRegMap(@Self)^.clr := $00000008;
  23700. end;
  23701. procedure TICAP1_IC1CON.setICBNE(thebits : TBits_1); inline;
  23702. begin
  23703. if thebits = 0 then
  23704. pTDefRegMap(@Self)^.clr := $00000008
  23705. else
  23706. pTDefRegMap(@Self)^.&set := $00000008;
  23707. end;
  23708. function TICAP1_IC1CON.getICBNE : TBits_1; inline;
  23709. begin
  23710. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23711. end;
  23712. procedure TICAP1_IC1CON.setICOV; inline;
  23713. begin
  23714. pTDefRegMap(@Self)^.&set := $00000010;
  23715. end;
  23716. procedure TICAP1_IC1CON.clearICOV; inline;
  23717. begin
  23718. pTDefRegMap(@Self)^.clr := $00000010;
  23719. end;
  23720. procedure TICAP1_IC1CON.setICOV(thebits : TBits_1); inline;
  23721. begin
  23722. if thebits = 0 then
  23723. pTDefRegMap(@Self)^.clr := $00000010
  23724. else
  23725. pTDefRegMap(@Self)^.&set := $00000010;
  23726. end;
  23727. function TICAP1_IC1CON.getICOV : TBits_1; inline;
  23728. begin
  23729. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  23730. end;
  23731. procedure TICAP1_IC1CON.setICI(thebits : TBits_2); inline;
  23732. begin
  23733. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  23734. end;
  23735. function TICAP1_IC1CON.getICI : TBits_2; inline;
  23736. begin
  23737. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  23738. end;
  23739. procedure TICAP1_IC1CON.setICTMR; inline;
  23740. begin
  23741. pTDefRegMap(@Self)^.&set := $00000080;
  23742. end;
  23743. procedure TICAP1_IC1CON.clearICTMR; inline;
  23744. begin
  23745. pTDefRegMap(@Self)^.clr := $00000080;
  23746. end;
  23747. procedure TICAP1_IC1CON.setICTMR(thebits : TBits_1); inline;
  23748. begin
  23749. if thebits = 0 then
  23750. pTDefRegMap(@Self)^.clr := $00000080
  23751. else
  23752. pTDefRegMap(@Self)^.&set := $00000080;
  23753. end;
  23754. function TICAP1_IC1CON.getICTMR : TBits_1; inline;
  23755. begin
  23756. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  23757. end;
  23758. procedure TICAP1_IC1CON.setC32; inline;
  23759. begin
  23760. pTDefRegMap(@Self)^.&set := $00000100;
  23761. end;
  23762. procedure TICAP1_IC1CON.clearC32; inline;
  23763. begin
  23764. pTDefRegMap(@Self)^.clr := $00000100;
  23765. end;
  23766. procedure TICAP1_IC1CON.setC32(thebits : TBits_1); inline;
  23767. begin
  23768. if thebits = 0 then
  23769. pTDefRegMap(@Self)^.clr := $00000100
  23770. else
  23771. pTDefRegMap(@Self)^.&set := $00000100;
  23772. end;
  23773. function TICAP1_IC1CON.getC32 : TBits_1; inline;
  23774. begin
  23775. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  23776. end;
  23777. procedure TICAP1_IC1CON.setFEDGE; inline;
  23778. begin
  23779. pTDefRegMap(@Self)^.&set := $00000200;
  23780. end;
  23781. procedure TICAP1_IC1CON.clearFEDGE; inline;
  23782. begin
  23783. pTDefRegMap(@Self)^.clr := $00000200;
  23784. end;
  23785. procedure TICAP1_IC1CON.setFEDGE(thebits : TBits_1); inline;
  23786. begin
  23787. if thebits = 0 then
  23788. pTDefRegMap(@Self)^.clr := $00000200
  23789. else
  23790. pTDefRegMap(@Self)^.&set := $00000200;
  23791. end;
  23792. function TICAP1_IC1CON.getFEDGE : TBits_1; inline;
  23793. begin
  23794. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  23795. end;
  23796. procedure TICAP1_IC1CON.setSIDL; inline;
  23797. begin
  23798. pTDefRegMap(@Self)^.&set := $00002000;
  23799. end;
  23800. procedure TICAP1_IC1CON.clearSIDL; inline;
  23801. begin
  23802. pTDefRegMap(@Self)^.clr := $00002000;
  23803. end;
  23804. procedure TICAP1_IC1CON.setSIDL(thebits : TBits_1); inline;
  23805. begin
  23806. if thebits = 0 then
  23807. pTDefRegMap(@Self)^.clr := $00002000
  23808. else
  23809. pTDefRegMap(@Self)^.&set := $00002000;
  23810. end;
  23811. function TICAP1_IC1CON.getSIDL : TBits_1; inline;
  23812. begin
  23813. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23814. end;
  23815. procedure TICAP1_IC1CON.setON; inline;
  23816. begin
  23817. pTDefRegMap(@Self)^.&set := $00008000;
  23818. end;
  23819. procedure TICAP1_IC1CON.clearON; inline;
  23820. begin
  23821. pTDefRegMap(@Self)^.clr := $00008000;
  23822. end;
  23823. procedure TICAP1_IC1CON.setON(thebits : TBits_1); inline;
  23824. begin
  23825. if thebits = 0 then
  23826. pTDefRegMap(@Self)^.clr := $00008000
  23827. else
  23828. pTDefRegMap(@Self)^.&set := $00008000;
  23829. end;
  23830. function TICAP1_IC1CON.getON : TBits_1; inline;
  23831. begin
  23832. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  23833. end;
  23834. procedure TICAP1_IC1CON.setICM0; inline;
  23835. begin
  23836. pTDefRegMap(@Self)^.&set := $00000001;
  23837. end;
  23838. procedure TICAP1_IC1CON.clearICM0; inline;
  23839. begin
  23840. pTDefRegMap(@Self)^.clr := $00000001;
  23841. end;
  23842. procedure TICAP1_IC1CON.setICM0(thebits : TBits_1); inline;
  23843. begin
  23844. if thebits = 0 then
  23845. pTDefRegMap(@Self)^.clr := $00000001
  23846. else
  23847. pTDefRegMap(@Self)^.&set := $00000001;
  23848. end;
  23849. function TICAP1_IC1CON.getICM0 : TBits_1; inline;
  23850. begin
  23851. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  23852. end;
  23853. procedure TICAP1_IC1CON.setICM1; inline;
  23854. begin
  23855. pTDefRegMap(@Self)^.&set := $00000002;
  23856. end;
  23857. procedure TICAP1_IC1CON.clearICM1; inline;
  23858. begin
  23859. pTDefRegMap(@Self)^.clr := $00000002;
  23860. end;
  23861. procedure TICAP1_IC1CON.setICM1(thebits : TBits_1); inline;
  23862. begin
  23863. if thebits = 0 then
  23864. pTDefRegMap(@Self)^.clr := $00000002
  23865. else
  23866. pTDefRegMap(@Self)^.&set := $00000002;
  23867. end;
  23868. function TICAP1_IC1CON.getICM1 : TBits_1; inline;
  23869. begin
  23870. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  23871. end;
  23872. procedure TICAP1_IC1CON.setICM2; inline;
  23873. begin
  23874. pTDefRegMap(@Self)^.&set := $00000004;
  23875. end;
  23876. procedure TICAP1_IC1CON.clearICM2; inline;
  23877. begin
  23878. pTDefRegMap(@Self)^.clr := $00000004;
  23879. end;
  23880. procedure TICAP1_IC1CON.setICM2(thebits : TBits_1); inline;
  23881. begin
  23882. if thebits = 0 then
  23883. pTDefRegMap(@Self)^.clr := $00000004
  23884. else
  23885. pTDefRegMap(@Self)^.&set := $00000004;
  23886. end;
  23887. function TICAP1_IC1CON.getICM2 : TBits_1; inline;
  23888. begin
  23889. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  23890. end;
  23891. procedure TICAP1_IC1CON.setICI0; inline;
  23892. begin
  23893. pTDefRegMap(@Self)^.&set := $00000020;
  23894. end;
  23895. procedure TICAP1_IC1CON.clearICI0; inline;
  23896. begin
  23897. pTDefRegMap(@Self)^.clr := $00000020;
  23898. end;
  23899. procedure TICAP1_IC1CON.setICI0(thebits : TBits_1); inline;
  23900. begin
  23901. if thebits = 0 then
  23902. pTDefRegMap(@Self)^.clr := $00000020
  23903. else
  23904. pTDefRegMap(@Self)^.&set := $00000020;
  23905. end;
  23906. function TICAP1_IC1CON.getICI0 : TBits_1; inline;
  23907. begin
  23908. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  23909. end;
  23910. procedure TICAP1_IC1CON.setICI1; inline;
  23911. begin
  23912. pTDefRegMap(@Self)^.&set := $00000040;
  23913. end;
  23914. procedure TICAP1_IC1CON.clearICI1; inline;
  23915. begin
  23916. pTDefRegMap(@Self)^.clr := $00000040;
  23917. end;
  23918. procedure TICAP1_IC1CON.setICI1(thebits : TBits_1); inline;
  23919. begin
  23920. if thebits = 0 then
  23921. pTDefRegMap(@Self)^.clr := $00000040
  23922. else
  23923. pTDefRegMap(@Self)^.&set := $00000040;
  23924. end;
  23925. function TICAP1_IC1CON.getICI1 : TBits_1; inline;
  23926. begin
  23927. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  23928. end;
  23929. procedure TICAP1_IC1CON.setICSIDL; inline;
  23930. begin
  23931. pTDefRegMap(@Self)^.&set := $00002000;
  23932. end;
  23933. procedure TICAP1_IC1CON.clearICSIDL; inline;
  23934. begin
  23935. pTDefRegMap(@Self)^.clr := $00002000;
  23936. end;
  23937. procedure TICAP1_IC1CON.setICSIDL(thebits : TBits_1); inline;
  23938. begin
  23939. if thebits = 0 then
  23940. pTDefRegMap(@Self)^.clr := $00002000
  23941. else
  23942. pTDefRegMap(@Self)^.&set := $00002000;
  23943. end;
  23944. function TICAP1_IC1CON.getICSIDL : TBits_1; inline;
  23945. begin
  23946. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  23947. end;
  23948. procedure TICAP1_IC1CON.setw(thebits : TBits_32); inline;
  23949. begin
  23950. pTDefRegMap(@Self)^.val := thebits;
  23951. end;
  23952. function TICAP1_IC1CON.getw : TBits_32; inline;
  23953. begin
  23954. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  23955. end;
  23956. procedure TICAP2_IC2CON.setICM(thebits : TBits_3); inline;
  23957. begin
  23958. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  23959. end;
  23960. function TICAP2_IC2CON.getICM : TBits_3; inline;
  23961. begin
  23962. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  23963. end;
  23964. procedure TICAP2_IC2CON.setICBNE; inline;
  23965. begin
  23966. pTDefRegMap(@Self)^.&set := $00000008;
  23967. end;
  23968. procedure TICAP2_IC2CON.clearICBNE; inline;
  23969. begin
  23970. pTDefRegMap(@Self)^.clr := $00000008;
  23971. end;
  23972. procedure TICAP2_IC2CON.setICBNE(thebits : TBits_1); inline;
  23973. begin
  23974. if thebits = 0 then
  23975. pTDefRegMap(@Self)^.clr := $00000008
  23976. else
  23977. pTDefRegMap(@Self)^.&set := $00000008;
  23978. end;
  23979. function TICAP2_IC2CON.getICBNE : TBits_1; inline;
  23980. begin
  23981. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  23982. end;
  23983. procedure TICAP2_IC2CON.setICOV; inline;
  23984. begin
  23985. pTDefRegMap(@Self)^.&set := $00000010;
  23986. end;
  23987. procedure TICAP2_IC2CON.clearICOV; inline;
  23988. begin
  23989. pTDefRegMap(@Self)^.clr := $00000010;
  23990. end;
  23991. procedure TICAP2_IC2CON.setICOV(thebits : TBits_1); inline;
  23992. begin
  23993. if thebits = 0 then
  23994. pTDefRegMap(@Self)^.clr := $00000010
  23995. else
  23996. pTDefRegMap(@Self)^.&set := $00000010;
  23997. end;
  23998. function TICAP2_IC2CON.getICOV : TBits_1; inline;
  23999. begin
  24000. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24001. end;
  24002. procedure TICAP2_IC2CON.setICI(thebits : TBits_2); inline;
  24003. begin
  24004. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  24005. end;
  24006. function TICAP2_IC2CON.getICI : TBits_2; inline;
  24007. begin
  24008. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  24009. end;
  24010. procedure TICAP2_IC2CON.setICTMR; inline;
  24011. begin
  24012. pTDefRegMap(@Self)^.&set := $00000080;
  24013. end;
  24014. procedure TICAP2_IC2CON.clearICTMR; inline;
  24015. begin
  24016. pTDefRegMap(@Self)^.clr := $00000080;
  24017. end;
  24018. procedure TICAP2_IC2CON.setICTMR(thebits : TBits_1); inline;
  24019. begin
  24020. if thebits = 0 then
  24021. pTDefRegMap(@Self)^.clr := $00000080
  24022. else
  24023. pTDefRegMap(@Self)^.&set := $00000080;
  24024. end;
  24025. function TICAP2_IC2CON.getICTMR : TBits_1; inline;
  24026. begin
  24027. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24028. end;
  24029. procedure TICAP2_IC2CON.setC32; inline;
  24030. begin
  24031. pTDefRegMap(@Self)^.&set := $00000100;
  24032. end;
  24033. procedure TICAP2_IC2CON.clearC32; inline;
  24034. begin
  24035. pTDefRegMap(@Self)^.clr := $00000100;
  24036. end;
  24037. procedure TICAP2_IC2CON.setC32(thebits : TBits_1); inline;
  24038. begin
  24039. if thebits = 0 then
  24040. pTDefRegMap(@Self)^.clr := $00000100
  24041. else
  24042. pTDefRegMap(@Self)^.&set := $00000100;
  24043. end;
  24044. function TICAP2_IC2CON.getC32 : TBits_1; inline;
  24045. begin
  24046. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24047. end;
  24048. procedure TICAP2_IC2CON.setFEDGE; inline;
  24049. begin
  24050. pTDefRegMap(@Self)^.&set := $00000200;
  24051. end;
  24052. procedure TICAP2_IC2CON.clearFEDGE; inline;
  24053. begin
  24054. pTDefRegMap(@Self)^.clr := $00000200;
  24055. end;
  24056. procedure TICAP2_IC2CON.setFEDGE(thebits : TBits_1); inline;
  24057. begin
  24058. if thebits = 0 then
  24059. pTDefRegMap(@Self)^.clr := $00000200
  24060. else
  24061. pTDefRegMap(@Self)^.&set := $00000200;
  24062. end;
  24063. function TICAP2_IC2CON.getFEDGE : TBits_1; inline;
  24064. begin
  24065. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24066. end;
  24067. procedure TICAP2_IC2CON.setSIDL; inline;
  24068. begin
  24069. pTDefRegMap(@Self)^.&set := $00002000;
  24070. end;
  24071. procedure TICAP2_IC2CON.clearSIDL; inline;
  24072. begin
  24073. pTDefRegMap(@Self)^.clr := $00002000;
  24074. end;
  24075. procedure TICAP2_IC2CON.setSIDL(thebits : TBits_1); inline;
  24076. begin
  24077. if thebits = 0 then
  24078. pTDefRegMap(@Self)^.clr := $00002000
  24079. else
  24080. pTDefRegMap(@Self)^.&set := $00002000;
  24081. end;
  24082. function TICAP2_IC2CON.getSIDL : TBits_1; inline;
  24083. begin
  24084. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24085. end;
  24086. procedure TICAP2_IC2CON.setON; inline;
  24087. begin
  24088. pTDefRegMap(@Self)^.&set := $00008000;
  24089. end;
  24090. procedure TICAP2_IC2CON.clearON; inline;
  24091. begin
  24092. pTDefRegMap(@Self)^.clr := $00008000;
  24093. end;
  24094. procedure TICAP2_IC2CON.setON(thebits : TBits_1); inline;
  24095. begin
  24096. if thebits = 0 then
  24097. pTDefRegMap(@Self)^.clr := $00008000
  24098. else
  24099. pTDefRegMap(@Self)^.&set := $00008000;
  24100. end;
  24101. function TICAP2_IC2CON.getON : TBits_1; inline;
  24102. begin
  24103. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24104. end;
  24105. procedure TICAP2_IC2CON.setICM0; inline;
  24106. begin
  24107. pTDefRegMap(@Self)^.&set := $00000001;
  24108. end;
  24109. procedure TICAP2_IC2CON.clearICM0; inline;
  24110. begin
  24111. pTDefRegMap(@Self)^.clr := $00000001;
  24112. end;
  24113. procedure TICAP2_IC2CON.setICM0(thebits : TBits_1); inline;
  24114. begin
  24115. if thebits = 0 then
  24116. pTDefRegMap(@Self)^.clr := $00000001
  24117. else
  24118. pTDefRegMap(@Self)^.&set := $00000001;
  24119. end;
  24120. function TICAP2_IC2CON.getICM0 : TBits_1; inline;
  24121. begin
  24122. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24123. end;
  24124. procedure TICAP2_IC2CON.setICM1; inline;
  24125. begin
  24126. pTDefRegMap(@Self)^.&set := $00000002;
  24127. end;
  24128. procedure TICAP2_IC2CON.clearICM1; inline;
  24129. begin
  24130. pTDefRegMap(@Self)^.clr := $00000002;
  24131. end;
  24132. procedure TICAP2_IC2CON.setICM1(thebits : TBits_1); inline;
  24133. begin
  24134. if thebits = 0 then
  24135. pTDefRegMap(@Self)^.clr := $00000002
  24136. else
  24137. pTDefRegMap(@Self)^.&set := $00000002;
  24138. end;
  24139. function TICAP2_IC2CON.getICM1 : TBits_1; inline;
  24140. begin
  24141. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24142. end;
  24143. procedure TICAP2_IC2CON.setICM2; inline;
  24144. begin
  24145. pTDefRegMap(@Self)^.&set := $00000004;
  24146. end;
  24147. procedure TICAP2_IC2CON.clearICM2; inline;
  24148. begin
  24149. pTDefRegMap(@Self)^.clr := $00000004;
  24150. end;
  24151. procedure TICAP2_IC2CON.setICM2(thebits : TBits_1); inline;
  24152. begin
  24153. if thebits = 0 then
  24154. pTDefRegMap(@Self)^.clr := $00000004
  24155. else
  24156. pTDefRegMap(@Self)^.&set := $00000004;
  24157. end;
  24158. function TICAP2_IC2CON.getICM2 : TBits_1; inline;
  24159. begin
  24160. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24161. end;
  24162. procedure TICAP2_IC2CON.setICI0; inline;
  24163. begin
  24164. pTDefRegMap(@Self)^.&set := $00000020;
  24165. end;
  24166. procedure TICAP2_IC2CON.clearICI0; inline;
  24167. begin
  24168. pTDefRegMap(@Self)^.clr := $00000020;
  24169. end;
  24170. procedure TICAP2_IC2CON.setICI0(thebits : TBits_1); inline;
  24171. begin
  24172. if thebits = 0 then
  24173. pTDefRegMap(@Self)^.clr := $00000020
  24174. else
  24175. pTDefRegMap(@Self)^.&set := $00000020;
  24176. end;
  24177. function TICAP2_IC2CON.getICI0 : TBits_1; inline;
  24178. begin
  24179. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24180. end;
  24181. procedure TICAP2_IC2CON.setICI1; inline;
  24182. begin
  24183. pTDefRegMap(@Self)^.&set := $00000040;
  24184. end;
  24185. procedure TICAP2_IC2CON.clearICI1; inline;
  24186. begin
  24187. pTDefRegMap(@Self)^.clr := $00000040;
  24188. end;
  24189. procedure TICAP2_IC2CON.setICI1(thebits : TBits_1); inline;
  24190. begin
  24191. if thebits = 0 then
  24192. pTDefRegMap(@Self)^.clr := $00000040
  24193. else
  24194. pTDefRegMap(@Self)^.&set := $00000040;
  24195. end;
  24196. function TICAP2_IC2CON.getICI1 : TBits_1; inline;
  24197. begin
  24198. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24199. end;
  24200. procedure TICAP2_IC2CON.setICSIDL; inline;
  24201. begin
  24202. pTDefRegMap(@Self)^.&set := $00002000;
  24203. end;
  24204. procedure TICAP2_IC2CON.clearICSIDL; inline;
  24205. begin
  24206. pTDefRegMap(@Self)^.clr := $00002000;
  24207. end;
  24208. procedure TICAP2_IC2CON.setICSIDL(thebits : TBits_1); inline;
  24209. begin
  24210. if thebits = 0 then
  24211. pTDefRegMap(@Self)^.clr := $00002000
  24212. else
  24213. pTDefRegMap(@Self)^.&set := $00002000;
  24214. end;
  24215. function TICAP2_IC2CON.getICSIDL : TBits_1; inline;
  24216. begin
  24217. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24218. end;
  24219. procedure TICAP2_IC2CON.setw(thebits : TBits_32); inline;
  24220. begin
  24221. pTDefRegMap(@Self)^.val := thebits;
  24222. end;
  24223. function TICAP2_IC2CON.getw : TBits_32; inline;
  24224. begin
  24225. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24226. end;
  24227. procedure TICAP3_IC3CON.setICM(thebits : TBits_3); inline;
  24228. begin
  24229. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  24230. end;
  24231. function TICAP3_IC3CON.getICM : TBits_3; inline;
  24232. begin
  24233. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  24234. end;
  24235. procedure TICAP3_IC3CON.setICBNE; inline;
  24236. begin
  24237. pTDefRegMap(@Self)^.&set := $00000008;
  24238. end;
  24239. procedure TICAP3_IC3CON.clearICBNE; inline;
  24240. begin
  24241. pTDefRegMap(@Self)^.clr := $00000008;
  24242. end;
  24243. procedure TICAP3_IC3CON.setICBNE(thebits : TBits_1); inline;
  24244. begin
  24245. if thebits = 0 then
  24246. pTDefRegMap(@Self)^.clr := $00000008
  24247. else
  24248. pTDefRegMap(@Self)^.&set := $00000008;
  24249. end;
  24250. function TICAP3_IC3CON.getICBNE : TBits_1; inline;
  24251. begin
  24252. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24253. end;
  24254. procedure TICAP3_IC3CON.setICOV; inline;
  24255. begin
  24256. pTDefRegMap(@Self)^.&set := $00000010;
  24257. end;
  24258. procedure TICAP3_IC3CON.clearICOV; inline;
  24259. begin
  24260. pTDefRegMap(@Self)^.clr := $00000010;
  24261. end;
  24262. procedure TICAP3_IC3CON.setICOV(thebits : TBits_1); inline;
  24263. begin
  24264. if thebits = 0 then
  24265. pTDefRegMap(@Self)^.clr := $00000010
  24266. else
  24267. pTDefRegMap(@Self)^.&set := $00000010;
  24268. end;
  24269. function TICAP3_IC3CON.getICOV : TBits_1; inline;
  24270. begin
  24271. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24272. end;
  24273. procedure TICAP3_IC3CON.setICI(thebits : TBits_2); inline;
  24274. begin
  24275. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  24276. end;
  24277. function TICAP3_IC3CON.getICI : TBits_2; inline;
  24278. begin
  24279. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  24280. end;
  24281. procedure TICAP3_IC3CON.setICTMR; inline;
  24282. begin
  24283. pTDefRegMap(@Self)^.&set := $00000080;
  24284. end;
  24285. procedure TICAP3_IC3CON.clearICTMR; inline;
  24286. begin
  24287. pTDefRegMap(@Self)^.clr := $00000080;
  24288. end;
  24289. procedure TICAP3_IC3CON.setICTMR(thebits : TBits_1); inline;
  24290. begin
  24291. if thebits = 0 then
  24292. pTDefRegMap(@Self)^.clr := $00000080
  24293. else
  24294. pTDefRegMap(@Self)^.&set := $00000080;
  24295. end;
  24296. function TICAP3_IC3CON.getICTMR : TBits_1; inline;
  24297. begin
  24298. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24299. end;
  24300. procedure TICAP3_IC3CON.setC32; inline;
  24301. begin
  24302. pTDefRegMap(@Self)^.&set := $00000100;
  24303. end;
  24304. procedure TICAP3_IC3CON.clearC32; inline;
  24305. begin
  24306. pTDefRegMap(@Self)^.clr := $00000100;
  24307. end;
  24308. procedure TICAP3_IC3CON.setC32(thebits : TBits_1); inline;
  24309. begin
  24310. if thebits = 0 then
  24311. pTDefRegMap(@Self)^.clr := $00000100
  24312. else
  24313. pTDefRegMap(@Self)^.&set := $00000100;
  24314. end;
  24315. function TICAP3_IC3CON.getC32 : TBits_1; inline;
  24316. begin
  24317. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24318. end;
  24319. procedure TICAP3_IC3CON.setFEDGE; inline;
  24320. begin
  24321. pTDefRegMap(@Self)^.&set := $00000200;
  24322. end;
  24323. procedure TICAP3_IC3CON.clearFEDGE; inline;
  24324. begin
  24325. pTDefRegMap(@Self)^.clr := $00000200;
  24326. end;
  24327. procedure TICAP3_IC3CON.setFEDGE(thebits : TBits_1); inline;
  24328. begin
  24329. if thebits = 0 then
  24330. pTDefRegMap(@Self)^.clr := $00000200
  24331. else
  24332. pTDefRegMap(@Self)^.&set := $00000200;
  24333. end;
  24334. function TICAP3_IC3CON.getFEDGE : TBits_1; inline;
  24335. begin
  24336. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24337. end;
  24338. procedure TICAP3_IC3CON.setSIDL; inline;
  24339. begin
  24340. pTDefRegMap(@Self)^.&set := $00002000;
  24341. end;
  24342. procedure TICAP3_IC3CON.clearSIDL; inline;
  24343. begin
  24344. pTDefRegMap(@Self)^.clr := $00002000;
  24345. end;
  24346. procedure TICAP3_IC3CON.setSIDL(thebits : TBits_1); inline;
  24347. begin
  24348. if thebits = 0 then
  24349. pTDefRegMap(@Self)^.clr := $00002000
  24350. else
  24351. pTDefRegMap(@Self)^.&set := $00002000;
  24352. end;
  24353. function TICAP3_IC3CON.getSIDL : TBits_1; inline;
  24354. begin
  24355. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24356. end;
  24357. procedure TICAP3_IC3CON.setON; inline;
  24358. begin
  24359. pTDefRegMap(@Self)^.&set := $00008000;
  24360. end;
  24361. procedure TICAP3_IC3CON.clearON; inline;
  24362. begin
  24363. pTDefRegMap(@Self)^.clr := $00008000;
  24364. end;
  24365. procedure TICAP3_IC3CON.setON(thebits : TBits_1); inline;
  24366. begin
  24367. if thebits = 0 then
  24368. pTDefRegMap(@Self)^.clr := $00008000
  24369. else
  24370. pTDefRegMap(@Self)^.&set := $00008000;
  24371. end;
  24372. function TICAP3_IC3CON.getON : TBits_1; inline;
  24373. begin
  24374. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24375. end;
  24376. procedure TICAP3_IC3CON.setICM0; inline;
  24377. begin
  24378. pTDefRegMap(@Self)^.&set := $00000001;
  24379. end;
  24380. procedure TICAP3_IC3CON.clearICM0; inline;
  24381. begin
  24382. pTDefRegMap(@Self)^.clr := $00000001;
  24383. end;
  24384. procedure TICAP3_IC3CON.setICM0(thebits : TBits_1); inline;
  24385. begin
  24386. if thebits = 0 then
  24387. pTDefRegMap(@Self)^.clr := $00000001
  24388. else
  24389. pTDefRegMap(@Self)^.&set := $00000001;
  24390. end;
  24391. function TICAP3_IC3CON.getICM0 : TBits_1; inline;
  24392. begin
  24393. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24394. end;
  24395. procedure TICAP3_IC3CON.setICM1; inline;
  24396. begin
  24397. pTDefRegMap(@Self)^.&set := $00000002;
  24398. end;
  24399. procedure TICAP3_IC3CON.clearICM1; inline;
  24400. begin
  24401. pTDefRegMap(@Self)^.clr := $00000002;
  24402. end;
  24403. procedure TICAP3_IC3CON.setICM1(thebits : TBits_1); inline;
  24404. begin
  24405. if thebits = 0 then
  24406. pTDefRegMap(@Self)^.clr := $00000002
  24407. else
  24408. pTDefRegMap(@Self)^.&set := $00000002;
  24409. end;
  24410. function TICAP3_IC3CON.getICM1 : TBits_1; inline;
  24411. begin
  24412. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24413. end;
  24414. procedure TICAP3_IC3CON.setICM2; inline;
  24415. begin
  24416. pTDefRegMap(@Self)^.&set := $00000004;
  24417. end;
  24418. procedure TICAP3_IC3CON.clearICM2; inline;
  24419. begin
  24420. pTDefRegMap(@Self)^.clr := $00000004;
  24421. end;
  24422. procedure TICAP3_IC3CON.setICM2(thebits : TBits_1); inline;
  24423. begin
  24424. if thebits = 0 then
  24425. pTDefRegMap(@Self)^.clr := $00000004
  24426. else
  24427. pTDefRegMap(@Self)^.&set := $00000004;
  24428. end;
  24429. function TICAP3_IC3CON.getICM2 : TBits_1; inline;
  24430. begin
  24431. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24432. end;
  24433. procedure TICAP3_IC3CON.setICI0; inline;
  24434. begin
  24435. pTDefRegMap(@Self)^.&set := $00000020;
  24436. end;
  24437. procedure TICAP3_IC3CON.clearICI0; inline;
  24438. begin
  24439. pTDefRegMap(@Self)^.clr := $00000020;
  24440. end;
  24441. procedure TICAP3_IC3CON.setICI0(thebits : TBits_1); inline;
  24442. begin
  24443. if thebits = 0 then
  24444. pTDefRegMap(@Self)^.clr := $00000020
  24445. else
  24446. pTDefRegMap(@Self)^.&set := $00000020;
  24447. end;
  24448. function TICAP3_IC3CON.getICI0 : TBits_1; inline;
  24449. begin
  24450. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24451. end;
  24452. procedure TICAP3_IC3CON.setICI1; inline;
  24453. begin
  24454. pTDefRegMap(@Self)^.&set := $00000040;
  24455. end;
  24456. procedure TICAP3_IC3CON.clearICI1; inline;
  24457. begin
  24458. pTDefRegMap(@Self)^.clr := $00000040;
  24459. end;
  24460. procedure TICAP3_IC3CON.setICI1(thebits : TBits_1); inline;
  24461. begin
  24462. if thebits = 0 then
  24463. pTDefRegMap(@Self)^.clr := $00000040
  24464. else
  24465. pTDefRegMap(@Self)^.&set := $00000040;
  24466. end;
  24467. function TICAP3_IC3CON.getICI1 : TBits_1; inline;
  24468. begin
  24469. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24470. end;
  24471. procedure TICAP3_IC3CON.setICSIDL; inline;
  24472. begin
  24473. pTDefRegMap(@Self)^.&set := $00002000;
  24474. end;
  24475. procedure TICAP3_IC3CON.clearICSIDL; inline;
  24476. begin
  24477. pTDefRegMap(@Self)^.clr := $00002000;
  24478. end;
  24479. procedure TICAP3_IC3CON.setICSIDL(thebits : TBits_1); inline;
  24480. begin
  24481. if thebits = 0 then
  24482. pTDefRegMap(@Self)^.clr := $00002000
  24483. else
  24484. pTDefRegMap(@Self)^.&set := $00002000;
  24485. end;
  24486. function TICAP3_IC3CON.getICSIDL : TBits_1; inline;
  24487. begin
  24488. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24489. end;
  24490. procedure TICAP3_IC3CON.setw(thebits : TBits_32); inline;
  24491. begin
  24492. pTDefRegMap(@Self)^.val := thebits;
  24493. end;
  24494. function TICAP3_IC3CON.getw : TBits_32; inline;
  24495. begin
  24496. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24497. end;
  24498. procedure TICAP4_IC4CON.setICM(thebits : TBits_3); inline;
  24499. begin
  24500. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  24501. end;
  24502. function TICAP4_IC4CON.getICM : TBits_3; inline;
  24503. begin
  24504. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  24505. end;
  24506. procedure TICAP4_IC4CON.setICBNE; inline;
  24507. begin
  24508. pTDefRegMap(@Self)^.&set := $00000008;
  24509. end;
  24510. procedure TICAP4_IC4CON.clearICBNE; inline;
  24511. begin
  24512. pTDefRegMap(@Self)^.clr := $00000008;
  24513. end;
  24514. procedure TICAP4_IC4CON.setICBNE(thebits : TBits_1); inline;
  24515. begin
  24516. if thebits = 0 then
  24517. pTDefRegMap(@Self)^.clr := $00000008
  24518. else
  24519. pTDefRegMap(@Self)^.&set := $00000008;
  24520. end;
  24521. function TICAP4_IC4CON.getICBNE : TBits_1; inline;
  24522. begin
  24523. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24524. end;
  24525. procedure TICAP4_IC4CON.setICOV; inline;
  24526. begin
  24527. pTDefRegMap(@Self)^.&set := $00000010;
  24528. end;
  24529. procedure TICAP4_IC4CON.clearICOV; inline;
  24530. begin
  24531. pTDefRegMap(@Self)^.clr := $00000010;
  24532. end;
  24533. procedure TICAP4_IC4CON.setICOV(thebits : TBits_1); inline;
  24534. begin
  24535. if thebits = 0 then
  24536. pTDefRegMap(@Self)^.clr := $00000010
  24537. else
  24538. pTDefRegMap(@Self)^.&set := $00000010;
  24539. end;
  24540. function TICAP4_IC4CON.getICOV : TBits_1; inline;
  24541. begin
  24542. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24543. end;
  24544. procedure TICAP4_IC4CON.setICI(thebits : TBits_2); inline;
  24545. begin
  24546. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  24547. end;
  24548. function TICAP4_IC4CON.getICI : TBits_2; inline;
  24549. begin
  24550. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  24551. end;
  24552. procedure TICAP4_IC4CON.setICTMR; inline;
  24553. begin
  24554. pTDefRegMap(@Self)^.&set := $00000080;
  24555. end;
  24556. procedure TICAP4_IC4CON.clearICTMR; inline;
  24557. begin
  24558. pTDefRegMap(@Self)^.clr := $00000080;
  24559. end;
  24560. procedure TICAP4_IC4CON.setICTMR(thebits : TBits_1); inline;
  24561. begin
  24562. if thebits = 0 then
  24563. pTDefRegMap(@Self)^.clr := $00000080
  24564. else
  24565. pTDefRegMap(@Self)^.&set := $00000080;
  24566. end;
  24567. function TICAP4_IC4CON.getICTMR : TBits_1; inline;
  24568. begin
  24569. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24570. end;
  24571. procedure TICAP4_IC4CON.setC32; inline;
  24572. begin
  24573. pTDefRegMap(@Self)^.&set := $00000100;
  24574. end;
  24575. procedure TICAP4_IC4CON.clearC32; inline;
  24576. begin
  24577. pTDefRegMap(@Self)^.clr := $00000100;
  24578. end;
  24579. procedure TICAP4_IC4CON.setC32(thebits : TBits_1); inline;
  24580. begin
  24581. if thebits = 0 then
  24582. pTDefRegMap(@Self)^.clr := $00000100
  24583. else
  24584. pTDefRegMap(@Self)^.&set := $00000100;
  24585. end;
  24586. function TICAP4_IC4CON.getC32 : TBits_1; inline;
  24587. begin
  24588. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24589. end;
  24590. procedure TICAP4_IC4CON.setFEDGE; inline;
  24591. begin
  24592. pTDefRegMap(@Self)^.&set := $00000200;
  24593. end;
  24594. procedure TICAP4_IC4CON.clearFEDGE; inline;
  24595. begin
  24596. pTDefRegMap(@Self)^.clr := $00000200;
  24597. end;
  24598. procedure TICAP4_IC4CON.setFEDGE(thebits : TBits_1); inline;
  24599. begin
  24600. if thebits = 0 then
  24601. pTDefRegMap(@Self)^.clr := $00000200
  24602. else
  24603. pTDefRegMap(@Self)^.&set := $00000200;
  24604. end;
  24605. function TICAP4_IC4CON.getFEDGE : TBits_1; inline;
  24606. begin
  24607. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24608. end;
  24609. procedure TICAP4_IC4CON.setSIDL; inline;
  24610. begin
  24611. pTDefRegMap(@Self)^.&set := $00002000;
  24612. end;
  24613. procedure TICAP4_IC4CON.clearSIDL; inline;
  24614. begin
  24615. pTDefRegMap(@Self)^.clr := $00002000;
  24616. end;
  24617. procedure TICAP4_IC4CON.setSIDL(thebits : TBits_1); inline;
  24618. begin
  24619. if thebits = 0 then
  24620. pTDefRegMap(@Self)^.clr := $00002000
  24621. else
  24622. pTDefRegMap(@Self)^.&set := $00002000;
  24623. end;
  24624. function TICAP4_IC4CON.getSIDL : TBits_1; inline;
  24625. begin
  24626. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24627. end;
  24628. procedure TICAP4_IC4CON.setON; inline;
  24629. begin
  24630. pTDefRegMap(@Self)^.&set := $00008000;
  24631. end;
  24632. procedure TICAP4_IC4CON.clearON; inline;
  24633. begin
  24634. pTDefRegMap(@Self)^.clr := $00008000;
  24635. end;
  24636. procedure TICAP4_IC4CON.setON(thebits : TBits_1); inline;
  24637. begin
  24638. if thebits = 0 then
  24639. pTDefRegMap(@Self)^.clr := $00008000
  24640. else
  24641. pTDefRegMap(@Self)^.&set := $00008000;
  24642. end;
  24643. function TICAP4_IC4CON.getON : TBits_1; inline;
  24644. begin
  24645. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24646. end;
  24647. procedure TICAP4_IC4CON.setICM0; inline;
  24648. begin
  24649. pTDefRegMap(@Self)^.&set := $00000001;
  24650. end;
  24651. procedure TICAP4_IC4CON.clearICM0; inline;
  24652. begin
  24653. pTDefRegMap(@Self)^.clr := $00000001;
  24654. end;
  24655. procedure TICAP4_IC4CON.setICM0(thebits : TBits_1); inline;
  24656. begin
  24657. if thebits = 0 then
  24658. pTDefRegMap(@Self)^.clr := $00000001
  24659. else
  24660. pTDefRegMap(@Self)^.&set := $00000001;
  24661. end;
  24662. function TICAP4_IC4CON.getICM0 : TBits_1; inline;
  24663. begin
  24664. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24665. end;
  24666. procedure TICAP4_IC4CON.setICM1; inline;
  24667. begin
  24668. pTDefRegMap(@Self)^.&set := $00000002;
  24669. end;
  24670. procedure TICAP4_IC4CON.clearICM1; inline;
  24671. begin
  24672. pTDefRegMap(@Self)^.clr := $00000002;
  24673. end;
  24674. procedure TICAP4_IC4CON.setICM1(thebits : TBits_1); inline;
  24675. begin
  24676. if thebits = 0 then
  24677. pTDefRegMap(@Self)^.clr := $00000002
  24678. else
  24679. pTDefRegMap(@Self)^.&set := $00000002;
  24680. end;
  24681. function TICAP4_IC4CON.getICM1 : TBits_1; inline;
  24682. begin
  24683. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24684. end;
  24685. procedure TICAP4_IC4CON.setICM2; inline;
  24686. begin
  24687. pTDefRegMap(@Self)^.&set := $00000004;
  24688. end;
  24689. procedure TICAP4_IC4CON.clearICM2; inline;
  24690. begin
  24691. pTDefRegMap(@Self)^.clr := $00000004;
  24692. end;
  24693. procedure TICAP4_IC4CON.setICM2(thebits : TBits_1); inline;
  24694. begin
  24695. if thebits = 0 then
  24696. pTDefRegMap(@Self)^.clr := $00000004
  24697. else
  24698. pTDefRegMap(@Self)^.&set := $00000004;
  24699. end;
  24700. function TICAP4_IC4CON.getICM2 : TBits_1; inline;
  24701. begin
  24702. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24703. end;
  24704. procedure TICAP4_IC4CON.setICI0; inline;
  24705. begin
  24706. pTDefRegMap(@Self)^.&set := $00000020;
  24707. end;
  24708. procedure TICAP4_IC4CON.clearICI0; inline;
  24709. begin
  24710. pTDefRegMap(@Self)^.clr := $00000020;
  24711. end;
  24712. procedure TICAP4_IC4CON.setICI0(thebits : TBits_1); inline;
  24713. begin
  24714. if thebits = 0 then
  24715. pTDefRegMap(@Self)^.clr := $00000020
  24716. else
  24717. pTDefRegMap(@Self)^.&set := $00000020;
  24718. end;
  24719. function TICAP4_IC4CON.getICI0 : TBits_1; inline;
  24720. begin
  24721. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24722. end;
  24723. procedure TICAP4_IC4CON.setICI1; inline;
  24724. begin
  24725. pTDefRegMap(@Self)^.&set := $00000040;
  24726. end;
  24727. procedure TICAP4_IC4CON.clearICI1; inline;
  24728. begin
  24729. pTDefRegMap(@Self)^.clr := $00000040;
  24730. end;
  24731. procedure TICAP4_IC4CON.setICI1(thebits : TBits_1); inline;
  24732. begin
  24733. if thebits = 0 then
  24734. pTDefRegMap(@Self)^.clr := $00000040
  24735. else
  24736. pTDefRegMap(@Self)^.&set := $00000040;
  24737. end;
  24738. function TICAP4_IC4CON.getICI1 : TBits_1; inline;
  24739. begin
  24740. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  24741. end;
  24742. procedure TICAP4_IC4CON.setICSIDL; inline;
  24743. begin
  24744. pTDefRegMap(@Self)^.&set := $00002000;
  24745. end;
  24746. procedure TICAP4_IC4CON.clearICSIDL; inline;
  24747. begin
  24748. pTDefRegMap(@Self)^.clr := $00002000;
  24749. end;
  24750. procedure TICAP4_IC4CON.setICSIDL(thebits : TBits_1); inline;
  24751. begin
  24752. if thebits = 0 then
  24753. pTDefRegMap(@Self)^.clr := $00002000
  24754. else
  24755. pTDefRegMap(@Self)^.&set := $00002000;
  24756. end;
  24757. function TICAP4_IC4CON.getICSIDL : TBits_1; inline;
  24758. begin
  24759. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24760. end;
  24761. procedure TICAP4_IC4CON.setw(thebits : TBits_32); inline;
  24762. begin
  24763. pTDefRegMap(@Self)^.val := thebits;
  24764. end;
  24765. function TICAP4_IC4CON.getw : TBits_32; inline;
  24766. begin
  24767. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  24768. end;
  24769. procedure TICAP5_IC5CON.setICM(thebits : TBits_3); inline;
  24770. begin
  24771. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  24772. end;
  24773. function TICAP5_IC5CON.getICM : TBits_3; inline;
  24774. begin
  24775. getICM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  24776. end;
  24777. procedure TICAP5_IC5CON.setICBNE; inline;
  24778. begin
  24779. pTDefRegMap(@Self)^.&set := $00000008;
  24780. end;
  24781. procedure TICAP5_IC5CON.clearICBNE; inline;
  24782. begin
  24783. pTDefRegMap(@Self)^.clr := $00000008;
  24784. end;
  24785. procedure TICAP5_IC5CON.setICBNE(thebits : TBits_1); inline;
  24786. begin
  24787. if thebits = 0 then
  24788. pTDefRegMap(@Self)^.clr := $00000008
  24789. else
  24790. pTDefRegMap(@Self)^.&set := $00000008;
  24791. end;
  24792. function TICAP5_IC5CON.getICBNE : TBits_1; inline;
  24793. begin
  24794. getICBNE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  24795. end;
  24796. procedure TICAP5_IC5CON.setICOV; inline;
  24797. begin
  24798. pTDefRegMap(@Self)^.&set := $00000010;
  24799. end;
  24800. procedure TICAP5_IC5CON.clearICOV; inline;
  24801. begin
  24802. pTDefRegMap(@Self)^.clr := $00000010;
  24803. end;
  24804. procedure TICAP5_IC5CON.setICOV(thebits : TBits_1); inline;
  24805. begin
  24806. if thebits = 0 then
  24807. pTDefRegMap(@Self)^.clr := $00000010
  24808. else
  24809. pTDefRegMap(@Self)^.&set := $00000010;
  24810. end;
  24811. function TICAP5_IC5CON.getICOV : TBits_1; inline;
  24812. begin
  24813. getICOV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  24814. end;
  24815. procedure TICAP5_IC5CON.setICI(thebits : TBits_2); inline;
  24816. begin
  24817. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  24818. end;
  24819. function TICAP5_IC5CON.getICI : TBits_2; inline;
  24820. begin
  24821. getICI := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  24822. end;
  24823. procedure TICAP5_IC5CON.setICTMR; inline;
  24824. begin
  24825. pTDefRegMap(@Self)^.&set := $00000080;
  24826. end;
  24827. procedure TICAP5_IC5CON.clearICTMR; inline;
  24828. begin
  24829. pTDefRegMap(@Self)^.clr := $00000080;
  24830. end;
  24831. procedure TICAP5_IC5CON.setICTMR(thebits : TBits_1); inline;
  24832. begin
  24833. if thebits = 0 then
  24834. pTDefRegMap(@Self)^.clr := $00000080
  24835. else
  24836. pTDefRegMap(@Self)^.&set := $00000080;
  24837. end;
  24838. function TICAP5_IC5CON.getICTMR : TBits_1; inline;
  24839. begin
  24840. getICTMR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  24841. end;
  24842. procedure TICAP5_IC5CON.setC32; inline;
  24843. begin
  24844. pTDefRegMap(@Self)^.&set := $00000100;
  24845. end;
  24846. procedure TICAP5_IC5CON.clearC32; inline;
  24847. begin
  24848. pTDefRegMap(@Self)^.clr := $00000100;
  24849. end;
  24850. procedure TICAP5_IC5CON.setC32(thebits : TBits_1); inline;
  24851. begin
  24852. if thebits = 0 then
  24853. pTDefRegMap(@Self)^.clr := $00000100
  24854. else
  24855. pTDefRegMap(@Self)^.&set := $00000100;
  24856. end;
  24857. function TICAP5_IC5CON.getC32 : TBits_1; inline;
  24858. begin
  24859. getC32 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  24860. end;
  24861. procedure TICAP5_IC5CON.setFEDGE; inline;
  24862. begin
  24863. pTDefRegMap(@Self)^.&set := $00000200;
  24864. end;
  24865. procedure TICAP5_IC5CON.clearFEDGE; inline;
  24866. begin
  24867. pTDefRegMap(@Self)^.clr := $00000200;
  24868. end;
  24869. procedure TICAP5_IC5CON.setFEDGE(thebits : TBits_1); inline;
  24870. begin
  24871. if thebits = 0 then
  24872. pTDefRegMap(@Self)^.clr := $00000200
  24873. else
  24874. pTDefRegMap(@Self)^.&set := $00000200;
  24875. end;
  24876. function TICAP5_IC5CON.getFEDGE : TBits_1; inline;
  24877. begin
  24878. getFEDGE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  24879. end;
  24880. procedure TICAP5_IC5CON.setSIDL; inline;
  24881. begin
  24882. pTDefRegMap(@Self)^.&set := $00002000;
  24883. end;
  24884. procedure TICAP5_IC5CON.clearSIDL; inline;
  24885. begin
  24886. pTDefRegMap(@Self)^.clr := $00002000;
  24887. end;
  24888. procedure TICAP5_IC5CON.setSIDL(thebits : TBits_1); inline;
  24889. begin
  24890. if thebits = 0 then
  24891. pTDefRegMap(@Self)^.clr := $00002000
  24892. else
  24893. pTDefRegMap(@Self)^.&set := $00002000;
  24894. end;
  24895. function TICAP5_IC5CON.getSIDL : TBits_1; inline;
  24896. begin
  24897. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  24898. end;
  24899. procedure TICAP5_IC5CON.setON; inline;
  24900. begin
  24901. pTDefRegMap(@Self)^.&set := $00008000;
  24902. end;
  24903. procedure TICAP5_IC5CON.clearON; inline;
  24904. begin
  24905. pTDefRegMap(@Self)^.clr := $00008000;
  24906. end;
  24907. procedure TICAP5_IC5CON.setON(thebits : TBits_1); inline;
  24908. begin
  24909. if thebits = 0 then
  24910. pTDefRegMap(@Self)^.clr := $00008000
  24911. else
  24912. pTDefRegMap(@Self)^.&set := $00008000;
  24913. end;
  24914. function TICAP5_IC5CON.getON : TBits_1; inline;
  24915. begin
  24916. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  24917. end;
  24918. procedure TICAP5_IC5CON.setICM0; inline;
  24919. begin
  24920. pTDefRegMap(@Self)^.&set := $00000001;
  24921. end;
  24922. procedure TICAP5_IC5CON.clearICM0; inline;
  24923. begin
  24924. pTDefRegMap(@Self)^.clr := $00000001;
  24925. end;
  24926. procedure TICAP5_IC5CON.setICM0(thebits : TBits_1); inline;
  24927. begin
  24928. if thebits = 0 then
  24929. pTDefRegMap(@Self)^.clr := $00000001
  24930. else
  24931. pTDefRegMap(@Self)^.&set := $00000001;
  24932. end;
  24933. function TICAP5_IC5CON.getICM0 : TBits_1; inline;
  24934. begin
  24935. getICM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  24936. end;
  24937. procedure TICAP5_IC5CON.setICM1; inline;
  24938. begin
  24939. pTDefRegMap(@Self)^.&set := $00000002;
  24940. end;
  24941. procedure TICAP5_IC5CON.clearICM1; inline;
  24942. begin
  24943. pTDefRegMap(@Self)^.clr := $00000002;
  24944. end;
  24945. procedure TICAP5_IC5CON.setICM1(thebits : TBits_1); inline;
  24946. begin
  24947. if thebits = 0 then
  24948. pTDefRegMap(@Self)^.clr := $00000002
  24949. else
  24950. pTDefRegMap(@Self)^.&set := $00000002;
  24951. end;
  24952. function TICAP5_IC5CON.getICM1 : TBits_1; inline;
  24953. begin
  24954. getICM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  24955. end;
  24956. procedure TICAP5_IC5CON.setICM2; inline;
  24957. begin
  24958. pTDefRegMap(@Self)^.&set := $00000004;
  24959. end;
  24960. procedure TICAP5_IC5CON.clearICM2; inline;
  24961. begin
  24962. pTDefRegMap(@Self)^.clr := $00000004;
  24963. end;
  24964. procedure TICAP5_IC5CON.setICM2(thebits : TBits_1); inline;
  24965. begin
  24966. if thebits = 0 then
  24967. pTDefRegMap(@Self)^.clr := $00000004
  24968. else
  24969. pTDefRegMap(@Self)^.&set := $00000004;
  24970. end;
  24971. function TICAP5_IC5CON.getICM2 : TBits_1; inline;
  24972. begin
  24973. getICM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  24974. end;
  24975. procedure TICAP5_IC5CON.setICI0; inline;
  24976. begin
  24977. pTDefRegMap(@Self)^.&set := $00000020;
  24978. end;
  24979. procedure TICAP5_IC5CON.clearICI0; inline;
  24980. begin
  24981. pTDefRegMap(@Self)^.clr := $00000020;
  24982. end;
  24983. procedure TICAP5_IC5CON.setICI0(thebits : TBits_1); inline;
  24984. begin
  24985. if thebits = 0 then
  24986. pTDefRegMap(@Self)^.clr := $00000020
  24987. else
  24988. pTDefRegMap(@Self)^.&set := $00000020;
  24989. end;
  24990. function TICAP5_IC5CON.getICI0 : TBits_1; inline;
  24991. begin
  24992. getICI0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  24993. end;
  24994. procedure TICAP5_IC5CON.setICI1; inline;
  24995. begin
  24996. pTDefRegMap(@Self)^.&set := $00000040;
  24997. end;
  24998. procedure TICAP5_IC5CON.clearICI1; inline;
  24999. begin
  25000. pTDefRegMap(@Self)^.clr := $00000040;
  25001. end;
  25002. procedure TICAP5_IC5CON.setICI1(thebits : TBits_1); inline;
  25003. begin
  25004. if thebits = 0 then
  25005. pTDefRegMap(@Self)^.clr := $00000040
  25006. else
  25007. pTDefRegMap(@Self)^.&set := $00000040;
  25008. end;
  25009. function TICAP5_IC5CON.getICI1 : TBits_1; inline;
  25010. begin
  25011. getICI1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  25012. end;
  25013. procedure TICAP5_IC5CON.setICSIDL; inline;
  25014. begin
  25015. pTDefRegMap(@Self)^.&set := $00002000;
  25016. end;
  25017. procedure TICAP5_IC5CON.clearICSIDL; inline;
  25018. begin
  25019. pTDefRegMap(@Self)^.clr := $00002000;
  25020. end;
  25021. procedure TICAP5_IC5CON.setICSIDL(thebits : TBits_1); inline;
  25022. begin
  25023. if thebits = 0 then
  25024. pTDefRegMap(@Self)^.clr := $00002000
  25025. else
  25026. pTDefRegMap(@Self)^.&set := $00002000;
  25027. end;
  25028. function TICAP5_IC5CON.getICSIDL : TBits_1; inline;
  25029. begin
  25030. getICSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25031. end;
  25032. procedure TICAP5_IC5CON.setw(thebits : TBits_32); inline;
  25033. begin
  25034. pTDefRegMap(@Self)^.val := thebits;
  25035. end;
  25036. function TICAP5_IC5CON.getw : TBits_32; inline;
  25037. begin
  25038. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25039. end;
  25040. procedure TOCMP1_OC1CON.setOCM(thebits : TBits_3); inline;
  25041. begin
  25042. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25043. end;
  25044. function TOCMP1_OC1CON.getOCM : TBits_3; inline;
  25045. begin
  25046. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25047. end;
  25048. procedure TOCMP1_OC1CON.setOCTSEL; inline;
  25049. begin
  25050. pTDefRegMap(@Self)^.&set := $00000008;
  25051. end;
  25052. procedure TOCMP1_OC1CON.clearOCTSEL; inline;
  25053. begin
  25054. pTDefRegMap(@Self)^.clr := $00000008;
  25055. end;
  25056. procedure TOCMP1_OC1CON.setOCTSEL(thebits : TBits_1); inline;
  25057. begin
  25058. if thebits = 0 then
  25059. pTDefRegMap(@Self)^.clr := $00000008
  25060. else
  25061. pTDefRegMap(@Self)^.&set := $00000008;
  25062. end;
  25063. function TOCMP1_OC1CON.getOCTSEL : TBits_1; inline;
  25064. begin
  25065. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25066. end;
  25067. procedure TOCMP1_OC1CON.setOCFLT; inline;
  25068. begin
  25069. pTDefRegMap(@Self)^.&set := $00000010;
  25070. end;
  25071. procedure TOCMP1_OC1CON.clearOCFLT; inline;
  25072. begin
  25073. pTDefRegMap(@Self)^.clr := $00000010;
  25074. end;
  25075. procedure TOCMP1_OC1CON.setOCFLT(thebits : TBits_1); inline;
  25076. begin
  25077. if thebits = 0 then
  25078. pTDefRegMap(@Self)^.clr := $00000010
  25079. else
  25080. pTDefRegMap(@Self)^.&set := $00000010;
  25081. end;
  25082. function TOCMP1_OC1CON.getOCFLT : TBits_1; inline;
  25083. begin
  25084. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25085. end;
  25086. procedure TOCMP1_OC1CON.setOC32; inline;
  25087. begin
  25088. pTDefRegMap(@Self)^.&set := $00000020;
  25089. end;
  25090. procedure TOCMP1_OC1CON.clearOC32; inline;
  25091. begin
  25092. pTDefRegMap(@Self)^.clr := $00000020;
  25093. end;
  25094. procedure TOCMP1_OC1CON.setOC32(thebits : TBits_1); inline;
  25095. begin
  25096. if thebits = 0 then
  25097. pTDefRegMap(@Self)^.clr := $00000020
  25098. else
  25099. pTDefRegMap(@Self)^.&set := $00000020;
  25100. end;
  25101. function TOCMP1_OC1CON.getOC32 : TBits_1; inline;
  25102. begin
  25103. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25104. end;
  25105. procedure TOCMP1_OC1CON.setSIDL; inline;
  25106. begin
  25107. pTDefRegMap(@Self)^.&set := $00002000;
  25108. end;
  25109. procedure TOCMP1_OC1CON.clearSIDL; inline;
  25110. begin
  25111. pTDefRegMap(@Self)^.clr := $00002000;
  25112. end;
  25113. procedure TOCMP1_OC1CON.setSIDL(thebits : TBits_1); inline;
  25114. begin
  25115. if thebits = 0 then
  25116. pTDefRegMap(@Self)^.clr := $00002000
  25117. else
  25118. pTDefRegMap(@Self)^.&set := $00002000;
  25119. end;
  25120. function TOCMP1_OC1CON.getSIDL : TBits_1; inline;
  25121. begin
  25122. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25123. end;
  25124. procedure TOCMP1_OC1CON.setON; inline;
  25125. begin
  25126. pTDefRegMap(@Self)^.&set := $00008000;
  25127. end;
  25128. procedure TOCMP1_OC1CON.clearON; inline;
  25129. begin
  25130. pTDefRegMap(@Self)^.clr := $00008000;
  25131. end;
  25132. procedure TOCMP1_OC1CON.setON(thebits : TBits_1); inline;
  25133. begin
  25134. if thebits = 0 then
  25135. pTDefRegMap(@Self)^.clr := $00008000
  25136. else
  25137. pTDefRegMap(@Self)^.&set := $00008000;
  25138. end;
  25139. function TOCMP1_OC1CON.getON : TBits_1; inline;
  25140. begin
  25141. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25142. end;
  25143. procedure TOCMP1_OC1CON.setOCM0; inline;
  25144. begin
  25145. pTDefRegMap(@Self)^.&set := $00000001;
  25146. end;
  25147. procedure TOCMP1_OC1CON.clearOCM0; inline;
  25148. begin
  25149. pTDefRegMap(@Self)^.clr := $00000001;
  25150. end;
  25151. procedure TOCMP1_OC1CON.setOCM0(thebits : TBits_1); inline;
  25152. begin
  25153. if thebits = 0 then
  25154. pTDefRegMap(@Self)^.clr := $00000001
  25155. else
  25156. pTDefRegMap(@Self)^.&set := $00000001;
  25157. end;
  25158. function TOCMP1_OC1CON.getOCM0 : TBits_1; inline;
  25159. begin
  25160. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25161. end;
  25162. procedure TOCMP1_OC1CON.setOCM1; inline;
  25163. begin
  25164. pTDefRegMap(@Self)^.&set := $00000002;
  25165. end;
  25166. procedure TOCMP1_OC1CON.clearOCM1; inline;
  25167. begin
  25168. pTDefRegMap(@Self)^.clr := $00000002;
  25169. end;
  25170. procedure TOCMP1_OC1CON.setOCM1(thebits : TBits_1); inline;
  25171. begin
  25172. if thebits = 0 then
  25173. pTDefRegMap(@Self)^.clr := $00000002
  25174. else
  25175. pTDefRegMap(@Self)^.&set := $00000002;
  25176. end;
  25177. function TOCMP1_OC1CON.getOCM1 : TBits_1; inline;
  25178. begin
  25179. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25180. end;
  25181. procedure TOCMP1_OC1CON.setOCM2; inline;
  25182. begin
  25183. pTDefRegMap(@Self)^.&set := $00000004;
  25184. end;
  25185. procedure TOCMP1_OC1CON.clearOCM2; inline;
  25186. begin
  25187. pTDefRegMap(@Self)^.clr := $00000004;
  25188. end;
  25189. procedure TOCMP1_OC1CON.setOCM2(thebits : TBits_1); inline;
  25190. begin
  25191. if thebits = 0 then
  25192. pTDefRegMap(@Self)^.clr := $00000004
  25193. else
  25194. pTDefRegMap(@Self)^.&set := $00000004;
  25195. end;
  25196. function TOCMP1_OC1CON.getOCM2 : TBits_1; inline;
  25197. begin
  25198. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25199. end;
  25200. procedure TOCMP1_OC1CON.setOCSIDL; inline;
  25201. begin
  25202. pTDefRegMap(@Self)^.&set := $00002000;
  25203. end;
  25204. procedure TOCMP1_OC1CON.clearOCSIDL; inline;
  25205. begin
  25206. pTDefRegMap(@Self)^.clr := $00002000;
  25207. end;
  25208. procedure TOCMP1_OC1CON.setOCSIDL(thebits : TBits_1); inline;
  25209. begin
  25210. if thebits = 0 then
  25211. pTDefRegMap(@Self)^.clr := $00002000
  25212. else
  25213. pTDefRegMap(@Self)^.&set := $00002000;
  25214. end;
  25215. function TOCMP1_OC1CON.getOCSIDL : TBits_1; inline;
  25216. begin
  25217. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25218. end;
  25219. procedure TOCMP1_OC1CON.setw(thebits : TBits_32); inline;
  25220. begin
  25221. pTDefRegMap(@Self)^.val := thebits;
  25222. end;
  25223. function TOCMP1_OC1CON.getw : TBits_32; inline;
  25224. begin
  25225. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25226. end;
  25227. procedure TOCMP2_OC2CON.setOCM(thebits : TBits_3); inline;
  25228. begin
  25229. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25230. end;
  25231. function TOCMP2_OC2CON.getOCM : TBits_3; inline;
  25232. begin
  25233. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25234. end;
  25235. procedure TOCMP2_OC2CON.setOCTSEL; inline;
  25236. begin
  25237. pTDefRegMap(@Self)^.&set := $00000008;
  25238. end;
  25239. procedure TOCMP2_OC2CON.clearOCTSEL; inline;
  25240. begin
  25241. pTDefRegMap(@Self)^.clr := $00000008;
  25242. end;
  25243. procedure TOCMP2_OC2CON.setOCTSEL(thebits : TBits_1); inline;
  25244. begin
  25245. if thebits = 0 then
  25246. pTDefRegMap(@Self)^.clr := $00000008
  25247. else
  25248. pTDefRegMap(@Self)^.&set := $00000008;
  25249. end;
  25250. function TOCMP2_OC2CON.getOCTSEL : TBits_1; inline;
  25251. begin
  25252. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25253. end;
  25254. procedure TOCMP2_OC2CON.setOCFLT; inline;
  25255. begin
  25256. pTDefRegMap(@Self)^.&set := $00000010;
  25257. end;
  25258. procedure TOCMP2_OC2CON.clearOCFLT; inline;
  25259. begin
  25260. pTDefRegMap(@Self)^.clr := $00000010;
  25261. end;
  25262. procedure TOCMP2_OC2CON.setOCFLT(thebits : TBits_1); inline;
  25263. begin
  25264. if thebits = 0 then
  25265. pTDefRegMap(@Self)^.clr := $00000010
  25266. else
  25267. pTDefRegMap(@Self)^.&set := $00000010;
  25268. end;
  25269. function TOCMP2_OC2CON.getOCFLT : TBits_1; inline;
  25270. begin
  25271. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25272. end;
  25273. procedure TOCMP2_OC2CON.setOC32; inline;
  25274. begin
  25275. pTDefRegMap(@Self)^.&set := $00000020;
  25276. end;
  25277. procedure TOCMP2_OC2CON.clearOC32; inline;
  25278. begin
  25279. pTDefRegMap(@Self)^.clr := $00000020;
  25280. end;
  25281. procedure TOCMP2_OC2CON.setOC32(thebits : TBits_1); inline;
  25282. begin
  25283. if thebits = 0 then
  25284. pTDefRegMap(@Self)^.clr := $00000020
  25285. else
  25286. pTDefRegMap(@Self)^.&set := $00000020;
  25287. end;
  25288. function TOCMP2_OC2CON.getOC32 : TBits_1; inline;
  25289. begin
  25290. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25291. end;
  25292. procedure TOCMP2_OC2CON.setSIDL; inline;
  25293. begin
  25294. pTDefRegMap(@Self)^.&set := $00002000;
  25295. end;
  25296. procedure TOCMP2_OC2CON.clearSIDL; inline;
  25297. begin
  25298. pTDefRegMap(@Self)^.clr := $00002000;
  25299. end;
  25300. procedure TOCMP2_OC2CON.setSIDL(thebits : TBits_1); inline;
  25301. begin
  25302. if thebits = 0 then
  25303. pTDefRegMap(@Self)^.clr := $00002000
  25304. else
  25305. pTDefRegMap(@Self)^.&set := $00002000;
  25306. end;
  25307. function TOCMP2_OC2CON.getSIDL : TBits_1; inline;
  25308. begin
  25309. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25310. end;
  25311. procedure TOCMP2_OC2CON.setON; inline;
  25312. begin
  25313. pTDefRegMap(@Self)^.&set := $00008000;
  25314. end;
  25315. procedure TOCMP2_OC2CON.clearON; inline;
  25316. begin
  25317. pTDefRegMap(@Self)^.clr := $00008000;
  25318. end;
  25319. procedure TOCMP2_OC2CON.setON(thebits : TBits_1); inline;
  25320. begin
  25321. if thebits = 0 then
  25322. pTDefRegMap(@Self)^.clr := $00008000
  25323. else
  25324. pTDefRegMap(@Self)^.&set := $00008000;
  25325. end;
  25326. function TOCMP2_OC2CON.getON : TBits_1; inline;
  25327. begin
  25328. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25329. end;
  25330. procedure TOCMP2_OC2CON.setOCM0; inline;
  25331. begin
  25332. pTDefRegMap(@Self)^.&set := $00000001;
  25333. end;
  25334. procedure TOCMP2_OC2CON.clearOCM0; inline;
  25335. begin
  25336. pTDefRegMap(@Self)^.clr := $00000001;
  25337. end;
  25338. procedure TOCMP2_OC2CON.setOCM0(thebits : TBits_1); inline;
  25339. begin
  25340. if thebits = 0 then
  25341. pTDefRegMap(@Self)^.clr := $00000001
  25342. else
  25343. pTDefRegMap(@Self)^.&set := $00000001;
  25344. end;
  25345. function TOCMP2_OC2CON.getOCM0 : TBits_1; inline;
  25346. begin
  25347. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25348. end;
  25349. procedure TOCMP2_OC2CON.setOCM1; inline;
  25350. begin
  25351. pTDefRegMap(@Self)^.&set := $00000002;
  25352. end;
  25353. procedure TOCMP2_OC2CON.clearOCM1; inline;
  25354. begin
  25355. pTDefRegMap(@Self)^.clr := $00000002;
  25356. end;
  25357. procedure TOCMP2_OC2CON.setOCM1(thebits : TBits_1); inline;
  25358. begin
  25359. if thebits = 0 then
  25360. pTDefRegMap(@Self)^.clr := $00000002
  25361. else
  25362. pTDefRegMap(@Self)^.&set := $00000002;
  25363. end;
  25364. function TOCMP2_OC2CON.getOCM1 : TBits_1; inline;
  25365. begin
  25366. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25367. end;
  25368. procedure TOCMP2_OC2CON.setOCM2; inline;
  25369. begin
  25370. pTDefRegMap(@Self)^.&set := $00000004;
  25371. end;
  25372. procedure TOCMP2_OC2CON.clearOCM2; inline;
  25373. begin
  25374. pTDefRegMap(@Self)^.clr := $00000004;
  25375. end;
  25376. procedure TOCMP2_OC2CON.setOCM2(thebits : TBits_1); inline;
  25377. begin
  25378. if thebits = 0 then
  25379. pTDefRegMap(@Self)^.clr := $00000004
  25380. else
  25381. pTDefRegMap(@Self)^.&set := $00000004;
  25382. end;
  25383. function TOCMP2_OC2CON.getOCM2 : TBits_1; inline;
  25384. begin
  25385. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25386. end;
  25387. procedure TOCMP2_OC2CON.setOCSIDL; inline;
  25388. begin
  25389. pTDefRegMap(@Self)^.&set := $00002000;
  25390. end;
  25391. procedure TOCMP2_OC2CON.clearOCSIDL; inline;
  25392. begin
  25393. pTDefRegMap(@Self)^.clr := $00002000;
  25394. end;
  25395. procedure TOCMP2_OC2CON.setOCSIDL(thebits : TBits_1); inline;
  25396. begin
  25397. if thebits = 0 then
  25398. pTDefRegMap(@Self)^.clr := $00002000
  25399. else
  25400. pTDefRegMap(@Self)^.&set := $00002000;
  25401. end;
  25402. function TOCMP2_OC2CON.getOCSIDL : TBits_1; inline;
  25403. begin
  25404. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25405. end;
  25406. procedure TOCMP2_OC2CON.setw(thebits : TBits_32); inline;
  25407. begin
  25408. pTDefRegMap(@Self)^.val := thebits;
  25409. end;
  25410. function TOCMP2_OC2CON.getw : TBits_32; inline;
  25411. begin
  25412. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25413. end;
  25414. procedure TOCMP3_OC3CON.setOCM(thebits : TBits_3); inline;
  25415. begin
  25416. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25417. end;
  25418. function TOCMP3_OC3CON.getOCM : TBits_3; inline;
  25419. begin
  25420. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25421. end;
  25422. procedure TOCMP3_OC3CON.setOCTSEL; inline;
  25423. begin
  25424. pTDefRegMap(@Self)^.&set := $00000008;
  25425. end;
  25426. procedure TOCMP3_OC3CON.clearOCTSEL; inline;
  25427. begin
  25428. pTDefRegMap(@Self)^.clr := $00000008;
  25429. end;
  25430. procedure TOCMP3_OC3CON.setOCTSEL(thebits : TBits_1); inline;
  25431. begin
  25432. if thebits = 0 then
  25433. pTDefRegMap(@Self)^.clr := $00000008
  25434. else
  25435. pTDefRegMap(@Self)^.&set := $00000008;
  25436. end;
  25437. function TOCMP3_OC3CON.getOCTSEL : TBits_1; inline;
  25438. begin
  25439. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25440. end;
  25441. procedure TOCMP3_OC3CON.setOCFLT; inline;
  25442. begin
  25443. pTDefRegMap(@Self)^.&set := $00000010;
  25444. end;
  25445. procedure TOCMP3_OC3CON.clearOCFLT; inline;
  25446. begin
  25447. pTDefRegMap(@Self)^.clr := $00000010;
  25448. end;
  25449. procedure TOCMP3_OC3CON.setOCFLT(thebits : TBits_1); inline;
  25450. begin
  25451. if thebits = 0 then
  25452. pTDefRegMap(@Self)^.clr := $00000010
  25453. else
  25454. pTDefRegMap(@Self)^.&set := $00000010;
  25455. end;
  25456. function TOCMP3_OC3CON.getOCFLT : TBits_1; inline;
  25457. begin
  25458. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25459. end;
  25460. procedure TOCMP3_OC3CON.setOC32; inline;
  25461. begin
  25462. pTDefRegMap(@Self)^.&set := $00000020;
  25463. end;
  25464. procedure TOCMP3_OC3CON.clearOC32; inline;
  25465. begin
  25466. pTDefRegMap(@Self)^.clr := $00000020;
  25467. end;
  25468. procedure TOCMP3_OC3CON.setOC32(thebits : TBits_1); inline;
  25469. begin
  25470. if thebits = 0 then
  25471. pTDefRegMap(@Self)^.clr := $00000020
  25472. else
  25473. pTDefRegMap(@Self)^.&set := $00000020;
  25474. end;
  25475. function TOCMP3_OC3CON.getOC32 : TBits_1; inline;
  25476. begin
  25477. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25478. end;
  25479. procedure TOCMP3_OC3CON.setSIDL; inline;
  25480. begin
  25481. pTDefRegMap(@Self)^.&set := $00002000;
  25482. end;
  25483. procedure TOCMP3_OC3CON.clearSIDL; inline;
  25484. begin
  25485. pTDefRegMap(@Self)^.clr := $00002000;
  25486. end;
  25487. procedure TOCMP3_OC3CON.setSIDL(thebits : TBits_1); inline;
  25488. begin
  25489. if thebits = 0 then
  25490. pTDefRegMap(@Self)^.clr := $00002000
  25491. else
  25492. pTDefRegMap(@Self)^.&set := $00002000;
  25493. end;
  25494. function TOCMP3_OC3CON.getSIDL : TBits_1; inline;
  25495. begin
  25496. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25497. end;
  25498. procedure TOCMP3_OC3CON.setON; inline;
  25499. begin
  25500. pTDefRegMap(@Self)^.&set := $00008000;
  25501. end;
  25502. procedure TOCMP3_OC3CON.clearON; inline;
  25503. begin
  25504. pTDefRegMap(@Self)^.clr := $00008000;
  25505. end;
  25506. procedure TOCMP3_OC3CON.setON(thebits : TBits_1); inline;
  25507. begin
  25508. if thebits = 0 then
  25509. pTDefRegMap(@Self)^.clr := $00008000
  25510. else
  25511. pTDefRegMap(@Self)^.&set := $00008000;
  25512. end;
  25513. function TOCMP3_OC3CON.getON : TBits_1; inline;
  25514. begin
  25515. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25516. end;
  25517. procedure TOCMP3_OC3CON.setOCM0; inline;
  25518. begin
  25519. pTDefRegMap(@Self)^.&set := $00000001;
  25520. end;
  25521. procedure TOCMP3_OC3CON.clearOCM0; inline;
  25522. begin
  25523. pTDefRegMap(@Self)^.clr := $00000001;
  25524. end;
  25525. procedure TOCMP3_OC3CON.setOCM0(thebits : TBits_1); inline;
  25526. begin
  25527. if thebits = 0 then
  25528. pTDefRegMap(@Self)^.clr := $00000001
  25529. else
  25530. pTDefRegMap(@Self)^.&set := $00000001;
  25531. end;
  25532. function TOCMP3_OC3CON.getOCM0 : TBits_1; inline;
  25533. begin
  25534. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25535. end;
  25536. procedure TOCMP3_OC3CON.setOCM1; inline;
  25537. begin
  25538. pTDefRegMap(@Self)^.&set := $00000002;
  25539. end;
  25540. procedure TOCMP3_OC3CON.clearOCM1; inline;
  25541. begin
  25542. pTDefRegMap(@Self)^.clr := $00000002;
  25543. end;
  25544. procedure TOCMP3_OC3CON.setOCM1(thebits : TBits_1); inline;
  25545. begin
  25546. if thebits = 0 then
  25547. pTDefRegMap(@Self)^.clr := $00000002
  25548. else
  25549. pTDefRegMap(@Self)^.&set := $00000002;
  25550. end;
  25551. function TOCMP3_OC3CON.getOCM1 : TBits_1; inline;
  25552. begin
  25553. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25554. end;
  25555. procedure TOCMP3_OC3CON.setOCM2; inline;
  25556. begin
  25557. pTDefRegMap(@Self)^.&set := $00000004;
  25558. end;
  25559. procedure TOCMP3_OC3CON.clearOCM2; inline;
  25560. begin
  25561. pTDefRegMap(@Self)^.clr := $00000004;
  25562. end;
  25563. procedure TOCMP3_OC3CON.setOCM2(thebits : TBits_1); inline;
  25564. begin
  25565. if thebits = 0 then
  25566. pTDefRegMap(@Self)^.clr := $00000004
  25567. else
  25568. pTDefRegMap(@Self)^.&set := $00000004;
  25569. end;
  25570. function TOCMP3_OC3CON.getOCM2 : TBits_1; inline;
  25571. begin
  25572. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25573. end;
  25574. procedure TOCMP3_OC3CON.setOCSIDL; inline;
  25575. begin
  25576. pTDefRegMap(@Self)^.&set := $00002000;
  25577. end;
  25578. procedure TOCMP3_OC3CON.clearOCSIDL; inline;
  25579. begin
  25580. pTDefRegMap(@Self)^.clr := $00002000;
  25581. end;
  25582. procedure TOCMP3_OC3CON.setOCSIDL(thebits : TBits_1); inline;
  25583. begin
  25584. if thebits = 0 then
  25585. pTDefRegMap(@Self)^.clr := $00002000
  25586. else
  25587. pTDefRegMap(@Self)^.&set := $00002000;
  25588. end;
  25589. function TOCMP3_OC3CON.getOCSIDL : TBits_1; inline;
  25590. begin
  25591. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25592. end;
  25593. procedure TOCMP3_OC3CON.setw(thebits : TBits_32); inline;
  25594. begin
  25595. pTDefRegMap(@Self)^.val := thebits;
  25596. end;
  25597. function TOCMP3_OC3CON.getw : TBits_32; inline;
  25598. begin
  25599. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25600. end;
  25601. procedure TOCMP4_OC4CON.setOCM(thebits : TBits_3); inline;
  25602. begin
  25603. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25604. end;
  25605. function TOCMP4_OC4CON.getOCM : TBits_3; inline;
  25606. begin
  25607. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25608. end;
  25609. procedure TOCMP4_OC4CON.setOCTSEL; inline;
  25610. begin
  25611. pTDefRegMap(@Self)^.&set := $00000008;
  25612. end;
  25613. procedure TOCMP4_OC4CON.clearOCTSEL; inline;
  25614. begin
  25615. pTDefRegMap(@Self)^.clr := $00000008;
  25616. end;
  25617. procedure TOCMP4_OC4CON.setOCTSEL(thebits : TBits_1); inline;
  25618. begin
  25619. if thebits = 0 then
  25620. pTDefRegMap(@Self)^.clr := $00000008
  25621. else
  25622. pTDefRegMap(@Self)^.&set := $00000008;
  25623. end;
  25624. function TOCMP4_OC4CON.getOCTSEL : TBits_1; inline;
  25625. begin
  25626. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25627. end;
  25628. procedure TOCMP4_OC4CON.setOCFLT; inline;
  25629. begin
  25630. pTDefRegMap(@Self)^.&set := $00000010;
  25631. end;
  25632. procedure TOCMP4_OC4CON.clearOCFLT; inline;
  25633. begin
  25634. pTDefRegMap(@Self)^.clr := $00000010;
  25635. end;
  25636. procedure TOCMP4_OC4CON.setOCFLT(thebits : TBits_1); inline;
  25637. begin
  25638. if thebits = 0 then
  25639. pTDefRegMap(@Self)^.clr := $00000010
  25640. else
  25641. pTDefRegMap(@Self)^.&set := $00000010;
  25642. end;
  25643. function TOCMP4_OC4CON.getOCFLT : TBits_1; inline;
  25644. begin
  25645. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25646. end;
  25647. procedure TOCMP4_OC4CON.setOC32; inline;
  25648. begin
  25649. pTDefRegMap(@Self)^.&set := $00000020;
  25650. end;
  25651. procedure TOCMP4_OC4CON.clearOC32; inline;
  25652. begin
  25653. pTDefRegMap(@Self)^.clr := $00000020;
  25654. end;
  25655. procedure TOCMP4_OC4CON.setOC32(thebits : TBits_1); inline;
  25656. begin
  25657. if thebits = 0 then
  25658. pTDefRegMap(@Self)^.clr := $00000020
  25659. else
  25660. pTDefRegMap(@Self)^.&set := $00000020;
  25661. end;
  25662. function TOCMP4_OC4CON.getOC32 : TBits_1; inline;
  25663. begin
  25664. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25665. end;
  25666. procedure TOCMP4_OC4CON.setSIDL; inline;
  25667. begin
  25668. pTDefRegMap(@Self)^.&set := $00002000;
  25669. end;
  25670. procedure TOCMP4_OC4CON.clearSIDL; inline;
  25671. begin
  25672. pTDefRegMap(@Self)^.clr := $00002000;
  25673. end;
  25674. procedure TOCMP4_OC4CON.setSIDL(thebits : TBits_1); inline;
  25675. begin
  25676. if thebits = 0 then
  25677. pTDefRegMap(@Self)^.clr := $00002000
  25678. else
  25679. pTDefRegMap(@Self)^.&set := $00002000;
  25680. end;
  25681. function TOCMP4_OC4CON.getSIDL : TBits_1; inline;
  25682. begin
  25683. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25684. end;
  25685. procedure TOCMP4_OC4CON.setON; inline;
  25686. begin
  25687. pTDefRegMap(@Self)^.&set := $00008000;
  25688. end;
  25689. procedure TOCMP4_OC4CON.clearON; inline;
  25690. begin
  25691. pTDefRegMap(@Self)^.clr := $00008000;
  25692. end;
  25693. procedure TOCMP4_OC4CON.setON(thebits : TBits_1); inline;
  25694. begin
  25695. if thebits = 0 then
  25696. pTDefRegMap(@Self)^.clr := $00008000
  25697. else
  25698. pTDefRegMap(@Self)^.&set := $00008000;
  25699. end;
  25700. function TOCMP4_OC4CON.getON : TBits_1; inline;
  25701. begin
  25702. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25703. end;
  25704. procedure TOCMP4_OC4CON.setOCM0; inline;
  25705. begin
  25706. pTDefRegMap(@Self)^.&set := $00000001;
  25707. end;
  25708. procedure TOCMP4_OC4CON.clearOCM0; inline;
  25709. begin
  25710. pTDefRegMap(@Self)^.clr := $00000001;
  25711. end;
  25712. procedure TOCMP4_OC4CON.setOCM0(thebits : TBits_1); inline;
  25713. begin
  25714. if thebits = 0 then
  25715. pTDefRegMap(@Self)^.clr := $00000001
  25716. else
  25717. pTDefRegMap(@Self)^.&set := $00000001;
  25718. end;
  25719. function TOCMP4_OC4CON.getOCM0 : TBits_1; inline;
  25720. begin
  25721. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25722. end;
  25723. procedure TOCMP4_OC4CON.setOCM1; inline;
  25724. begin
  25725. pTDefRegMap(@Self)^.&set := $00000002;
  25726. end;
  25727. procedure TOCMP4_OC4CON.clearOCM1; inline;
  25728. begin
  25729. pTDefRegMap(@Self)^.clr := $00000002;
  25730. end;
  25731. procedure TOCMP4_OC4CON.setOCM1(thebits : TBits_1); inline;
  25732. begin
  25733. if thebits = 0 then
  25734. pTDefRegMap(@Self)^.clr := $00000002
  25735. else
  25736. pTDefRegMap(@Self)^.&set := $00000002;
  25737. end;
  25738. function TOCMP4_OC4CON.getOCM1 : TBits_1; inline;
  25739. begin
  25740. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25741. end;
  25742. procedure TOCMP4_OC4CON.setOCM2; inline;
  25743. begin
  25744. pTDefRegMap(@Self)^.&set := $00000004;
  25745. end;
  25746. procedure TOCMP4_OC4CON.clearOCM2; inline;
  25747. begin
  25748. pTDefRegMap(@Self)^.clr := $00000004;
  25749. end;
  25750. procedure TOCMP4_OC4CON.setOCM2(thebits : TBits_1); inline;
  25751. begin
  25752. if thebits = 0 then
  25753. pTDefRegMap(@Self)^.clr := $00000004
  25754. else
  25755. pTDefRegMap(@Self)^.&set := $00000004;
  25756. end;
  25757. function TOCMP4_OC4CON.getOCM2 : TBits_1; inline;
  25758. begin
  25759. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25760. end;
  25761. procedure TOCMP4_OC4CON.setOCSIDL; inline;
  25762. begin
  25763. pTDefRegMap(@Self)^.&set := $00002000;
  25764. end;
  25765. procedure TOCMP4_OC4CON.clearOCSIDL; inline;
  25766. begin
  25767. pTDefRegMap(@Self)^.clr := $00002000;
  25768. end;
  25769. procedure TOCMP4_OC4CON.setOCSIDL(thebits : TBits_1); inline;
  25770. begin
  25771. if thebits = 0 then
  25772. pTDefRegMap(@Self)^.clr := $00002000
  25773. else
  25774. pTDefRegMap(@Self)^.&set := $00002000;
  25775. end;
  25776. function TOCMP4_OC4CON.getOCSIDL : TBits_1; inline;
  25777. begin
  25778. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25779. end;
  25780. procedure TOCMP4_OC4CON.setw(thebits : TBits_32); inline;
  25781. begin
  25782. pTDefRegMap(@Self)^.val := thebits;
  25783. end;
  25784. function TOCMP4_OC4CON.getw : TBits_32; inline;
  25785. begin
  25786. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25787. end;
  25788. procedure TOCMP5_OC5CON.setOCM(thebits : TBits_3); inline;
  25789. begin
  25790. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  25791. end;
  25792. function TOCMP5_OC5CON.getOCM : TBits_3; inline;
  25793. begin
  25794. getOCM := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  25795. end;
  25796. procedure TOCMP5_OC5CON.setOCTSEL; inline;
  25797. begin
  25798. pTDefRegMap(@Self)^.&set := $00000008;
  25799. end;
  25800. procedure TOCMP5_OC5CON.clearOCTSEL; inline;
  25801. begin
  25802. pTDefRegMap(@Self)^.clr := $00000008;
  25803. end;
  25804. procedure TOCMP5_OC5CON.setOCTSEL(thebits : TBits_1); inline;
  25805. begin
  25806. if thebits = 0 then
  25807. pTDefRegMap(@Self)^.clr := $00000008
  25808. else
  25809. pTDefRegMap(@Self)^.&set := $00000008;
  25810. end;
  25811. function TOCMP5_OC5CON.getOCTSEL : TBits_1; inline;
  25812. begin
  25813. getOCTSEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  25814. end;
  25815. procedure TOCMP5_OC5CON.setOCFLT; inline;
  25816. begin
  25817. pTDefRegMap(@Self)^.&set := $00000010;
  25818. end;
  25819. procedure TOCMP5_OC5CON.clearOCFLT; inline;
  25820. begin
  25821. pTDefRegMap(@Self)^.clr := $00000010;
  25822. end;
  25823. procedure TOCMP5_OC5CON.setOCFLT(thebits : TBits_1); inline;
  25824. begin
  25825. if thebits = 0 then
  25826. pTDefRegMap(@Self)^.clr := $00000010
  25827. else
  25828. pTDefRegMap(@Self)^.&set := $00000010;
  25829. end;
  25830. function TOCMP5_OC5CON.getOCFLT : TBits_1; inline;
  25831. begin
  25832. getOCFLT := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  25833. end;
  25834. procedure TOCMP5_OC5CON.setOC32; inline;
  25835. begin
  25836. pTDefRegMap(@Self)^.&set := $00000020;
  25837. end;
  25838. procedure TOCMP5_OC5CON.clearOC32; inline;
  25839. begin
  25840. pTDefRegMap(@Self)^.clr := $00000020;
  25841. end;
  25842. procedure TOCMP5_OC5CON.setOC32(thebits : TBits_1); inline;
  25843. begin
  25844. if thebits = 0 then
  25845. pTDefRegMap(@Self)^.clr := $00000020
  25846. else
  25847. pTDefRegMap(@Self)^.&set := $00000020;
  25848. end;
  25849. function TOCMP5_OC5CON.getOC32 : TBits_1; inline;
  25850. begin
  25851. getOC32 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  25852. end;
  25853. procedure TOCMP5_OC5CON.setSIDL; inline;
  25854. begin
  25855. pTDefRegMap(@Self)^.&set := $00002000;
  25856. end;
  25857. procedure TOCMP5_OC5CON.clearSIDL; inline;
  25858. begin
  25859. pTDefRegMap(@Self)^.clr := $00002000;
  25860. end;
  25861. procedure TOCMP5_OC5CON.setSIDL(thebits : TBits_1); inline;
  25862. begin
  25863. if thebits = 0 then
  25864. pTDefRegMap(@Self)^.clr := $00002000
  25865. else
  25866. pTDefRegMap(@Self)^.&set := $00002000;
  25867. end;
  25868. function TOCMP5_OC5CON.getSIDL : TBits_1; inline;
  25869. begin
  25870. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25871. end;
  25872. procedure TOCMP5_OC5CON.setON; inline;
  25873. begin
  25874. pTDefRegMap(@Self)^.&set := $00008000;
  25875. end;
  25876. procedure TOCMP5_OC5CON.clearON; inline;
  25877. begin
  25878. pTDefRegMap(@Self)^.clr := $00008000;
  25879. end;
  25880. procedure TOCMP5_OC5CON.setON(thebits : TBits_1); inline;
  25881. begin
  25882. if thebits = 0 then
  25883. pTDefRegMap(@Self)^.clr := $00008000
  25884. else
  25885. pTDefRegMap(@Self)^.&set := $00008000;
  25886. end;
  25887. function TOCMP5_OC5CON.getON : TBits_1; inline;
  25888. begin
  25889. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  25890. end;
  25891. procedure TOCMP5_OC5CON.setOCM0; inline;
  25892. begin
  25893. pTDefRegMap(@Self)^.&set := $00000001;
  25894. end;
  25895. procedure TOCMP5_OC5CON.clearOCM0; inline;
  25896. begin
  25897. pTDefRegMap(@Self)^.clr := $00000001;
  25898. end;
  25899. procedure TOCMP5_OC5CON.setOCM0(thebits : TBits_1); inline;
  25900. begin
  25901. if thebits = 0 then
  25902. pTDefRegMap(@Self)^.clr := $00000001
  25903. else
  25904. pTDefRegMap(@Self)^.&set := $00000001;
  25905. end;
  25906. function TOCMP5_OC5CON.getOCM0 : TBits_1; inline;
  25907. begin
  25908. getOCM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25909. end;
  25910. procedure TOCMP5_OC5CON.setOCM1; inline;
  25911. begin
  25912. pTDefRegMap(@Self)^.&set := $00000002;
  25913. end;
  25914. procedure TOCMP5_OC5CON.clearOCM1; inline;
  25915. begin
  25916. pTDefRegMap(@Self)^.clr := $00000002;
  25917. end;
  25918. procedure TOCMP5_OC5CON.setOCM1(thebits : TBits_1); inline;
  25919. begin
  25920. if thebits = 0 then
  25921. pTDefRegMap(@Self)^.clr := $00000002
  25922. else
  25923. pTDefRegMap(@Self)^.&set := $00000002;
  25924. end;
  25925. function TOCMP5_OC5CON.getOCM1 : TBits_1; inline;
  25926. begin
  25927. getOCM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  25928. end;
  25929. procedure TOCMP5_OC5CON.setOCM2; inline;
  25930. begin
  25931. pTDefRegMap(@Self)^.&set := $00000004;
  25932. end;
  25933. procedure TOCMP5_OC5CON.clearOCM2; inline;
  25934. begin
  25935. pTDefRegMap(@Self)^.clr := $00000004;
  25936. end;
  25937. procedure TOCMP5_OC5CON.setOCM2(thebits : TBits_1); inline;
  25938. begin
  25939. if thebits = 0 then
  25940. pTDefRegMap(@Self)^.clr := $00000004
  25941. else
  25942. pTDefRegMap(@Self)^.&set := $00000004;
  25943. end;
  25944. function TOCMP5_OC5CON.getOCM2 : TBits_1; inline;
  25945. begin
  25946. getOCM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  25947. end;
  25948. procedure TOCMP5_OC5CON.setOCSIDL; inline;
  25949. begin
  25950. pTDefRegMap(@Self)^.&set := $00002000;
  25951. end;
  25952. procedure TOCMP5_OC5CON.clearOCSIDL; inline;
  25953. begin
  25954. pTDefRegMap(@Self)^.clr := $00002000;
  25955. end;
  25956. procedure TOCMP5_OC5CON.setOCSIDL(thebits : TBits_1); inline;
  25957. begin
  25958. if thebits = 0 then
  25959. pTDefRegMap(@Self)^.clr := $00002000
  25960. else
  25961. pTDefRegMap(@Self)^.&set := $00002000;
  25962. end;
  25963. function TOCMP5_OC5CON.getOCSIDL : TBits_1; inline;
  25964. begin
  25965. getOCSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  25966. end;
  25967. procedure TOCMP5_OC5CON.setw(thebits : TBits_32); inline;
  25968. begin
  25969. pTDefRegMap(@Self)^.val := thebits;
  25970. end;
  25971. function TOCMP5_OC5CON.getw : TBits_32; inline;
  25972. begin
  25973. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  25974. end;
  25975. procedure TI2C1A_I2C1ACON.setSEN; inline;
  25976. begin
  25977. pTDefRegMap(@Self)^.&set := $00000001;
  25978. end;
  25979. procedure TI2C1A_I2C1ACON.clearSEN; inline;
  25980. begin
  25981. pTDefRegMap(@Self)^.clr := $00000001;
  25982. end;
  25983. procedure TI2C1A_I2C1ACON.setSEN(thebits : TBits_1); inline;
  25984. begin
  25985. if thebits = 0 then
  25986. pTDefRegMap(@Self)^.clr := $00000001
  25987. else
  25988. pTDefRegMap(@Self)^.&set := $00000001;
  25989. end;
  25990. function TI2C1A_I2C1ACON.getSEN : TBits_1; inline;
  25991. begin
  25992. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  25993. end;
  25994. procedure TI2C1A_I2C1ACON.setRSEN; inline;
  25995. begin
  25996. pTDefRegMap(@Self)^.&set := $00000002;
  25997. end;
  25998. procedure TI2C1A_I2C1ACON.clearRSEN; inline;
  25999. begin
  26000. pTDefRegMap(@Self)^.clr := $00000002;
  26001. end;
  26002. procedure TI2C1A_I2C1ACON.setRSEN(thebits : TBits_1); inline;
  26003. begin
  26004. if thebits = 0 then
  26005. pTDefRegMap(@Self)^.clr := $00000002
  26006. else
  26007. pTDefRegMap(@Self)^.&set := $00000002;
  26008. end;
  26009. function TI2C1A_I2C1ACON.getRSEN : TBits_1; inline;
  26010. begin
  26011. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26012. end;
  26013. procedure TI2C1A_I2C1ACON.setPEN; inline;
  26014. begin
  26015. pTDefRegMap(@Self)^.&set := $00000004;
  26016. end;
  26017. procedure TI2C1A_I2C1ACON.clearPEN; inline;
  26018. begin
  26019. pTDefRegMap(@Self)^.clr := $00000004;
  26020. end;
  26021. procedure TI2C1A_I2C1ACON.setPEN(thebits : TBits_1); inline;
  26022. begin
  26023. if thebits = 0 then
  26024. pTDefRegMap(@Self)^.clr := $00000004
  26025. else
  26026. pTDefRegMap(@Self)^.&set := $00000004;
  26027. end;
  26028. function TI2C1A_I2C1ACON.getPEN : TBits_1; inline;
  26029. begin
  26030. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26031. end;
  26032. procedure TI2C1A_I2C1ACON.setRCEN; inline;
  26033. begin
  26034. pTDefRegMap(@Self)^.&set := $00000008;
  26035. end;
  26036. procedure TI2C1A_I2C1ACON.clearRCEN; inline;
  26037. begin
  26038. pTDefRegMap(@Self)^.clr := $00000008;
  26039. end;
  26040. procedure TI2C1A_I2C1ACON.setRCEN(thebits : TBits_1); inline;
  26041. begin
  26042. if thebits = 0 then
  26043. pTDefRegMap(@Self)^.clr := $00000008
  26044. else
  26045. pTDefRegMap(@Self)^.&set := $00000008;
  26046. end;
  26047. function TI2C1A_I2C1ACON.getRCEN : TBits_1; inline;
  26048. begin
  26049. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26050. end;
  26051. procedure TI2C1A_I2C1ACON.setACKEN; inline;
  26052. begin
  26053. pTDefRegMap(@Self)^.&set := $00000010;
  26054. end;
  26055. procedure TI2C1A_I2C1ACON.clearACKEN; inline;
  26056. begin
  26057. pTDefRegMap(@Self)^.clr := $00000010;
  26058. end;
  26059. procedure TI2C1A_I2C1ACON.setACKEN(thebits : TBits_1); inline;
  26060. begin
  26061. if thebits = 0 then
  26062. pTDefRegMap(@Self)^.clr := $00000010
  26063. else
  26064. pTDefRegMap(@Self)^.&set := $00000010;
  26065. end;
  26066. function TI2C1A_I2C1ACON.getACKEN : TBits_1; inline;
  26067. begin
  26068. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26069. end;
  26070. procedure TI2C1A_I2C1ACON.setACKDT; inline;
  26071. begin
  26072. pTDefRegMap(@Self)^.&set := $00000020;
  26073. end;
  26074. procedure TI2C1A_I2C1ACON.clearACKDT; inline;
  26075. begin
  26076. pTDefRegMap(@Self)^.clr := $00000020;
  26077. end;
  26078. procedure TI2C1A_I2C1ACON.setACKDT(thebits : TBits_1); inline;
  26079. begin
  26080. if thebits = 0 then
  26081. pTDefRegMap(@Self)^.clr := $00000020
  26082. else
  26083. pTDefRegMap(@Self)^.&set := $00000020;
  26084. end;
  26085. function TI2C1A_I2C1ACON.getACKDT : TBits_1; inline;
  26086. begin
  26087. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26088. end;
  26089. procedure TI2C1A_I2C1ACON.setSTREN; inline;
  26090. begin
  26091. pTDefRegMap(@Self)^.&set := $00000040;
  26092. end;
  26093. procedure TI2C1A_I2C1ACON.clearSTREN; inline;
  26094. begin
  26095. pTDefRegMap(@Self)^.clr := $00000040;
  26096. end;
  26097. procedure TI2C1A_I2C1ACON.setSTREN(thebits : TBits_1); inline;
  26098. begin
  26099. if thebits = 0 then
  26100. pTDefRegMap(@Self)^.clr := $00000040
  26101. else
  26102. pTDefRegMap(@Self)^.&set := $00000040;
  26103. end;
  26104. function TI2C1A_I2C1ACON.getSTREN : TBits_1; inline;
  26105. begin
  26106. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  26107. end;
  26108. procedure TI2C1A_I2C1ACON.setGCEN; inline;
  26109. begin
  26110. pTDefRegMap(@Self)^.&set := $00000080;
  26111. end;
  26112. procedure TI2C1A_I2C1ACON.clearGCEN; inline;
  26113. begin
  26114. pTDefRegMap(@Self)^.clr := $00000080;
  26115. end;
  26116. procedure TI2C1A_I2C1ACON.setGCEN(thebits : TBits_1); inline;
  26117. begin
  26118. if thebits = 0 then
  26119. pTDefRegMap(@Self)^.clr := $00000080
  26120. else
  26121. pTDefRegMap(@Self)^.&set := $00000080;
  26122. end;
  26123. function TI2C1A_I2C1ACON.getGCEN : TBits_1; inline;
  26124. begin
  26125. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  26126. end;
  26127. procedure TI2C1A_I2C1ACON.setSMEN; inline;
  26128. begin
  26129. pTDefRegMap(@Self)^.&set := $00000100;
  26130. end;
  26131. procedure TI2C1A_I2C1ACON.clearSMEN; inline;
  26132. begin
  26133. pTDefRegMap(@Self)^.clr := $00000100;
  26134. end;
  26135. procedure TI2C1A_I2C1ACON.setSMEN(thebits : TBits_1); inline;
  26136. begin
  26137. if thebits = 0 then
  26138. pTDefRegMap(@Self)^.clr := $00000100
  26139. else
  26140. pTDefRegMap(@Self)^.&set := $00000100;
  26141. end;
  26142. function TI2C1A_I2C1ACON.getSMEN : TBits_1; inline;
  26143. begin
  26144. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  26145. end;
  26146. procedure TI2C1A_I2C1ACON.setDISSLW; inline;
  26147. begin
  26148. pTDefRegMap(@Self)^.&set := $00000200;
  26149. end;
  26150. procedure TI2C1A_I2C1ACON.clearDISSLW; inline;
  26151. begin
  26152. pTDefRegMap(@Self)^.clr := $00000200;
  26153. end;
  26154. procedure TI2C1A_I2C1ACON.setDISSLW(thebits : TBits_1); inline;
  26155. begin
  26156. if thebits = 0 then
  26157. pTDefRegMap(@Self)^.clr := $00000200
  26158. else
  26159. pTDefRegMap(@Self)^.&set := $00000200;
  26160. end;
  26161. function TI2C1A_I2C1ACON.getDISSLW : TBits_1; inline;
  26162. begin
  26163. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  26164. end;
  26165. procedure TI2C1A_I2C1ACON.setA10M; inline;
  26166. begin
  26167. pTDefRegMap(@Self)^.&set := $00000400;
  26168. end;
  26169. procedure TI2C1A_I2C1ACON.clearA10M; inline;
  26170. begin
  26171. pTDefRegMap(@Self)^.clr := $00000400;
  26172. end;
  26173. procedure TI2C1A_I2C1ACON.setA10M(thebits : TBits_1); inline;
  26174. begin
  26175. if thebits = 0 then
  26176. pTDefRegMap(@Self)^.clr := $00000400
  26177. else
  26178. pTDefRegMap(@Self)^.&set := $00000400;
  26179. end;
  26180. function TI2C1A_I2C1ACON.getA10M : TBits_1; inline;
  26181. begin
  26182. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  26183. end;
  26184. procedure TI2C1A_I2C1ACON.setSTRICT; inline;
  26185. begin
  26186. pTDefRegMap(@Self)^.&set := $00000800;
  26187. end;
  26188. procedure TI2C1A_I2C1ACON.clearSTRICT; inline;
  26189. begin
  26190. pTDefRegMap(@Self)^.clr := $00000800;
  26191. end;
  26192. procedure TI2C1A_I2C1ACON.setSTRICT(thebits : TBits_1); inline;
  26193. begin
  26194. if thebits = 0 then
  26195. pTDefRegMap(@Self)^.clr := $00000800
  26196. else
  26197. pTDefRegMap(@Self)^.&set := $00000800;
  26198. end;
  26199. function TI2C1A_I2C1ACON.getSTRICT : TBits_1; inline;
  26200. begin
  26201. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  26202. end;
  26203. procedure TI2C1A_I2C1ACON.setSCLREL; inline;
  26204. begin
  26205. pTDefRegMap(@Self)^.&set := $00001000;
  26206. end;
  26207. procedure TI2C1A_I2C1ACON.clearSCLREL; inline;
  26208. begin
  26209. pTDefRegMap(@Self)^.clr := $00001000;
  26210. end;
  26211. procedure TI2C1A_I2C1ACON.setSCLREL(thebits : TBits_1); inline;
  26212. begin
  26213. if thebits = 0 then
  26214. pTDefRegMap(@Self)^.clr := $00001000
  26215. else
  26216. pTDefRegMap(@Self)^.&set := $00001000;
  26217. end;
  26218. function TI2C1A_I2C1ACON.getSCLREL : TBits_1; inline;
  26219. begin
  26220. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  26221. end;
  26222. procedure TI2C1A_I2C1ACON.setSIDL; inline;
  26223. begin
  26224. pTDefRegMap(@Self)^.&set := $00002000;
  26225. end;
  26226. procedure TI2C1A_I2C1ACON.clearSIDL; inline;
  26227. begin
  26228. pTDefRegMap(@Self)^.clr := $00002000;
  26229. end;
  26230. procedure TI2C1A_I2C1ACON.setSIDL(thebits : TBits_1); inline;
  26231. begin
  26232. if thebits = 0 then
  26233. pTDefRegMap(@Self)^.clr := $00002000
  26234. else
  26235. pTDefRegMap(@Self)^.&set := $00002000;
  26236. end;
  26237. function TI2C1A_I2C1ACON.getSIDL : TBits_1; inline;
  26238. begin
  26239. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26240. end;
  26241. procedure TI2C1A_I2C1ACON.setON; inline;
  26242. begin
  26243. pTDefRegMap(@Self)^.&set := $00008000;
  26244. end;
  26245. procedure TI2C1A_I2C1ACON.clearON; inline;
  26246. begin
  26247. pTDefRegMap(@Self)^.clr := $00008000;
  26248. end;
  26249. procedure TI2C1A_I2C1ACON.setON(thebits : TBits_1); inline;
  26250. begin
  26251. if thebits = 0 then
  26252. pTDefRegMap(@Self)^.clr := $00008000
  26253. else
  26254. pTDefRegMap(@Self)^.&set := $00008000;
  26255. end;
  26256. function TI2C1A_I2C1ACON.getON : TBits_1; inline;
  26257. begin
  26258. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26259. end;
  26260. procedure TI2C1A_I2C1ACON.setIPMIEN; inline;
  26261. begin
  26262. pTDefRegMap(@Self)^.&set := $00000800;
  26263. end;
  26264. procedure TI2C1A_I2C1ACON.clearIPMIEN; inline;
  26265. begin
  26266. pTDefRegMap(@Self)^.clr := $00000800;
  26267. end;
  26268. procedure TI2C1A_I2C1ACON.setIPMIEN(thebits : TBits_1); inline;
  26269. begin
  26270. if thebits = 0 then
  26271. pTDefRegMap(@Self)^.clr := $00000800
  26272. else
  26273. pTDefRegMap(@Self)^.&set := $00000800;
  26274. end;
  26275. function TI2C1A_I2C1ACON.getIPMIEN : TBits_1; inline;
  26276. begin
  26277. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  26278. end;
  26279. procedure TI2C1A_I2C1ACON.setI2CSIDL; inline;
  26280. begin
  26281. pTDefRegMap(@Self)^.&set := $00002000;
  26282. end;
  26283. procedure TI2C1A_I2C1ACON.clearI2CSIDL; inline;
  26284. begin
  26285. pTDefRegMap(@Self)^.clr := $00002000;
  26286. end;
  26287. procedure TI2C1A_I2C1ACON.setI2CSIDL(thebits : TBits_1); inline;
  26288. begin
  26289. if thebits = 0 then
  26290. pTDefRegMap(@Self)^.clr := $00002000
  26291. else
  26292. pTDefRegMap(@Self)^.&set := $00002000;
  26293. end;
  26294. function TI2C1A_I2C1ACON.getI2CSIDL : TBits_1; inline;
  26295. begin
  26296. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26297. end;
  26298. procedure TI2C1A_I2C1ACON.setI2CEN; inline;
  26299. begin
  26300. pTDefRegMap(@Self)^.&set := $00008000;
  26301. end;
  26302. procedure TI2C1A_I2C1ACON.clearI2CEN; inline;
  26303. begin
  26304. pTDefRegMap(@Self)^.clr := $00008000;
  26305. end;
  26306. procedure TI2C1A_I2C1ACON.setI2CEN(thebits : TBits_1); inline;
  26307. begin
  26308. if thebits = 0 then
  26309. pTDefRegMap(@Self)^.clr := $00008000
  26310. else
  26311. pTDefRegMap(@Self)^.&set := $00008000;
  26312. end;
  26313. function TI2C1A_I2C1ACON.getI2CEN : TBits_1; inline;
  26314. begin
  26315. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26316. end;
  26317. procedure TI2C1A_I2C1ACON.setw(thebits : TBits_32); inline;
  26318. begin
  26319. pTDefRegMap(@Self)^.val := thebits;
  26320. end;
  26321. function TI2C1A_I2C1ACON.getw : TBits_32; inline;
  26322. begin
  26323. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26324. end;
  26325. procedure TI2C1A_I2C3CON.setSEN; inline;
  26326. begin
  26327. pTDefRegMap(@Self)^.&set := $00000001;
  26328. end;
  26329. procedure TI2C1A_I2C3CON.clearSEN; inline;
  26330. begin
  26331. pTDefRegMap(@Self)^.clr := $00000001;
  26332. end;
  26333. procedure TI2C1A_I2C3CON.setSEN(thebits : TBits_1); inline;
  26334. begin
  26335. if thebits = 0 then
  26336. pTDefRegMap(@Self)^.clr := $00000001
  26337. else
  26338. pTDefRegMap(@Self)^.&set := $00000001;
  26339. end;
  26340. function TI2C1A_I2C3CON.getSEN : TBits_1; inline;
  26341. begin
  26342. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26343. end;
  26344. procedure TI2C1A_I2C3CON.setRSEN; inline;
  26345. begin
  26346. pTDefRegMap(@Self)^.&set := $00000002;
  26347. end;
  26348. procedure TI2C1A_I2C3CON.clearRSEN; inline;
  26349. begin
  26350. pTDefRegMap(@Self)^.clr := $00000002;
  26351. end;
  26352. procedure TI2C1A_I2C3CON.setRSEN(thebits : TBits_1); inline;
  26353. begin
  26354. if thebits = 0 then
  26355. pTDefRegMap(@Self)^.clr := $00000002
  26356. else
  26357. pTDefRegMap(@Self)^.&set := $00000002;
  26358. end;
  26359. function TI2C1A_I2C3CON.getRSEN : TBits_1; inline;
  26360. begin
  26361. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26362. end;
  26363. procedure TI2C1A_I2C3CON.setPEN; inline;
  26364. begin
  26365. pTDefRegMap(@Self)^.&set := $00000004;
  26366. end;
  26367. procedure TI2C1A_I2C3CON.clearPEN; inline;
  26368. begin
  26369. pTDefRegMap(@Self)^.clr := $00000004;
  26370. end;
  26371. procedure TI2C1A_I2C3CON.setPEN(thebits : TBits_1); inline;
  26372. begin
  26373. if thebits = 0 then
  26374. pTDefRegMap(@Self)^.clr := $00000004
  26375. else
  26376. pTDefRegMap(@Self)^.&set := $00000004;
  26377. end;
  26378. function TI2C1A_I2C3CON.getPEN : TBits_1; inline;
  26379. begin
  26380. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26381. end;
  26382. procedure TI2C1A_I2C3CON.setRCEN; inline;
  26383. begin
  26384. pTDefRegMap(@Self)^.&set := $00000008;
  26385. end;
  26386. procedure TI2C1A_I2C3CON.clearRCEN; inline;
  26387. begin
  26388. pTDefRegMap(@Self)^.clr := $00000008;
  26389. end;
  26390. procedure TI2C1A_I2C3CON.setRCEN(thebits : TBits_1); inline;
  26391. begin
  26392. if thebits = 0 then
  26393. pTDefRegMap(@Self)^.clr := $00000008
  26394. else
  26395. pTDefRegMap(@Self)^.&set := $00000008;
  26396. end;
  26397. function TI2C1A_I2C3CON.getRCEN : TBits_1; inline;
  26398. begin
  26399. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26400. end;
  26401. procedure TI2C1A_I2C3CON.setACKEN; inline;
  26402. begin
  26403. pTDefRegMap(@Self)^.&set := $00000010;
  26404. end;
  26405. procedure TI2C1A_I2C3CON.clearACKEN; inline;
  26406. begin
  26407. pTDefRegMap(@Self)^.clr := $00000010;
  26408. end;
  26409. procedure TI2C1A_I2C3CON.setACKEN(thebits : TBits_1); inline;
  26410. begin
  26411. if thebits = 0 then
  26412. pTDefRegMap(@Self)^.clr := $00000010
  26413. else
  26414. pTDefRegMap(@Self)^.&set := $00000010;
  26415. end;
  26416. function TI2C1A_I2C3CON.getACKEN : TBits_1; inline;
  26417. begin
  26418. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26419. end;
  26420. procedure TI2C1A_I2C3CON.setACKDT; inline;
  26421. begin
  26422. pTDefRegMap(@Self)^.&set := $00000020;
  26423. end;
  26424. procedure TI2C1A_I2C3CON.clearACKDT; inline;
  26425. begin
  26426. pTDefRegMap(@Self)^.clr := $00000020;
  26427. end;
  26428. procedure TI2C1A_I2C3CON.setACKDT(thebits : TBits_1); inline;
  26429. begin
  26430. if thebits = 0 then
  26431. pTDefRegMap(@Self)^.clr := $00000020
  26432. else
  26433. pTDefRegMap(@Self)^.&set := $00000020;
  26434. end;
  26435. function TI2C1A_I2C3CON.getACKDT : TBits_1; inline;
  26436. begin
  26437. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26438. end;
  26439. procedure TI2C1A_I2C3CON.setSTREN; inline;
  26440. begin
  26441. pTDefRegMap(@Self)^.&set := $00000040;
  26442. end;
  26443. procedure TI2C1A_I2C3CON.clearSTREN; inline;
  26444. begin
  26445. pTDefRegMap(@Self)^.clr := $00000040;
  26446. end;
  26447. procedure TI2C1A_I2C3CON.setSTREN(thebits : TBits_1); inline;
  26448. begin
  26449. if thebits = 0 then
  26450. pTDefRegMap(@Self)^.clr := $00000040
  26451. else
  26452. pTDefRegMap(@Self)^.&set := $00000040;
  26453. end;
  26454. function TI2C1A_I2C3CON.getSTREN : TBits_1; inline;
  26455. begin
  26456. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  26457. end;
  26458. procedure TI2C1A_I2C3CON.setGCEN; inline;
  26459. begin
  26460. pTDefRegMap(@Self)^.&set := $00000080;
  26461. end;
  26462. procedure TI2C1A_I2C3CON.clearGCEN; inline;
  26463. begin
  26464. pTDefRegMap(@Self)^.clr := $00000080;
  26465. end;
  26466. procedure TI2C1A_I2C3CON.setGCEN(thebits : TBits_1); inline;
  26467. begin
  26468. if thebits = 0 then
  26469. pTDefRegMap(@Self)^.clr := $00000080
  26470. else
  26471. pTDefRegMap(@Self)^.&set := $00000080;
  26472. end;
  26473. function TI2C1A_I2C3CON.getGCEN : TBits_1; inline;
  26474. begin
  26475. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  26476. end;
  26477. procedure TI2C1A_I2C3CON.setSMEN; inline;
  26478. begin
  26479. pTDefRegMap(@Self)^.&set := $00000100;
  26480. end;
  26481. procedure TI2C1A_I2C3CON.clearSMEN; inline;
  26482. begin
  26483. pTDefRegMap(@Self)^.clr := $00000100;
  26484. end;
  26485. procedure TI2C1A_I2C3CON.setSMEN(thebits : TBits_1); inline;
  26486. begin
  26487. if thebits = 0 then
  26488. pTDefRegMap(@Self)^.clr := $00000100
  26489. else
  26490. pTDefRegMap(@Self)^.&set := $00000100;
  26491. end;
  26492. function TI2C1A_I2C3CON.getSMEN : TBits_1; inline;
  26493. begin
  26494. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  26495. end;
  26496. procedure TI2C1A_I2C3CON.setDISSLW; inline;
  26497. begin
  26498. pTDefRegMap(@Self)^.&set := $00000200;
  26499. end;
  26500. procedure TI2C1A_I2C3CON.clearDISSLW; inline;
  26501. begin
  26502. pTDefRegMap(@Self)^.clr := $00000200;
  26503. end;
  26504. procedure TI2C1A_I2C3CON.setDISSLW(thebits : TBits_1); inline;
  26505. begin
  26506. if thebits = 0 then
  26507. pTDefRegMap(@Self)^.clr := $00000200
  26508. else
  26509. pTDefRegMap(@Self)^.&set := $00000200;
  26510. end;
  26511. function TI2C1A_I2C3CON.getDISSLW : TBits_1; inline;
  26512. begin
  26513. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  26514. end;
  26515. procedure TI2C1A_I2C3CON.setA10M; inline;
  26516. begin
  26517. pTDefRegMap(@Self)^.&set := $00000400;
  26518. end;
  26519. procedure TI2C1A_I2C3CON.clearA10M; inline;
  26520. begin
  26521. pTDefRegMap(@Self)^.clr := $00000400;
  26522. end;
  26523. procedure TI2C1A_I2C3CON.setA10M(thebits : TBits_1); inline;
  26524. begin
  26525. if thebits = 0 then
  26526. pTDefRegMap(@Self)^.clr := $00000400
  26527. else
  26528. pTDefRegMap(@Self)^.&set := $00000400;
  26529. end;
  26530. function TI2C1A_I2C3CON.getA10M : TBits_1; inline;
  26531. begin
  26532. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  26533. end;
  26534. procedure TI2C1A_I2C3CON.setSTRICT; inline;
  26535. begin
  26536. pTDefRegMap(@Self)^.&set := $00000800;
  26537. end;
  26538. procedure TI2C1A_I2C3CON.clearSTRICT; inline;
  26539. begin
  26540. pTDefRegMap(@Self)^.clr := $00000800;
  26541. end;
  26542. procedure TI2C1A_I2C3CON.setSTRICT(thebits : TBits_1); inline;
  26543. begin
  26544. if thebits = 0 then
  26545. pTDefRegMap(@Self)^.clr := $00000800
  26546. else
  26547. pTDefRegMap(@Self)^.&set := $00000800;
  26548. end;
  26549. function TI2C1A_I2C3CON.getSTRICT : TBits_1; inline;
  26550. begin
  26551. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  26552. end;
  26553. procedure TI2C1A_I2C3CON.setSCLREL; inline;
  26554. begin
  26555. pTDefRegMap(@Self)^.&set := $00001000;
  26556. end;
  26557. procedure TI2C1A_I2C3CON.clearSCLREL; inline;
  26558. begin
  26559. pTDefRegMap(@Self)^.clr := $00001000;
  26560. end;
  26561. procedure TI2C1A_I2C3CON.setSCLREL(thebits : TBits_1); inline;
  26562. begin
  26563. if thebits = 0 then
  26564. pTDefRegMap(@Self)^.clr := $00001000
  26565. else
  26566. pTDefRegMap(@Self)^.&set := $00001000;
  26567. end;
  26568. function TI2C1A_I2C3CON.getSCLREL : TBits_1; inline;
  26569. begin
  26570. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  26571. end;
  26572. procedure TI2C1A_I2C3CON.setSIDL; inline;
  26573. begin
  26574. pTDefRegMap(@Self)^.&set := $00002000;
  26575. end;
  26576. procedure TI2C1A_I2C3CON.clearSIDL; inline;
  26577. begin
  26578. pTDefRegMap(@Self)^.clr := $00002000;
  26579. end;
  26580. procedure TI2C1A_I2C3CON.setSIDL(thebits : TBits_1); inline;
  26581. begin
  26582. if thebits = 0 then
  26583. pTDefRegMap(@Self)^.clr := $00002000
  26584. else
  26585. pTDefRegMap(@Self)^.&set := $00002000;
  26586. end;
  26587. function TI2C1A_I2C3CON.getSIDL : TBits_1; inline;
  26588. begin
  26589. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26590. end;
  26591. procedure TI2C1A_I2C3CON.setON; inline;
  26592. begin
  26593. pTDefRegMap(@Self)^.&set := $00008000;
  26594. end;
  26595. procedure TI2C1A_I2C3CON.clearON; inline;
  26596. begin
  26597. pTDefRegMap(@Self)^.clr := $00008000;
  26598. end;
  26599. procedure TI2C1A_I2C3CON.setON(thebits : TBits_1); inline;
  26600. begin
  26601. if thebits = 0 then
  26602. pTDefRegMap(@Self)^.clr := $00008000
  26603. else
  26604. pTDefRegMap(@Self)^.&set := $00008000;
  26605. end;
  26606. function TI2C1A_I2C3CON.getON : TBits_1; inline;
  26607. begin
  26608. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26609. end;
  26610. procedure TI2C1A_I2C3CON.setIPMIEN; inline;
  26611. begin
  26612. pTDefRegMap(@Self)^.&set := $00000800;
  26613. end;
  26614. procedure TI2C1A_I2C3CON.clearIPMIEN; inline;
  26615. begin
  26616. pTDefRegMap(@Self)^.clr := $00000800;
  26617. end;
  26618. procedure TI2C1A_I2C3CON.setIPMIEN(thebits : TBits_1); inline;
  26619. begin
  26620. if thebits = 0 then
  26621. pTDefRegMap(@Self)^.clr := $00000800
  26622. else
  26623. pTDefRegMap(@Self)^.&set := $00000800;
  26624. end;
  26625. function TI2C1A_I2C3CON.getIPMIEN : TBits_1; inline;
  26626. begin
  26627. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  26628. end;
  26629. procedure TI2C1A_I2C3CON.setI2CSIDL; inline;
  26630. begin
  26631. pTDefRegMap(@Self)^.&set := $00002000;
  26632. end;
  26633. procedure TI2C1A_I2C3CON.clearI2CSIDL; inline;
  26634. begin
  26635. pTDefRegMap(@Self)^.clr := $00002000;
  26636. end;
  26637. procedure TI2C1A_I2C3CON.setI2CSIDL(thebits : TBits_1); inline;
  26638. begin
  26639. if thebits = 0 then
  26640. pTDefRegMap(@Self)^.clr := $00002000
  26641. else
  26642. pTDefRegMap(@Self)^.&set := $00002000;
  26643. end;
  26644. function TI2C1A_I2C3CON.getI2CSIDL : TBits_1; inline;
  26645. begin
  26646. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  26647. end;
  26648. procedure TI2C1A_I2C3CON.setI2CEN; inline;
  26649. begin
  26650. pTDefRegMap(@Self)^.&set := $00008000;
  26651. end;
  26652. procedure TI2C1A_I2C3CON.clearI2CEN; inline;
  26653. begin
  26654. pTDefRegMap(@Self)^.clr := $00008000;
  26655. end;
  26656. procedure TI2C1A_I2C3CON.setI2CEN(thebits : TBits_1); inline;
  26657. begin
  26658. if thebits = 0 then
  26659. pTDefRegMap(@Self)^.clr := $00008000
  26660. else
  26661. pTDefRegMap(@Self)^.&set := $00008000;
  26662. end;
  26663. function TI2C1A_I2C3CON.getI2CEN : TBits_1; inline;
  26664. begin
  26665. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26666. end;
  26667. procedure TI2C1A_I2C3CON.setw(thebits : TBits_32); inline;
  26668. begin
  26669. pTDefRegMap(@Self)^.val := thebits;
  26670. end;
  26671. function TI2C1A_I2C3CON.getw : TBits_32; inline;
  26672. begin
  26673. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26674. end;
  26675. procedure TI2C1A_I2C1ASTAT.setTBF; inline;
  26676. begin
  26677. pTDefRegMap(@Self)^.&set := $00000001;
  26678. end;
  26679. procedure TI2C1A_I2C1ASTAT.clearTBF; inline;
  26680. begin
  26681. pTDefRegMap(@Self)^.clr := $00000001;
  26682. end;
  26683. procedure TI2C1A_I2C1ASTAT.setTBF(thebits : TBits_1); inline;
  26684. begin
  26685. if thebits = 0 then
  26686. pTDefRegMap(@Self)^.clr := $00000001
  26687. else
  26688. pTDefRegMap(@Self)^.&set := $00000001;
  26689. end;
  26690. function TI2C1A_I2C1ASTAT.getTBF : TBits_1; inline;
  26691. begin
  26692. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26693. end;
  26694. procedure TI2C1A_I2C1ASTAT.setRBF; inline;
  26695. begin
  26696. pTDefRegMap(@Self)^.&set := $00000002;
  26697. end;
  26698. procedure TI2C1A_I2C1ASTAT.clearRBF; inline;
  26699. begin
  26700. pTDefRegMap(@Self)^.clr := $00000002;
  26701. end;
  26702. procedure TI2C1A_I2C1ASTAT.setRBF(thebits : TBits_1); inline;
  26703. begin
  26704. if thebits = 0 then
  26705. pTDefRegMap(@Self)^.clr := $00000002
  26706. else
  26707. pTDefRegMap(@Self)^.&set := $00000002;
  26708. end;
  26709. function TI2C1A_I2C1ASTAT.getRBF : TBits_1; inline;
  26710. begin
  26711. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26712. end;
  26713. procedure TI2C1A_I2C1ASTAT.setR_W; inline;
  26714. begin
  26715. pTDefRegMap(@Self)^.&set := $00000004;
  26716. end;
  26717. procedure TI2C1A_I2C1ASTAT.clearR_W; inline;
  26718. begin
  26719. pTDefRegMap(@Self)^.clr := $00000004;
  26720. end;
  26721. procedure TI2C1A_I2C1ASTAT.setR_W(thebits : TBits_1); inline;
  26722. begin
  26723. if thebits = 0 then
  26724. pTDefRegMap(@Self)^.clr := $00000004
  26725. else
  26726. pTDefRegMap(@Self)^.&set := $00000004;
  26727. end;
  26728. function TI2C1A_I2C1ASTAT.getR_W : TBits_1; inline;
  26729. begin
  26730. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  26731. end;
  26732. procedure TI2C1A_I2C1ASTAT.setS; inline;
  26733. begin
  26734. pTDefRegMap(@Self)^.&set := $00000008;
  26735. end;
  26736. procedure TI2C1A_I2C1ASTAT.clearS; inline;
  26737. begin
  26738. pTDefRegMap(@Self)^.clr := $00000008;
  26739. end;
  26740. procedure TI2C1A_I2C1ASTAT.setS(thebits : TBits_1); inline;
  26741. begin
  26742. if thebits = 0 then
  26743. pTDefRegMap(@Self)^.clr := $00000008
  26744. else
  26745. pTDefRegMap(@Self)^.&set := $00000008;
  26746. end;
  26747. function TI2C1A_I2C1ASTAT.getS : TBits_1; inline;
  26748. begin
  26749. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  26750. end;
  26751. procedure TI2C1A_I2C1ASTAT.setP; inline;
  26752. begin
  26753. pTDefRegMap(@Self)^.&set := $00000010;
  26754. end;
  26755. procedure TI2C1A_I2C1ASTAT.clearP; inline;
  26756. begin
  26757. pTDefRegMap(@Self)^.clr := $00000010;
  26758. end;
  26759. procedure TI2C1A_I2C1ASTAT.setP(thebits : TBits_1); inline;
  26760. begin
  26761. if thebits = 0 then
  26762. pTDefRegMap(@Self)^.clr := $00000010
  26763. else
  26764. pTDefRegMap(@Self)^.&set := $00000010;
  26765. end;
  26766. function TI2C1A_I2C1ASTAT.getP : TBits_1; inline;
  26767. begin
  26768. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  26769. end;
  26770. procedure TI2C1A_I2C1ASTAT.setD_A; inline;
  26771. begin
  26772. pTDefRegMap(@Self)^.&set := $00000020;
  26773. end;
  26774. procedure TI2C1A_I2C1ASTAT.clearD_A; inline;
  26775. begin
  26776. pTDefRegMap(@Self)^.clr := $00000020;
  26777. end;
  26778. procedure TI2C1A_I2C1ASTAT.setD_A(thebits : TBits_1); inline;
  26779. begin
  26780. if thebits = 0 then
  26781. pTDefRegMap(@Self)^.clr := $00000020
  26782. else
  26783. pTDefRegMap(@Self)^.&set := $00000020;
  26784. end;
  26785. function TI2C1A_I2C1ASTAT.getD_A : TBits_1; inline;
  26786. begin
  26787. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  26788. end;
  26789. procedure TI2C1A_I2C1ASTAT.setI2COV; inline;
  26790. begin
  26791. pTDefRegMap(@Self)^.&set := $00000040;
  26792. end;
  26793. procedure TI2C1A_I2C1ASTAT.clearI2COV; inline;
  26794. begin
  26795. pTDefRegMap(@Self)^.clr := $00000040;
  26796. end;
  26797. procedure TI2C1A_I2C1ASTAT.setI2COV(thebits : TBits_1); inline;
  26798. begin
  26799. if thebits = 0 then
  26800. pTDefRegMap(@Self)^.clr := $00000040
  26801. else
  26802. pTDefRegMap(@Self)^.&set := $00000040;
  26803. end;
  26804. function TI2C1A_I2C1ASTAT.getI2COV : TBits_1; inline;
  26805. begin
  26806. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  26807. end;
  26808. procedure TI2C1A_I2C1ASTAT.setIWCOL; inline;
  26809. begin
  26810. pTDefRegMap(@Self)^.&set := $00000080;
  26811. end;
  26812. procedure TI2C1A_I2C1ASTAT.clearIWCOL; inline;
  26813. begin
  26814. pTDefRegMap(@Self)^.clr := $00000080;
  26815. end;
  26816. procedure TI2C1A_I2C1ASTAT.setIWCOL(thebits : TBits_1); inline;
  26817. begin
  26818. if thebits = 0 then
  26819. pTDefRegMap(@Self)^.clr := $00000080
  26820. else
  26821. pTDefRegMap(@Self)^.&set := $00000080;
  26822. end;
  26823. function TI2C1A_I2C1ASTAT.getIWCOL : TBits_1; inline;
  26824. begin
  26825. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  26826. end;
  26827. procedure TI2C1A_I2C1ASTAT.setADD10; inline;
  26828. begin
  26829. pTDefRegMap(@Self)^.&set := $00000100;
  26830. end;
  26831. procedure TI2C1A_I2C1ASTAT.clearADD10; inline;
  26832. begin
  26833. pTDefRegMap(@Self)^.clr := $00000100;
  26834. end;
  26835. procedure TI2C1A_I2C1ASTAT.setADD10(thebits : TBits_1); inline;
  26836. begin
  26837. if thebits = 0 then
  26838. pTDefRegMap(@Self)^.clr := $00000100
  26839. else
  26840. pTDefRegMap(@Self)^.&set := $00000100;
  26841. end;
  26842. function TI2C1A_I2C1ASTAT.getADD10 : TBits_1; inline;
  26843. begin
  26844. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  26845. end;
  26846. procedure TI2C1A_I2C1ASTAT.setGCSTAT; inline;
  26847. begin
  26848. pTDefRegMap(@Self)^.&set := $00000200;
  26849. end;
  26850. procedure TI2C1A_I2C1ASTAT.clearGCSTAT; inline;
  26851. begin
  26852. pTDefRegMap(@Self)^.clr := $00000200;
  26853. end;
  26854. procedure TI2C1A_I2C1ASTAT.setGCSTAT(thebits : TBits_1); inline;
  26855. begin
  26856. if thebits = 0 then
  26857. pTDefRegMap(@Self)^.clr := $00000200
  26858. else
  26859. pTDefRegMap(@Self)^.&set := $00000200;
  26860. end;
  26861. function TI2C1A_I2C1ASTAT.getGCSTAT : TBits_1; inline;
  26862. begin
  26863. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  26864. end;
  26865. procedure TI2C1A_I2C1ASTAT.setBCL; inline;
  26866. begin
  26867. pTDefRegMap(@Self)^.&set := $00000400;
  26868. end;
  26869. procedure TI2C1A_I2C1ASTAT.clearBCL; inline;
  26870. begin
  26871. pTDefRegMap(@Self)^.clr := $00000400;
  26872. end;
  26873. procedure TI2C1A_I2C1ASTAT.setBCL(thebits : TBits_1); inline;
  26874. begin
  26875. if thebits = 0 then
  26876. pTDefRegMap(@Self)^.clr := $00000400
  26877. else
  26878. pTDefRegMap(@Self)^.&set := $00000400;
  26879. end;
  26880. function TI2C1A_I2C1ASTAT.getBCL : TBits_1; inline;
  26881. begin
  26882. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  26883. end;
  26884. procedure TI2C1A_I2C1ASTAT.setTRSTAT; inline;
  26885. begin
  26886. pTDefRegMap(@Self)^.&set := $00004000;
  26887. end;
  26888. procedure TI2C1A_I2C1ASTAT.clearTRSTAT; inline;
  26889. begin
  26890. pTDefRegMap(@Self)^.clr := $00004000;
  26891. end;
  26892. procedure TI2C1A_I2C1ASTAT.setTRSTAT(thebits : TBits_1); inline;
  26893. begin
  26894. if thebits = 0 then
  26895. pTDefRegMap(@Self)^.clr := $00004000
  26896. else
  26897. pTDefRegMap(@Self)^.&set := $00004000;
  26898. end;
  26899. function TI2C1A_I2C1ASTAT.getTRSTAT : TBits_1; inline;
  26900. begin
  26901. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  26902. end;
  26903. procedure TI2C1A_I2C1ASTAT.setACKSTAT; inline;
  26904. begin
  26905. pTDefRegMap(@Self)^.&set := $00008000;
  26906. end;
  26907. procedure TI2C1A_I2C1ASTAT.clearACKSTAT; inline;
  26908. begin
  26909. pTDefRegMap(@Self)^.clr := $00008000;
  26910. end;
  26911. procedure TI2C1A_I2C1ASTAT.setACKSTAT(thebits : TBits_1); inline;
  26912. begin
  26913. if thebits = 0 then
  26914. pTDefRegMap(@Self)^.clr := $00008000
  26915. else
  26916. pTDefRegMap(@Self)^.&set := $00008000;
  26917. end;
  26918. function TI2C1A_I2C1ASTAT.getACKSTAT : TBits_1; inline;
  26919. begin
  26920. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  26921. end;
  26922. procedure TI2C1A_I2C1ASTAT.setI2CPOV; inline;
  26923. begin
  26924. pTDefRegMap(@Self)^.&set := $00000040;
  26925. end;
  26926. procedure TI2C1A_I2C1ASTAT.clearI2CPOV; inline;
  26927. begin
  26928. pTDefRegMap(@Self)^.clr := $00000040;
  26929. end;
  26930. procedure TI2C1A_I2C1ASTAT.setI2CPOV(thebits : TBits_1); inline;
  26931. begin
  26932. if thebits = 0 then
  26933. pTDefRegMap(@Self)^.clr := $00000040
  26934. else
  26935. pTDefRegMap(@Self)^.&set := $00000040;
  26936. end;
  26937. function TI2C1A_I2C1ASTAT.getI2CPOV : TBits_1; inline;
  26938. begin
  26939. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  26940. end;
  26941. procedure TI2C1A_I2C1ASTAT.setw(thebits : TBits_32); inline;
  26942. begin
  26943. pTDefRegMap(@Self)^.val := thebits;
  26944. end;
  26945. function TI2C1A_I2C1ASTAT.getw : TBits_32; inline;
  26946. begin
  26947. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  26948. end;
  26949. procedure TI2C1A_I2C3STAT.setTBF; inline;
  26950. begin
  26951. pTDefRegMap(@Self)^.&set := $00000001;
  26952. end;
  26953. procedure TI2C1A_I2C3STAT.clearTBF; inline;
  26954. begin
  26955. pTDefRegMap(@Self)^.clr := $00000001;
  26956. end;
  26957. procedure TI2C1A_I2C3STAT.setTBF(thebits : TBits_1); inline;
  26958. begin
  26959. if thebits = 0 then
  26960. pTDefRegMap(@Self)^.clr := $00000001
  26961. else
  26962. pTDefRegMap(@Self)^.&set := $00000001;
  26963. end;
  26964. function TI2C1A_I2C3STAT.getTBF : TBits_1; inline;
  26965. begin
  26966. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  26967. end;
  26968. procedure TI2C1A_I2C3STAT.setRBF; inline;
  26969. begin
  26970. pTDefRegMap(@Self)^.&set := $00000002;
  26971. end;
  26972. procedure TI2C1A_I2C3STAT.clearRBF; inline;
  26973. begin
  26974. pTDefRegMap(@Self)^.clr := $00000002;
  26975. end;
  26976. procedure TI2C1A_I2C3STAT.setRBF(thebits : TBits_1); inline;
  26977. begin
  26978. if thebits = 0 then
  26979. pTDefRegMap(@Self)^.clr := $00000002
  26980. else
  26981. pTDefRegMap(@Self)^.&set := $00000002;
  26982. end;
  26983. function TI2C1A_I2C3STAT.getRBF : TBits_1; inline;
  26984. begin
  26985. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  26986. end;
  26987. procedure TI2C1A_I2C3STAT.setR_W; inline;
  26988. begin
  26989. pTDefRegMap(@Self)^.&set := $00000004;
  26990. end;
  26991. procedure TI2C1A_I2C3STAT.clearR_W; inline;
  26992. begin
  26993. pTDefRegMap(@Self)^.clr := $00000004;
  26994. end;
  26995. procedure TI2C1A_I2C3STAT.setR_W(thebits : TBits_1); inline;
  26996. begin
  26997. if thebits = 0 then
  26998. pTDefRegMap(@Self)^.clr := $00000004
  26999. else
  27000. pTDefRegMap(@Self)^.&set := $00000004;
  27001. end;
  27002. function TI2C1A_I2C3STAT.getR_W : TBits_1; inline;
  27003. begin
  27004. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27005. end;
  27006. procedure TI2C1A_I2C3STAT.setS; inline;
  27007. begin
  27008. pTDefRegMap(@Self)^.&set := $00000008;
  27009. end;
  27010. procedure TI2C1A_I2C3STAT.clearS; inline;
  27011. begin
  27012. pTDefRegMap(@Self)^.clr := $00000008;
  27013. end;
  27014. procedure TI2C1A_I2C3STAT.setS(thebits : TBits_1); inline;
  27015. begin
  27016. if thebits = 0 then
  27017. pTDefRegMap(@Self)^.clr := $00000008
  27018. else
  27019. pTDefRegMap(@Self)^.&set := $00000008;
  27020. end;
  27021. function TI2C1A_I2C3STAT.getS : TBits_1; inline;
  27022. begin
  27023. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27024. end;
  27025. procedure TI2C1A_I2C3STAT.setP; inline;
  27026. begin
  27027. pTDefRegMap(@Self)^.&set := $00000010;
  27028. end;
  27029. procedure TI2C1A_I2C3STAT.clearP; inline;
  27030. begin
  27031. pTDefRegMap(@Self)^.clr := $00000010;
  27032. end;
  27033. procedure TI2C1A_I2C3STAT.setP(thebits : TBits_1); inline;
  27034. begin
  27035. if thebits = 0 then
  27036. pTDefRegMap(@Self)^.clr := $00000010
  27037. else
  27038. pTDefRegMap(@Self)^.&set := $00000010;
  27039. end;
  27040. function TI2C1A_I2C3STAT.getP : TBits_1; inline;
  27041. begin
  27042. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27043. end;
  27044. procedure TI2C1A_I2C3STAT.setD_A; inline;
  27045. begin
  27046. pTDefRegMap(@Self)^.&set := $00000020;
  27047. end;
  27048. procedure TI2C1A_I2C3STAT.clearD_A; inline;
  27049. begin
  27050. pTDefRegMap(@Self)^.clr := $00000020;
  27051. end;
  27052. procedure TI2C1A_I2C3STAT.setD_A(thebits : TBits_1); inline;
  27053. begin
  27054. if thebits = 0 then
  27055. pTDefRegMap(@Self)^.clr := $00000020
  27056. else
  27057. pTDefRegMap(@Self)^.&set := $00000020;
  27058. end;
  27059. function TI2C1A_I2C3STAT.getD_A : TBits_1; inline;
  27060. begin
  27061. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27062. end;
  27063. procedure TI2C1A_I2C3STAT.setI2COV; inline;
  27064. begin
  27065. pTDefRegMap(@Self)^.&set := $00000040;
  27066. end;
  27067. procedure TI2C1A_I2C3STAT.clearI2COV; inline;
  27068. begin
  27069. pTDefRegMap(@Self)^.clr := $00000040;
  27070. end;
  27071. procedure TI2C1A_I2C3STAT.setI2COV(thebits : TBits_1); inline;
  27072. begin
  27073. if thebits = 0 then
  27074. pTDefRegMap(@Self)^.clr := $00000040
  27075. else
  27076. pTDefRegMap(@Self)^.&set := $00000040;
  27077. end;
  27078. function TI2C1A_I2C3STAT.getI2COV : TBits_1; inline;
  27079. begin
  27080. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27081. end;
  27082. procedure TI2C1A_I2C3STAT.setIWCOL; inline;
  27083. begin
  27084. pTDefRegMap(@Self)^.&set := $00000080;
  27085. end;
  27086. procedure TI2C1A_I2C3STAT.clearIWCOL; inline;
  27087. begin
  27088. pTDefRegMap(@Self)^.clr := $00000080;
  27089. end;
  27090. procedure TI2C1A_I2C3STAT.setIWCOL(thebits : TBits_1); inline;
  27091. begin
  27092. if thebits = 0 then
  27093. pTDefRegMap(@Self)^.clr := $00000080
  27094. else
  27095. pTDefRegMap(@Self)^.&set := $00000080;
  27096. end;
  27097. function TI2C1A_I2C3STAT.getIWCOL : TBits_1; inline;
  27098. begin
  27099. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27100. end;
  27101. procedure TI2C1A_I2C3STAT.setADD10; inline;
  27102. begin
  27103. pTDefRegMap(@Self)^.&set := $00000100;
  27104. end;
  27105. procedure TI2C1A_I2C3STAT.clearADD10; inline;
  27106. begin
  27107. pTDefRegMap(@Self)^.clr := $00000100;
  27108. end;
  27109. procedure TI2C1A_I2C3STAT.setADD10(thebits : TBits_1); inline;
  27110. begin
  27111. if thebits = 0 then
  27112. pTDefRegMap(@Self)^.clr := $00000100
  27113. else
  27114. pTDefRegMap(@Self)^.&set := $00000100;
  27115. end;
  27116. function TI2C1A_I2C3STAT.getADD10 : TBits_1; inline;
  27117. begin
  27118. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27119. end;
  27120. procedure TI2C1A_I2C3STAT.setGCSTAT; inline;
  27121. begin
  27122. pTDefRegMap(@Self)^.&set := $00000200;
  27123. end;
  27124. procedure TI2C1A_I2C3STAT.clearGCSTAT; inline;
  27125. begin
  27126. pTDefRegMap(@Self)^.clr := $00000200;
  27127. end;
  27128. procedure TI2C1A_I2C3STAT.setGCSTAT(thebits : TBits_1); inline;
  27129. begin
  27130. if thebits = 0 then
  27131. pTDefRegMap(@Self)^.clr := $00000200
  27132. else
  27133. pTDefRegMap(@Self)^.&set := $00000200;
  27134. end;
  27135. function TI2C1A_I2C3STAT.getGCSTAT : TBits_1; inline;
  27136. begin
  27137. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27138. end;
  27139. procedure TI2C1A_I2C3STAT.setBCL; inline;
  27140. begin
  27141. pTDefRegMap(@Self)^.&set := $00000400;
  27142. end;
  27143. procedure TI2C1A_I2C3STAT.clearBCL; inline;
  27144. begin
  27145. pTDefRegMap(@Self)^.clr := $00000400;
  27146. end;
  27147. procedure TI2C1A_I2C3STAT.setBCL(thebits : TBits_1); inline;
  27148. begin
  27149. if thebits = 0 then
  27150. pTDefRegMap(@Self)^.clr := $00000400
  27151. else
  27152. pTDefRegMap(@Self)^.&set := $00000400;
  27153. end;
  27154. function TI2C1A_I2C3STAT.getBCL : TBits_1; inline;
  27155. begin
  27156. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27157. end;
  27158. procedure TI2C1A_I2C3STAT.setTRSTAT; inline;
  27159. begin
  27160. pTDefRegMap(@Self)^.&set := $00004000;
  27161. end;
  27162. procedure TI2C1A_I2C3STAT.clearTRSTAT; inline;
  27163. begin
  27164. pTDefRegMap(@Self)^.clr := $00004000;
  27165. end;
  27166. procedure TI2C1A_I2C3STAT.setTRSTAT(thebits : TBits_1); inline;
  27167. begin
  27168. if thebits = 0 then
  27169. pTDefRegMap(@Self)^.clr := $00004000
  27170. else
  27171. pTDefRegMap(@Self)^.&set := $00004000;
  27172. end;
  27173. function TI2C1A_I2C3STAT.getTRSTAT : TBits_1; inline;
  27174. begin
  27175. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  27176. end;
  27177. procedure TI2C1A_I2C3STAT.setACKSTAT; inline;
  27178. begin
  27179. pTDefRegMap(@Self)^.&set := $00008000;
  27180. end;
  27181. procedure TI2C1A_I2C3STAT.clearACKSTAT; inline;
  27182. begin
  27183. pTDefRegMap(@Self)^.clr := $00008000;
  27184. end;
  27185. procedure TI2C1A_I2C3STAT.setACKSTAT(thebits : TBits_1); inline;
  27186. begin
  27187. if thebits = 0 then
  27188. pTDefRegMap(@Self)^.clr := $00008000
  27189. else
  27190. pTDefRegMap(@Self)^.&set := $00008000;
  27191. end;
  27192. function TI2C1A_I2C3STAT.getACKSTAT : TBits_1; inline;
  27193. begin
  27194. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27195. end;
  27196. procedure TI2C1A_I2C3STAT.setI2CPOV; inline;
  27197. begin
  27198. pTDefRegMap(@Self)^.&set := $00000040;
  27199. end;
  27200. procedure TI2C1A_I2C3STAT.clearI2CPOV; inline;
  27201. begin
  27202. pTDefRegMap(@Self)^.clr := $00000040;
  27203. end;
  27204. procedure TI2C1A_I2C3STAT.setI2CPOV(thebits : TBits_1); inline;
  27205. begin
  27206. if thebits = 0 then
  27207. pTDefRegMap(@Self)^.clr := $00000040
  27208. else
  27209. pTDefRegMap(@Self)^.&set := $00000040;
  27210. end;
  27211. function TI2C1A_I2C3STAT.getI2CPOV : TBits_1; inline;
  27212. begin
  27213. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27214. end;
  27215. procedure TI2C1A_I2C3STAT.setw(thebits : TBits_32); inline;
  27216. begin
  27217. pTDefRegMap(@Self)^.val := thebits;
  27218. end;
  27219. function TI2C1A_I2C3STAT.getw : TBits_32; inline;
  27220. begin
  27221. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27222. end;
  27223. procedure TI2C2A_I2C2ACON.setSEN; inline;
  27224. begin
  27225. pTDefRegMap(@Self)^.&set := $00000001;
  27226. end;
  27227. procedure TI2C2A_I2C2ACON.clearSEN; inline;
  27228. begin
  27229. pTDefRegMap(@Self)^.clr := $00000001;
  27230. end;
  27231. procedure TI2C2A_I2C2ACON.setSEN(thebits : TBits_1); inline;
  27232. begin
  27233. if thebits = 0 then
  27234. pTDefRegMap(@Self)^.clr := $00000001
  27235. else
  27236. pTDefRegMap(@Self)^.&set := $00000001;
  27237. end;
  27238. function TI2C2A_I2C2ACON.getSEN : TBits_1; inline;
  27239. begin
  27240. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27241. end;
  27242. procedure TI2C2A_I2C2ACON.setRSEN; inline;
  27243. begin
  27244. pTDefRegMap(@Self)^.&set := $00000002;
  27245. end;
  27246. procedure TI2C2A_I2C2ACON.clearRSEN; inline;
  27247. begin
  27248. pTDefRegMap(@Self)^.clr := $00000002;
  27249. end;
  27250. procedure TI2C2A_I2C2ACON.setRSEN(thebits : TBits_1); inline;
  27251. begin
  27252. if thebits = 0 then
  27253. pTDefRegMap(@Self)^.clr := $00000002
  27254. else
  27255. pTDefRegMap(@Self)^.&set := $00000002;
  27256. end;
  27257. function TI2C2A_I2C2ACON.getRSEN : TBits_1; inline;
  27258. begin
  27259. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27260. end;
  27261. procedure TI2C2A_I2C2ACON.setPEN; inline;
  27262. begin
  27263. pTDefRegMap(@Self)^.&set := $00000004;
  27264. end;
  27265. procedure TI2C2A_I2C2ACON.clearPEN; inline;
  27266. begin
  27267. pTDefRegMap(@Self)^.clr := $00000004;
  27268. end;
  27269. procedure TI2C2A_I2C2ACON.setPEN(thebits : TBits_1); inline;
  27270. begin
  27271. if thebits = 0 then
  27272. pTDefRegMap(@Self)^.clr := $00000004
  27273. else
  27274. pTDefRegMap(@Self)^.&set := $00000004;
  27275. end;
  27276. function TI2C2A_I2C2ACON.getPEN : TBits_1; inline;
  27277. begin
  27278. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27279. end;
  27280. procedure TI2C2A_I2C2ACON.setRCEN; inline;
  27281. begin
  27282. pTDefRegMap(@Self)^.&set := $00000008;
  27283. end;
  27284. procedure TI2C2A_I2C2ACON.clearRCEN; inline;
  27285. begin
  27286. pTDefRegMap(@Self)^.clr := $00000008;
  27287. end;
  27288. procedure TI2C2A_I2C2ACON.setRCEN(thebits : TBits_1); inline;
  27289. begin
  27290. if thebits = 0 then
  27291. pTDefRegMap(@Self)^.clr := $00000008
  27292. else
  27293. pTDefRegMap(@Self)^.&set := $00000008;
  27294. end;
  27295. function TI2C2A_I2C2ACON.getRCEN : TBits_1; inline;
  27296. begin
  27297. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27298. end;
  27299. procedure TI2C2A_I2C2ACON.setACKEN; inline;
  27300. begin
  27301. pTDefRegMap(@Self)^.&set := $00000010;
  27302. end;
  27303. procedure TI2C2A_I2C2ACON.clearACKEN; inline;
  27304. begin
  27305. pTDefRegMap(@Self)^.clr := $00000010;
  27306. end;
  27307. procedure TI2C2A_I2C2ACON.setACKEN(thebits : TBits_1); inline;
  27308. begin
  27309. if thebits = 0 then
  27310. pTDefRegMap(@Self)^.clr := $00000010
  27311. else
  27312. pTDefRegMap(@Self)^.&set := $00000010;
  27313. end;
  27314. function TI2C2A_I2C2ACON.getACKEN : TBits_1; inline;
  27315. begin
  27316. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27317. end;
  27318. procedure TI2C2A_I2C2ACON.setACKDT; inline;
  27319. begin
  27320. pTDefRegMap(@Self)^.&set := $00000020;
  27321. end;
  27322. procedure TI2C2A_I2C2ACON.clearACKDT; inline;
  27323. begin
  27324. pTDefRegMap(@Self)^.clr := $00000020;
  27325. end;
  27326. procedure TI2C2A_I2C2ACON.setACKDT(thebits : TBits_1); inline;
  27327. begin
  27328. if thebits = 0 then
  27329. pTDefRegMap(@Self)^.clr := $00000020
  27330. else
  27331. pTDefRegMap(@Self)^.&set := $00000020;
  27332. end;
  27333. function TI2C2A_I2C2ACON.getACKDT : TBits_1; inline;
  27334. begin
  27335. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27336. end;
  27337. procedure TI2C2A_I2C2ACON.setSTREN; inline;
  27338. begin
  27339. pTDefRegMap(@Self)^.&set := $00000040;
  27340. end;
  27341. procedure TI2C2A_I2C2ACON.clearSTREN; inline;
  27342. begin
  27343. pTDefRegMap(@Self)^.clr := $00000040;
  27344. end;
  27345. procedure TI2C2A_I2C2ACON.setSTREN(thebits : TBits_1); inline;
  27346. begin
  27347. if thebits = 0 then
  27348. pTDefRegMap(@Self)^.clr := $00000040
  27349. else
  27350. pTDefRegMap(@Self)^.&set := $00000040;
  27351. end;
  27352. function TI2C2A_I2C2ACON.getSTREN : TBits_1; inline;
  27353. begin
  27354. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27355. end;
  27356. procedure TI2C2A_I2C2ACON.setGCEN; inline;
  27357. begin
  27358. pTDefRegMap(@Self)^.&set := $00000080;
  27359. end;
  27360. procedure TI2C2A_I2C2ACON.clearGCEN; inline;
  27361. begin
  27362. pTDefRegMap(@Self)^.clr := $00000080;
  27363. end;
  27364. procedure TI2C2A_I2C2ACON.setGCEN(thebits : TBits_1); inline;
  27365. begin
  27366. if thebits = 0 then
  27367. pTDefRegMap(@Self)^.clr := $00000080
  27368. else
  27369. pTDefRegMap(@Self)^.&set := $00000080;
  27370. end;
  27371. function TI2C2A_I2C2ACON.getGCEN : TBits_1; inline;
  27372. begin
  27373. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27374. end;
  27375. procedure TI2C2A_I2C2ACON.setSMEN; inline;
  27376. begin
  27377. pTDefRegMap(@Self)^.&set := $00000100;
  27378. end;
  27379. procedure TI2C2A_I2C2ACON.clearSMEN; inline;
  27380. begin
  27381. pTDefRegMap(@Self)^.clr := $00000100;
  27382. end;
  27383. procedure TI2C2A_I2C2ACON.setSMEN(thebits : TBits_1); inline;
  27384. begin
  27385. if thebits = 0 then
  27386. pTDefRegMap(@Self)^.clr := $00000100
  27387. else
  27388. pTDefRegMap(@Self)^.&set := $00000100;
  27389. end;
  27390. function TI2C2A_I2C2ACON.getSMEN : TBits_1; inline;
  27391. begin
  27392. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27393. end;
  27394. procedure TI2C2A_I2C2ACON.setDISSLW; inline;
  27395. begin
  27396. pTDefRegMap(@Self)^.&set := $00000200;
  27397. end;
  27398. procedure TI2C2A_I2C2ACON.clearDISSLW; inline;
  27399. begin
  27400. pTDefRegMap(@Self)^.clr := $00000200;
  27401. end;
  27402. procedure TI2C2A_I2C2ACON.setDISSLW(thebits : TBits_1); inline;
  27403. begin
  27404. if thebits = 0 then
  27405. pTDefRegMap(@Self)^.clr := $00000200
  27406. else
  27407. pTDefRegMap(@Self)^.&set := $00000200;
  27408. end;
  27409. function TI2C2A_I2C2ACON.getDISSLW : TBits_1; inline;
  27410. begin
  27411. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27412. end;
  27413. procedure TI2C2A_I2C2ACON.setA10M; inline;
  27414. begin
  27415. pTDefRegMap(@Self)^.&set := $00000400;
  27416. end;
  27417. procedure TI2C2A_I2C2ACON.clearA10M; inline;
  27418. begin
  27419. pTDefRegMap(@Self)^.clr := $00000400;
  27420. end;
  27421. procedure TI2C2A_I2C2ACON.setA10M(thebits : TBits_1); inline;
  27422. begin
  27423. if thebits = 0 then
  27424. pTDefRegMap(@Self)^.clr := $00000400
  27425. else
  27426. pTDefRegMap(@Self)^.&set := $00000400;
  27427. end;
  27428. function TI2C2A_I2C2ACON.getA10M : TBits_1; inline;
  27429. begin
  27430. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27431. end;
  27432. procedure TI2C2A_I2C2ACON.setSTRICT; inline;
  27433. begin
  27434. pTDefRegMap(@Self)^.&set := $00000800;
  27435. end;
  27436. procedure TI2C2A_I2C2ACON.clearSTRICT; inline;
  27437. begin
  27438. pTDefRegMap(@Self)^.clr := $00000800;
  27439. end;
  27440. procedure TI2C2A_I2C2ACON.setSTRICT(thebits : TBits_1); inline;
  27441. begin
  27442. if thebits = 0 then
  27443. pTDefRegMap(@Self)^.clr := $00000800
  27444. else
  27445. pTDefRegMap(@Self)^.&set := $00000800;
  27446. end;
  27447. function TI2C2A_I2C2ACON.getSTRICT : TBits_1; inline;
  27448. begin
  27449. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27450. end;
  27451. procedure TI2C2A_I2C2ACON.setSCLREL; inline;
  27452. begin
  27453. pTDefRegMap(@Self)^.&set := $00001000;
  27454. end;
  27455. procedure TI2C2A_I2C2ACON.clearSCLREL; inline;
  27456. begin
  27457. pTDefRegMap(@Self)^.clr := $00001000;
  27458. end;
  27459. procedure TI2C2A_I2C2ACON.setSCLREL(thebits : TBits_1); inline;
  27460. begin
  27461. if thebits = 0 then
  27462. pTDefRegMap(@Self)^.clr := $00001000
  27463. else
  27464. pTDefRegMap(@Self)^.&set := $00001000;
  27465. end;
  27466. function TI2C2A_I2C2ACON.getSCLREL : TBits_1; inline;
  27467. begin
  27468. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  27469. end;
  27470. procedure TI2C2A_I2C2ACON.setSIDL; inline;
  27471. begin
  27472. pTDefRegMap(@Self)^.&set := $00002000;
  27473. end;
  27474. procedure TI2C2A_I2C2ACON.clearSIDL; inline;
  27475. begin
  27476. pTDefRegMap(@Self)^.clr := $00002000;
  27477. end;
  27478. procedure TI2C2A_I2C2ACON.setSIDL(thebits : TBits_1); inline;
  27479. begin
  27480. if thebits = 0 then
  27481. pTDefRegMap(@Self)^.clr := $00002000
  27482. else
  27483. pTDefRegMap(@Self)^.&set := $00002000;
  27484. end;
  27485. function TI2C2A_I2C2ACON.getSIDL : TBits_1; inline;
  27486. begin
  27487. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27488. end;
  27489. procedure TI2C2A_I2C2ACON.setON; inline;
  27490. begin
  27491. pTDefRegMap(@Self)^.&set := $00008000;
  27492. end;
  27493. procedure TI2C2A_I2C2ACON.clearON; inline;
  27494. begin
  27495. pTDefRegMap(@Self)^.clr := $00008000;
  27496. end;
  27497. procedure TI2C2A_I2C2ACON.setON(thebits : TBits_1); inline;
  27498. begin
  27499. if thebits = 0 then
  27500. pTDefRegMap(@Self)^.clr := $00008000
  27501. else
  27502. pTDefRegMap(@Self)^.&set := $00008000;
  27503. end;
  27504. function TI2C2A_I2C2ACON.getON : TBits_1; inline;
  27505. begin
  27506. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27507. end;
  27508. procedure TI2C2A_I2C2ACON.setIPMIEN; inline;
  27509. begin
  27510. pTDefRegMap(@Self)^.&set := $00000800;
  27511. end;
  27512. procedure TI2C2A_I2C2ACON.clearIPMIEN; inline;
  27513. begin
  27514. pTDefRegMap(@Self)^.clr := $00000800;
  27515. end;
  27516. procedure TI2C2A_I2C2ACON.setIPMIEN(thebits : TBits_1); inline;
  27517. begin
  27518. if thebits = 0 then
  27519. pTDefRegMap(@Self)^.clr := $00000800
  27520. else
  27521. pTDefRegMap(@Self)^.&set := $00000800;
  27522. end;
  27523. function TI2C2A_I2C2ACON.getIPMIEN : TBits_1; inline;
  27524. begin
  27525. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27526. end;
  27527. procedure TI2C2A_I2C2ACON.setI2CSIDL; inline;
  27528. begin
  27529. pTDefRegMap(@Self)^.&set := $00002000;
  27530. end;
  27531. procedure TI2C2A_I2C2ACON.clearI2CSIDL; inline;
  27532. begin
  27533. pTDefRegMap(@Self)^.clr := $00002000;
  27534. end;
  27535. procedure TI2C2A_I2C2ACON.setI2CSIDL(thebits : TBits_1); inline;
  27536. begin
  27537. if thebits = 0 then
  27538. pTDefRegMap(@Self)^.clr := $00002000
  27539. else
  27540. pTDefRegMap(@Self)^.&set := $00002000;
  27541. end;
  27542. function TI2C2A_I2C2ACON.getI2CSIDL : TBits_1; inline;
  27543. begin
  27544. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27545. end;
  27546. procedure TI2C2A_I2C2ACON.setI2CEN; inline;
  27547. begin
  27548. pTDefRegMap(@Self)^.&set := $00008000;
  27549. end;
  27550. procedure TI2C2A_I2C2ACON.clearI2CEN; inline;
  27551. begin
  27552. pTDefRegMap(@Self)^.clr := $00008000;
  27553. end;
  27554. procedure TI2C2A_I2C2ACON.setI2CEN(thebits : TBits_1); inline;
  27555. begin
  27556. if thebits = 0 then
  27557. pTDefRegMap(@Self)^.clr := $00008000
  27558. else
  27559. pTDefRegMap(@Self)^.&set := $00008000;
  27560. end;
  27561. function TI2C2A_I2C2ACON.getI2CEN : TBits_1; inline;
  27562. begin
  27563. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27564. end;
  27565. procedure TI2C2A_I2C2ACON.setw(thebits : TBits_32); inline;
  27566. begin
  27567. pTDefRegMap(@Self)^.val := thebits;
  27568. end;
  27569. function TI2C2A_I2C2ACON.getw : TBits_32; inline;
  27570. begin
  27571. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27572. end;
  27573. procedure TI2C2A_I2C4CON.setSEN; inline;
  27574. begin
  27575. pTDefRegMap(@Self)^.&set := $00000001;
  27576. end;
  27577. procedure TI2C2A_I2C4CON.clearSEN; inline;
  27578. begin
  27579. pTDefRegMap(@Self)^.clr := $00000001;
  27580. end;
  27581. procedure TI2C2A_I2C4CON.setSEN(thebits : TBits_1); inline;
  27582. begin
  27583. if thebits = 0 then
  27584. pTDefRegMap(@Self)^.clr := $00000001
  27585. else
  27586. pTDefRegMap(@Self)^.&set := $00000001;
  27587. end;
  27588. function TI2C2A_I2C4CON.getSEN : TBits_1; inline;
  27589. begin
  27590. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27591. end;
  27592. procedure TI2C2A_I2C4CON.setRSEN; inline;
  27593. begin
  27594. pTDefRegMap(@Self)^.&set := $00000002;
  27595. end;
  27596. procedure TI2C2A_I2C4CON.clearRSEN; inline;
  27597. begin
  27598. pTDefRegMap(@Self)^.clr := $00000002;
  27599. end;
  27600. procedure TI2C2A_I2C4CON.setRSEN(thebits : TBits_1); inline;
  27601. begin
  27602. if thebits = 0 then
  27603. pTDefRegMap(@Self)^.clr := $00000002
  27604. else
  27605. pTDefRegMap(@Self)^.&set := $00000002;
  27606. end;
  27607. function TI2C2A_I2C4CON.getRSEN : TBits_1; inline;
  27608. begin
  27609. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27610. end;
  27611. procedure TI2C2A_I2C4CON.setPEN; inline;
  27612. begin
  27613. pTDefRegMap(@Self)^.&set := $00000004;
  27614. end;
  27615. procedure TI2C2A_I2C4CON.clearPEN; inline;
  27616. begin
  27617. pTDefRegMap(@Self)^.clr := $00000004;
  27618. end;
  27619. procedure TI2C2A_I2C4CON.setPEN(thebits : TBits_1); inline;
  27620. begin
  27621. if thebits = 0 then
  27622. pTDefRegMap(@Self)^.clr := $00000004
  27623. else
  27624. pTDefRegMap(@Self)^.&set := $00000004;
  27625. end;
  27626. function TI2C2A_I2C4CON.getPEN : TBits_1; inline;
  27627. begin
  27628. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27629. end;
  27630. procedure TI2C2A_I2C4CON.setRCEN; inline;
  27631. begin
  27632. pTDefRegMap(@Self)^.&set := $00000008;
  27633. end;
  27634. procedure TI2C2A_I2C4CON.clearRCEN; inline;
  27635. begin
  27636. pTDefRegMap(@Self)^.clr := $00000008;
  27637. end;
  27638. procedure TI2C2A_I2C4CON.setRCEN(thebits : TBits_1); inline;
  27639. begin
  27640. if thebits = 0 then
  27641. pTDefRegMap(@Self)^.clr := $00000008
  27642. else
  27643. pTDefRegMap(@Self)^.&set := $00000008;
  27644. end;
  27645. function TI2C2A_I2C4CON.getRCEN : TBits_1; inline;
  27646. begin
  27647. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27648. end;
  27649. procedure TI2C2A_I2C4CON.setACKEN; inline;
  27650. begin
  27651. pTDefRegMap(@Self)^.&set := $00000010;
  27652. end;
  27653. procedure TI2C2A_I2C4CON.clearACKEN; inline;
  27654. begin
  27655. pTDefRegMap(@Self)^.clr := $00000010;
  27656. end;
  27657. procedure TI2C2A_I2C4CON.setACKEN(thebits : TBits_1); inline;
  27658. begin
  27659. if thebits = 0 then
  27660. pTDefRegMap(@Self)^.clr := $00000010
  27661. else
  27662. pTDefRegMap(@Self)^.&set := $00000010;
  27663. end;
  27664. function TI2C2A_I2C4CON.getACKEN : TBits_1; inline;
  27665. begin
  27666. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  27667. end;
  27668. procedure TI2C2A_I2C4CON.setACKDT; inline;
  27669. begin
  27670. pTDefRegMap(@Self)^.&set := $00000020;
  27671. end;
  27672. procedure TI2C2A_I2C4CON.clearACKDT; inline;
  27673. begin
  27674. pTDefRegMap(@Self)^.clr := $00000020;
  27675. end;
  27676. procedure TI2C2A_I2C4CON.setACKDT(thebits : TBits_1); inline;
  27677. begin
  27678. if thebits = 0 then
  27679. pTDefRegMap(@Self)^.clr := $00000020
  27680. else
  27681. pTDefRegMap(@Self)^.&set := $00000020;
  27682. end;
  27683. function TI2C2A_I2C4CON.getACKDT : TBits_1; inline;
  27684. begin
  27685. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  27686. end;
  27687. procedure TI2C2A_I2C4CON.setSTREN; inline;
  27688. begin
  27689. pTDefRegMap(@Self)^.&set := $00000040;
  27690. end;
  27691. procedure TI2C2A_I2C4CON.clearSTREN; inline;
  27692. begin
  27693. pTDefRegMap(@Self)^.clr := $00000040;
  27694. end;
  27695. procedure TI2C2A_I2C4CON.setSTREN(thebits : TBits_1); inline;
  27696. begin
  27697. if thebits = 0 then
  27698. pTDefRegMap(@Self)^.clr := $00000040
  27699. else
  27700. pTDefRegMap(@Self)^.&set := $00000040;
  27701. end;
  27702. function TI2C2A_I2C4CON.getSTREN : TBits_1; inline;
  27703. begin
  27704. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  27705. end;
  27706. procedure TI2C2A_I2C4CON.setGCEN; inline;
  27707. begin
  27708. pTDefRegMap(@Self)^.&set := $00000080;
  27709. end;
  27710. procedure TI2C2A_I2C4CON.clearGCEN; inline;
  27711. begin
  27712. pTDefRegMap(@Self)^.clr := $00000080;
  27713. end;
  27714. procedure TI2C2A_I2C4CON.setGCEN(thebits : TBits_1); inline;
  27715. begin
  27716. if thebits = 0 then
  27717. pTDefRegMap(@Self)^.clr := $00000080
  27718. else
  27719. pTDefRegMap(@Self)^.&set := $00000080;
  27720. end;
  27721. function TI2C2A_I2C4CON.getGCEN : TBits_1; inline;
  27722. begin
  27723. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  27724. end;
  27725. procedure TI2C2A_I2C4CON.setSMEN; inline;
  27726. begin
  27727. pTDefRegMap(@Self)^.&set := $00000100;
  27728. end;
  27729. procedure TI2C2A_I2C4CON.clearSMEN; inline;
  27730. begin
  27731. pTDefRegMap(@Self)^.clr := $00000100;
  27732. end;
  27733. procedure TI2C2A_I2C4CON.setSMEN(thebits : TBits_1); inline;
  27734. begin
  27735. if thebits = 0 then
  27736. pTDefRegMap(@Self)^.clr := $00000100
  27737. else
  27738. pTDefRegMap(@Self)^.&set := $00000100;
  27739. end;
  27740. function TI2C2A_I2C4CON.getSMEN : TBits_1; inline;
  27741. begin
  27742. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  27743. end;
  27744. procedure TI2C2A_I2C4CON.setDISSLW; inline;
  27745. begin
  27746. pTDefRegMap(@Self)^.&set := $00000200;
  27747. end;
  27748. procedure TI2C2A_I2C4CON.clearDISSLW; inline;
  27749. begin
  27750. pTDefRegMap(@Self)^.clr := $00000200;
  27751. end;
  27752. procedure TI2C2A_I2C4CON.setDISSLW(thebits : TBits_1); inline;
  27753. begin
  27754. if thebits = 0 then
  27755. pTDefRegMap(@Self)^.clr := $00000200
  27756. else
  27757. pTDefRegMap(@Self)^.&set := $00000200;
  27758. end;
  27759. function TI2C2A_I2C4CON.getDISSLW : TBits_1; inline;
  27760. begin
  27761. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  27762. end;
  27763. procedure TI2C2A_I2C4CON.setA10M; inline;
  27764. begin
  27765. pTDefRegMap(@Self)^.&set := $00000400;
  27766. end;
  27767. procedure TI2C2A_I2C4CON.clearA10M; inline;
  27768. begin
  27769. pTDefRegMap(@Self)^.clr := $00000400;
  27770. end;
  27771. procedure TI2C2A_I2C4CON.setA10M(thebits : TBits_1); inline;
  27772. begin
  27773. if thebits = 0 then
  27774. pTDefRegMap(@Self)^.clr := $00000400
  27775. else
  27776. pTDefRegMap(@Self)^.&set := $00000400;
  27777. end;
  27778. function TI2C2A_I2C4CON.getA10M : TBits_1; inline;
  27779. begin
  27780. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  27781. end;
  27782. procedure TI2C2A_I2C4CON.setSTRICT; inline;
  27783. begin
  27784. pTDefRegMap(@Self)^.&set := $00000800;
  27785. end;
  27786. procedure TI2C2A_I2C4CON.clearSTRICT; inline;
  27787. begin
  27788. pTDefRegMap(@Self)^.clr := $00000800;
  27789. end;
  27790. procedure TI2C2A_I2C4CON.setSTRICT(thebits : TBits_1); inline;
  27791. begin
  27792. if thebits = 0 then
  27793. pTDefRegMap(@Self)^.clr := $00000800
  27794. else
  27795. pTDefRegMap(@Self)^.&set := $00000800;
  27796. end;
  27797. function TI2C2A_I2C4CON.getSTRICT : TBits_1; inline;
  27798. begin
  27799. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27800. end;
  27801. procedure TI2C2A_I2C4CON.setSCLREL; inline;
  27802. begin
  27803. pTDefRegMap(@Self)^.&set := $00001000;
  27804. end;
  27805. procedure TI2C2A_I2C4CON.clearSCLREL; inline;
  27806. begin
  27807. pTDefRegMap(@Self)^.clr := $00001000;
  27808. end;
  27809. procedure TI2C2A_I2C4CON.setSCLREL(thebits : TBits_1); inline;
  27810. begin
  27811. if thebits = 0 then
  27812. pTDefRegMap(@Self)^.clr := $00001000
  27813. else
  27814. pTDefRegMap(@Self)^.&set := $00001000;
  27815. end;
  27816. function TI2C2A_I2C4CON.getSCLREL : TBits_1; inline;
  27817. begin
  27818. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  27819. end;
  27820. procedure TI2C2A_I2C4CON.setSIDL; inline;
  27821. begin
  27822. pTDefRegMap(@Self)^.&set := $00002000;
  27823. end;
  27824. procedure TI2C2A_I2C4CON.clearSIDL; inline;
  27825. begin
  27826. pTDefRegMap(@Self)^.clr := $00002000;
  27827. end;
  27828. procedure TI2C2A_I2C4CON.setSIDL(thebits : TBits_1); inline;
  27829. begin
  27830. if thebits = 0 then
  27831. pTDefRegMap(@Self)^.clr := $00002000
  27832. else
  27833. pTDefRegMap(@Self)^.&set := $00002000;
  27834. end;
  27835. function TI2C2A_I2C4CON.getSIDL : TBits_1; inline;
  27836. begin
  27837. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27838. end;
  27839. procedure TI2C2A_I2C4CON.setON; inline;
  27840. begin
  27841. pTDefRegMap(@Self)^.&set := $00008000;
  27842. end;
  27843. procedure TI2C2A_I2C4CON.clearON; inline;
  27844. begin
  27845. pTDefRegMap(@Self)^.clr := $00008000;
  27846. end;
  27847. procedure TI2C2A_I2C4CON.setON(thebits : TBits_1); inline;
  27848. begin
  27849. if thebits = 0 then
  27850. pTDefRegMap(@Self)^.clr := $00008000
  27851. else
  27852. pTDefRegMap(@Self)^.&set := $00008000;
  27853. end;
  27854. function TI2C2A_I2C4CON.getON : TBits_1; inline;
  27855. begin
  27856. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27857. end;
  27858. procedure TI2C2A_I2C4CON.setIPMIEN; inline;
  27859. begin
  27860. pTDefRegMap(@Self)^.&set := $00000800;
  27861. end;
  27862. procedure TI2C2A_I2C4CON.clearIPMIEN; inline;
  27863. begin
  27864. pTDefRegMap(@Self)^.clr := $00000800;
  27865. end;
  27866. procedure TI2C2A_I2C4CON.setIPMIEN(thebits : TBits_1); inline;
  27867. begin
  27868. if thebits = 0 then
  27869. pTDefRegMap(@Self)^.clr := $00000800
  27870. else
  27871. pTDefRegMap(@Self)^.&set := $00000800;
  27872. end;
  27873. function TI2C2A_I2C4CON.getIPMIEN : TBits_1; inline;
  27874. begin
  27875. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  27876. end;
  27877. procedure TI2C2A_I2C4CON.setI2CSIDL; inline;
  27878. begin
  27879. pTDefRegMap(@Self)^.&set := $00002000;
  27880. end;
  27881. procedure TI2C2A_I2C4CON.clearI2CSIDL; inline;
  27882. begin
  27883. pTDefRegMap(@Self)^.clr := $00002000;
  27884. end;
  27885. procedure TI2C2A_I2C4CON.setI2CSIDL(thebits : TBits_1); inline;
  27886. begin
  27887. if thebits = 0 then
  27888. pTDefRegMap(@Self)^.clr := $00002000
  27889. else
  27890. pTDefRegMap(@Self)^.&set := $00002000;
  27891. end;
  27892. function TI2C2A_I2C4CON.getI2CSIDL : TBits_1; inline;
  27893. begin
  27894. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  27895. end;
  27896. procedure TI2C2A_I2C4CON.setI2CEN; inline;
  27897. begin
  27898. pTDefRegMap(@Self)^.&set := $00008000;
  27899. end;
  27900. procedure TI2C2A_I2C4CON.clearI2CEN; inline;
  27901. begin
  27902. pTDefRegMap(@Self)^.clr := $00008000;
  27903. end;
  27904. procedure TI2C2A_I2C4CON.setI2CEN(thebits : TBits_1); inline;
  27905. begin
  27906. if thebits = 0 then
  27907. pTDefRegMap(@Self)^.clr := $00008000
  27908. else
  27909. pTDefRegMap(@Self)^.&set := $00008000;
  27910. end;
  27911. function TI2C2A_I2C4CON.getI2CEN : TBits_1; inline;
  27912. begin
  27913. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  27914. end;
  27915. procedure TI2C2A_I2C4CON.setw(thebits : TBits_32); inline;
  27916. begin
  27917. pTDefRegMap(@Self)^.val := thebits;
  27918. end;
  27919. function TI2C2A_I2C4CON.getw : TBits_32; inline;
  27920. begin
  27921. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  27922. end;
  27923. procedure TI2C2A_I2C2ASTAT.setTBF; inline;
  27924. begin
  27925. pTDefRegMap(@Self)^.&set := $00000001;
  27926. end;
  27927. procedure TI2C2A_I2C2ASTAT.clearTBF; inline;
  27928. begin
  27929. pTDefRegMap(@Self)^.clr := $00000001;
  27930. end;
  27931. procedure TI2C2A_I2C2ASTAT.setTBF(thebits : TBits_1); inline;
  27932. begin
  27933. if thebits = 0 then
  27934. pTDefRegMap(@Self)^.clr := $00000001
  27935. else
  27936. pTDefRegMap(@Self)^.&set := $00000001;
  27937. end;
  27938. function TI2C2A_I2C2ASTAT.getTBF : TBits_1; inline;
  27939. begin
  27940. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  27941. end;
  27942. procedure TI2C2A_I2C2ASTAT.setRBF; inline;
  27943. begin
  27944. pTDefRegMap(@Self)^.&set := $00000002;
  27945. end;
  27946. procedure TI2C2A_I2C2ASTAT.clearRBF; inline;
  27947. begin
  27948. pTDefRegMap(@Self)^.clr := $00000002;
  27949. end;
  27950. procedure TI2C2A_I2C2ASTAT.setRBF(thebits : TBits_1); inline;
  27951. begin
  27952. if thebits = 0 then
  27953. pTDefRegMap(@Self)^.clr := $00000002
  27954. else
  27955. pTDefRegMap(@Self)^.&set := $00000002;
  27956. end;
  27957. function TI2C2A_I2C2ASTAT.getRBF : TBits_1; inline;
  27958. begin
  27959. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  27960. end;
  27961. procedure TI2C2A_I2C2ASTAT.setR_W; inline;
  27962. begin
  27963. pTDefRegMap(@Self)^.&set := $00000004;
  27964. end;
  27965. procedure TI2C2A_I2C2ASTAT.clearR_W; inline;
  27966. begin
  27967. pTDefRegMap(@Self)^.clr := $00000004;
  27968. end;
  27969. procedure TI2C2A_I2C2ASTAT.setR_W(thebits : TBits_1); inline;
  27970. begin
  27971. if thebits = 0 then
  27972. pTDefRegMap(@Self)^.clr := $00000004
  27973. else
  27974. pTDefRegMap(@Self)^.&set := $00000004;
  27975. end;
  27976. function TI2C2A_I2C2ASTAT.getR_W : TBits_1; inline;
  27977. begin
  27978. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  27979. end;
  27980. procedure TI2C2A_I2C2ASTAT.setS; inline;
  27981. begin
  27982. pTDefRegMap(@Self)^.&set := $00000008;
  27983. end;
  27984. procedure TI2C2A_I2C2ASTAT.clearS; inline;
  27985. begin
  27986. pTDefRegMap(@Self)^.clr := $00000008;
  27987. end;
  27988. procedure TI2C2A_I2C2ASTAT.setS(thebits : TBits_1); inline;
  27989. begin
  27990. if thebits = 0 then
  27991. pTDefRegMap(@Self)^.clr := $00000008
  27992. else
  27993. pTDefRegMap(@Self)^.&set := $00000008;
  27994. end;
  27995. function TI2C2A_I2C2ASTAT.getS : TBits_1; inline;
  27996. begin
  27997. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  27998. end;
  27999. procedure TI2C2A_I2C2ASTAT.setP; inline;
  28000. begin
  28001. pTDefRegMap(@Self)^.&set := $00000010;
  28002. end;
  28003. procedure TI2C2A_I2C2ASTAT.clearP; inline;
  28004. begin
  28005. pTDefRegMap(@Self)^.clr := $00000010;
  28006. end;
  28007. procedure TI2C2A_I2C2ASTAT.setP(thebits : TBits_1); inline;
  28008. begin
  28009. if thebits = 0 then
  28010. pTDefRegMap(@Self)^.clr := $00000010
  28011. else
  28012. pTDefRegMap(@Self)^.&set := $00000010;
  28013. end;
  28014. function TI2C2A_I2C2ASTAT.getP : TBits_1; inline;
  28015. begin
  28016. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28017. end;
  28018. procedure TI2C2A_I2C2ASTAT.setD_A; inline;
  28019. begin
  28020. pTDefRegMap(@Self)^.&set := $00000020;
  28021. end;
  28022. procedure TI2C2A_I2C2ASTAT.clearD_A; inline;
  28023. begin
  28024. pTDefRegMap(@Self)^.clr := $00000020;
  28025. end;
  28026. procedure TI2C2A_I2C2ASTAT.setD_A(thebits : TBits_1); inline;
  28027. begin
  28028. if thebits = 0 then
  28029. pTDefRegMap(@Self)^.clr := $00000020
  28030. else
  28031. pTDefRegMap(@Self)^.&set := $00000020;
  28032. end;
  28033. function TI2C2A_I2C2ASTAT.getD_A : TBits_1; inline;
  28034. begin
  28035. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28036. end;
  28037. procedure TI2C2A_I2C2ASTAT.setI2COV; inline;
  28038. begin
  28039. pTDefRegMap(@Self)^.&set := $00000040;
  28040. end;
  28041. procedure TI2C2A_I2C2ASTAT.clearI2COV; inline;
  28042. begin
  28043. pTDefRegMap(@Self)^.clr := $00000040;
  28044. end;
  28045. procedure TI2C2A_I2C2ASTAT.setI2COV(thebits : TBits_1); inline;
  28046. begin
  28047. if thebits = 0 then
  28048. pTDefRegMap(@Self)^.clr := $00000040
  28049. else
  28050. pTDefRegMap(@Self)^.&set := $00000040;
  28051. end;
  28052. function TI2C2A_I2C2ASTAT.getI2COV : TBits_1; inline;
  28053. begin
  28054. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28055. end;
  28056. procedure TI2C2A_I2C2ASTAT.setIWCOL; inline;
  28057. begin
  28058. pTDefRegMap(@Self)^.&set := $00000080;
  28059. end;
  28060. procedure TI2C2A_I2C2ASTAT.clearIWCOL; inline;
  28061. begin
  28062. pTDefRegMap(@Self)^.clr := $00000080;
  28063. end;
  28064. procedure TI2C2A_I2C2ASTAT.setIWCOL(thebits : TBits_1); inline;
  28065. begin
  28066. if thebits = 0 then
  28067. pTDefRegMap(@Self)^.clr := $00000080
  28068. else
  28069. pTDefRegMap(@Self)^.&set := $00000080;
  28070. end;
  28071. function TI2C2A_I2C2ASTAT.getIWCOL : TBits_1; inline;
  28072. begin
  28073. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28074. end;
  28075. procedure TI2C2A_I2C2ASTAT.setADD10; inline;
  28076. begin
  28077. pTDefRegMap(@Self)^.&set := $00000100;
  28078. end;
  28079. procedure TI2C2A_I2C2ASTAT.clearADD10; inline;
  28080. begin
  28081. pTDefRegMap(@Self)^.clr := $00000100;
  28082. end;
  28083. procedure TI2C2A_I2C2ASTAT.setADD10(thebits : TBits_1); inline;
  28084. begin
  28085. if thebits = 0 then
  28086. pTDefRegMap(@Self)^.clr := $00000100
  28087. else
  28088. pTDefRegMap(@Self)^.&set := $00000100;
  28089. end;
  28090. function TI2C2A_I2C2ASTAT.getADD10 : TBits_1; inline;
  28091. begin
  28092. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28093. end;
  28094. procedure TI2C2A_I2C2ASTAT.setGCSTAT; inline;
  28095. begin
  28096. pTDefRegMap(@Self)^.&set := $00000200;
  28097. end;
  28098. procedure TI2C2A_I2C2ASTAT.clearGCSTAT; inline;
  28099. begin
  28100. pTDefRegMap(@Self)^.clr := $00000200;
  28101. end;
  28102. procedure TI2C2A_I2C2ASTAT.setGCSTAT(thebits : TBits_1); inline;
  28103. begin
  28104. if thebits = 0 then
  28105. pTDefRegMap(@Self)^.clr := $00000200
  28106. else
  28107. pTDefRegMap(@Self)^.&set := $00000200;
  28108. end;
  28109. function TI2C2A_I2C2ASTAT.getGCSTAT : TBits_1; inline;
  28110. begin
  28111. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28112. end;
  28113. procedure TI2C2A_I2C2ASTAT.setBCL; inline;
  28114. begin
  28115. pTDefRegMap(@Self)^.&set := $00000400;
  28116. end;
  28117. procedure TI2C2A_I2C2ASTAT.clearBCL; inline;
  28118. begin
  28119. pTDefRegMap(@Self)^.clr := $00000400;
  28120. end;
  28121. procedure TI2C2A_I2C2ASTAT.setBCL(thebits : TBits_1); inline;
  28122. begin
  28123. if thebits = 0 then
  28124. pTDefRegMap(@Self)^.clr := $00000400
  28125. else
  28126. pTDefRegMap(@Self)^.&set := $00000400;
  28127. end;
  28128. function TI2C2A_I2C2ASTAT.getBCL : TBits_1; inline;
  28129. begin
  28130. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28131. end;
  28132. procedure TI2C2A_I2C2ASTAT.setTRSTAT; inline;
  28133. begin
  28134. pTDefRegMap(@Self)^.&set := $00004000;
  28135. end;
  28136. procedure TI2C2A_I2C2ASTAT.clearTRSTAT; inline;
  28137. begin
  28138. pTDefRegMap(@Self)^.clr := $00004000;
  28139. end;
  28140. procedure TI2C2A_I2C2ASTAT.setTRSTAT(thebits : TBits_1); inline;
  28141. begin
  28142. if thebits = 0 then
  28143. pTDefRegMap(@Self)^.clr := $00004000
  28144. else
  28145. pTDefRegMap(@Self)^.&set := $00004000;
  28146. end;
  28147. function TI2C2A_I2C2ASTAT.getTRSTAT : TBits_1; inline;
  28148. begin
  28149. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  28150. end;
  28151. procedure TI2C2A_I2C2ASTAT.setACKSTAT; inline;
  28152. begin
  28153. pTDefRegMap(@Self)^.&set := $00008000;
  28154. end;
  28155. procedure TI2C2A_I2C2ASTAT.clearACKSTAT; inline;
  28156. begin
  28157. pTDefRegMap(@Self)^.clr := $00008000;
  28158. end;
  28159. procedure TI2C2A_I2C2ASTAT.setACKSTAT(thebits : TBits_1); inline;
  28160. begin
  28161. if thebits = 0 then
  28162. pTDefRegMap(@Self)^.clr := $00008000
  28163. else
  28164. pTDefRegMap(@Self)^.&set := $00008000;
  28165. end;
  28166. function TI2C2A_I2C2ASTAT.getACKSTAT : TBits_1; inline;
  28167. begin
  28168. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28169. end;
  28170. procedure TI2C2A_I2C2ASTAT.setI2CPOV; inline;
  28171. begin
  28172. pTDefRegMap(@Self)^.&set := $00000040;
  28173. end;
  28174. procedure TI2C2A_I2C2ASTAT.clearI2CPOV; inline;
  28175. begin
  28176. pTDefRegMap(@Self)^.clr := $00000040;
  28177. end;
  28178. procedure TI2C2A_I2C2ASTAT.setI2CPOV(thebits : TBits_1); inline;
  28179. begin
  28180. if thebits = 0 then
  28181. pTDefRegMap(@Self)^.clr := $00000040
  28182. else
  28183. pTDefRegMap(@Self)^.&set := $00000040;
  28184. end;
  28185. function TI2C2A_I2C2ASTAT.getI2CPOV : TBits_1; inline;
  28186. begin
  28187. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28188. end;
  28189. procedure TI2C2A_I2C2ASTAT.setw(thebits : TBits_32); inline;
  28190. begin
  28191. pTDefRegMap(@Self)^.val := thebits;
  28192. end;
  28193. function TI2C2A_I2C2ASTAT.getw : TBits_32; inline;
  28194. begin
  28195. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28196. end;
  28197. procedure TI2C2A_I2C4STAT.setTBF; inline;
  28198. begin
  28199. pTDefRegMap(@Self)^.&set := $00000001;
  28200. end;
  28201. procedure TI2C2A_I2C4STAT.clearTBF; inline;
  28202. begin
  28203. pTDefRegMap(@Self)^.clr := $00000001;
  28204. end;
  28205. procedure TI2C2A_I2C4STAT.setTBF(thebits : TBits_1); inline;
  28206. begin
  28207. if thebits = 0 then
  28208. pTDefRegMap(@Self)^.clr := $00000001
  28209. else
  28210. pTDefRegMap(@Self)^.&set := $00000001;
  28211. end;
  28212. function TI2C2A_I2C4STAT.getTBF : TBits_1; inline;
  28213. begin
  28214. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28215. end;
  28216. procedure TI2C2A_I2C4STAT.setRBF; inline;
  28217. begin
  28218. pTDefRegMap(@Self)^.&set := $00000002;
  28219. end;
  28220. procedure TI2C2A_I2C4STAT.clearRBF; inline;
  28221. begin
  28222. pTDefRegMap(@Self)^.clr := $00000002;
  28223. end;
  28224. procedure TI2C2A_I2C4STAT.setRBF(thebits : TBits_1); inline;
  28225. begin
  28226. if thebits = 0 then
  28227. pTDefRegMap(@Self)^.clr := $00000002
  28228. else
  28229. pTDefRegMap(@Self)^.&set := $00000002;
  28230. end;
  28231. function TI2C2A_I2C4STAT.getRBF : TBits_1; inline;
  28232. begin
  28233. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28234. end;
  28235. procedure TI2C2A_I2C4STAT.setR_W; inline;
  28236. begin
  28237. pTDefRegMap(@Self)^.&set := $00000004;
  28238. end;
  28239. procedure TI2C2A_I2C4STAT.clearR_W; inline;
  28240. begin
  28241. pTDefRegMap(@Self)^.clr := $00000004;
  28242. end;
  28243. procedure TI2C2A_I2C4STAT.setR_W(thebits : TBits_1); inline;
  28244. begin
  28245. if thebits = 0 then
  28246. pTDefRegMap(@Self)^.clr := $00000004
  28247. else
  28248. pTDefRegMap(@Self)^.&set := $00000004;
  28249. end;
  28250. function TI2C2A_I2C4STAT.getR_W : TBits_1; inline;
  28251. begin
  28252. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28253. end;
  28254. procedure TI2C2A_I2C4STAT.setS; inline;
  28255. begin
  28256. pTDefRegMap(@Self)^.&set := $00000008;
  28257. end;
  28258. procedure TI2C2A_I2C4STAT.clearS; inline;
  28259. begin
  28260. pTDefRegMap(@Self)^.clr := $00000008;
  28261. end;
  28262. procedure TI2C2A_I2C4STAT.setS(thebits : TBits_1); inline;
  28263. begin
  28264. if thebits = 0 then
  28265. pTDefRegMap(@Self)^.clr := $00000008
  28266. else
  28267. pTDefRegMap(@Self)^.&set := $00000008;
  28268. end;
  28269. function TI2C2A_I2C4STAT.getS : TBits_1; inline;
  28270. begin
  28271. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28272. end;
  28273. procedure TI2C2A_I2C4STAT.setP; inline;
  28274. begin
  28275. pTDefRegMap(@Self)^.&set := $00000010;
  28276. end;
  28277. procedure TI2C2A_I2C4STAT.clearP; inline;
  28278. begin
  28279. pTDefRegMap(@Self)^.clr := $00000010;
  28280. end;
  28281. procedure TI2C2A_I2C4STAT.setP(thebits : TBits_1); inline;
  28282. begin
  28283. if thebits = 0 then
  28284. pTDefRegMap(@Self)^.clr := $00000010
  28285. else
  28286. pTDefRegMap(@Self)^.&set := $00000010;
  28287. end;
  28288. function TI2C2A_I2C4STAT.getP : TBits_1; inline;
  28289. begin
  28290. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28291. end;
  28292. procedure TI2C2A_I2C4STAT.setD_A; inline;
  28293. begin
  28294. pTDefRegMap(@Self)^.&set := $00000020;
  28295. end;
  28296. procedure TI2C2A_I2C4STAT.clearD_A; inline;
  28297. begin
  28298. pTDefRegMap(@Self)^.clr := $00000020;
  28299. end;
  28300. procedure TI2C2A_I2C4STAT.setD_A(thebits : TBits_1); inline;
  28301. begin
  28302. if thebits = 0 then
  28303. pTDefRegMap(@Self)^.clr := $00000020
  28304. else
  28305. pTDefRegMap(@Self)^.&set := $00000020;
  28306. end;
  28307. function TI2C2A_I2C4STAT.getD_A : TBits_1; inline;
  28308. begin
  28309. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28310. end;
  28311. procedure TI2C2A_I2C4STAT.setI2COV; inline;
  28312. begin
  28313. pTDefRegMap(@Self)^.&set := $00000040;
  28314. end;
  28315. procedure TI2C2A_I2C4STAT.clearI2COV; inline;
  28316. begin
  28317. pTDefRegMap(@Self)^.clr := $00000040;
  28318. end;
  28319. procedure TI2C2A_I2C4STAT.setI2COV(thebits : TBits_1); inline;
  28320. begin
  28321. if thebits = 0 then
  28322. pTDefRegMap(@Self)^.clr := $00000040
  28323. else
  28324. pTDefRegMap(@Self)^.&set := $00000040;
  28325. end;
  28326. function TI2C2A_I2C4STAT.getI2COV : TBits_1; inline;
  28327. begin
  28328. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28329. end;
  28330. procedure TI2C2A_I2C4STAT.setIWCOL; inline;
  28331. begin
  28332. pTDefRegMap(@Self)^.&set := $00000080;
  28333. end;
  28334. procedure TI2C2A_I2C4STAT.clearIWCOL; inline;
  28335. begin
  28336. pTDefRegMap(@Self)^.clr := $00000080;
  28337. end;
  28338. procedure TI2C2A_I2C4STAT.setIWCOL(thebits : TBits_1); inline;
  28339. begin
  28340. if thebits = 0 then
  28341. pTDefRegMap(@Self)^.clr := $00000080
  28342. else
  28343. pTDefRegMap(@Self)^.&set := $00000080;
  28344. end;
  28345. function TI2C2A_I2C4STAT.getIWCOL : TBits_1; inline;
  28346. begin
  28347. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28348. end;
  28349. procedure TI2C2A_I2C4STAT.setADD10; inline;
  28350. begin
  28351. pTDefRegMap(@Self)^.&set := $00000100;
  28352. end;
  28353. procedure TI2C2A_I2C4STAT.clearADD10; inline;
  28354. begin
  28355. pTDefRegMap(@Self)^.clr := $00000100;
  28356. end;
  28357. procedure TI2C2A_I2C4STAT.setADD10(thebits : TBits_1); inline;
  28358. begin
  28359. if thebits = 0 then
  28360. pTDefRegMap(@Self)^.clr := $00000100
  28361. else
  28362. pTDefRegMap(@Self)^.&set := $00000100;
  28363. end;
  28364. function TI2C2A_I2C4STAT.getADD10 : TBits_1; inline;
  28365. begin
  28366. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28367. end;
  28368. procedure TI2C2A_I2C4STAT.setGCSTAT; inline;
  28369. begin
  28370. pTDefRegMap(@Self)^.&set := $00000200;
  28371. end;
  28372. procedure TI2C2A_I2C4STAT.clearGCSTAT; inline;
  28373. begin
  28374. pTDefRegMap(@Self)^.clr := $00000200;
  28375. end;
  28376. procedure TI2C2A_I2C4STAT.setGCSTAT(thebits : TBits_1); inline;
  28377. begin
  28378. if thebits = 0 then
  28379. pTDefRegMap(@Self)^.clr := $00000200
  28380. else
  28381. pTDefRegMap(@Self)^.&set := $00000200;
  28382. end;
  28383. function TI2C2A_I2C4STAT.getGCSTAT : TBits_1; inline;
  28384. begin
  28385. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28386. end;
  28387. procedure TI2C2A_I2C4STAT.setBCL; inline;
  28388. begin
  28389. pTDefRegMap(@Self)^.&set := $00000400;
  28390. end;
  28391. procedure TI2C2A_I2C4STAT.clearBCL; inline;
  28392. begin
  28393. pTDefRegMap(@Self)^.clr := $00000400;
  28394. end;
  28395. procedure TI2C2A_I2C4STAT.setBCL(thebits : TBits_1); inline;
  28396. begin
  28397. if thebits = 0 then
  28398. pTDefRegMap(@Self)^.clr := $00000400
  28399. else
  28400. pTDefRegMap(@Self)^.&set := $00000400;
  28401. end;
  28402. function TI2C2A_I2C4STAT.getBCL : TBits_1; inline;
  28403. begin
  28404. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28405. end;
  28406. procedure TI2C2A_I2C4STAT.setTRSTAT; inline;
  28407. begin
  28408. pTDefRegMap(@Self)^.&set := $00004000;
  28409. end;
  28410. procedure TI2C2A_I2C4STAT.clearTRSTAT; inline;
  28411. begin
  28412. pTDefRegMap(@Self)^.clr := $00004000;
  28413. end;
  28414. procedure TI2C2A_I2C4STAT.setTRSTAT(thebits : TBits_1); inline;
  28415. begin
  28416. if thebits = 0 then
  28417. pTDefRegMap(@Self)^.clr := $00004000
  28418. else
  28419. pTDefRegMap(@Self)^.&set := $00004000;
  28420. end;
  28421. function TI2C2A_I2C4STAT.getTRSTAT : TBits_1; inline;
  28422. begin
  28423. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  28424. end;
  28425. procedure TI2C2A_I2C4STAT.setACKSTAT; inline;
  28426. begin
  28427. pTDefRegMap(@Self)^.&set := $00008000;
  28428. end;
  28429. procedure TI2C2A_I2C4STAT.clearACKSTAT; inline;
  28430. begin
  28431. pTDefRegMap(@Self)^.clr := $00008000;
  28432. end;
  28433. procedure TI2C2A_I2C4STAT.setACKSTAT(thebits : TBits_1); inline;
  28434. begin
  28435. if thebits = 0 then
  28436. pTDefRegMap(@Self)^.clr := $00008000
  28437. else
  28438. pTDefRegMap(@Self)^.&set := $00008000;
  28439. end;
  28440. function TI2C2A_I2C4STAT.getACKSTAT : TBits_1; inline;
  28441. begin
  28442. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28443. end;
  28444. procedure TI2C2A_I2C4STAT.setI2CPOV; inline;
  28445. begin
  28446. pTDefRegMap(@Self)^.&set := $00000040;
  28447. end;
  28448. procedure TI2C2A_I2C4STAT.clearI2CPOV; inline;
  28449. begin
  28450. pTDefRegMap(@Self)^.clr := $00000040;
  28451. end;
  28452. procedure TI2C2A_I2C4STAT.setI2CPOV(thebits : TBits_1); inline;
  28453. begin
  28454. if thebits = 0 then
  28455. pTDefRegMap(@Self)^.clr := $00000040
  28456. else
  28457. pTDefRegMap(@Self)^.&set := $00000040;
  28458. end;
  28459. function TI2C2A_I2C4STAT.getI2CPOV : TBits_1; inline;
  28460. begin
  28461. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28462. end;
  28463. procedure TI2C2A_I2C4STAT.setw(thebits : TBits_32); inline;
  28464. begin
  28465. pTDefRegMap(@Self)^.val := thebits;
  28466. end;
  28467. function TI2C2A_I2C4STAT.getw : TBits_32; inline;
  28468. begin
  28469. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28470. end;
  28471. procedure TI2C5_I2C3ACON.setSEN; inline;
  28472. begin
  28473. pTDefRegMap(@Self)^.&set := $00000001;
  28474. end;
  28475. procedure TI2C5_I2C3ACON.clearSEN; inline;
  28476. begin
  28477. pTDefRegMap(@Self)^.clr := $00000001;
  28478. end;
  28479. procedure TI2C5_I2C3ACON.setSEN(thebits : TBits_1); inline;
  28480. begin
  28481. if thebits = 0 then
  28482. pTDefRegMap(@Self)^.clr := $00000001
  28483. else
  28484. pTDefRegMap(@Self)^.&set := $00000001;
  28485. end;
  28486. function TI2C5_I2C3ACON.getSEN : TBits_1; inline;
  28487. begin
  28488. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28489. end;
  28490. procedure TI2C5_I2C3ACON.setRSEN; inline;
  28491. begin
  28492. pTDefRegMap(@Self)^.&set := $00000002;
  28493. end;
  28494. procedure TI2C5_I2C3ACON.clearRSEN; inline;
  28495. begin
  28496. pTDefRegMap(@Self)^.clr := $00000002;
  28497. end;
  28498. procedure TI2C5_I2C3ACON.setRSEN(thebits : TBits_1); inline;
  28499. begin
  28500. if thebits = 0 then
  28501. pTDefRegMap(@Self)^.clr := $00000002
  28502. else
  28503. pTDefRegMap(@Self)^.&set := $00000002;
  28504. end;
  28505. function TI2C5_I2C3ACON.getRSEN : TBits_1; inline;
  28506. begin
  28507. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28508. end;
  28509. procedure TI2C5_I2C3ACON.setPEN; inline;
  28510. begin
  28511. pTDefRegMap(@Self)^.&set := $00000004;
  28512. end;
  28513. procedure TI2C5_I2C3ACON.clearPEN; inline;
  28514. begin
  28515. pTDefRegMap(@Self)^.clr := $00000004;
  28516. end;
  28517. procedure TI2C5_I2C3ACON.setPEN(thebits : TBits_1); inline;
  28518. begin
  28519. if thebits = 0 then
  28520. pTDefRegMap(@Self)^.clr := $00000004
  28521. else
  28522. pTDefRegMap(@Self)^.&set := $00000004;
  28523. end;
  28524. function TI2C5_I2C3ACON.getPEN : TBits_1; inline;
  28525. begin
  28526. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28527. end;
  28528. procedure TI2C5_I2C3ACON.setRCEN; inline;
  28529. begin
  28530. pTDefRegMap(@Self)^.&set := $00000008;
  28531. end;
  28532. procedure TI2C5_I2C3ACON.clearRCEN; inline;
  28533. begin
  28534. pTDefRegMap(@Self)^.clr := $00000008;
  28535. end;
  28536. procedure TI2C5_I2C3ACON.setRCEN(thebits : TBits_1); inline;
  28537. begin
  28538. if thebits = 0 then
  28539. pTDefRegMap(@Self)^.clr := $00000008
  28540. else
  28541. pTDefRegMap(@Self)^.&set := $00000008;
  28542. end;
  28543. function TI2C5_I2C3ACON.getRCEN : TBits_1; inline;
  28544. begin
  28545. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28546. end;
  28547. procedure TI2C5_I2C3ACON.setACKEN; inline;
  28548. begin
  28549. pTDefRegMap(@Self)^.&set := $00000010;
  28550. end;
  28551. procedure TI2C5_I2C3ACON.clearACKEN; inline;
  28552. begin
  28553. pTDefRegMap(@Self)^.clr := $00000010;
  28554. end;
  28555. procedure TI2C5_I2C3ACON.setACKEN(thebits : TBits_1); inline;
  28556. begin
  28557. if thebits = 0 then
  28558. pTDefRegMap(@Self)^.clr := $00000010
  28559. else
  28560. pTDefRegMap(@Self)^.&set := $00000010;
  28561. end;
  28562. function TI2C5_I2C3ACON.getACKEN : TBits_1; inline;
  28563. begin
  28564. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28565. end;
  28566. procedure TI2C5_I2C3ACON.setACKDT; inline;
  28567. begin
  28568. pTDefRegMap(@Self)^.&set := $00000020;
  28569. end;
  28570. procedure TI2C5_I2C3ACON.clearACKDT; inline;
  28571. begin
  28572. pTDefRegMap(@Self)^.clr := $00000020;
  28573. end;
  28574. procedure TI2C5_I2C3ACON.setACKDT(thebits : TBits_1); inline;
  28575. begin
  28576. if thebits = 0 then
  28577. pTDefRegMap(@Self)^.clr := $00000020
  28578. else
  28579. pTDefRegMap(@Self)^.&set := $00000020;
  28580. end;
  28581. function TI2C5_I2C3ACON.getACKDT : TBits_1; inline;
  28582. begin
  28583. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28584. end;
  28585. procedure TI2C5_I2C3ACON.setSTREN; inline;
  28586. begin
  28587. pTDefRegMap(@Self)^.&set := $00000040;
  28588. end;
  28589. procedure TI2C5_I2C3ACON.clearSTREN; inline;
  28590. begin
  28591. pTDefRegMap(@Self)^.clr := $00000040;
  28592. end;
  28593. procedure TI2C5_I2C3ACON.setSTREN(thebits : TBits_1); inline;
  28594. begin
  28595. if thebits = 0 then
  28596. pTDefRegMap(@Self)^.clr := $00000040
  28597. else
  28598. pTDefRegMap(@Self)^.&set := $00000040;
  28599. end;
  28600. function TI2C5_I2C3ACON.getSTREN : TBits_1; inline;
  28601. begin
  28602. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28603. end;
  28604. procedure TI2C5_I2C3ACON.setGCEN; inline;
  28605. begin
  28606. pTDefRegMap(@Self)^.&set := $00000080;
  28607. end;
  28608. procedure TI2C5_I2C3ACON.clearGCEN; inline;
  28609. begin
  28610. pTDefRegMap(@Self)^.clr := $00000080;
  28611. end;
  28612. procedure TI2C5_I2C3ACON.setGCEN(thebits : TBits_1); inline;
  28613. begin
  28614. if thebits = 0 then
  28615. pTDefRegMap(@Self)^.clr := $00000080
  28616. else
  28617. pTDefRegMap(@Self)^.&set := $00000080;
  28618. end;
  28619. function TI2C5_I2C3ACON.getGCEN : TBits_1; inline;
  28620. begin
  28621. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28622. end;
  28623. procedure TI2C5_I2C3ACON.setSMEN; inline;
  28624. begin
  28625. pTDefRegMap(@Self)^.&set := $00000100;
  28626. end;
  28627. procedure TI2C5_I2C3ACON.clearSMEN; inline;
  28628. begin
  28629. pTDefRegMap(@Self)^.clr := $00000100;
  28630. end;
  28631. procedure TI2C5_I2C3ACON.setSMEN(thebits : TBits_1); inline;
  28632. begin
  28633. if thebits = 0 then
  28634. pTDefRegMap(@Self)^.clr := $00000100
  28635. else
  28636. pTDefRegMap(@Self)^.&set := $00000100;
  28637. end;
  28638. function TI2C5_I2C3ACON.getSMEN : TBits_1; inline;
  28639. begin
  28640. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28641. end;
  28642. procedure TI2C5_I2C3ACON.setDISSLW; inline;
  28643. begin
  28644. pTDefRegMap(@Self)^.&set := $00000200;
  28645. end;
  28646. procedure TI2C5_I2C3ACON.clearDISSLW; inline;
  28647. begin
  28648. pTDefRegMap(@Self)^.clr := $00000200;
  28649. end;
  28650. procedure TI2C5_I2C3ACON.setDISSLW(thebits : TBits_1); inline;
  28651. begin
  28652. if thebits = 0 then
  28653. pTDefRegMap(@Self)^.clr := $00000200
  28654. else
  28655. pTDefRegMap(@Self)^.&set := $00000200;
  28656. end;
  28657. function TI2C5_I2C3ACON.getDISSLW : TBits_1; inline;
  28658. begin
  28659. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  28660. end;
  28661. procedure TI2C5_I2C3ACON.setA10M; inline;
  28662. begin
  28663. pTDefRegMap(@Self)^.&set := $00000400;
  28664. end;
  28665. procedure TI2C5_I2C3ACON.clearA10M; inline;
  28666. begin
  28667. pTDefRegMap(@Self)^.clr := $00000400;
  28668. end;
  28669. procedure TI2C5_I2C3ACON.setA10M(thebits : TBits_1); inline;
  28670. begin
  28671. if thebits = 0 then
  28672. pTDefRegMap(@Self)^.clr := $00000400
  28673. else
  28674. pTDefRegMap(@Self)^.&set := $00000400;
  28675. end;
  28676. function TI2C5_I2C3ACON.getA10M : TBits_1; inline;
  28677. begin
  28678. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  28679. end;
  28680. procedure TI2C5_I2C3ACON.setSTRICT; inline;
  28681. begin
  28682. pTDefRegMap(@Self)^.&set := $00000800;
  28683. end;
  28684. procedure TI2C5_I2C3ACON.clearSTRICT; inline;
  28685. begin
  28686. pTDefRegMap(@Self)^.clr := $00000800;
  28687. end;
  28688. procedure TI2C5_I2C3ACON.setSTRICT(thebits : TBits_1); inline;
  28689. begin
  28690. if thebits = 0 then
  28691. pTDefRegMap(@Self)^.clr := $00000800
  28692. else
  28693. pTDefRegMap(@Self)^.&set := $00000800;
  28694. end;
  28695. function TI2C5_I2C3ACON.getSTRICT : TBits_1; inline;
  28696. begin
  28697. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28698. end;
  28699. procedure TI2C5_I2C3ACON.setSCLREL; inline;
  28700. begin
  28701. pTDefRegMap(@Self)^.&set := $00001000;
  28702. end;
  28703. procedure TI2C5_I2C3ACON.clearSCLREL; inline;
  28704. begin
  28705. pTDefRegMap(@Self)^.clr := $00001000;
  28706. end;
  28707. procedure TI2C5_I2C3ACON.setSCLREL(thebits : TBits_1); inline;
  28708. begin
  28709. if thebits = 0 then
  28710. pTDefRegMap(@Self)^.clr := $00001000
  28711. else
  28712. pTDefRegMap(@Self)^.&set := $00001000;
  28713. end;
  28714. function TI2C5_I2C3ACON.getSCLREL : TBits_1; inline;
  28715. begin
  28716. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  28717. end;
  28718. procedure TI2C5_I2C3ACON.setSIDL; inline;
  28719. begin
  28720. pTDefRegMap(@Self)^.&set := $00002000;
  28721. end;
  28722. procedure TI2C5_I2C3ACON.clearSIDL; inline;
  28723. begin
  28724. pTDefRegMap(@Self)^.clr := $00002000;
  28725. end;
  28726. procedure TI2C5_I2C3ACON.setSIDL(thebits : TBits_1); inline;
  28727. begin
  28728. if thebits = 0 then
  28729. pTDefRegMap(@Self)^.clr := $00002000
  28730. else
  28731. pTDefRegMap(@Self)^.&set := $00002000;
  28732. end;
  28733. function TI2C5_I2C3ACON.getSIDL : TBits_1; inline;
  28734. begin
  28735. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28736. end;
  28737. procedure TI2C5_I2C3ACON.setON; inline;
  28738. begin
  28739. pTDefRegMap(@Self)^.&set := $00008000;
  28740. end;
  28741. procedure TI2C5_I2C3ACON.clearON; inline;
  28742. begin
  28743. pTDefRegMap(@Self)^.clr := $00008000;
  28744. end;
  28745. procedure TI2C5_I2C3ACON.setON(thebits : TBits_1); inline;
  28746. begin
  28747. if thebits = 0 then
  28748. pTDefRegMap(@Self)^.clr := $00008000
  28749. else
  28750. pTDefRegMap(@Self)^.&set := $00008000;
  28751. end;
  28752. function TI2C5_I2C3ACON.getON : TBits_1; inline;
  28753. begin
  28754. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28755. end;
  28756. procedure TI2C5_I2C3ACON.setIPMIEN; inline;
  28757. begin
  28758. pTDefRegMap(@Self)^.&set := $00000800;
  28759. end;
  28760. procedure TI2C5_I2C3ACON.clearIPMIEN; inline;
  28761. begin
  28762. pTDefRegMap(@Self)^.clr := $00000800;
  28763. end;
  28764. procedure TI2C5_I2C3ACON.setIPMIEN(thebits : TBits_1); inline;
  28765. begin
  28766. if thebits = 0 then
  28767. pTDefRegMap(@Self)^.clr := $00000800
  28768. else
  28769. pTDefRegMap(@Self)^.&set := $00000800;
  28770. end;
  28771. function TI2C5_I2C3ACON.getIPMIEN : TBits_1; inline;
  28772. begin
  28773. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  28774. end;
  28775. procedure TI2C5_I2C3ACON.setI2CSIDL; inline;
  28776. begin
  28777. pTDefRegMap(@Self)^.&set := $00002000;
  28778. end;
  28779. procedure TI2C5_I2C3ACON.clearI2CSIDL; inline;
  28780. begin
  28781. pTDefRegMap(@Self)^.clr := $00002000;
  28782. end;
  28783. procedure TI2C5_I2C3ACON.setI2CSIDL(thebits : TBits_1); inline;
  28784. begin
  28785. if thebits = 0 then
  28786. pTDefRegMap(@Self)^.clr := $00002000
  28787. else
  28788. pTDefRegMap(@Self)^.&set := $00002000;
  28789. end;
  28790. function TI2C5_I2C3ACON.getI2CSIDL : TBits_1; inline;
  28791. begin
  28792. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  28793. end;
  28794. procedure TI2C5_I2C3ACON.setI2CEN; inline;
  28795. begin
  28796. pTDefRegMap(@Self)^.&set := $00008000;
  28797. end;
  28798. procedure TI2C5_I2C3ACON.clearI2CEN; inline;
  28799. begin
  28800. pTDefRegMap(@Self)^.clr := $00008000;
  28801. end;
  28802. procedure TI2C5_I2C3ACON.setI2CEN(thebits : TBits_1); inline;
  28803. begin
  28804. if thebits = 0 then
  28805. pTDefRegMap(@Self)^.clr := $00008000
  28806. else
  28807. pTDefRegMap(@Self)^.&set := $00008000;
  28808. end;
  28809. function TI2C5_I2C3ACON.getI2CEN : TBits_1; inline;
  28810. begin
  28811. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  28812. end;
  28813. procedure TI2C5_I2C3ACON.setw(thebits : TBits_32); inline;
  28814. begin
  28815. pTDefRegMap(@Self)^.val := thebits;
  28816. end;
  28817. function TI2C5_I2C3ACON.getw : TBits_32; inline;
  28818. begin
  28819. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  28820. end;
  28821. procedure TI2C5_I2C5CON.setSEN; inline;
  28822. begin
  28823. pTDefRegMap(@Self)^.&set := $00000001;
  28824. end;
  28825. procedure TI2C5_I2C5CON.clearSEN; inline;
  28826. begin
  28827. pTDefRegMap(@Self)^.clr := $00000001;
  28828. end;
  28829. procedure TI2C5_I2C5CON.setSEN(thebits : TBits_1); inline;
  28830. begin
  28831. if thebits = 0 then
  28832. pTDefRegMap(@Self)^.clr := $00000001
  28833. else
  28834. pTDefRegMap(@Self)^.&set := $00000001;
  28835. end;
  28836. function TI2C5_I2C5CON.getSEN : TBits_1; inline;
  28837. begin
  28838. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  28839. end;
  28840. procedure TI2C5_I2C5CON.setRSEN; inline;
  28841. begin
  28842. pTDefRegMap(@Self)^.&set := $00000002;
  28843. end;
  28844. procedure TI2C5_I2C5CON.clearRSEN; inline;
  28845. begin
  28846. pTDefRegMap(@Self)^.clr := $00000002;
  28847. end;
  28848. procedure TI2C5_I2C5CON.setRSEN(thebits : TBits_1); inline;
  28849. begin
  28850. if thebits = 0 then
  28851. pTDefRegMap(@Self)^.clr := $00000002
  28852. else
  28853. pTDefRegMap(@Self)^.&set := $00000002;
  28854. end;
  28855. function TI2C5_I2C5CON.getRSEN : TBits_1; inline;
  28856. begin
  28857. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  28858. end;
  28859. procedure TI2C5_I2C5CON.setPEN; inline;
  28860. begin
  28861. pTDefRegMap(@Self)^.&set := $00000004;
  28862. end;
  28863. procedure TI2C5_I2C5CON.clearPEN; inline;
  28864. begin
  28865. pTDefRegMap(@Self)^.clr := $00000004;
  28866. end;
  28867. procedure TI2C5_I2C5CON.setPEN(thebits : TBits_1); inline;
  28868. begin
  28869. if thebits = 0 then
  28870. pTDefRegMap(@Self)^.clr := $00000004
  28871. else
  28872. pTDefRegMap(@Self)^.&set := $00000004;
  28873. end;
  28874. function TI2C5_I2C5CON.getPEN : TBits_1; inline;
  28875. begin
  28876. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  28877. end;
  28878. procedure TI2C5_I2C5CON.setRCEN; inline;
  28879. begin
  28880. pTDefRegMap(@Self)^.&set := $00000008;
  28881. end;
  28882. procedure TI2C5_I2C5CON.clearRCEN; inline;
  28883. begin
  28884. pTDefRegMap(@Self)^.clr := $00000008;
  28885. end;
  28886. procedure TI2C5_I2C5CON.setRCEN(thebits : TBits_1); inline;
  28887. begin
  28888. if thebits = 0 then
  28889. pTDefRegMap(@Self)^.clr := $00000008
  28890. else
  28891. pTDefRegMap(@Self)^.&set := $00000008;
  28892. end;
  28893. function TI2C5_I2C5CON.getRCEN : TBits_1; inline;
  28894. begin
  28895. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  28896. end;
  28897. procedure TI2C5_I2C5CON.setACKEN; inline;
  28898. begin
  28899. pTDefRegMap(@Self)^.&set := $00000010;
  28900. end;
  28901. procedure TI2C5_I2C5CON.clearACKEN; inline;
  28902. begin
  28903. pTDefRegMap(@Self)^.clr := $00000010;
  28904. end;
  28905. procedure TI2C5_I2C5CON.setACKEN(thebits : TBits_1); inline;
  28906. begin
  28907. if thebits = 0 then
  28908. pTDefRegMap(@Self)^.clr := $00000010
  28909. else
  28910. pTDefRegMap(@Self)^.&set := $00000010;
  28911. end;
  28912. function TI2C5_I2C5CON.getACKEN : TBits_1; inline;
  28913. begin
  28914. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  28915. end;
  28916. procedure TI2C5_I2C5CON.setACKDT; inline;
  28917. begin
  28918. pTDefRegMap(@Self)^.&set := $00000020;
  28919. end;
  28920. procedure TI2C5_I2C5CON.clearACKDT; inline;
  28921. begin
  28922. pTDefRegMap(@Self)^.clr := $00000020;
  28923. end;
  28924. procedure TI2C5_I2C5CON.setACKDT(thebits : TBits_1); inline;
  28925. begin
  28926. if thebits = 0 then
  28927. pTDefRegMap(@Self)^.clr := $00000020
  28928. else
  28929. pTDefRegMap(@Self)^.&set := $00000020;
  28930. end;
  28931. function TI2C5_I2C5CON.getACKDT : TBits_1; inline;
  28932. begin
  28933. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  28934. end;
  28935. procedure TI2C5_I2C5CON.setSTREN; inline;
  28936. begin
  28937. pTDefRegMap(@Self)^.&set := $00000040;
  28938. end;
  28939. procedure TI2C5_I2C5CON.clearSTREN; inline;
  28940. begin
  28941. pTDefRegMap(@Self)^.clr := $00000040;
  28942. end;
  28943. procedure TI2C5_I2C5CON.setSTREN(thebits : TBits_1); inline;
  28944. begin
  28945. if thebits = 0 then
  28946. pTDefRegMap(@Self)^.clr := $00000040
  28947. else
  28948. pTDefRegMap(@Self)^.&set := $00000040;
  28949. end;
  28950. function TI2C5_I2C5CON.getSTREN : TBits_1; inline;
  28951. begin
  28952. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  28953. end;
  28954. procedure TI2C5_I2C5CON.setGCEN; inline;
  28955. begin
  28956. pTDefRegMap(@Self)^.&set := $00000080;
  28957. end;
  28958. procedure TI2C5_I2C5CON.clearGCEN; inline;
  28959. begin
  28960. pTDefRegMap(@Self)^.clr := $00000080;
  28961. end;
  28962. procedure TI2C5_I2C5CON.setGCEN(thebits : TBits_1); inline;
  28963. begin
  28964. if thebits = 0 then
  28965. pTDefRegMap(@Self)^.clr := $00000080
  28966. else
  28967. pTDefRegMap(@Self)^.&set := $00000080;
  28968. end;
  28969. function TI2C5_I2C5CON.getGCEN : TBits_1; inline;
  28970. begin
  28971. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  28972. end;
  28973. procedure TI2C5_I2C5CON.setSMEN; inline;
  28974. begin
  28975. pTDefRegMap(@Self)^.&set := $00000100;
  28976. end;
  28977. procedure TI2C5_I2C5CON.clearSMEN; inline;
  28978. begin
  28979. pTDefRegMap(@Self)^.clr := $00000100;
  28980. end;
  28981. procedure TI2C5_I2C5CON.setSMEN(thebits : TBits_1); inline;
  28982. begin
  28983. if thebits = 0 then
  28984. pTDefRegMap(@Self)^.clr := $00000100
  28985. else
  28986. pTDefRegMap(@Self)^.&set := $00000100;
  28987. end;
  28988. function TI2C5_I2C5CON.getSMEN : TBits_1; inline;
  28989. begin
  28990. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  28991. end;
  28992. procedure TI2C5_I2C5CON.setDISSLW; inline;
  28993. begin
  28994. pTDefRegMap(@Self)^.&set := $00000200;
  28995. end;
  28996. procedure TI2C5_I2C5CON.clearDISSLW; inline;
  28997. begin
  28998. pTDefRegMap(@Self)^.clr := $00000200;
  28999. end;
  29000. procedure TI2C5_I2C5CON.setDISSLW(thebits : TBits_1); inline;
  29001. begin
  29002. if thebits = 0 then
  29003. pTDefRegMap(@Self)^.clr := $00000200
  29004. else
  29005. pTDefRegMap(@Self)^.&set := $00000200;
  29006. end;
  29007. function TI2C5_I2C5CON.getDISSLW : TBits_1; inline;
  29008. begin
  29009. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29010. end;
  29011. procedure TI2C5_I2C5CON.setA10M; inline;
  29012. begin
  29013. pTDefRegMap(@Self)^.&set := $00000400;
  29014. end;
  29015. procedure TI2C5_I2C5CON.clearA10M; inline;
  29016. begin
  29017. pTDefRegMap(@Self)^.clr := $00000400;
  29018. end;
  29019. procedure TI2C5_I2C5CON.setA10M(thebits : TBits_1); inline;
  29020. begin
  29021. if thebits = 0 then
  29022. pTDefRegMap(@Self)^.clr := $00000400
  29023. else
  29024. pTDefRegMap(@Self)^.&set := $00000400;
  29025. end;
  29026. function TI2C5_I2C5CON.getA10M : TBits_1; inline;
  29027. begin
  29028. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29029. end;
  29030. procedure TI2C5_I2C5CON.setSTRICT; inline;
  29031. begin
  29032. pTDefRegMap(@Self)^.&set := $00000800;
  29033. end;
  29034. procedure TI2C5_I2C5CON.clearSTRICT; inline;
  29035. begin
  29036. pTDefRegMap(@Self)^.clr := $00000800;
  29037. end;
  29038. procedure TI2C5_I2C5CON.setSTRICT(thebits : TBits_1); inline;
  29039. begin
  29040. if thebits = 0 then
  29041. pTDefRegMap(@Self)^.clr := $00000800
  29042. else
  29043. pTDefRegMap(@Self)^.&set := $00000800;
  29044. end;
  29045. function TI2C5_I2C5CON.getSTRICT : TBits_1; inline;
  29046. begin
  29047. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29048. end;
  29049. procedure TI2C5_I2C5CON.setSCLREL; inline;
  29050. begin
  29051. pTDefRegMap(@Self)^.&set := $00001000;
  29052. end;
  29053. procedure TI2C5_I2C5CON.clearSCLREL; inline;
  29054. begin
  29055. pTDefRegMap(@Self)^.clr := $00001000;
  29056. end;
  29057. procedure TI2C5_I2C5CON.setSCLREL(thebits : TBits_1); inline;
  29058. begin
  29059. if thebits = 0 then
  29060. pTDefRegMap(@Self)^.clr := $00001000
  29061. else
  29062. pTDefRegMap(@Self)^.&set := $00001000;
  29063. end;
  29064. function TI2C5_I2C5CON.getSCLREL : TBits_1; inline;
  29065. begin
  29066. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  29067. end;
  29068. procedure TI2C5_I2C5CON.setSIDL; inline;
  29069. begin
  29070. pTDefRegMap(@Self)^.&set := $00002000;
  29071. end;
  29072. procedure TI2C5_I2C5CON.clearSIDL; inline;
  29073. begin
  29074. pTDefRegMap(@Self)^.clr := $00002000;
  29075. end;
  29076. procedure TI2C5_I2C5CON.setSIDL(thebits : TBits_1); inline;
  29077. begin
  29078. if thebits = 0 then
  29079. pTDefRegMap(@Self)^.clr := $00002000
  29080. else
  29081. pTDefRegMap(@Self)^.&set := $00002000;
  29082. end;
  29083. function TI2C5_I2C5CON.getSIDL : TBits_1; inline;
  29084. begin
  29085. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29086. end;
  29087. procedure TI2C5_I2C5CON.setON; inline;
  29088. begin
  29089. pTDefRegMap(@Self)^.&set := $00008000;
  29090. end;
  29091. procedure TI2C5_I2C5CON.clearON; inline;
  29092. begin
  29093. pTDefRegMap(@Self)^.clr := $00008000;
  29094. end;
  29095. procedure TI2C5_I2C5CON.setON(thebits : TBits_1); inline;
  29096. begin
  29097. if thebits = 0 then
  29098. pTDefRegMap(@Self)^.clr := $00008000
  29099. else
  29100. pTDefRegMap(@Self)^.&set := $00008000;
  29101. end;
  29102. function TI2C5_I2C5CON.getON : TBits_1; inline;
  29103. begin
  29104. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29105. end;
  29106. procedure TI2C5_I2C5CON.setIPMIEN; inline;
  29107. begin
  29108. pTDefRegMap(@Self)^.&set := $00000800;
  29109. end;
  29110. procedure TI2C5_I2C5CON.clearIPMIEN; inline;
  29111. begin
  29112. pTDefRegMap(@Self)^.clr := $00000800;
  29113. end;
  29114. procedure TI2C5_I2C5CON.setIPMIEN(thebits : TBits_1); inline;
  29115. begin
  29116. if thebits = 0 then
  29117. pTDefRegMap(@Self)^.clr := $00000800
  29118. else
  29119. pTDefRegMap(@Self)^.&set := $00000800;
  29120. end;
  29121. function TI2C5_I2C5CON.getIPMIEN : TBits_1; inline;
  29122. begin
  29123. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29124. end;
  29125. procedure TI2C5_I2C5CON.setI2CSIDL; inline;
  29126. begin
  29127. pTDefRegMap(@Self)^.&set := $00002000;
  29128. end;
  29129. procedure TI2C5_I2C5CON.clearI2CSIDL; inline;
  29130. begin
  29131. pTDefRegMap(@Self)^.clr := $00002000;
  29132. end;
  29133. procedure TI2C5_I2C5CON.setI2CSIDL(thebits : TBits_1); inline;
  29134. begin
  29135. if thebits = 0 then
  29136. pTDefRegMap(@Self)^.clr := $00002000
  29137. else
  29138. pTDefRegMap(@Self)^.&set := $00002000;
  29139. end;
  29140. function TI2C5_I2C5CON.getI2CSIDL : TBits_1; inline;
  29141. begin
  29142. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29143. end;
  29144. procedure TI2C5_I2C5CON.setI2CEN; inline;
  29145. begin
  29146. pTDefRegMap(@Self)^.&set := $00008000;
  29147. end;
  29148. procedure TI2C5_I2C5CON.clearI2CEN; inline;
  29149. begin
  29150. pTDefRegMap(@Self)^.clr := $00008000;
  29151. end;
  29152. procedure TI2C5_I2C5CON.setI2CEN(thebits : TBits_1); inline;
  29153. begin
  29154. if thebits = 0 then
  29155. pTDefRegMap(@Self)^.clr := $00008000
  29156. else
  29157. pTDefRegMap(@Self)^.&set := $00008000;
  29158. end;
  29159. function TI2C5_I2C5CON.getI2CEN : TBits_1; inline;
  29160. begin
  29161. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29162. end;
  29163. procedure TI2C5_I2C5CON.setw(thebits : TBits_32); inline;
  29164. begin
  29165. pTDefRegMap(@Self)^.val := thebits;
  29166. end;
  29167. function TI2C5_I2C5CON.getw : TBits_32; inline;
  29168. begin
  29169. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29170. end;
  29171. procedure TI2C5_I2C3ASTAT.setTBF; inline;
  29172. begin
  29173. pTDefRegMap(@Self)^.&set := $00000001;
  29174. end;
  29175. procedure TI2C5_I2C3ASTAT.clearTBF; inline;
  29176. begin
  29177. pTDefRegMap(@Self)^.clr := $00000001;
  29178. end;
  29179. procedure TI2C5_I2C3ASTAT.setTBF(thebits : TBits_1); inline;
  29180. begin
  29181. if thebits = 0 then
  29182. pTDefRegMap(@Self)^.clr := $00000001
  29183. else
  29184. pTDefRegMap(@Self)^.&set := $00000001;
  29185. end;
  29186. function TI2C5_I2C3ASTAT.getTBF : TBits_1; inline;
  29187. begin
  29188. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29189. end;
  29190. procedure TI2C5_I2C3ASTAT.setRBF; inline;
  29191. begin
  29192. pTDefRegMap(@Self)^.&set := $00000002;
  29193. end;
  29194. procedure TI2C5_I2C3ASTAT.clearRBF; inline;
  29195. begin
  29196. pTDefRegMap(@Self)^.clr := $00000002;
  29197. end;
  29198. procedure TI2C5_I2C3ASTAT.setRBF(thebits : TBits_1); inline;
  29199. begin
  29200. if thebits = 0 then
  29201. pTDefRegMap(@Self)^.clr := $00000002
  29202. else
  29203. pTDefRegMap(@Self)^.&set := $00000002;
  29204. end;
  29205. function TI2C5_I2C3ASTAT.getRBF : TBits_1; inline;
  29206. begin
  29207. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29208. end;
  29209. procedure TI2C5_I2C3ASTAT.setR_W; inline;
  29210. begin
  29211. pTDefRegMap(@Self)^.&set := $00000004;
  29212. end;
  29213. procedure TI2C5_I2C3ASTAT.clearR_W; inline;
  29214. begin
  29215. pTDefRegMap(@Self)^.clr := $00000004;
  29216. end;
  29217. procedure TI2C5_I2C3ASTAT.setR_W(thebits : TBits_1); inline;
  29218. begin
  29219. if thebits = 0 then
  29220. pTDefRegMap(@Self)^.clr := $00000004
  29221. else
  29222. pTDefRegMap(@Self)^.&set := $00000004;
  29223. end;
  29224. function TI2C5_I2C3ASTAT.getR_W : TBits_1; inline;
  29225. begin
  29226. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29227. end;
  29228. procedure TI2C5_I2C3ASTAT.setS; inline;
  29229. begin
  29230. pTDefRegMap(@Self)^.&set := $00000008;
  29231. end;
  29232. procedure TI2C5_I2C3ASTAT.clearS; inline;
  29233. begin
  29234. pTDefRegMap(@Self)^.clr := $00000008;
  29235. end;
  29236. procedure TI2C5_I2C3ASTAT.setS(thebits : TBits_1); inline;
  29237. begin
  29238. if thebits = 0 then
  29239. pTDefRegMap(@Self)^.clr := $00000008
  29240. else
  29241. pTDefRegMap(@Self)^.&set := $00000008;
  29242. end;
  29243. function TI2C5_I2C3ASTAT.getS : TBits_1; inline;
  29244. begin
  29245. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29246. end;
  29247. procedure TI2C5_I2C3ASTAT.setP; inline;
  29248. begin
  29249. pTDefRegMap(@Self)^.&set := $00000010;
  29250. end;
  29251. procedure TI2C5_I2C3ASTAT.clearP; inline;
  29252. begin
  29253. pTDefRegMap(@Self)^.clr := $00000010;
  29254. end;
  29255. procedure TI2C5_I2C3ASTAT.setP(thebits : TBits_1); inline;
  29256. begin
  29257. if thebits = 0 then
  29258. pTDefRegMap(@Self)^.clr := $00000010
  29259. else
  29260. pTDefRegMap(@Self)^.&set := $00000010;
  29261. end;
  29262. function TI2C5_I2C3ASTAT.getP : TBits_1; inline;
  29263. begin
  29264. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29265. end;
  29266. procedure TI2C5_I2C3ASTAT.setD_A; inline;
  29267. begin
  29268. pTDefRegMap(@Self)^.&set := $00000020;
  29269. end;
  29270. procedure TI2C5_I2C3ASTAT.clearD_A; inline;
  29271. begin
  29272. pTDefRegMap(@Self)^.clr := $00000020;
  29273. end;
  29274. procedure TI2C5_I2C3ASTAT.setD_A(thebits : TBits_1); inline;
  29275. begin
  29276. if thebits = 0 then
  29277. pTDefRegMap(@Self)^.clr := $00000020
  29278. else
  29279. pTDefRegMap(@Self)^.&set := $00000020;
  29280. end;
  29281. function TI2C5_I2C3ASTAT.getD_A : TBits_1; inline;
  29282. begin
  29283. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29284. end;
  29285. procedure TI2C5_I2C3ASTAT.setI2COV; inline;
  29286. begin
  29287. pTDefRegMap(@Self)^.&set := $00000040;
  29288. end;
  29289. procedure TI2C5_I2C3ASTAT.clearI2COV; inline;
  29290. begin
  29291. pTDefRegMap(@Self)^.clr := $00000040;
  29292. end;
  29293. procedure TI2C5_I2C3ASTAT.setI2COV(thebits : TBits_1); inline;
  29294. begin
  29295. if thebits = 0 then
  29296. pTDefRegMap(@Self)^.clr := $00000040
  29297. else
  29298. pTDefRegMap(@Self)^.&set := $00000040;
  29299. end;
  29300. function TI2C5_I2C3ASTAT.getI2COV : TBits_1; inline;
  29301. begin
  29302. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29303. end;
  29304. procedure TI2C5_I2C3ASTAT.setIWCOL; inline;
  29305. begin
  29306. pTDefRegMap(@Self)^.&set := $00000080;
  29307. end;
  29308. procedure TI2C5_I2C3ASTAT.clearIWCOL; inline;
  29309. begin
  29310. pTDefRegMap(@Self)^.clr := $00000080;
  29311. end;
  29312. procedure TI2C5_I2C3ASTAT.setIWCOL(thebits : TBits_1); inline;
  29313. begin
  29314. if thebits = 0 then
  29315. pTDefRegMap(@Self)^.clr := $00000080
  29316. else
  29317. pTDefRegMap(@Self)^.&set := $00000080;
  29318. end;
  29319. function TI2C5_I2C3ASTAT.getIWCOL : TBits_1; inline;
  29320. begin
  29321. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29322. end;
  29323. procedure TI2C5_I2C3ASTAT.setADD10; inline;
  29324. begin
  29325. pTDefRegMap(@Self)^.&set := $00000100;
  29326. end;
  29327. procedure TI2C5_I2C3ASTAT.clearADD10; inline;
  29328. begin
  29329. pTDefRegMap(@Self)^.clr := $00000100;
  29330. end;
  29331. procedure TI2C5_I2C3ASTAT.setADD10(thebits : TBits_1); inline;
  29332. begin
  29333. if thebits = 0 then
  29334. pTDefRegMap(@Self)^.clr := $00000100
  29335. else
  29336. pTDefRegMap(@Self)^.&set := $00000100;
  29337. end;
  29338. function TI2C5_I2C3ASTAT.getADD10 : TBits_1; inline;
  29339. begin
  29340. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29341. end;
  29342. procedure TI2C5_I2C3ASTAT.setGCSTAT; inline;
  29343. begin
  29344. pTDefRegMap(@Self)^.&set := $00000200;
  29345. end;
  29346. procedure TI2C5_I2C3ASTAT.clearGCSTAT; inline;
  29347. begin
  29348. pTDefRegMap(@Self)^.clr := $00000200;
  29349. end;
  29350. procedure TI2C5_I2C3ASTAT.setGCSTAT(thebits : TBits_1); inline;
  29351. begin
  29352. if thebits = 0 then
  29353. pTDefRegMap(@Self)^.clr := $00000200
  29354. else
  29355. pTDefRegMap(@Self)^.&set := $00000200;
  29356. end;
  29357. function TI2C5_I2C3ASTAT.getGCSTAT : TBits_1; inline;
  29358. begin
  29359. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29360. end;
  29361. procedure TI2C5_I2C3ASTAT.setBCL; inline;
  29362. begin
  29363. pTDefRegMap(@Self)^.&set := $00000400;
  29364. end;
  29365. procedure TI2C5_I2C3ASTAT.clearBCL; inline;
  29366. begin
  29367. pTDefRegMap(@Self)^.clr := $00000400;
  29368. end;
  29369. procedure TI2C5_I2C3ASTAT.setBCL(thebits : TBits_1); inline;
  29370. begin
  29371. if thebits = 0 then
  29372. pTDefRegMap(@Self)^.clr := $00000400
  29373. else
  29374. pTDefRegMap(@Self)^.&set := $00000400;
  29375. end;
  29376. function TI2C5_I2C3ASTAT.getBCL : TBits_1; inline;
  29377. begin
  29378. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29379. end;
  29380. procedure TI2C5_I2C3ASTAT.setTRSTAT; inline;
  29381. begin
  29382. pTDefRegMap(@Self)^.&set := $00004000;
  29383. end;
  29384. procedure TI2C5_I2C3ASTAT.clearTRSTAT; inline;
  29385. begin
  29386. pTDefRegMap(@Self)^.clr := $00004000;
  29387. end;
  29388. procedure TI2C5_I2C3ASTAT.setTRSTAT(thebits : TBits_1); inline;
  29389. begin
  29390. if thebits = 0 then
  29391. pTDefRegMap(@Self)^.clr := $00004000
  29392. else
  29393. pTDefRegMap(@Self)^.&set := $00004000;
  29394. end;
  29395. function TI2C5_I2C3ASTAT.getTRSTAT : TBits_1; inline;
  29396. begin
  29397. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  29398. end;
  29399. procedure TI2C5_I2C3ASTAT.setACKSTAT; inline;
  29400. begin
  29401. pTDefRegMap(@Self)^.&set := $00008000;
  29402. end;
  29403. procedure TI2C5_I2C3ASTAT.clearACKSTAT; inline;
  29404. begin
  29405. pTDefRegMap(@Self)^.clr := $00008000;
  29406. end;
  29407. procedure TI2C5_I2C3ASTAT.setACKSTAT(thebits : TBits_1); inline;
  29408. begin
  29409. if thebits = 0 then
  29410. pTDefRegMap(@Self)^.clr := $00008000
  29411. else
  29412. pTDefRegMap(@Self)^.&set := $00008000;
  29413. end;
  29414. function TI2C5_I2C3ASTAT.getACKSTAT : TBits_1; inline;
  29415. begin
  29416. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29417. end;
  29418. procedure TI2C5_I2C3ASTAT.setI2CPOV; inline;
  29419. begin
  29420. pTDefRegMap(@Self)^.&set := $00000040;
  29421. end;
  29422. procedure TI2C5_I2C3ASTAT.clearI2CPOV; inline;
  29423. begin
  29424. pTDefRegMap(@Self)^.clr := $00000040;
  29425. end;
  29426. procedure TI2C5_I2C3ASTAT.setI2CPOV(thebits : TBits_1); inline;
  29427. begin
  29428. if thebits = 0 then
  29429. pTDefRegMap(@Self)^.clr := $00000040
  29430. else
  29431. pTDefRegMap(@Self)^.&set := $00000040;
  29432. end;
  29433. function TI2C5_I2C3ASTAT.getI2CPOV : TBits_1; inline;
  29434. begin
  29435. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29436. end;
  29437. procedure TI2C5_I2C3ASTAT.setw(thebits : TBits_32); inline;
  29438. begin
  29439. pTDefRegMap(@Self)^.val := thebits;
  29440. end;
  29441. function TI2C5_I2C3ASTAT.getw : TBits_32; inline;
  29442. begin
  29443. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29444. end;
  29445. procedure TI2C5_I2C5STAT.setTBF; inline;
  29446. begin
  29447. pTDefRegMap(@Self)^.&set := $00000001;
  29448. end;
  29449. procedure TI2C5_I2C5STAT.clearTBF; inline;
  29450. begin
  29451. pTDefRegMap(@Self)^.clr := $00000001;
  29452. end;
  29453. procedure TI2C5_I2C5STAT.setTBF(thebits : TBits_1); inline;
  29454. begin
  29455. if thebits = 0 then
  29456. pTDefRegMap(@Self)^.clr := $00000001
  29457. else
  29458. pTDefRegMap(@Self)^.&set := $00000001;
  29459. end;
  29460. function TI2C5_I2C5STAT.getTBF : TBits_1; inline;
  29461. begin
  29462. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29463. end;
  29464. procedure TI2C5_I2C5STAT.setRBF; inline;
  29465. begin
  29466. pTDefRegMap(@Self)^.&set := $00000002;
  29467. end;
  29468. procedure TI2C5_I2C5STAT.clearRBF; inline;
  29469. begin
  29470. pTDefRegMap(@Self)^.clr := $00000002;
  29471. end;
  29472. procedure TI2C5_I2C5STAT.setRBF(thebits : TBits_1); inline;
  29473. begin
  29474. if thebits = 0 then
  29475. pTDefRegMap(@Self)^.clr := $00000002
  29476. else
  29477. pTDefRegMap(@Self)^.&set := $00000002;
  29478. end;
  29479. function TI2C5_I2C5STAT.getRBF : TBits_1; inline;
  29480. begin
  29481. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29482. end;
  29483. procedure TI2C5_I2C5STAT.setR_W; inline;
  29484. begin
  29485. pTDefRegMap(@Self)^.&set := $00000004;
  29486. end;
  29487. procedure TI2C5_I2C5STAT.clearR_W; inline;
  29488. begin
  29489. pTDefRegMap(@Self)^.clr := $00000004;
  29490. end;
  29491. procedure TI2C5_I2C5STAT.setR_W(thebits : TBits_1); inline;
  29492. begin
  29493. if thebits = 0 then
  29494. pTDefRegMap(@Self)^.clr := $00000004
  29495. else
  29496. pTDefRegMap(@Self)^.&set := $00000004;
  29497. end;
  29498. function TI2C5_I2C5STAT.getR_W : TBits_1; inline;
  29499. begin
  29500. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29501. end;
  29502. procedure TI2C5_I2C5STAT.setS; inline;
  29503. begin
  29504. pTDefRegMap(@Self)^.&set := $00000008;
  29505. end;
  29506. procedure TI2C5_I2C5STAT.clearS; inline;
  29507. begin
  29508. pTDefRegMap(@Self)^.clr := $00000008;
  29509. end;
  29510. procedure TI2C5_I2C5STAT.setS(thebits : TBits_1); inline;
  29511. begin
  29512. if thebits = 0 then
  29513. pTDefRegMap(@Self)^.clr := $00000008
  29514. else
  29515. pTDefRegMap(@Self)^.&set := $00000008;
  29516. end;
  29517. function TI2C5_I2C5STAT.getS : TBits_1; inline;
  29518. begin
  29519. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29520. end;
  29521. procedure TI2C5_I2C5STAT.setP; inline;
  29522. begin
  29523. pTDefRegMap(@Self)^.&set := $00000010;
  29524. end;
  29525. procedure TI2C5_I2C5STAT.clearP; inline;
  29526. begin
  29527. pTDefRegMap(@Self)^.clr := $00000010;
  29528. end;
  29529. procedure TI2C5_I2C5STAT.setP(thebits : TBits_1); inline;
  29530. begin
  29531. if thebits = 0 then
  29532. pTDefRegMap(@Self)^.clr := $00000010
  29533. else
  29534. pTDefRegMap(@Self)^.&set := $00000010;
  29535. end;
  29536. function TI2C5_I2C5STAT.getP : TBits_1; inline;
  29537. begin
  29538. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29539. end;
  29540. procedure TI2C5_I2C5STAT.setD_A; inline;
  29541. begin
  29542. pTDefRegMap(@Self)^.&set := $00000020;
  29543. end;
  29544. procedure TI2C5_I2C5STAT.clearD_A; inline;
  29545. begin
  29546. pTDefRegMap(@Self)^.clr := $00000020;
  29547. end;
  29548. procedure TI2C5_I2C5STAT.setD_A(thebits : TBits_1); inline;
  29549. begin
  29550. if thebits = 0 then
  29551. pTDefRegMap(@Self)^.clr := $00000020
  29552. else
  29553. pTDefRegMap(@Self)^.&set := $00000020;
  29554. end;
  29555. function TI2C5_I2C5STAT.getD_A : TBits_1; inline;
  29556. begin
  29557. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29558. end;
  29559. procedure TI2C5_I2C5STAT.setI2COV; inline;
  29560. begin
  29561. pTDefRegMap(@Self)^.&set := $00000040;
  29562. end;
  29563. procedure TI2C5_I2C5STAT.clearI2COV; inline;
  29564. begin
  29565. pTDefRegMap(@Self)^.clr := $00000040;
  29566. end;
  29567. procedure TI2C5_I2C5STAT.setI2COV(thebits : TBits_1); inline;
  29568. begin
  29569. if thebits = 0 then
  29570. pTDefRegMap(@Self)^.clr := $00000040
  29571. else
  29572. pTDefRegMap(@Self)^.&set := $00000040;
  29573. end;
  29574. function TI2C5_I2C5STAT.getI2COV : TBits_1; inline;
  29575. begin
  29576. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29577. end;
  29578. procedure TI2C5_I2C5STAT.setIWCOL; inline;
  29579. begin
  29580. pTDefRegMap(@Self)^.&set := $00000080;
  29581. end;
  29582. procedure TI2C5_I2C5STAT.clearIWCOL; inline;
  29583. begin
  29584. pTDefRegMap(@Self)^.clr := $00000080;
  29585. end;
  29586. procedure TI2C5_I2C5STAT.setIWCOL(thebits : TBits_1); inline;
  29587. begin
  29588. if thebits = 0 then
  29589. pTDefRegMap(@Self)^.clr := $00000080
  29590. else
  29591. pTDefRegMap(@Self)^.&set := $00000080;
  29592. end;
  29593. function TI2C5_I2C5STAT.getIWCOL : TBits_1; inline;
  29594. begin
  29595. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29596. end;
  29597. procedure TI2C5_I2C5STAT.setADD10; inline;
  29598. begin
  29599. pTDefRegMap(@Self)^.&set := $00000100;
  29600. end;
  29601. procedure TI2C5_I2C5STAT.clearADD10; inline;
  29602. begin
  29603. pTDefRegMap(@Self)^.clr := $00000100;
  29604. end;
  29605. procedure TI2C5_I2C5STAT.setADD10(thebits : TBits_1); inline;
  29606. begin
  29607. if thebits = 0 then
  29608. pTDefRegMap(@Self)^.clr := $00000100
  29609. else
  29610. pTDefRegMap(@Self)^.&set := $00000100;
  29611. end;
  29612. function TI2C5_I2C5STAT.getADD10 : TBits_1; inline;
  29613. begin
  29614. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29615. end;
  29616. procedure TI2C5_I2C5STAT.setGCSTAT; inline;
  29617. begin
  29618. pTDefRegMap(@Self)^.&set := $00000200;
  29619. end;
  29620. procedure TI2C5_I2C5STAT.clearGCSTAT; inline;
  29621. begin
  29622. pTDefRegMap(@Self)^.clr := $00000200;
  29623. end;
  29624. procedure TI2C5_I2C5STAT.setGCSTAT(thebits : TBits_1); inline;
  29625. begin
  29626. if thebits = 0 then
  29627. pTDefRegMap(@Self)^.clr := $00000200
  29628. else
  29629. pTDefRegMap(@Self)^.&set := $00000200;
  29630. end;
  29631. function TI2C5_I2C5STAT.getGCSTAT : TBits_1; inline;
  29632. begin
  29633. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29634. end;
  29635. procedure TI2C5_I2C5STAT.setBCL; inline;
  29636. begin
  29637. pTDefRegMap(@Self)^.&set := $00000400;
  29638. end;
  29639. procedure TI2C5_I2C5STAT.clearBCL; inline;
  29640. begin
  29641. pTDefRegMap(@Self)^.clr := $00000400;
  29642. end;
  29643. procedure TI2C5_I2C5STAT.setBCL(thebits : TBits_1); inline;
  29644. begin
  29645. if thebits = 0 then
  29646. pTDefRegMap(@Self)^.clr := $00000400
  29647. else
  29648. pTDefRegMap(@Self)^.&set := $00000400;
  29649. end;
  29650. function TI2C5_I2C5STAT.getBCL : TBits_1; inline;
  29651. begin
  29652. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29653. end;
  29654. procedure TI2C5_I2C5STAT.setTRSTAT; inline;
  29655. begin
  29656. pTDefRegMap(@Self)^.&set := $00004000;
  29657. end;
  29658. procedure TI2C5_I2C5STAT.clearTRSTAT; inline;
  29659. begin
  29660. pTDefRegMap(@Self)^.clr := $00004000;
  29661. end;
  29662. procedure TI2C5_I2C5STAT.setTRSTAT(thebits : TBits_1); inline;
  29663. begin
  29664. if thebits = 0 then
  29665. pTDefRegMap(@Self)^.clr := $00004000
  29666. else
  29667. pTDefRegMap(@Self)^.&set := $00004000;
  29668. end;
  29669. function TI2C5_I2C5STAT.getTRSTAT : TBits_1; inline;
  29670. begin
  29671. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  29672. end;
  29673. procedure TI2C5_I2C5STAT.setACKSTAT; inline;
  29674. begin
  29675. pTDefRegMap(@Self)^.&set := $00008000;
  29676. end;
  29677. procedure TI2C5_I2C5STAT.clearACKSTAT; inline;
  29678. begin
  29679. pTDefRegMap(@Self)^.clr := $00008000;
  29680. end;
  29681. procedure TI2C5_I2C5STAT.setACKSTAT(thebits : TBits_1); inline;
  29682. begin
  29683. if thebits = 0 then
  29684. pTDefRegMap(@Self)^.clr := $00008000
  29685. else
  29686. pTDefRegMap(@Self)^.&set := $00008000;
  29687. end;
  29688. function TI2C5_I2C5STAT.getACKSTAT : TBits_1; inline;
  29689. begin
  29690. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  29691. end;
  29692. procedure TI2C5_I2C5STAT.setI2CPOV; inline;
  29693. begin
  29694. pTDefRegMap(@Self)^.&set := $00000040;
  29695. end;
  29696. procedure TI2C5_I2C5STAT.clearI2CPOV; inline;
  29697. begin
  29698. pTDefRegMap(@Self)^.clr := $00000040;
  29699. end;
  29700. procedure TI2C5_I2C5STAT.setI2CPOV(thebits : TBits_1); inline;
  29701. begin
  29702. if thebits = 0 then
  29703. pTDefRegMap(@Self)^.clr := $00000040
  29704. else
  29705. pTDefRegMap(@Self)^.&set := $00000040;
  29706. end;
  29707. function TI2C5_I2C5STAT.getI2CPOV : TBits_1; inline;
  29708. begin
  29709. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29710. end;
  29711. procedure TI2C5_I2C5STAT.setw(thebits : TBits_32); inline;
  29712. begin
  29713. pTDefRegMap(@Self)^.val := thebits;
  29714. end;
  29715. function TI2C5_I2C5STAT.getw : TBits_32; inline;
  29716. begin
  29717. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  29718. end;
  29719. procedure TI2C1_I2C1CON.setSEN; inline;
  29720. begin
  29721. pTDefRegMap(@Self)^.&set := $00000001;
  29722. end;
  29723. procedure TI2C1_I2C1CON.clearSEN; inline;
  29724. begin
  29725. pTDefRegMap(@Self)^.clr := $00000001;
  29726. end;
  29727. procedure TI2C1_I2C1CON.setSEN(thebits : TBits_1); inline;
  29728. begin
  29729. if thebits = 0 then
  29730. pTDefRegMap(@Self)^.clr := $00000001
  29731. else
  29732. pTDefRegMap(@Self)^.&set := $00000001;
  29733. end;
  29734. function TI2C1_I2C1CON.getSEN : TBits_1; inline;
  29735. begin
  29736. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  29737. end;
  29738. procedure TI2C1_I2C1CON.setRSEN; inline;
  29739. begin
  29740. pTDefRegMap(@Self)^.&set := $00000002;
  29741. end;
  29742. procedure TI2C1_I2C1CON.clearRSEN; inline;
  29743. begin
  29744. pTDefRegMap(@Self)^.clr := $00000002;
  29745. end;
  29746. procedure TI2C1_I2C1CON.setRSEN(thebits : TBits_1); inline;
  29747. begin
  29748. if thebits = 0 then
  29749. pTDefRegMap(@Self)^.clr := $00000002
  29750. else
  29751. pTDefRegMap(@Self)^.&set := $00000002;
  29752. end;
  29753. function TI2C1_I2C1CON.getRSEN : TBits_1; inline;
  29754. begin
  29755. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  29756. end;
  29757. procedure TI2C1_I2C1CON.setPEN; inline;
  29758. begin
  29759. pTDefRegMap(@Self)^.&set := $00000004;
  29760. end;
  29761. procedure TI2C1_I2C1CON.clearPEN; inline;
  29762. begin
  29763. pTDefRegMap(@Self)^.clr := $00000004;
  29764. end;
  29765. procedure TI2C1_I2C1CON.setPEN(thebits : TBits_1); inline;
  29766. begin
  29767. if thebits = 0 then
  29768. pTDefRegMap(@Self)^.clr := $00000004
  29769. else
  29770. pTDefRegMap(@Self)^.&set := $00000004;
  29771. end;
  29772. function TI2C1_I2C1CON.getPEN : TBits_1; inline;
  29773. begin
  29774. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  29775. end;
  29776. procedure TI2C1_I2C1CON.setRCEN; inline;
  29777. begin
  29778. pTDefRegMap(@Self)^.&set := $00000008;
  29779. end;
  29780. procedure TI2C1_I2C1CON.clearRCEN; inline;
  29781. begin
  29782. pTDefRegMap(@Self)^.clr := $00000008;
  29783. end;
  29784. procedure TI2C1_I2C1CON.setRCEN(thebits : TBits_1); inline;
  29785. begin
  29786. if thebits = 0 then
  29787. pTDefRegMap(@Self)^.clr := $00000008
  29788. else
  29789. pTDefRegMap(@Self)^.&set := $00000008;
  29790. end;
  29791. function TI2C1_I2C1CON.getRCEN : TBits_1; inline;
  29792. begin
  29793. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  29794. end;
  29795. procedure TI2C1_I2C1CON.setACKEN; inline;
  29796. begin
  29797. pTDefRegMap(@Self)^.&set := $00000010;
  29798. end;
  29799. procedure TI2C1_I2C1CON.clearACKEN; inline;
  29800. begin
  29801. pTDefRegMap(@Self)^.clr := $00000010;
  29802. end;
  29803. procedure TI2C1_I2C1CON.setACKEN(thebits : TBits_1); inline;
  29804. begin
  29805. if thebits = 0 then
  29806. pTDefRegMap(@Self)^.clr := $00000010
  29807. else
  29808. pTDefRegMap(@Self)^.&set := $00000010;
  29809. end;
  29810. function TI2C1_I2C1CON.getACKEN : TBits_1; inline;
  29811. begin
  29812. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  29813. end;
  29814. procedure TI2C1_I2C1CON.setACKDT; inline;
  29815. begin
  29816. pTDefRegMap(@Self)^.&set := $00000020;
  29817. end;
  29818. procedure TI2C1_I2C1CON.clearACKDT; inline;
  29819. begin
  29820. pTDefRegMap(@Self)^.clr := $00000020;
  29821. end;
  29822. procedure TI2C1_I2C1CON.setACKDT(thebits : TBits_1); inline;
  29823. begin
  29824. if thebits = 0 then
  29825. pTDefRegMap(@Self)^.clr := $00000020
  29826. else
  29827. pTDefRegMap(@Self)^.&set := $00000020;
  29828. end;
  29829. function TI2C1_I2C1CON.getACKDT : TBits_1; inline;
  29830. begin
  29831. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  29832. end;
  29833. procedure TI2C1_I2C1CON.setSTREN; inline;
  29834. begin
  29835. pTDefRegMap(@Self)^.&set := $00000040;
  29836. end;
  29837. procedure TI2C1_I2C1CON.clearSTREN; inline;
  29838. begin
  29839. pTDefRegMap(@Self)^.clr := $00000040;
  29840. end;
  29841. procedure TI2C1_I2C1CON.setSTREN(thebits : TBits_1); inline;
  29842. begin
  29843. if thebits = 0 then
  29844. pTDefRegMap(@Self)^.clr := $00000040
  29845. else
  29846. pTDefRegMap(@Self)^.&set := $00000040;
  29847. end;
  29848. function TI2C1_I2C1CON.getSTREN : TBits_1; inline;
  29849. begin
  29850. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  29851. end;
  29852. procedure TI2C1_I2C1CON.setGCEN; inline;
  29853. begin
  29854. pTDefRegMap(@Self)^.&set := $00000080;
  29855. end;
  29856. procedure TI2C1_I2C1CON.clearGCEN; inline;
  29857. begin
  29858. pTDefRegMap(@Self)^.clr := $00000080;
  29859. end;
  29860. procedure TI2C1_I2C1CON.setGCEN(thebits : TBits_1); inline;
  29861. begin
  29862. if thebits = 0 then
  29863. pTDefRegMap(@Self)^.clr := $00000080
  29864. else
  29865. pTDefRegMap(@Self)^.&set := $00000080;
  29866. end;
  29867. function TI2C1_I2C1CON.getGCEN : TBits_1; inline;
  29868. begin
  29869. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  29870. end;
  29871. procedure TI2C1_I2C1CON.setSMEN; inline;
  29872. begin
  29873. pTDefRegMap(@Self)^.&set := $00000100;
  29874. end;
  29875. procedure TI2C1_I2C1CON.clearSMEN; inline;
  29876. begin
  29877. pTDefRegMap(@Self)^.clr := $00000100;
  29878. end;
  29879. procedure TI2C1_I2C1CON.setSMEN(thebits : TBits_1); inline;
  29880. begin
  29881. if thebits = 0 then
  29882. pTDefRegMap(@Self)^.clr := $00000100
  29883. else
  29884. pTDefRegMap(@Self)^.&set := $00000100;
  29885. end;
  29886. function TI2C1_I2C1CON.getSMEN : TBits_1; inline;
  29887. begin
  29888. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  29889. end;
  29890. procedure TI2C1_I2C1CON.setDISSLW; inline;
  29891. begin
  29892. pTDefRegMap(@Self)^.&set := $00000200;
  29893. end;
  29894. procedure TI2C1_I2C1CON.clearDISSLW; inline;
  29895. begin
  29896. pTDefRegMap(@Self)^.clr := $00000200;
  29897. end;
  29898. procedure TI2C1_I2C1CON.setDISSLW(thebits : TBits_1); inline;
  29899. begin
  29900. if thebits = 0 then
  29901. pTDefRegMap(@Self)^.clr := $00000200
  29902. else
  29903. pTDefRegMap(@Self)^.&set := $00000200;
  29904. end;
  29905. function TI2C1_I2C1CON.getDISSLW : TBits_1; inline;
  29906. begin
  29907. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  29908. end;
  29909. procedure TI2C1_I2C1CON.setA10M; inline;
  29910. begin
  29911. pTDefRegMap(@Self)^.&set := $00000400;
  29912. end;
  29913. procedure TI2C1_I2C1CON.clearA10M; inline;
  29914. begin
  29915. pTDefRegMap(@Self)^.clr := $00000400;
  29916. end;
  29917. procedure TI2C1_I2C1CON.setA10M(thebits : TBits_1); inline;
  29918. begin
  29919. if thebits = 0 then
  29920. pTDefRegMap(@Self)^.clr := $00000400
  29921. else
  29922. pTDefRegMap(@Self)^.&set := $00000400;
  29923. end;
  29924. function TI2C1_I2C1CON.getA10M : TBits_1; inline;
  29925. begin
  29926. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  29927. end;
  29928. procedure TI2C1_I2C1CON.setSTRICT; inline;
  29929. begin
  29930. pTDefRegMap(@Self)^.&set := $00000800;
  29931. end;
  29932. procedure TI2C1_I2C1CON.clearSTRICT; inline;
  29933. begin
  29934. pTDefRegMap(@Self)^.clr := $00000800;
  29935. end;
  29936. procedure TI2C1_I2C1CON.setSTRICT(thebits : TBits_1); inline;
  29937. begin
  29938. if thebits = 0 then
  29939. pTDefRegMap(@Self)^.clr := $00000800
  29940. else
  29941. pTDefRegMap(@Self)^.&set := $00000800;
  29942. end;
  29943. function TI2C1_I2C1CON.getSTRICT : TBits_1; inline;
  29944. begin
  29945. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  29946. end;
  29947. procedure TI2C1_I2C1CON.setSCLREL; inline;
  29948. begin
  29949. pTDefRegMap(@Self)^.&set := $00001000;
  29950. end;
  29951. procedure TI2C1_I2C1CON.clearSCLREL; inline;
  29952. begin
  29953. pTDefRegMap(@Self)^.clr := $00001000;
  29954. end;
  29955. procedure TI2C1_I2C1CON.setSCLREL(thebits : TBits_1); inline;
  29956. begin
  29957. if thebits = 0 then
  29958. pTDefRegMap(@Self)^.clr := $00001000
  29959. else
  29960. pTDefRegMap(@Self)^.&set := $00001000;
  29961. end;
  29962. function TI2C1_I2C1CON.getSCLREL : TBits_1; inline;
  29963. begin
  29964. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  29965. end;
  29966. procedure TI2C1_I2C1CON.setSIDL; inline;
  29967. begin
  29968. pTDefRegMap(@Self)^.&set := $00002000;
  29969. end;
  29970. procedure TI2C1_I2C1CON.clearSIDL; inline;
  29971. begin
  29972. pTDefRegMap(@Self)^.clr := $00002000;
  29973. end;
  29974. procedure TI2C1_I2C1CON.setSIDL(thebits : TBits_1); inline;
  29975. begin
  29976. if thebits = 0 then
  29977. pTDefRegMap(@Self)^.clr := $00002000
  29978. else
  29979. pTDefRegMap(@Self)^.&set := $00002000;
  29980. end;
  29981. function TI2C1_I2C1CON.getSIDL : TBits_1; inline;
  29982. begin
  29983. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  29984. end;
  29985. procedure TI2C1_I2C1CON.setON; inline;
  29986. begin
  29987. pTDefRegMap(@Self)^.&set := $00008000;
  29988. end;
  29989. procedure TI2C1_I2C1CON.clearON; inline;
  29990. begin
  29991. pTDefRegMap(@Self)^.clr := $00008000;
  29992. end;
  29993. procedure TI2C1_I2C1CON.setON(thebits : TBits_1); inline;
  29994. begin
  29995. if thebits = 0 then
  29996. pTDefRegMap(@Self)^.clr := $00008000
  29997. else
  29998. pTDefRegMap(@Self)^.&set := $00008000;
  29999. end;
  30000. function TI2C1_I2C1CON.getON : TBits_1; inline;
  30001. begin
  30002. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30003. end;
  30004. procedure TI2C1_I2C1CON.setIPMIEN; inline;
  30005. begin
  30006. pTDefRegMap(@Self)^.&set := $00000800;
  30007. end;
  30008. procedure TI2C1_I2C1CON.clearIPMIEN; inline;
  30009. begin
  30010. pTDefRegMap(@Self)^.clr := $00000800;
  30011. end;
  30012. procedure TI2C1_I2C1CON.setIPMIEN(thebits : TBits_1); inline;
  30013. begin
  30014. if thebits = 0 then
  30015. pTDefRegMap(@Self)^.clr := $00000800
  30016. else
  30017. pTDefRegMap(@Self)^.&set := $00000800;
  30018. end;
  30019. function TI2C1_I2C1CON.getIPMIEN : TBits_1; inline;
  30020. begin
  30021. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30022. end;
  30023. procedure TI2C1_I2C1CON.setI2CSIDL; inline;
  30024. begin
  30025. pTDefRegMap(@Self)^.&set := $00002000;
  30026. end;
  30027. procedure TI2C1_I2C1CON.clearI2CSIDL; inline;
  30028. begin
  30029. pTDefRegMap(@Self)^.clr := $00002000;
  30030. end;
  30031. procedure TI2C1_I2C1CON.setI2CSIDL(thebits : TBits_1); inline;
  30032. begin
  30033. if thebits = 0 then
  30034. pTDefRegMap(@Self)^.clr := $00002000
  30035. else
  30036. pTDefRegMap(@Self)^.&set := $00002000;
  30037. end;
  30038. function TI2C1_I2C1CON.getI2CSIDL : TBits_1; inline;
  30039. begin
  30040. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30041. end;
  30042. procedure TI2C1_I2C1CON.setI2CEN; inline;
  30043. begin
  30044. pTDefRegMap(@Self)^.&set := $00008000;
  30045. end;
  30046. procedure TI2C1_I2C1CON.clearI2CEN; inline;
  30047. begin
  30048. pTDefRegMap(@Self)^.clr := $00008000;
  30049. end;
  30050. procedure TI2C1_I2C1CON.setI2CEN(thebits : TBits_1); inline;
  30051. begin
  30052. if thebits = 0 then
  30053. pTDefRegMap(@Self)^.clr := $00008000
  30054. else
  30055. pTDefRegMap(@Self)^.&set := $00008000;
  30056. end;
  30057. function TI2C1_I2C1CON.getI2CEN : TBits_1; inline;
  30058. begin
  30059. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30060. end;
  30061. procedure TI2C1_I2C1CON.setw(thebits : TBits_32); inline;
  30062. begin
  30063. pTDefRegMap(@Self)^.val := thebits;
  30064. end;
  30065. function TI2C1_I2C1CON.getw : TBits_32; inline;
  30066. begin
  30067. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30068. end;
  30069. procedure TI2C1_I2C1STAT.setTBF; inline;
  30070. begin
  30071. pTDefRegMap(@Self)^.&set := $00000001;
  30072. end;
  30073. procedure TI2C1_I2C1STAT.clearTBF; inline;
  30074. begin
  30075. pTDefRegMap(@Self)^.clr := $00000001;
  30076. end;
  30077. procedure TI2C1_I2C1STAT.setTBF(thebits : TBits_1); inline;
  30078. begin
  30079. if thebits = 0 then
  30080. pTDefRegMap(@Self)^.clr := $00000001
  30081. else
  30082. pTDefRegMap(@Self)^.&set := $00000001;
  30083. end;
  30084. function TI2C1_I2C1STAT.getTBF : TBits_1; inline;
  30085. begin
  30086. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30087. end;
  30088. procedure TI2C1_I2C1STAT.setRBF; inline;
  30089. begin
  30090. pTDefRegMap(@Self)^.&set := $00000002;
  30091. end;
  30092. procedure TI2C1_I2C1STAT.clearRBF; inline;
  30093. begin
  30094. pTDefRegMap(@Self)^.clr := $00000002;
  30095. end;
  30096. procedure TI2C1_I2C1STAT.setRBF(thebits : TBits_1); inline;
  30097. begin
  30098. if thebits = 0 then
  30099. pTDefRegMap(@Self)^.clr := $00000002
  30100. else
  30101. pTDefRegMap(@Self)^.&set := $00000002;
  30102. end;
  30103. function TI2C1_I2C1STAT.getRBF : TBits_1; inline;
  30104. begin
  30105. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30106. end;
  30107. procedure TI2C1_I2C1STAT.setR_W; inline;
  30108. begin
  30109. pTDefRegMap(@Self)^.&set := $00000004;
  30110. end;
  30111. procedure TI2C1_I2C1STAT.clearR_W; inline;
  30112. begin
  30113. pTDefRegMap(@Self)^.clr := $00000004;
  30114. end;
  30115. procedure TI2C1_I2C1STAT.setR_W(thebits : TBits_1); inline;
  30116. begin
  30117. if thebits = 0 then
  30118. pTDefRegMap(@Self)^.clr := $00000004
  30119. else
  30120. pTDefRegMap(@Self)^.&set := $00000004;
  30121. end;
  30122. function TI2C1_I2C1STAT.getR_W : TBits_1; inline;
  30123. begin
  30124. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30125. end;
  30126. procedure TI2C1_I2C1STAT.setS; inline;
  30127. begin
  30128. pTDefRegMap(@Self)^.&set := $00000008;
  30129. end;
  30130. procedure TI2C1_I2C1STAT.clearS; inline;
  30131. begin
  30132. pTDefRegMap(@Self)^.clr := $00000008;
  30133. end;
  30134. procedure TI2C1_I2C1STAT.setS(thebits : TBits_1); inline;
  30135. begin
  30136. if thebits = 0 then
  30137. pTDefRegMap(@Self)^.clr := $00000008
  30138. else
  30139. pTDefRegMap(@Self)^.&set := $00000008;
  30140. end;
  30141. function TI2C1_I2C1STAT.getS : TBits_1; inline;
  30142. begin
  30143. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30144. end;
  30145. procedure TI2C1_I2C1STAT.setP; inline;
  30146. begin
  30147. pTDefRegMap(@Self)^.&set := $00000010;
  30148. end;
  30149. procedure TI2C1_I2C1STAT.clearP; inline;
  30150. begin
  30151. pTDefRegMap(@Self)^.clr := $00000010;
  30152. end;
  30153. procedure TI2C1_I2C1STAT.setP(thebits : TBits_1); inline;
  30154. begin
  30155. if thebits = 0 then
  30156. pTDefRegMap(@Self)^.clr := $00000010
  30157. else
  30158. pTDefRegMap(@Self)^.&set := $00000010;
  30159. end;
  30160. function TI2C1_I2C1STAT.getP : TBits_1; inline;
  30161. begin
  30162. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30163. end;
  30164. procedure TI2C1_I2C1STAT.setD_A; inline;
  30165. begin
  30166. pTDefRegMap(@Self)^.&set := $00000020;
  30167. end;
  30168. procedure TI2C1_I2C1STAT.clearD_A; inline;
  30169. begin
  30170. pTDefRegMap(@Self)^.clr := $00000020;
  30171. end;
  30172. procedure TI2C1_I2C1STAT.setD_A(thebits : TBits_1); inline;
  30173. begin
  30174. if thebits = 0 then
  30175. pTDefRegMap(@Self)^.clr := $00000020
  30176. else
  30177. pTDefRegMap(@Self)^.&set := $00000020;
  30178. end;
  30179. function TI2C1_I2C1STAT.getD_A : TBits_1; inline;
  30180. begin
  30181. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30182. end;
  30183. procedure TI2C1_I2C1STAT.setI2COV; inline;
  30184. begin
  30185. pTDefRegMap(@Self)^.&set := $00000040;
  30186. end;
  30187. procedure TI2C1_I2C1STAT.clearI2COV; inline;
  30188. begin
  30189. pTDefRegMap(@Self)^.clr := $00000040;
  30190. end;
  30191. procedure TI2C1_I2C1STAT.setI2COV(thebits : TBits_1); inline;
  30192. begin
  30193. if thebits = 0 then
  30194. pTDefRegMap(@Self)^.clr := $00000040
  30195. else
  30196. pTDefRegMap(@Self)^.&set := $00000040;
  30197. end;
  30198. function TI2C1_I2C1STAT.getI2COV : TBits_1; inline;
  30199. begin
  30200. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30201. end;
  30202. procedure TI2C1_I2C1STAT.setIWCOL; inline;
  30203. begin
  30204. pTDefRegMap(@Self)^.&set := $00000080;
  30205. end;
  30206. procedure TI2C1_I2C1STAT.clearIWCOL; inline;
  30207. begin
  30208. pTDefRegMap(@Self)^.clr := $00000080;
  30209. end;
  30210. procedure TI2C1_I2C1STAT.setIWCOL(thebits : TBits_1); inline;
  30211. begin
  30212. if thebits = 0 then
  30213. pTDefRegMap(@Self)^.clr := $00000080
  30214. else
  30215. pTDefRegMap(@Self)^.&set := $00000080;
  30216. end;
  30217. function TI2C1_I2C1STAT.getIWCOL : TBits_1; inline;
  30218. begin
  30219. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30220. end;
  30221. procedure TI2C1_I2C1STAT.setADD10; inline;
  30222. begin
  30223. pTDefRegMap(@Self)^.&set := $00000100;
  30224. end;
  30225. procedure TI2C1_I2C1STAT.clearADD10; inline;
  30226. begin
  30227. pTDefRegMap(@Self)^.clr := $00000100;
  30228. end;
  30229. procedure TI2C1_I2C1STAT.setADD10(thebits : TBits_1); inline;
  30230. begin
  30231. if thebits = 0 then
  30232. pTDefRegMap(@Self)^.clr := $00000100
  30233. else
  30234. pTDefRegMap(@Self)^.&set := $00000100;
  30235. end;
  30236. function TI2C1_I2C1STAT.getADD10 : TBits_1; inline;
  30237. begin
  30238. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30239. end;
  30240. procedure TI2C1_I2C1STAT.setGCSTAT; inline;
  30241. begin
  30242. pTDefRegMap(@Self)^.&set := $00000200;
  30243. end;
  30244. procedure TI2C1_I2C1STAT.clearGCSTAT; inline;
  30245. begin
  30246. pTDefRegMap(@Self)^.clr := $00000200;
  30247. end;
  30248. procedure TI2C1_I2C1STAT.setGCSTAT(thebits : TBits_1); inline;
  30249. begin
  30250. if thebits = 0 then
  30251. pTDefRegMap(@Self)^.clr := $00000200
  30252. else
  30253. pTDefRegMap(@Self)^.&set := $00000200;
  30254. end;
  30255. function TI2C1_I2C1STAT.getGCSTAT : TBits_1; inline;
  30256. begin
  30257. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30258. end;
  30259. procedure TI2C1_I2C1STAT.setBCL; inline;
  30260. begin
  30261. pTDefRegMap(@Self)^.&set := $00000400;
  30262. end;
  30263. procedure TI2C1_I2C1STAT.clearBCL; inline;
  30264. begin
  30265. pTDefRegMap(@Self)^.clr := $00000400;
  30266. end;
  30267. procedure TI2C1_I2C1STAT.setBCL(thebits : TBits_1); inline;
  30268. begin
  30269. if thebits = 0 then
  30270. pTDefRegMap(@Self)^.clr := $00000400
  30271. else
  30272. pTDefRegMap(@Self)^.&set := $00000400;
  30273. end;
  30274. function TI2C1_I2C1STAT.getBCL : TBits_1; inline;
  30275. begin
  30276. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30277. end;
  30278. procedure TI2C1_I2C1STAT.setTRSTAT; inline;
  30279. begin
  30280. pTDefRegMap(@Self)^.&set := $00004000;
  30281. end;
  30282. procedure TI2C1_I2C1STAT.clearTRSTAT; inline;
  30283. begin
  30284. pTDefRegMap(@Self)^.clr := $00004000;
  30285. end;
  30286. procedure TI2C1_I2C1STAT.setTRSTAT(thebits : TBits_1); inline;
  30287. begin
  30288. if thebits = 0 then
  30289. pTDefRegMap(@Self)^.clr := $00004000
  30290. else
  30291. pTDefRegMap(@Self)^.&set := $00004000;
  30292. end;
  30293. function TI2C1_I2C1STAT.getTRSTAT : TBits_1; inline;
  30294. begin
  30295. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  30296. end;
  30297. procedure TI2C1_I2C1STAT.setACKSTAT; inline;
  30298. begin
  30299. pTDefRegMap(@Self)^.&set := $00008000;
  30300. end;
  30301. procedure TI2C1_I2C1STAT.clearACKSTAT; inline;
  30302. begin
  30303. pTDefRegMap(@Self)^.clr := $00008000;
  30304. end;
  30305. procedure TI2C1_I2C1STAT.setACKSTAT(thebits : TBits_1); inline;
  30306. begin
  30307. if thebits = 0 then
  30308. pTDefRegMap(@Self)^.clr := $00008000
  30309. else
  30310. pTDefRegMap(@Self)^.&set := $00008000;
  30311. end;
  30312. function TI2C1_I2C1STAT.getACKSTAT : TBits_1; inline;
  30313. begin
  30314. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30315. end;
  30316. procedure TI2C1_I2C1STAT.setI2CPOV; inline;
  30317. begin
  30318. pTDefRegMap(@Self)^.&set := $00000040;
  30319. end;
  30320. procedure TI2C1_I2C1STAT.clearI2CPOV; inline;
  30321. begin
  30322. pTDefRegMap(@Self)^.clr := $00000040;
  30323. end;
  30324. procedure TI2C1_I2C1STAT.setI2CPOV(thebits : TBits_1); inline;
  30325. begin
  30326. if thebits = 0 then
  30327. pTDefRegMap(@Self)^.clr := $00000040
  30328. else
  30329. pTDefRegMap(@Self)^.&set := $00000040;
  30330. end;
  30331. function TI2C1_I2C1STAT.getI2CPOV : TBits_1; inline;
  30332. begin
  30333. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30334. end;
  30335. procedure TI2C1_I2C1STAT.setw(thebits : TBits_32); inline;
  30336. begin
  30337. pTDefRegMap(@Self)^.val := thebits;
  30338. end;
  30339. function TI2C1_I2C1STAT.getw : TBits_32; inline;
  30340. begin
  30341. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30342. end;
  30343. procedure TI2C2_I2C2CON.setSEN; inline;
  30344. begin
  30345. pTDefRegMap(@Self)^.&set := $00000001;
  30346. end;
  30347. procedure TI2C2_I2C2CON.clearSEN; inline;
  30348. begin
  30349. pTDefRegMap(@Self)^.clr := $00000001;
  30350. end;
  30351. procedure TI2C2_I2C2CON.setSEN(thebits : TBits_1); inline;
  30352. begin
  30353. if thebits = 0 then
  30354. pTDefRegMap(@Self)^.clr := $00000001
  30355. else
  30356. pTDefRegMap(@Self)^.&set := $00000001;
  30357. end;
  30358. function TI2C2_I2C2CON.getSEN : TBits_1; inline;
  30359. begin
  30360. getSEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30361. end;
  30362. procedure TI2C2_I2C2CON.setRSEN; inline;
  30363. begin
  30364. pTDefRegMap(@Self)^.&set := $00000002;
  30365. end;
  30366. procedure TI2C2_I2C2CON.clearRSEN; inline;
  30367. begin
  30368. pTDefRegMap(@Self)^.clr := $00000002;
  30369. end;
  30370. procedure TI2C2_I2C2CON.setRSEN(thebits : TBits_1); inline;
  30371. begin
  30372. if thebits = 0 then
  30373. pTDefRegMap(@Self)^.clr := $00000002
  30374. else
  30375. pTDefRegMap(@Self)^.&set := $00000002;
  30376. end;
  30377. function TI2C2_I2C2CON.getRSEN : TBits_1; inline;
  30378. begin
  30379. getRSEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30380. end;
  30381. procedure TI2C2_I2C2CON.setPEN; inline;
  30382. begin
  30383. pTDefRegMap(@Self)^.&set := $00000004;
  30384. end;
  30385. procedure TI2C2_I2C2CON.clearPEN; inline;
  30386. begin
  30387. pTDefRegMap(@Self)^.clr := $00000004;
  30388. end;
  30389. procedure TI2C2_I2C2CON.setPEN(thebits : TBits_1); inline;
  30390. begin
  30391. if thebits = 0 then
  30392. pTDefRegMap(@Self)^.clr := $00000004
  30393. else
  30394. pTDefRegMap(@Self)^.&set := $00000004;
  30395. end;
  30396. function TI2C2_I2C2CON.getPEN : TBits_1; inline;
  30397. begin
  30398. getPEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30399. end;
  30400. procedure TI2C2_I2C2CON.setRCEN; inline;
  30401. begin
  30402. pTDefRegMap(@Self)^.&set := $00000008;
  30403. end;
  30404. procedure TI2C2_I2C2CON.clearRCEN; inline;
  30405. begin
  30406. pTDefRegMap(@Self)^.clr := $00000008;
  30407. end;
  30408. procedure TI2C2_I2C2CON.setRCEN(thebits : TBits_1); inline;
  30409. begin
  30410. if thebits = 0 then
  30411. pTDefRegMap(@Self)^.clr := $00000008
  30412. else
  30413. pTDefRegMap(@Self)^.&set := $00000008;
  30414. end;
  30415. function TI2C2_I2C2CON.getRCEN : TBits_1; inline;
  30416. begin
  30417. getRCEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30418. end;
  30419. procedure TI2C2_I2C2CON.setACKEN; inline;
  30420. begin
  30421. pTDefRegMap(@Self)^.&set := $00000010;
  30422. end;
  30423. procedure TI2C2_I2C2CON.clearACKEN; inline;
  30424. begin
  30425. pTDefRegMap(@Self)^.clr := $00000010;
  30426. end;
  30427. procedure TI2C2_I2C2CON.setACKEN(thebits : TBits_1); inline;
  30428. begin
  30429. if thebits = 0 then
  30430. pTDefRegMap(@Self)^.clr := $00000010
  30431. else
  30432. pTDefRegMap(@Self)^.&set := $00000010;
  30433. end;
  30434. function TI2C2_I2C2CON.getACKEN : TBits_1; inline;
  30435. begin
  30436. getACKEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30437. end;
  30438. procedure TI2C2_I2C2CON.setACKDT; inline;
  30439. begin
  30440. pTDefRegMap(@Self)^.&set := $00000020;
  30441. end;
  30442. procedure TI2C2_I2C2CON.clearACKDT; inline;
  30443. begin
  30444. pTDefRegMap(@Self)^.clr := $00000020;
  30445. end;
  30446. procedure TI2C2_I2C2CON.setACKDT(thebits : TBits_1); inline;
  30447. begin
  30448. if thebits = 0 then
  30449. pTDefRegMap(@Self)^.clr := $00000020
  30450. else
  30451. pTDefRegMap(@Self)^.&set := $00000020;
  30452. end;
  30453. function TI2C2_I2C2CON.getACKDT : TBits_1; inline;
  30454. begin
  30455. getACKDT := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30456. end;
  30457. procedure TI2C2_I2C2CON.setSTREN; inline;
  30458. begin
  30459. pTDefRegMap(@Self)^.&set := $00000040;
  30460. end;
  30461. procedure TI2C2_I2C2CON.clearSTREN; inline;
  30462. begin
  30463. pTDefRegMap(@Self)^.clr := $00000040;
  30464. end;
  30465. procedure TI2C2_I2C2CON.setSTREN(thebits : TBits_1); inline;
  30466. begin
  30467. if thebits = 0 then
  30468. pTDefRegMap(@Self)^.clr := $00000040
  30469. else
  30470. pTDefRegMap(@Self)^.&set := $00000040;
  30471. end;
  30472. function TI2C2_I2C2CON.getSTREN : TBits_1; inline;
  30473. begin
  30474. getSTREN := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30475. end;
  30476. procedure TI2C2_I2C2CON.setGCEN; inline;
  30477. begin
  30478. pTDefRegMap(@Self)^.&set := $00000080;
  30479. end;
  30480. procedure TI2C2_I2C2CON.clearGCEN; inline;
  30481. begin
  30482. pTDefRegMap(@Self)^.clr := $00000080;
  30483. end;
  30484. procedure TI2C2_I2C2CON.setGCEN(thebits : TBits_1); inline;
  30485. begin
  30486. if thebits = 0 then
  30487. pTDefRegMap(@Self)^.clr := $00000080
  30488. else
  30489. pTDefRegMap(@Self)^.&set := $00000080;
  30490. end;
  30491. function TI2C2_I2C2CON.getGCEN : TBits_1; inline;
  30492. begin
  30493. getGCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30494. end;
  30495. procedure TI2C2_I2C2CON.setSMEN; inline;
  30496. begin
  30497. pTDefRegMap(@Self)^.&set := $00000100;
  30498. end;
  30499. procedure TI2C2_I2C2CON.clearSMEN; inline;
  30500. begin
  30501. pTDefRegMap(@Self)^.clr := $00000100;
  30502. end;
  30503. procedure TI2C2_I2C2CON.setSMEN(thebits : TBits_1); inline;
  30504. begin
  30505. if thebits = 0 then
  30506. pTDefRegMap(@Self)^.clr := $00000100
  30507. else
  30508. pTDefRegMap(@Self)^.&set := $00000100;
  30509. end;
  30510. function TI2C2_I2C2CON.getSMEN : TBits_1; inline;
  30511. begin
  30512. getSMEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30513. end;
  30514. procedure TI2C2_I2C2CON.setDISSLW; inline;
  30515. begin
  30516. pTDefRegMap(@Self)^.&set := $00000200;
  30517. end;
  30518. procedure TI2C2_I2C2CON.clearDISSLW; inline;
  30519. begin
  30520. pTDefRegMap(@Self)^.clr := $00000200;
  30521. end;
  30522. procedure TI2C2_I2C2CON.setDISSLW(thebits : TBits_1); inline;
  30523. begin
  30524. if thebits = 0 then
  30525. pTDefRegMap(@Self)^.clr := $00000200
  30526. else
  30527. pTDefRegMap(@Self)^.&set := $00000200;
  30528. end;
  30529. function TI2C2_I2C2CON.getDISSLW : TBits_1; inline;
  30530. begin
  30531. getDISSLW := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30532. end;
  30533. procedure TI2C2_I2C2CON.setA10M; inline;
  30534. begin
  30535. pTDefRegMap(@Self)^.&set := $00000400;
  30536. end;
  30537. procedure TI2C2_I2C2CON.clearA10M; inline;
  30538. begin
  30539. pTDefRegMap(@Self)^.clr := $00000400;
  30540. end;
  30541. procedure TI2C2_I2C2CON.setA10M(thebits : TBits_1); inline;
  30542. begin
  30543. if thebits = 0 then
  30544. pTDefRegMap(@Self)^.clr := $00000400
  30545. else
  30546. pTDefRegMap(@Self)^.&set := $00000400;
  30547. end;
  30548. function TI2C2_I2C2CON.getA10M : TBits_1; inline;
  30549. begin
  30550. getA10M := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30551. end;
  30552. procedure TI2C2_I2C2CON.setSTRICT; inline;
  30553. begin
  30554. pTDefRegMap(@Self)^.&set := $00000800;
  30555. end;
  30556. procedure TI2C2_I2C2CON.clearSTRICT; inline;
  30557. begin
  30558. pTDefRegMap(@Self)^.clr := $00000800;
  30559. end;
  30560. procedure TI2C2_I2C2CON.setSTRICT(thebits : TBits_1); inline;
  30561. begin
  30562. if thebits = 0 then
  30563. pTDefRegMap(@Self)^.clr := $00000800
  30564. else
  30565. pTDefRegMap(@Self)^.&set := $00000800;
  30566. end;
  30567. function TI2C2_I2C2CON.getSTRICT : TBits_1; inline;
  30568. begin
  30569. getSTRICT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30570. end;
  30571. procedure TI2C2_I2C2CON.setSCLREL; inline;
  30572. begin
  30573. pTDefRegMap(@Self)^.&set := $00001000;
  30574. end;
  30575. procedure TI2C2_I2C2CON.clearSCLREL; inline;
  30576. begin
  30577. pTDefRegMap(@Self)^.clr := $00001000;
  30578. end;
  30579. procedure TI2C2_I2C2CON.setSCLREL(thebits : TBits_1); inline;
  30580. begin
  30581. if thebits = 0 then
  30582. pTDefRegMap(@Self)^.clr := $00001000
  30583. else
  30584. pTDefRegMap(@Self)^.&set := $00001000;
  30585. end;
  30586. function TI2C2_I2C2CON.getSCLREL : TBits_1; inline;
  30587. begin
  30588. getSCLREL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  30589. end;
  30590. procedure TI2C2_I2C2CON.setSIDL; inline;
  30591. begin
  30592. pTDefRegMap(@Self)^.&set := $00002000;
  30593. end;
  30594. procedure TI2C2_I2C2CON.clearSIDL; inline;
  30595. begin
  30596. pTDefRegMap(@Self)^.clr := $00002000;
  30597. end;
  30598. procedure TI2C2_I2C2CON.setSIDL(thebits : TBits_1); inline;
  30599. begin
  30600. if thebits = 0 then
  30601. pTDefRegMap(@Self)^.clr := $00002000
  30602. else
  30603. pTDefRegMap(@Self)^.&set := $00002000;
  30604. end;
  30605. function TI2C2_I2C2CON.getSIDL : TBits_1; inline;
  30606. begin
  30607. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30608. end;
  30609. procedure TI2C2_I2C2CON.setON; inline;
  30610. begin
  30611. pTDefRegMap(@Self)^.&set := $00008000;
  30612. end;
  30613. procedure TI2C2_I2C2CON.clearON; inline;
  30614. begin
  30615. pTDefRegMap(@Self)^.clr := $00008000;
  30616. end;
  30617. procedure TI2C2_I2C2CON.setON(thebits : TBits_1); inline;
  30618. begin
  30619. if thebits = 0 then
  30620. pTDefRegMap(@Self)^.clr := $00008000
  30621. else
  30622. pTDefRegMap(@Self)^.&set := $00008000;
  30623. end;
  30624. function TI2C2_I2C2CON.getON : TBits_1; inline;
  30625. begin
  30626. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30627. end;
  30628. procedure TI2C2_I2C2CON.setIPMIEN; inline;
  30629. begin
  30630. pTDefRegMap(@Self)^.&set := $00000800;
  30631. end;
  30632. procedure TI2C2_I2C2CON.clearIPMIEN; inline;
  30633. begin
  30634. pTDefRegMap(@Self)^.clr := $00000800;
  30635. end;
  30636. procedure TI2C2_I2C2CON.setIPMIEN(thebits : TBits_1); inline;
  30637. begin
  30638. if thebits = 0 then
  30639. pTDefRegMap(@Self)^.clr := $00000800
  30640. else
  30641. pTDefRegMap(@Self)^.&set := $00000800;
  30642. end;
  30643. function TI2C2_I2C2CON.getIPMIEN : TBits_1; inline;
  30644. begin
  30645. getIPMIEN := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  30646. end;
  30647. procedure TI2C2_I2C2CON.setI2CSIDL; inline;
  30648. begin
  30649. pTDefRegMap(@Self)^.&set := $00002000;
  30650. end;
  30651. procedure TI2C2_I2C2CON.clearI2CSIDL; inline;
  30652. begin
  30653. pTDefRegMap(@Self)^.clr := $00002000;
  30654. end;
  30655. procedure TI2C2_I2C2CON.setI2CSIDL(thebits : TBits_1); inline;
  30656. begin
  30657. if thebits = 0 then
  30658. pTDefRegMap(@Self)^.clr := $00002000
  30659. else
  30660. pTDefRegMap(@Self)^.&set := $00002000;
  30661. end;
  30662. function TI2C2_I2C2CON.getI2CSIDL : TBits_1; inline;
  30663. begin
  30664. getI2CSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  30665. end;
  30666. procedure TI2C2_I2C2CON.setI2CEN; inline;
  30667. begin
  30668. pTDefRegMap(@Self)^.&set := $00008000;
  30669. end;
  30670. procedure TI2C2_I2C2CON.clearI2CEN; inline;
  30671. begin
  30672. pTDefRegMap(@Self)^.clr := $00008000;
  30673. end;
  30674. procedure TI2C2_I2C2CON.setI2CEN(thebits : TBits_1); inline;
  30675. begin
  30676. if thebits = 0 then
  30677. pTDefRegMap(@Self)^.clr := $00008000
  30678. else
  30679. pTDefRegMap(@Self)^.&set := $00008000;
  30680. end;
  30681. function TI2C2_I2C2CON.getI2CEN : TBits_1; inline;
  30682. begin
  30683. getI2CEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30684. end;
  30685. procedure TI2C2_I2C2CON.setw(thebits : TBits_32); inline;
  30686. begin
  30687. pTDefRegMap(@Self)^.val := thebits;
  30688. end;
  30689. function TI2C2_I2C2CON.getw : TBits_32; inline;
  30690. begin
  30691. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30692. end;
  30693. procedure TI2C2_I2C2STAT.setTBF; inline;
  30694. begin
  30695. pTDefRegMap(@Self)^.&set := $00000001;
  30696. end;
  30697. procedure TI2C2_I2C2STAT.clearTBF; inline;
  30698. begin
  30699. pTDefRegMap(@Self)^.clr := $00000001;
  30700. end;
  30701. procedure TI2C2_I2C2STAT.setTBF(thebits : TBits_1); inline;
  30702. begin
  30703. if thebits = 0 then
  30704. pTDefRegMap(@Self)^.clr := $00000001
  30705. else
  30706. pTDefRegMap(@Self)^.&set := $00000001;
  30707. end;
  30708. function TI2C2_I2C2STAT.getTBF : TBits_1; inline;
  30709. begin
  30710. getTBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  30711. end;
  30712. procedure TI2C2_I2C2STAT.setRBF; inline;
  30713. begin
  30714. pTDefRegMap(@Self)^.&set := $00000002;
  30715. end;
  30716. procedure TI2C2_I2C2STAT.clearRBF; inline;
  30717. begin
  30718. pTDefRegMap(@Self)^.clr := $00000002;
  30719. end;
  30720. procedure TI2C2_I2C2STAT.setRBF(thebits : TBits_1); inline;
  30721. begin
  30722. if thebits = 0 then
  30723. pTDefRegMap(@Self)^.clr := $00000002
  30724. else
  30725. pTDefRegMap(@Self)^.&set := $00000002;
  30726. end;
  30727. function TI2C2_I2C2STAT.getRBF : TBits_1; inline;
  30728. begin
  30729. getRBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  30730. end;
  30731. procedure TI2C2_I2C2STAT.setR_W; inline;
  30732. begin
  30733. pTDefRegMap(@Self)^.&set := $00000004;
  30734. end;
  30735. procedure TI2C2_I2C2STAT.clearR_W; inline;
  30736. begin
  30737. pTDefRegMap(@Self)^.clr := $00000004;
  30738. end;
  30739. procedure TI2C2_I2C2STAT.setR_W(thebits : TBits_1); inline;
  30740. begin
  30741. if thebits = 0 then
  30742. pTDefRegMap(@Self)^.clr := $00000004
  30743. else
  30744. pTDefRegMap(@Self)^.&set := $00000004;
  30745. end;
  30746. function TI2C2_I2C2STAT.getR_W : TBits_1; inline;
  30747. begin
  30748. getR_W := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  30749. end;
  30750. procedure TI2C2_I2C2STAT.setS; inline;
  30751. begin
  30752. pTDefRegMap(@Self)^.&set := $00000008;
  30753. end;
  30754. procedure TI2C2_I2C2STAT.clearS; inline;
  30755. begin
  30756. pTDefRegMap(@Self)^.clr := $00000008;
  30757. end;
  30758. procedure TI2C2_I2C2STAT.setS(thebits : TBits_1); inline;
  30759. begin
  30760. if thebits = 0 then
  30761. pTDefRegMap(@Self)^.clr := $00000008
  30762. else
  30763. pTDefRegMap(@Self)^.&set := $00000008;
  30764. end;
  30765. function TI2C2_I2C2STAT.getS : TBits_1; inline;
  30766. begin
  30767. getS := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  30768. end;
  30769. procedure TI2C2_I2C2STAT.setP; inline;
  30770. begin
  30771. pTDefRegMap(@Self)^.&set := $00000010;
  30772. end;
  30773. procedure TI2C2_I2C2STAT.clearP; inline;
  30774. begin
  30775. pTDefRegMap(@Self)^.clr := $00000010;
  30776. end;
  30777. procedure TI2C2_I2C2STAT.setP(thebits : TBits_1); inline;
  30778. begin
  30779. if thebits = 0 then
  30780. pTDefRegMap(@Self)^.clr := $00000010
  30781. else
  30782. pTDefRegMap(@Self)^.&set := $00000010;
  30783. end;
  30784. function TI2C2_I2C2STAT.getP : TBits_1; inline;
  30785. begin
  30786. getP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  30787. end;
  30788. procedure TI2C2_I2C2STAT.setD_A; inline;
  30789. begin
  30790. pTDefRegMap(@Self)^.&set := $00000020;
  30791. end;
  30792. procedure TI2C2_I2C2STAT.clearD_A; inline;
  30793. begin
  30794. pTDefRegMap(@Self)^.clr := $00000020;
  30795. end;
  30796. procedure TI2C2_I2C2STAT.setD_A(thebits : TBits_1); inline;
  30797. begin
  30798. if thebits = 0 then
  30799. pTDefRegMap(@Self)^.clr := $00000020
  30800. else
  30801. pTDefRegMap(@Self)^.&set := $00000020;
  30802. end;
  30803. function TI2C2_I2C2STAT.getD_A : TBits_1; inline;
  30804. begin
  30805. getD_A := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  30806. end;
  30807. procedure TI2C2_I2C2STAT.setI2COV; inline;
  30808. begin
  30809. pTDefRegMap(@Self)^.&set := $00000040;
  30810. end;
  30811. procedure TI2C2_I2C2STAT.clearI2COV; inline;
  30812. begin
  30813. pTDefRegMap(@Self)^.clr := $00000040;
  30814. end;
  30815. procedure TI2C2_I2C2STAT.setI2COV(thebits : TBits_1); inline;
  30816. begin
  30817. if thebits = 0 then
  30818. pTDefRegMap(@Self)^.clr := $00000040
  30819. else
  30820. pTDefRegMap(@Self)^.&set := $00000040;
  30821. end;
  30822. function TI2C2_I2C2STAT.getI2COV : TBits_1; inline;
  30823. begin
  30824. getI2COV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30825. end;
  30826. procedure TI2C2_I2C2STAT.setIWCOL; inline;
  30827. begin
  30828. pTDefRegMap(@Self)^.&set := $00000080;
  30829. end;
  30830. procedure TI2C2_I2C2STAT.clearIWCOL; inline;
  30831. begin
  30832. pTDefRegMap(@Self)^.clr := $00000080;
  30833. end;
  30834. procedure TI2C2_I2C2STAT.setIWCOL(thebits : TBits_1); inline;
  30835. begin
  30836. if thebits = 0 then
  30837. pTDefRegMap(@Self)^.clr := $00000080
  30838. else
  30839. pTDefRegMap(@Self)^.&set := $00000080;
  30840. end;
  30841. function TI2C2_I2C2STAT.getIWCOL : TBits_1; inline;
  30842. begin
  30843. getIWCOL := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  30844. end;
  30845. procedure TI2C2_I2C2STAT.setADD10; inline;
  30846. begin
  30847. pTDefRegMap(@Self)^.&set := $00000100;
  30848. end;
  30849. procedure TI2C2_I2C2STAT.clearADD10; inline;
  30850. begin
  30851. pTDefRegMap(@Self)^.clr := $00000100;
  30852. end;
  30853. procedure TI2C2_I2C2STAT.setADD10(thebits : TBits_1); inline;
  30854. begin
  30855. if thebits = 0 then
  30856. pTDefRegMap(@Self)^.clr := $00000100
  30857. else
  30858. pTDefRegMap(@Self)^.&set := $00000100;
  30859. end;
  30860. function TI2C2_I2C2STAT.getADD10 : TBits_1; inline;
  30861. begin
  30862. getADD10 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  30863. end;
  30864. procedure TI2C2_I2C2STAT.setGCSTAT; inline;
  30865. begin
  30866. pTDefRegMap(@Self)^.&set := $00000200;
  30867. end;
  30868. procedure TI2C2_I2C2STAT.clearGCSTAT; inline;
  30869. begin
  30870. pTDefRegMap(@Self)^.clr := $00000200;
  30871. end;
  30872. procedure TI2C2_I2C2STAT.setGCSTAT(thebits : TBits_1); inline;
  30873. begin
  30874. if thebits = 0 then
  30875. pTDefRegMap(@Self)^.clr := $00000200
  30876. else
  30877. pTDefRegMap(@Self)^.&set := $00000200;
  30878. end;
  30879. function TI2C2_I2C2STAT.getGCSTAT : TBits_1; inline;
  30880. begin
  30881. getGCSTAT := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  30882. end;
  30883. procedure TI2C2_I2C2STAT.setBCL; inline;
  30884. begin
  30885. pTDefRegMap(@Self)^.&set := $00000400;
  30886. end;
  30887. procedure TI2C2_I2C2STAT.clearBCL; inline;
  30888. begin
  30889. pTDefRegMap(@Self)^.clr := $00000400;
  30890. end;
  30891. procedure TI2C2_I2C2STAT.setBCL(thebits : TBits_1); inline;
  30892. begin
  30893. if thebits = 0 then
  30894. pTDefRegMap(@Self)^.clr := $00000400
  30895. else
  30896. pTDefRegMap(@Self)^.&set := $00000400;
  30897. end;
  30898. function TI2C2_I2C2STAT.getBCL : TBits_1; inline;
  30899. begin
  30900. getBCL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  30901. end;
  30902. procedure TI2C2_I2C2STAT.setTRSTAT; inline;
  30903. begin
  30904. pTDefRegMap(@Self)^.&set := $00004000;
  30905. end;
  30906. procedure TI2C2_I2C2STAT.clearTRSTAT; inline;
  30907. begin
  30908. pTDefRegMap(@Self)^.clr := $00004000;
  30909. end;
  30910. procedure TI2C2_I2C2STAT.setTRSTAT(thebits : TBits_1); inline;
  30911. begin
  30912. if thebits = 0 then
  30913. pTDefRegMap(@Self)^.clr := $00004000
  30914. else
  30915. pTDefRegMap(@Self)^.&set := $00004000;
  30916. end;
  30917. function TI2C2_I2C2STAT.getTRSTAT : TBits_1; inline;
  30918. begin
  30919. getTRSTAT := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  30920. end;
  30921. procedure TI2C2_I2C2STAT.setACKSTAT; inline;
  30922. begin
  30923. pTDefRegMap(@Self)^.&set := $00008000;
  30924. end;
  30925. procedure TI2C2_I2C2STAT.clearACKSTAT; inline;
  30926. begin
  30927. pTDefRegMap(@Self)^.clr := $00008000;
  30928. end;
  30929. procedure TI2C2_I2C2STAT.setACKSTAT(thebits : TBits_1); inline;
  30930. begin
  30931. if thebits = 0 then
  30932. pTDefRegMap(@Self)^.clr := $00008000
  30933. else
  30934. pTDefRegMap(@Self)^.&set := $00008000;
  30935. end;
  30936. function TI2C2_I2C2STAT.getACKSTAT : TBits_1; inline;
  30937. begin
  30938. getACKSTAT := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  30939. end;
  30940. procedure TI2C2_I2C2STAT.setI2CPOV; inline;
  30941. begin
  30942. pTDefRegMap(@Self)^.&set := $00000040;
  30943. end;
  30944. procedure TI2C2_I2C2STAT.clearI2CPOV; inline;
  30945. begin
  30946. pTDefRegMap(@Self)^.clr := $00000040;
  30947. end;
  30948. procedure TI2C2_I2C2STAT.setI2CPOV(thebits : TBits_1); inline;
  30949. begin
  30950. if thebits = 0 then
  30951. pTDefRegMap(@Self)^.clr := $00000040
  30952. else
  30953. pTDefRegMap(@Self)^.&set := $00000040;
  30954. end;
  30955. function TI2C2_I2C2STAT.getI2CPOV : TBits_1; inline;
  30956. begin
  30957. getI2CPOV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  30958. end;
  30959. procedure TI2C2_I2C2STAT.setw(thebits : TBits_32); inline;
  30960. begin
  30961. pTDefRegMap(@Self)^.val := thebits;
  30962. end;
  30963. function TI2C2_I2C2STAT.getw : TBits_32; inline;
  30964. begin
  30965. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  30966. end;
  30967. procedure TSPI1A_SPI1ACON.setSRXISEL(thebits : TBits_2); inline;
  30968. begin
  30969. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  30970. end;
  30971. function TSPI1A_SPI1ACON.getSRXISEL : TBits_2; inline;
  30972. begin
  30973. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  30974. end;
  30975. procedure TSPI1A_SPI1ACON.setSTXISEL(thebits : TBits_2); inline;
  30976. begin
  30977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  30978. end;
  30979. function TSPI1A_SPI1ACON.getSTXISEL : TBits_2; inline;
  30980. begin
  30981. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  30982. end;
  30983. procedure TSPI1A_SPI1ACON.setMSTEN; inline;
  30984. begin
  30985. pTDefRegMap(@Self)^.&set := $00000020;
  30986. end;
  30987. procedure TSPI1A_SPI1ACON.clearMSTEN; inline;
  30988. begin
  30989. pTDefRegMap(@Self)^.clr := $00000020;
  30990. end;
  30991. procedure TSPI1A_SPI1ACON.setMSTEN(thebits : TBits_1); inline;
  30992. begin
  30993. if thebits = 0 then
  30994. pTDefRegMap(@Self)^.clr := $00000020
  30995. else
  30996. pTDefRegMap(@Self)^.&set := $00000020;
  30997. end;
  30998. function TSPI1A_SPI1ACON.getMSTEN : TBits_1; inline;
  30999. begin
  31000. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31001. end;
  31002. procedure TSPI1A_SPI1ACON.setCKP; inline;
  31003. begin
  31004. pTDefRegMap(@Self)^.&set := $00000040;
  31005. end;
  31006. procedure TSPI1A_SPI1ACON.clearCKP; inline;
  31007. begin
  31008. pTDefRegMap(@Self)^.clr := $00000040;
  31009. end;
  31010. procedure TSPI1A_SPI1ACON.setCKP(thebits : TBits_1); inline;
  31011. begin
  31012. if thebits = 0 then
  31013. pTDefRegMap(@Self)^.clr := $00000040
  31014. else
  31015. pTDefRegMap(@Self)^.&set := $00000040;
  31016. end;
  31017. function TSPI1A_SPI1ACON.getCKP : TBits_1; inline;
  31018. begin
  31019. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31020. end;
  31021. procedure TSPI1A_SPI1ACON.setSSEN; inline;
  31022. begin
  31023. pTDefRegMap(@Self)^.&set := $00000080;
  31024. end;
  31025. procedure TSPI1A_SPI1ACON.clearSSEN; inline;
  31026. begin
  31027. pTDefRegMap(@Self)^.clr := $00000080;
  31028. end;
  31029. procedure TSPI1A_SPI1ACON.setSSEN(thebits : TBits_1); inline;
  31030. begin
  31031. if thebits = 0 then
  31032. pTDefRegMap(@Self)^.clr := $00000080
  31033. else
  31034. pTDefRegMap(@Self)^.&set := $00000080;
  31035. end;
  31036. function TSPI1A_SPI1ACON.getSSEN : TBits_1; inline;
  31037. begin
  31038. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31039. end;
  31040. procedure TSPI1A_SPI1ACON.setCKE; inline;
  31041. begin
  31042. pTDefRegMap(@Self)^.&set := $00000100;
  31043. end;
  31044. procedure TSPI1A_SPI1ACON.clearCKE; inline;
  31045. begin
  31046. pTDefRegMap(@Self)^.clr := $00000100;
  31047. end;
  31048. procedure TSPI1A_SPI1ACON.setCKE(thebits : TBits_1); inline;
  31049. begin
  31050. if thebits = 0 then
  31051. pTDefRegMap(@Self)^.clr := $00000100
  31052. else
  31053. pTDefRegMap(@Self)^.&set := $00000100;
  31054. end;
  31055. function TSPI1A_SPI1ACON.getCKE : TBits_1; inline;
  31056. begin
  31057. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31058. end;
  31059. procedure TSPI1A_SPI1ACON.setSMP; inline;
  31060. begin
  31061. pTDefRegMap(@Self)^.&set := $00000200;
  31062. end;
  31063. procedure TSPI1A_SPI1ACON.clearSMP; inline;
  31064. begin
  31065. pTDefRegMap(@Self)^.clr := $00000200;
  31066. end;
  31067. procedure TSPI1A_SPI1ACON.setSMP(thebits : TBits_1); inline;
  31068. begin
  31069. if thebits = 0 then
  31070. pTDefRegMap(@Self)^.clr := $00000200
  31071. else
  31072. pTDefRegMap(@Self)^.&set := $00000200;
  31073. end;
  31074. function TSPI1A_SPI1ACON.getSMP : TBits_1; inline;
  31075. begin
  31076. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31077. end;
  31078. procedure TSPI1A_SPI1ACON.setMODE16; inline;
  31079. begin
  31080. pTDefRegMap(@Self)^.&set := $00000400;
  31081. end;
  31082. procedure TSPI1A_SPI1ACON.clearMODE16; inline;
  31083. begin
  31084. pTDefRegMap(@Self)^.clr := $00000400;
  31085. end;
  31086. procedure TSPI1A_SPI1ACON.setMODE16(thebits : TBits_1); inline;
  31087. begin
  31088. if thebits = 0 then
  31089. pTDefRegMap(@Self)^.clr := $00000400
  31090. else
  31091. pTDefRegMap(@Self)^.&set := $00000400;
  31092. end;
  31093. function TSPI1A_SPI1ACON.getMODE16 : TBits_1; inline;
  31094. begin
  31095. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31096. end;
  31097. procedure TSPI1A_SPI1ACON.setMODE32; inline;
  31098. begin
  31099. pTDefRegMap(@Self)^.&set := $00000800;
  31100. end;
  31101. procedure TSPI1A_SPI1ACON.clearMODE32; inline;
  31102. begin
  31103. pTDefRegMap(@Self)^.clr := $00000800;
  31104. end;
  31105. procedure TSPI1A_SPI1ACON.setMODE32(thebits : TBits_1); inline;
  31106. begin
  31107. if thebits = 0 then
  31108. pTDefRegMap(@Self)^.clr := $00000800
  31109. else
  31110. pTDefRegMap(@Self)^.&set := $00000800;
  31111. end;
  31112. function TSPI1A_SPI1ACON.getMODE32 : TBits_1; inline;
  31113. begin
  31114. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31115. end;
  31116. procedure TSPI1A_SPI1ACON.setDISSDO; inline;
  31117. begin
  31118. pTDefRegMap(@Self)^.&set := $00001000;
  31119. end;
  31120. procedure TSPI1A_SPI1ACON.clearDISSDO; inline;
  31121. begin
  31122. pTDefRegMap(@Self)^.clr := $00001000;
  31123. end;
  31124. procedure TSPI1A_SPI1ACON.setDISSDO(thebits : TBits_1); inline;
  31125. begin
  31126. if thebits = 0 then
  31127. pTDefRegMap(@Self)^.clr := $00001000
  31128. else
  31129. pTDefRegMap(@Self)^.&set := $00001000;
  31130. end;
  31131. function TSPI1A_SPI1ACON.getDISSDO : TBits_1; inline;
  31132. begin
  31133. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  31134. end;
  31135. procedure TSPI1A_SPI1ACON.setSIDL; inline;
  31136. begin
  31137. pTDefRegMap(@Self)^.&set := $00002000;
  31138. end;
  31139. procedure TSPI1A_SPI1ACON.clearSIDL; inline;
  31140. begin
  31141. pTDefRegMap(@Self)^.clr := $00002000;
  31142. end;
  31143. procedure TSPI1A_SPI1ACON.setSIDL(thebits : TBits_1); inline;
  31144. begin
  31145. if thebits = 0 then
  31146. pTDefRegMap(@Self)^.clr := $00002000
  31147. else
  31148. pTDefRegMap(@Self)^.&set := $00002000;
  31149. end;
  31150. function TSPI1A_SPI1ACON.getSIDL : TBits_1; inline;
  31151. begin
  31152. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31153. end;
  31154. procedure TSPI1A_SPI1ACON.setON; inline;
  31155. begin
  31156. pTDefRegMap(@Self)^.&set := $00008000;
  31157. end;
  31158. procedure TSPI1A_SPI1ACON.clearON; inline;
  31159. begin
  31160. pTDefRegMap(@Self)^.clr := $00008000;
  31161. end;
  31162. procedure TSPI1A_SPI1ACON.setON(thebits : TBits_1); inline;
  31163. begin
  31164. if thebits = 0 then
  31165. pTDefRegMap(@Self)^.clr := $00008000
  31166. else
  31167. pTDefRegMap(@Self)^.&set := $00008000;
  31168. end;
  31169. function TSPI1A_SPI1ACON.getON : TBits_1; inline;
  31170. begin
  31171. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31172. end;
  31173. procedure TSPI1A_SPI1ACON.setENHBUF; inline;
  31174. begin
  31175. pTDefRegMap(@Self)^.&set := $00010000;
  31176. end;
  31177. procedure TSPI1A_SPI1ACON.clearENHBUF; inline;
  31178. begin
  31179. pTDefRegMap(@Self)^.clr := $00010000;
  31180. end;
  31181. procedure TSPI1A_SPI1ACON.setENHBUF(thebits : TBits_1); inline;
  31182. begin
  31183. if thebits = 0 then
  31184. pTDefRegMap(@Self)^.clr := $00010000
  31185. else
  31186. pTDefRegMap(@Self)^.&set := $00010000;
  31187. end;
  31188. function TSPI1A_SPI1ACON.getENHBUF : TBits_1; inline;
  31189. begin
  31190. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  31191. end;
  31192. procedure TSPI1A_SPI1ACON.setSPIFE; inline;
  31193. begin
  31194. pTDefRegMap(@Self)^.&set := $00020000;
  31195. end;
  31196. procedure TSPI1A_SPI1ACON.clearSPIFE; inline;
  31197. begin
  31198. pTDefRegMap(@Self)^.clr := $00020000;
  31199. end;
  31200. procedure TSPI1A_SPI1ACON.setSPIFE(thebits : TBits_1); inline;
  31201. begin
  31202. if thebits = 0 then
  31203. pTDefRegMap(@Self)^.clr := $00020000
  31204. else
  31205. pTDefRegMap(@Self)^.&set := $00020000;
  31206. end;
  31207. function TSPI1A_SPI1ACON.getSPIFE : TBits_1; inline;
  31208. begin
  31209. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  31210. end;
  31211. procedure TSPI1A_SPI1ACON.setFRMCNT(thebits : TBits_3); inline;
  31212. begin
  31213. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  31214. end;
  31215. function TSPI1A_SPI1ACON.getFRMCNT : TBits_3; inline;
  31216. begin
  31217. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  31218. end;
  31219. procedure TSPI1A_SPI1ACON.setFRMSYPW; inline;
  31220. begin
  31221. pTDefRegMap(@Self)^.&set := $08000000;
  31222. end;
  31223. procedure TSPI1A_SPI1ACON.clearFRMSYPW; inline;
  31224. begin
  31225. pTDefRegMap(@Self)^.clr := $08000000;
  31226. end;
  31227. procedure TSPI1A_SPI1ACON.setFRMSYPW(thebits : TBits_1); inline;
  31228. begin
  31229. if thebits = 0 then
  31230. pTDefRegMap(@Self)^.clr := $08000000
  31231. else
  31232. pTDefRegMap(@Self)^.&set := $08000000;
  31233. end;
  31234. function TSPI1A_SPI1ACON.getFRMSYPW : TBits_1; inline;
  31235. begin
  31236. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  31237. end;
  31238. procedure TSPI1A_SPI1ACON.setMSSEN; inline;
  31239. begin
  31240. pTDefRegMap(@Self)^.&set := $10000000;
  31241. end;
  31242. procedure TSPI1A_SPI1ACON.clearMSSEN; inline;
  31243. begin
  31244. pTDefRegMap(@Self)^.clr := $10000000;
  31245. end;
  31246. procedure TSPI1A_SPI1ACON.setMSSEN(thebits : TBits_1); inline;
  31247. begin
  31248. if thebits = 0 then
  31249. pTDefRegMap(@Self)^.clr := $10000000
  31250. else
  31251. pTDefRegMap(@Self)^.&set := $10000000;
  31252. end;
  31253. function TSPI1A_SPI1ACON.getMSSEN : TBits_1; inline;
  31254. begin
  31255. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  31256. end;
  31257. procedure TSPI1A_SPI1ACON.setFRMPOL; inline;
  31258. begin
  31259. pTDefRegMap(@Self)^.&set := $20000000;
  31260. end;
  31261. procedure TSPI1A_SPI1ACON.clearFRMPOL; inline;
  31262. begin
  31263. pTDefRegMap(@Self)^.clr := $20000000;
  31264. end;
  31265. procedure TSPI1A_SPI1ACON.setFRMPOL(thebits : TBits_1); inline;
  31266. begin
  31267. if thebits = 0 then
  31268. pTDefRegMap(@Self)^.clr := $20000000
  31269. else
  31270. pTDefRegMap(@Self)^.&set := $20000000;
  31271. end;
  31272. function TSPI1A_SPI1ACON.getFRMPOL : TBits_1; inline;
  31273. begin
  31274. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  31275. end;
  31276. procedure TSPI1A_SPI1ACON.setFRMSYNC; inline;
  31277. begin
  31278. pTDefRegMap(@Self)^.&set := $40000000;
  31279. end;
  31280. procedure TSPI1A_SPI1ACON.clearFRMSYNC; inline;
  31281. begin
  31282. pTDefRegMap(@Self)^.clr := $40000000;
  31283. end;
  31284. procedure TSPI1A_SPI1ACON.setFRMSYNC(thebits : TBits_1); inline;
  31285. begin
  31286. if thebits = 0 then
  31287. pTDefRegMap(@Self)^.clr := $40000000
  31288. else
  31289. pTDefRegMap(@Self)^.&set := $40000000;
  31290. end;
  31291. function TSPI1A_SPI1ACON.getFRMSYNC : TBits_1; inline;
  31292. begin
  31293. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  31294. end;
  31295. procedure TSPI1A_SPI1ACON.setFRMEN; inline;
  31296. begin
  31297. pTDefRegMap(@Self)^.&set := $80000000;
  31298. end;
  31299. procedure TSPI1A_SPI1ACON.clearFRMEN; inline;
  31300. begin
  31301. pTDefRegMap(@Self)^.clr := $80000000;
  31302. end;
  31303. procedure TSPI1A_SPI1ACON.setFRMEN(thebits : TBits_1); inline;
  31304. begin
  31305. if thebits = 0 then
  31306. pTDefRegMap(@Self)^.clr := $80000000
  31307. else
  31308. pTDefRegMap(@Self)^.&set := $80000000;
  31309. end;
  31310. function TSPI1A_SPI1ACON.getFRMEN : TBits_1; inline;
  31311. begin
  31312. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  31313. end;
  31314. procedure TSPI1A_SPI1ACON.setw(thebits : TBits_32); inline;
  31315. begin
  31316. pTDefRegMap(@Self)^.val := thebits;
  31317. end;
  31318. function TSPI1A_SPI1ACON.getw : TBits_32; inline;
  31319. begin
  31320. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31321. end;
  31322. procedure TSPI1A_SPI3CON.setSRXISEL(thebits : TBits_2); inline;
  31323. begin
  31324. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  31325. end;
  31326. function TSPI1A_SPI3CON.getSRXISEL : TBits_2; inline;
  31327. begin
  31328. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  31329. end;
  31330. procedure TSPI1A_SPI3CON.setSTXISEL(thebits : TBits_2); inline;
  31331. begin
  31332. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  31333. end;
  31334. function TSPI1A_SPI3CON.getSTXISEL : TBits_2; inline;
  31335. begin
  31336. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  31337. end;
  31338. procedure TSPI1A_SPI3CON.setMSTEN; inline;
  31339. begin
  31340. pTDefRegMap(@Self)^.&set := $00000020;
  31341. end;
  31342. procedure TSPI1A_SPI3CON.clearMSTEN; inline;
  31343. begin
  31344. pTDefRegMap(@Self)^.clr := $00000020;
  31345. end;
  31346. procedure TSPI1A_SPI3CON.setMSTEN(thebits : TBits_1); inline;
  31347. begin
  31348. if thebits = 0 then
  31349. pTDefRegMap(@Self)^.clr := $00000020
  31350. else
  31351. pTDefRegMap(@Self)^.&set := $00000020;
  31352. end;
  31353. function TSPI1A_SPI3CON.getMSTEN : TBits_1; inline;
  31354. begin
  31355. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31356. end;
  31357. procedure TSPI1A_SPI3CON.setCKP; inline;
  31358. begin
  31359. pTDefRegMap(@Self)^.&set := $00000040;
  31360. end;
  31361. procedure TSPI1A_SPI3CON.clearCKP; inline;
  31362. begin
  31363. pTDefRegMap(@Self)^.clr := $00000040;
  31364. end;
  31365. procedure TSPI1A_SPI3CON.setCKP(thebits : TBits_1); inline;
  31366. begin
  31367. if thebits = 0 then
  31368. pTDefRegMap(@Self)^.clr := $00000040
  31369. else
  31370. pTDefRegMap(@Self)^.&set := $00000040;
  31371. end;
  31372. function TSPI1A_SPI3CON.getCKP : TBits_1; inline;
  31373. begin
  31374. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31375. end;
  31376. procedure TSPI1A_SPI3CON.setSSEN; inline;
  31377. begin
  31378. pTDefRegMap(@Self)^.&set := $00000080;
  31379. end;
  31380. procedure TSPI1A_SPI3CON.clearSSEN; inline;
  31381. begin
  31382. pTDefRegMap(@Self)^.clr := $00000080;
  31383. end;
  31384. procedure TSPI1A_SPI3CON.setSSEN(thebits : TBits_1); inline;
  31385. begin
  31386. if thebits = 0 then
  31387. pTDefRegMap(@Self)^.clr := $00000080
  31388. else
  31389. pTDefRegMap(@Self)^.&set := $00000080;
  31390. end;
  31391. function TSPI1A_SPI3CON.getSSEN : TBits_1; inline;
  31392. begin
  31393. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31394. end;
  31395. procedure TSPI1A_SPI3CON.setCKE; inline;
  31396. begin
  31397. pTDefRegMap(@Self)^.&set := $00000100;
  31398. end;
  31399. procedure TSPI1A_SPI3CON.clearCKE; inline;
  31400. begin
  31401. pTDefRegMap(@Self)^.clr := $00000100;
  31402. end;
  31403. procedure TSPI1A_SPI3CON.setCKE(thebits : TBits_1); inline;
  31404. begin
  31405. if thebits = 0 then
  31406. pTDefRegMap(@Self)^.clr := $00000100
  31407. else
  31408. pTDefRegMap(@Self)^.&set := $00000100;
  31409. end;
  31410. function TSPI1A_SPI3CON.getCKE : TBits_1; inline;
  31411. begin
  31412. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31413. end;
  31414. procedure TSPI1A_SPI3CON.setSMP; inline;
  31415. begin
  31416. pTDefRegMap(@Self)^.&set := $00000200;
  31417. end;
  31418. procedure TSPI1A_SPI3CON.clearSMP; inline;
  31419. begin
  31420. pTDefRegMap(@Self)^.clr := $00000200;
  31421. end;
  31422. procedure TSPI1A_SPI3CON.setSMP(thebits : TBits_1); inline;
  31423. begin
  31424. if thebits = 0 then
  31425. pTDefRegMap(@Self)^.clr := $00000200
  31426. else
  31427. pTDefRegMap(@Self)^.&set := $00000200;
  31428. end;
  31429. function TSPI1A_SPI3CON.getSMP : TBits_1; inline;
  31430. begin
  31431. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  31432. end;
  31433. procedure TSPI1A_SPI3CON.setMODE16; inline;
  31434. begin
  31435. pTDefRegMap(@Self)^.&set := $00000400;
  31436. end;
  31437. procedure TSPI1A_SPI3CON.clearMODE16; inline;
  31438. begin
  31439. pTDefRegMap(@Self)^.clr := $00000400;
  31440. end;
  31441. procedure TSPI1A_SPI3CON.setMODE16(thebits : TBits_1); inline;
  31442. begin
  31443. if thebits = 0 then
  31444. pTDefRegMap(@Self)^.clr := $00000400
  31445. else
  31446. pTDefRegMap(@Self)^.&set := $00000400;
  31447. end;
  31448. function TSPI1A_SPI3CON.getMODE16 : TBits_1; inline;
  31449. begin
  31450. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  31451. end;
  31452. procedure TSPI1A_SPI3CON.setMODE32; inline;
  31453. begin
  31454. pTDefRegMap(@Self)^.&set := $00000800;
  31455. end;
  31456. procedure TSPI1A_SPI3CON.clearMODE32; inline;
  31457. begin
  31458. pTDefRegMap(@Self)^.clr := $00000800;
  31459. end;
  31460. procedure TSPI1A_SPI3CON.setMODE32(thebits : TBits_1); inline;
  31461. begin
  31462. if thebits = 0 then
  31463. pTDefRegMap(@Self)^.clr := $00000800
  31464. else
  31465. pTDefRegMap(@Self)^.&set := $00000800;
  31466. end;
  31467. function TSPI1A_SPI3CON.getMODE32 : TBits_1; inline;
  31468. begin
  31469. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31470. end;
  31471. procedure TSPI1A_SPI3CON.setDISSDO; inline;
  31472. begin
  31473. pTDefRegMap(@Self)^.&set := $00001000;
  31474. end;
  31475. procedure TSPI1A_SPI3CON.clearDISSDO; inline;
  31476. begin
  31477. pTDefRegMap(@Self)^.clr := $00001000;
  31478. end;
  31479. procedure TSPI1A_SPI3CON.setDISSDO(thebits : TBits_1); inline;
  31480. begin
  31481. if thebits = 0 then
  31482. pTDefRegMap(@Self)^.clr := $00001000
  31483. else
  31484. pTDefRegMap(@Self)^.&set := $00001000;
  31485. end;
  31486. function TSPI1A_SPI3CON.getDISSDO : TBits_1; inline;
  31487. begin
  31488. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  31489. end;
  31490. procedure TSPI1A_SPI3CON.setSIDL; inline;
  31491. begin
  31492. pTDefRegMap(@Self)^.&set := $00002000;
  31493. end;
  31494. procedure TSPI1A_SPI3CON.clearSIDL; inline;
  31495. begin
  31496. pTDefRegMap(@Self)^.clr := $00002000;
  31497. end;
  31498. procedure TSPI1A_SPI3CON.setSIDL(thebits : TBits_1); inline;
  31499. begin
  31500. if thebits = 0 then
  31501. pTDefRegMap(@Self)^.clr := $00002000
  31502. else
  31503. pTDefRegMap(@Self)^.&set := $00002000;
  31504. end;
  31505. function TSPI1A_SPI3CON.getSIDL : TBits_1; inline;
  31506. begin
  31507. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  31508. end;
  31509. procedure TSPI1A_SPI3CON.setON; inline;
  31510. begin
  31511. pTDefRegMap(@Self)^.&set := $00008000;
  31512. end;
  31513. procedure TSPI1A_SPI3CON.clearON; inline;
  31514. begin
  31515. pTDefRegMap(@Self)^.clr := $00008000;
  31516. end;
  31517. procedure TSPI1A_SPI3CON.setON(thebits : TBits_1); inline;
  31518. begin
  31519. if thebits = 0 then
  31520. pTDefRegMap(@Self)^.clr := $00008000
  31521. else
  31522. pTDefRegMap(@Self)^.&set := $00008000;
  31523. end;
  31524. function TSPI1A_SPI3CON.getON : TBits_1; inline;
  31525. begin
  31526. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  31527. end;
  31528. procedure TSPI1A_SPI3CON.setENHBUF; inline;
  31529. begin
  31530. pTDefRegMap(@Self)^.&set := $00010000;
  31531. end;
  31532. procedure TSPI1A_SPI3CON.clearENHBUF; inline;
  31533. begin
  31534. pTDefRegMap(@Self)^.clr := $00010000;
  31535. end;
  31536. procedure TSPI1A_SPI3CON.setENHBUF(thebits : TBits_1); inline;
  31537. begin
  31538. if thebits = 0 then
  31539. pTDefRegMap(@Self)^.clr := $00010000
  31540. else
  31541. pTDefRegMap(@Self)^.&set := $00010000;
  31542. end;
  31543. function TSPI1A_SPI3CON.getENHBUF : TBits_1; inline;
  31544. begin
  31545. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  31546. end;
  31547. procedure TSPI1A_SPI3CON.setSPIFE; inline;
  31548. begin
  31549. pTDefRegMap(@Self)^.&set := $00020000;
  31550. end;
  31551. procedure TSPI1A_SPI3CON.clearSPIFE; inline;
  31552. begin
  31553. pTDefRegMap(@Self)^.clr := $00020000;
  31554. end;
  31555. procedure TSPI1A_SPI3CON.setSPIFE(thebits : TBits_1); inline;
  31556. begin
  31557. if thebits = 0 then
  31558. pTDefRegMap(@Self)^.clr := $00020000
  31559. else
  31560. pTDefRegMap(@Self)^.&set := $00020000;
  31561. end;
  31562. function TSPI1A_SPI3CON.getSPIFE : TBits_1; inline;
  31563. begin
  31564. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  31565. end;
  31566. procedure TSPI1A_SPI3CON.setFRMCNT(thebits : TBits_3); inline;
  31567. begin
  31568. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  31569. end;
  31570. function TSPI1A_SPI3CON.getFRMCNT : TBits_3; inline;
  31571. begin
  31572. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  31573. end;
  31574. procedure TSPI1A_SPI3CON.setFRMSYPW; inline;
  31575. begin
  31576. pTDefRegMap(@Self)^.&set := $08000000;
  31577. end;
  31578. procedure TSPI1A_SPI3CON.clearFRMSYPW; inline;
  31579. begin
  31580. pTDefRegMap(@Self)^.clr := $08000000;
  31581. end;
  31582. procedure TSPI1A_SPI3CON.setFRMSYPW(thebits : TBits_1); inline;
  31583. begin
  31584. if thebits = 0 then
  31585. pTDefRegMap(@Self)^.clr := $08000000
  31586. else
  31587. pTDefRegMap(@Self)^.&set := $08000000;
  31588. end;
  31589. function TSPI1A_SPI3CON.getFRMSYPW : TBits_1; inline;
  31590. begin
  31591. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  31592. end;
  31593. procedure TSPI1A_SPI3CON.setMSSEN; inline;
  31594. begin
  31595. pTDefRegMap(@Self)^.&set := $10000000;
  31596. end;
  31597. procedure TSPI1A_SPI3CON.clearMSSEN; inline;
  31598. begin
  31599. pTDefRegMap(@Self)^.clr := $10000000;
  31600. end;
  31601. procedure TSPI1A_SPI3CON.setMSSEN(thebits : TBits_1); inline;
  31602. begin
  31603. if thebits = 0 then
  31604. pTDefRegMap(@Self)^.clr := $10000000
  31605. else
  31606. pTDefRegMap(@Self)^.&set := $10000000;
  31607. end;
  31608. function TSPI1A_SPI3CON.getMSSEN : TBits_1; inline;
  31609. begin
  31610. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  31611. end;
  31612. procedure TSPI1A_SPI3CON.setFRMPOL; inline;
  31613. begin
  31614. pTDefRegMap(@Self)^.&set := $20000000;
  31615. end;
  31616. procedure TSPI1A_SPI3CON.clearFRMPOL; inline;
  31617. begin
  31618. pTDefRegMap(@Self)^.clr := $20000000;
  31619. end;
  31620. procedure TSPI1A_SPI3CON.setFRMPOL(thebits : TBits_1); inline;
  31621. begin
  31622. if thebits = 0 then
  31623. pTDefRegMap(@Self)^.clr := $20000000
  31624. else
  31625. pTDefRegMap(@Self)^.&set := $20000000;
  31626. end;
  31627. function TSPI1A_SPI3CON.getFRMPOL : TBits_1; inline;
  31628. begin
  31629. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  31630. end;
  31631. procedure TSPI1A_SPI3CON.setFRMSYNC; inline;
  31632. begin
  31633. pTDefRegMap(@Self)^.&set := $40000000;
  31634. end;
  31635. procedure TSPI1A_SPI3CON.clearFRMSYNC; inline;
  31636. begin
  31637. pTDefRegMap(@Self)^.clr := $40000000;
  31638. end;
  31639. procedure TSPI1A_SPI3CON.setFRMSYNC(thebits : TBits_1); inline;
  31640. begin
  31641. if thebits = 0 then
  31642. pTDefRegMap(@Self)^.clr := $40000000
  31643. else
  31644. pTDefRegMap(@Self)^.&set := $40000000;
  31645. end;
  31646. function TSPI1A_SPI3CON.getFRMSYNC : TBits_1; inline;
  31647. begin
  31648. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  31649. end;
  31650. procedure TSPI1A_SPI3CON.setFRMEN; inline;
  31651. begin
  31652. pTDefRegMap(@Self)^.&set := $80000000;
  31653. end;
  31654. procedure TSPI1A_SPI3CON.clearFRMEN; inline;
  31655. begin
  31656. pTDefRegMap(@Self)^.clr := $80000000;
  31657. end;
  31658. procedure TSPI1A_SPI3CON.setFRMEN(thebits : TBits_1); inline;
  31659. begin
  31660. if thebits = 0 then
  31661. pTDefRegMap(@Self)^.clr := $80000000
  31662. else
  31663. pTDefRegMap(@Self)^.&set := $80000000;
  31664. end;
  31665. function TSPI1A_SPI3CON.getFRMEN : TBits_1; inline;
  31666. begin
  31667. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  31668. end;
  31669. procedure TSPI1A_SPI3CON.setw(thebits : TBits_32); inline;
  31670. begin
  31671. pTDefRegMap(@Self)^.val := thebits;
  31672. end;
  31673. function TSPI1A_SPI3CON.getw : TBits_32; inline;
  31674. begin
  31675. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31676. end;
  31677. procedure TSPI1A_SPI1ASTAT.setSPIRBF; inline;
  31678. begin
  31679. pTDefRegMap(@Self)^.&set := $00000001;
  31680. end;
  31681. procedure TSPI1A_SPI1ASTAT.clearSPIRBF; inline;
  31682. begin
  31683. pTDefRegMap(@Self)^.clr := $00000001;
  31684. end;
  31685. procedure TSPI1A_SPI1ASTAT.setSPIRBF(thebits : TBits_1); inline;
  31686. begin
  31687. if thebits = 0 then
  31688. pTDefRegMap(@Self)^.clr := $00000001
  31689. else
  31690. pTDefRegMap(@Self)^.&set := $00000001;
  31691. end;
  31692. function TSPI1A_SPI1ASTAT.getSPIRBF : TBits_1; inline;
  31693. begin
  31694. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31695. end;
  31696. procedure TSPI1A_SPI1ASTAT.setSPITBF; inline;
  31697. begin
  31698. pTDefRegMap(@Self)^.&set := $00000002;
  31699. end;
  31700. procedure TSPI1A_SPI1ASTAT.clearSPITBF; inline;
  31701. begin
  31702. pTDefRegMap(@Self)^.clr := $00000002;
  31703. end;
  31704. procedure TSPI1A_SPI1ASTAT.setSPITBF(thebits : TBits_1); inline;
  31705. begin
  31706. if thebits = 0 then
  31707. pTDefRegMap(@Self)^.clr := $00000002
  31708. else
  31709. pTDefRegMap(@Self)^.&set := $00000002;
  31710. end;
  31711. function TSPI1A_SPI1ASTAT.getSPITBF : TBits_1; inline;
  31712. begin
  31713. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31714. end;
  31715. procedure TSPI1A_SPI1ASTAT.setSPITBE; inline;
  31716. begin
  31717. pTDefRegMap(@Self)^.&set := $00000008;
  31718. end;
  31719. procedure TSPI1A_SPI1ASTAT.clearSPITBE; inline;
  31720. begin
  31721. pTDefRegMap(@Self)^.clr := $00000008;
  31722. end;
  31723. procedure TSPI1A_SPI1ASTAT.setSPITBE(thebits : TBits_1); inline;
  31724. begin
  31725. if thebits = 0 then
  31726. pTDefRegMap(@Self)^.clr := $00000008
  31727. else
  31728. pTDefRegMap(@Self)^.&set := $00000008;
  31729. end;
  31730. function TSPI1A_SPI1ASTAT.getSPITBE : TBits_1; inline;
  31731. begin
  31732. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31733. end;
  31734. procedure TSPI1A_SPI1ASTAT.setSPIRBE; inline;
  31735. begin
  31736. pTDefRegMap(@Self)^.&set := $00000020;
  31737. end;
  31738. procedure TSPI1A_SPI1ASTAT.clearSPIRBE; inline;
  31739. begin
  31740. pTDefRegMap(@Self)^.clr := $00000020;
  31741. end;
  31742. procedure TSPI1A_SPI1ASTAT.setSPIRBE(thebits : TBits_1); inline;
  31743. begin
  31744. if thebits = 0 then
  31745. pTDefRegMap(@Self)^.clr := $00000020
  31746. else
  31747. pTDefRegMap(@Self)^.&set := $00000020;
  31748. end;
  31749. function TSPI1A_SPI1ASTAT.getSPIRBE : TBits_1; inline;
  31750. begin
  31751. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31752. end;
  31753. procedure TSPI1A_SPI1ASTAT.setSPIROV; inline;
  31754. begin
  31755. pTDefRegMap(@Self)^.&set := $00000040;
  31756. end;
  31757. procedure TSPI1A_SPI1ASTAT.clearSPIROV; inline;
  31758. begin
  31759. pTDefRegMap(@Self)^.clr := $00000040;
  31760. end;
  31761. procedure TSPI1A_SPI1ASTAT.setSPIROV(thebits : TBits_1); inline;
  31762. begin
  31763. if thebits = 0 then
  31764. pTDefRegMap(@Self)^.clr := $00000040
  31765. else
  31766. pTDefRegMap(@Self)^.&set := $00000040;
  31767. end;
  31768. function TSPI1A_SPI1ASTAT.getSPIROV : TBits_1; inline;
  31769. begin
  31770. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31771. end;
  31772. procedure TSPI1A_SPI1ASTAT.setSRMT; inline;
  31773. begin
  31774. pTDefRegMap(@Self)^.&set := $00000080;
  31775. end;
  31776. procedure TSPI1A_SPI1ASTAT.clearSRMT; inline;
  31777. begin
  31778. pTDefRegMap(@Self)^.clr := $00000080;
  31779. end;
  31780. procedure TSPI1A_SPI1ASTAT.setSRMT(thebits : TBits_1); inline;
  31781. begin
  31782. if thebits = 0 then
  31783. pTDefRegMap(@Self)^.clr := $00000080
  31784. else
  31785. pTDefRegMap(@Self)^.&set := $00000080;
  31786. end;
  31787. function TSPI1A_SPI1ASTAT.getSRMT : TBits_1; inline;
  31788. begin
  31789. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31790. end;
  31791. procedure TSPI1A_SPI1ASTAT.setSPITUR; inline;
  31792. begin
  31793. pTDefRegMap(@Self)^.&set := $00000100;
  31794. end;
  31795. procedure TSPI1A_SPI1ASTAT.clearSPITUR; inline;
  31796. begin
  31797. pTDefRegMap(@Self)^.clr := $00000100;
  31798. end;
  31799. procedure TSPI1A_SPI1ASTAT.setSPITUR(thebits : TBits_1); inline;
  31800. begin
  31801. if thebits = 0 then
  31802. pTDefRegMap(@Self)^.clr := $00000100
  31803. else
  31804. pTDefRegMap(@Self)^.&set := $00000100;
  31805. end;
  31806. function TSPI1A_SPI1ASTAT.getSPITUR : TBits_1; inline;
  31807. begin
  31808. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31809. end;
  31810. procedure TSPI1A_SPI1ASTAT.setSPIBUSY; inline;
  31811. begin
  31812. pTDefRegMap(@Self)^.&set := $00000800;
  31813. end;
  31814. procedure TSPI1A_SPI1ASTAT.clearSPIBUSY; inline;
  31815. begin
  31816. pTDefRegMap(@Self)^.clr := $00000800;
  31817. end;
  31818. procedure TSPI1A_SPI1ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  31819. begin
  31820. if thebits = 0 then
  31821. pTDefRegMap(@Self)^.clr := $00000800
  31822. else
  31823. pTDefRegMap(@Self)^.&set := $00000800;
  31824. end;
  31825. function TSPI1A_SPI1ASTAT.getSPIBUSY : TBits_1; inline;
  31826. begin
  31827. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  31828. end;
  31829. procedure TSPI1A_SPI1ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  31830. begin
  31831. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  31832. end;
  31833. function TSPI1A_SPI1ASTAT.getTXBUFELM : TBits_5; inline;
  31834. begin
  31835. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  31836. end;
  31837. procedure TSPI1A_SPI1ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  31838. begin
  31839. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  31840. end;
  31841. function TSPI1A_SPI1ASTAT.getRXBUFELM : TBits_5; inline;
  31842. begin
  31843. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  31844. end;
  31845. procedure TSPI1A_SPI1ASTAT.setw(thebits : TBits_32); inline;
  31846. begin
  31847. pTDefRegMap(@Self)^.val := thebits;
  31848. end;
  31849. function TSPI1A_SPI1ASTAT.getw : TBits_32; inline;
  31850. begin
  31851. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  31852. end;
  31853. procedure TSPI1A_SPI3STAT.setSPIRBF; inline;
  31854. begin
  31855. pTDefRegMap(@Self)^.&set := $00000001;
  31856. end;
  31857. procedure TSPI1A_SPI3STAT.clearSPIRBF; inline;
  31858. begin
  31859. pTDefRegMap(@Self)^.clr := $00000001;
  31860. end;
  31861. procedure TSPI1A_SPI3STAT.setSPIRBF(thebits : TBits_1); inline;
  31862. begin
  31863. if thebits = 0 then
  31864. pTDefRegMap(@Self)^.clr := $00000001
  31865. else
  31866. pTDefRegMap(@Self)^.&set := $00000001;
  31867. end;
  31868. function TSPI1A_SPI3STAT.getSPIRBF : TBits_1; inline;
  31869. begin
  31870. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  31871. end;
  31872. procedure TSPI1A_SPI3STAT.setSPITBF; inline;
  31873. begin
  31874. pTDefRegMap(@Self)^.&set := $00000002;
  31875. end;
  31876. procedure TSPI1A_SPI3STAT.clearSPITBF; inline;
  31877. begin
  31878. pTDefRegMap(@Self)^.clr := $00000002;
  31879. end;
  31880. procedure TSPI1A_SPI3STAT.setSPITBF(thebits : TBits_1); inline;
  31881. begin
  31882. if thebits = 0 then
  31883. pTDefRegMap(@Self)^.clr := $00000002
  31884. else
  31885. pTDefRegMap(@Self)^.&set := $00000002;
  31886. end;
  31887. function TSPI1A_SPI3STAT.getSPITBF : TBits_1; inline;
  31888. begin
  31889. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  31890. end;
  31891. procedure TSPI1A_SPI3STAT.setSPITBE; inline;
  31892. begin
  31893. pTDefRegMap(@Self)^.&set := $00000008;
  31894. end;
  31895. procedure TSPI1A_SPI3STAT.clearSPITBE; inline;
  31896. begin
  31897. pTDefRegMap(@Self)^.clr := $00000008;
  31898. end;
  31899. procedure TSPI1A_SPI3STAT.setSPITBE(thebits : TBits_1); inline;
  31900. begin
  31901. if thebits = 0 then
  31902. pTDefRegMap(@Self)^.clr := $00000008
  31903. else
  31904. pTDefRegMap(@Self)^.&set := $00000008;
  31905. end;
  31906. function TSPI1A_SPI3STAT.getSPITBE : TBits_1; inline;
  31907. begin
  31908. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  31909. end;
  31910. procedure TSPI1A_SPI3STAT.setSPIRBE; inline;
  31911. begin
  31912. pTDefRegMap(@Self)^.&set := $00000020;
  31913. end;
  31914. procedure TSPI1A_SPI3STAT.clearSPIRBE; inline;
  31915. begin
  31916. pTDefRegMap(@Self)^.clr := $00000020;
  31917. end;
  31918. procedure TSPI1A_SPI3STAT.setSPIRBE(thebits : TBits_1); inline;
  31919. begin
  31920. if thebits = 0 then
  31921. pTDefRegMap(@Self)^.clr := $00000020
  31922. else
  31923. pTDefRegMap(@Self)^.&set := $00000020;
  31924. end;
  31925. function TSPI1A_SPI3STAT.getSPIRBE : TBits_1; inline;
  31926. begin
  31927. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  31928. end;
  31929. procedure TSPI1A_SPI3STAT.setSPIROV; inline;
  31930. begin
  31931. pTDefRegMap(@Self)^.&set := $00000040;
  31932. end;
  31933. procedure TSPI1A_SPI3STAT.clearSPIROV; inline;
  31934. begin
  31935. pTDefRegMap(@Self)^.clr := $00000040;
  31936. end;
  31937. procedure TSPI1A_SPI3STAT.setSPIROV(thebits : TBits_1); inline;
  31938. begin
  31939. if thebits = 0 then
  31940. pTDefRegMap(@Self)^.clr := $00000040
  31941. else
  31942. pTDefRegMap(@Self)^.&set := $00000040;
  31943. end;
  31944. function TSPI1A_SPI3STAT.getSPIROV : TBits_1; inline;
  31945. begin
  31946. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  31947. end;
  31948. procedure TSPI1A_SPI3STAT.setSRMT; inline;
  31949. begin
  31950. pTDefRegMap(@Self)^.&set := $00000080;
  31951. end;
  31952. procedure TSPI1A_SPI3STAT.clearSRMT; inline;
  31953. begin
  31954. pTDefRegMap(@Self)^.clr := $00000080;
  31955. end;
  31956. procedure TSPI1A_SPI3STAT.setSRMT(thebits : TBits_1); inline;
  31957. begin
  31958. if thebits = 0 then
  31959. pTDefRegMap(@Self)^.clr := $00000080
  31960. else
  31961. pTDefRegMap(@Self)^.&set := $00000080;
  31962. end;
  31963. function TSPI1A_SPI3STAT.getSRMT : TBits_1; inline;
  31964. begin
  31965. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  31966. end;
  31967. procedure TSPI1A_SPI3STAT.setSPITUR; inline;
  31968. begin
  31969. pTDefRegMap(@Self)^.&set := $00000100;
  31970. end;
  31971. procedure TSPI1A_SPI3STAT.clearSPITUR; inline;
  31972. begin
  31973. pTDefRegMap(@Self)^.clr := $00000100;
  31974. end;
  31975. procedure TSPI1A_SPI3STAT.setSPITUR(thebits : TBits_1); inline;
  31976. begin
  31977. if thebits = 0 then
  31978. pTDefRegMap(@Self)^.clr := $00000100
  31979. else
  31980. pTDefRegMap(@Self)^.&set := $00000100;
  31981. end;
  31982. function TSPI1A_SPI3STAT.getSPITUR : TBits_1; inline;
  31983. begin
  31984. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  31985. end;
  31986. procedure TSPI1A_SPI3STAT.setSPIBUSY; inline;
  31987. begin
  31988. pTDefRegMap(@Self)^.&set := $00000800;
  31989. end;
  31990. procedure TSPI1A_SPI3STAT.clearSPIBUSY; inline;
  31991. begin
  31992. pTDefRegMap(@Self)^.clr := $00000800;
  31993. end;
  31994. procedure TSPI1A_SPI3STAT.setSPIBUSY(thebits : TBits_1); inline;
  31995. begin
  31996. if thebits = 0 then
  31997. pTDefRegMap(@Self)^.clr := $00000800
  31998. else
  31999. pTDefRegMap(@Self)^.&set := $00000800;
  32000. end;
  32001. function TSPI1A_SPI3STAT.getSPIBUSY : TBits_1; inline;
  32002. begin
  32003. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32004. end;
  32005. procedure TSPI1A_SPI3STAT.setTXBUFELM(thebits : TBits_5); inline;
  32006. begin
  32007. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  32008. end;
  32009. function TSPI1A_SPI3STAT.getTXBUFELM : TBits_5; inline;
  32010. begin
  32011. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  32012. end;
  32013. procedure TSPI1A_SPI3STAT.setRXBUFELM(thebits : TBits_5); inline;
  32014. begin
  32015. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  32016. end;
  32017. function TSPI1A_SPI3STAT.getRXBUFELM : TBits_5; inline;
  32018. begin
  32019. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  32020. end;
  32021. procedure TSPI1A_SPI3STAT.setw(thebits : TBits_32); inline;
  32022. begin
  32023. pTDefRegMap(@Self)^.val := thebits;
  32024. end;
  32025. function TSPI1A_SPI3STAT.getw : TBits_32; inline;
  32026. begin
  32027. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32028. end;
  32029. procedure TSPI2_SPI2ACON.setSRXISEL(thebits : TBits_2); inline;
  32030. begin
  32031. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  32032. end;
  32033. function TSPI2_SPI2ACON.getSRXISEL : TBits_2; inline;
  32034. begin
  32035. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  32036. end;
  32037. procedure TSPI2_SPI2ACON.setSTXISEL(thebits : TBits_2); inline;
  32038. begin
  32039. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  32040. end;
  32041. function TSPI2_SPI2ACON.getSTXISEL : TBits_2; inline;
  32042. begin
  32043. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  32044. end;
  32045. procedure TSPI2_SPI2ACON.setMSTEN; inline;
  32046. begin
  32047. pTDefRegMap(@Self)^.&set := $00000020;
  32048. end;
  32049. procedure TSPI2_SPI2ACON.clearMSTEN; inline;
  32050. begin
  32051. pTDefRegMap(@Self)^.clr := $00000020;
  32052. end;
  32053. procedure TSPI2_SPI2ACON.setMSTEN(thebits : TBits_1); inline;
  32054. begin
  32055. if thebits = 0 then
  32056. pTDefRegMap(@Self)^.clr := $00000020
  32057. else
  32058. pTDefRegMap(@Self)^.&set := $00000020;
  32059. end;
  32060. function TSPI2_SPI2ACON.getMSTEN : TBits_1; inline;
  32061. begin
  32062. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32063. end;
  32064. procedure TSPI2_SPI2ACON.setCKP; inline;
  32065. begin
  32066. pTDefRegMap(@Self)^.&set := $00000040;
  32067. end;
  32068. procedure TSPI2_SPI2ACON.clearCKP; inline;
  32069. begin
  32070. pTDefRegMap(@Self)^.clr := $00000040;
  32071. end;
  32072. procedure TSPI2_SPI2ACON.setCKP(thebits : TBits_1); inline;
  32073. begin
  32074. if thebits = 0 then
  32075. pTDefRegMap(@Self)^.clr := $00000040
  32076. else
  32077. pTDefRegMap(@Self)^.&set := $00000040;
  32078. end;
  32079. function TSPI2_SPI2ACON.getCKP : TBits_1; inline;
  32080. begin
  32081. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32082. end;
  32083. procedure TSPI2_SPI2ACON.setSSEN; inline;
  32084. begin
  32085. pTDefRegMap(@Self)^.&set := $00000080;
  32086. end;
  32087. procedure TSPI2_SPI2ACON.clearSSEN; inline;
  32088. begin
  32089. pTDefRegMap(@Self)^.clr := $00000080;
  32090. end;
  32091. procedure TSPI2_SPI2ACON.setSSEN(thebits : TBits_1); inline;
  32092. begin
  32093. if thebits = 0 then
  32094. pTDefRegMap(@Self)^.clr := $00000080
  32095. else
  32096. pTDefRegMap(@Self)^.&set := $00000080;
  32097. end;
  32098. function TSPI2_SPI2ACON.getSSEN : TBits_1; inline;
  32099. begin
  32100. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32101. end;
  32102. procedure TSPI2_SPI2ACON.setCKE; inline;
  32103. begin
  32104. pTDefRegMap(@Self)^.&set := $00000100;
  32105. end;
  32106. procedure TSPI2_SPI2ACON.clearCKE; inline;
  32107. begin
  32108. pTDefRegMap(@Self)^.clr := $00000100;
  32109. end;
  32110. procedure TSPI2_SPI2ACON.setCKE(thebits : TBits_1); inline;
  32111. begin
  32112. if thebits = 0 then
  32113. pTDefRegMap(@Self)^.clr := $00000100
  32114. else
  32115. pTDefRegMap(@Self)^.&set := $00000100;
  32116. end;
  32117. function TSPI2_SPI2ACON.getCKE : TBits_1; inline;
  32118. begin
  32119. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32120. end;
  32121. procedure TSPI2_SPI2ACON.setSMP; inline;
  32122. begin
  32123. pTDefRegMap(@Self)^.&set := $00000200;
  32124. end;
  32125. procedure TSPI2_SPI2ACON.clearSMP; inline;
  32126. begin
  32127. pTDefRegMap(@Self)^.clr := $00000200;
  32128. end;
  32129. procedure TSPI2_SPI2ACON.setSMP(thebits : TBits_1); inline;
  32130. begin
  32131. if thebits = 0 then
  32132. pTDefRegMap(@Self)^.clr := $00000200
  32133. else
  32134. pTDefRegMap(@Self)^.&set := $00000200;
  32135. end;
  32136. function TSPI2_SPI2ACON.getSMP : TBits_1; inline;
  32137. begin
  32138. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32139. end;
  32140. procedure TSPI2_SPI2ACON.setMODE16; inline;
  32141. begin
  32142. pTDefRegMap(@Self)^.&set := $00000400;
  32143. end;
  32144. procedure TSPI2_SPI2ACON.clearMODE16; inline;
  32145. begin
  32146. pTDefRegMap(@Self)^.clr := $00000400;
  32147. end;
  32148. procedure TSPI2_SPI2ACON.setMODE16(thebits : TBits_1); inline;
  32149. begin
  32150. if thebits = 0 then
  32151. pTDefRegMap(@Self)^.clr := $00000400
  32152. else
  32153. pTDefRegMap(@Self)^.&set := $00000400;
  32154. end;
  32155. function TSPI2_SPI2ACON.getMODE16 : TBits_1; inline;
  32156. begin
  32157. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32158. end;
  32159. procedure TSPI2_SPI2ACON.setMODE32; inline;
  32160. begin
  32161. pTDefRegMap(@Self)^.&set := $00000800;
  32162. end;
  32163. procedure TSPI2_SPI2ACON.clearMODE32; inline;
  32164. begin
  32165. pTDefRegMap(@Self)^.clr := $00000800;
  32166. end;
  32167. procedure TSPI2_SPI2ACON.setMODE32(thebits : TBits_1); inline;
  32168. begin
  32169. if thebits = 0 then
  32170. pTDefRegMap(@Self)^.clr := $00000800
  32171. else
  32172. pTDefRegMap(@Self)^.&set := $00000800;
  32173. end;
  32174. function TSPI2_SPI2ACON.getMODE32 : TBits_1; inline;
  32175. begin
  32176. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32177. end;
  32178. procedure TSPI2_SPI2ACON.setDISSDO; inline;
  32179. begin
  32180. pTDefRegMap(@Self)^.&set := $00001000;
  32181. end;
  32182. procedure TSPI2_SPI2ACON.clearDISSDO; inline;
  32183. begin
  32184. pTDefRegMap(@Self)^.clr := $00001000;
  32185. end;
  32186. procedure TSPI2_SPI2ACON.setDISSDO(thebits : TBits_1); inline;
  32187. begin
  32188. if thebits = 0 then
  32189. pTDefRegMap(@Self)^.clr := $00001000
  32190. else
  32191. pTDefRegMap(@Self)^.&set := $00001000;
  32192. end;
  32193. function TSPI2_SPI2ACON.getDISSDO : TBits_1; inline;
  32194. begin
  32195. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32196. end;
  32197. procedure TSPI2_SPI2ACON.setSIDL; inline;
  32198. begin
  32199. pTDefRegMap(@Self)^.&set := $00002000;
  32200. end;
  32201. procedure TSPI2_SPI2ACON.clearSIDL; inline;
  32202. begin
  32203. pTDefRegMap(@Self)^.clr := $00002000;
  32204. end;
  32205. procedure TSPI2_SPI2ACON.setSIDL(thebits : TBits_1); inline;
  32206. begin
  32207. if thebits = 0 then
  32208. pTDefRegMap(@Self)^.clr := $00002000
  32209. else
  32210. pTDefRegMap(@Self)^.&set := $00002000;
  32211. end;
  32212. function TSPI2_SPI2ACON.getSIDL : TBits_1; inline;
  32213. begin
  32214. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32215. end;
  32216. procedure TSPI2_SPI2ACON.setON; inline;
  32217. begin
  32218. pTDefRegMap(@Self)^.&set := $00008000;
  32219. end;
  32220. procedure TSPI2_SPI2ACON.clearON; inline;
  32221. begin
  32222. pTDefRegMap(@Self)^.clr := $00008000;
  32223. end;
  32224. procedure TSPI2_SPI2ACON.setON(thebits : TBits_1); inline;
  32225. begin
  32226. if thebits = 0 then
  32227. pTDefRegMap(@Self)^.clr := $00008000
  32228. else
  32229. pTDefRegMap(@Self)^.&set := $00008000;
  32230. end;
  32231. function TSPI2_SPI2ACON.getON : TBits_1; inline;
  32232. begin
  32233. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32234. end;
  32235. procedure TSPI2_SPI2ACON.setENHBUF; inline;
  32236. begin
  32237. pTDefRegMap(@Self)^.&set := $00010000;
  32238. end;
  32239. procedure TSPI2_SPI2ACON.clearENHBUF; inline;
  32240. begin
  32241. pTDefRegMap(@Self)^.clr := $00010000;
  32242. end;
  32243. procedure TSPI2_SPI2ACON.setENHBUF(thebits : TBits_1); inline;
  32244. begin
  32245. if thebits = 0 then
  32246. pTDefRegMap(@Self)^.clr := $00010000
  32247. else
  32248. pTDefRegMap(@Self)^.&set := $00010000;
  32249. end;
  32250. function TSPI2_SPI2ACON.getENHBUF : TBits_1; inline;
  32251. begin
  32252. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  32253. end;
  32254. procedure TSPI2_SPI2ACON.setSPIFE; inline;
  32255. begin
  32256. pTDefRegMap(@Self)^.&set := $00020000;
  32257. end;
  32258. procedure TSPI2_SPI2ACON.clearSPIFE; inline;
  32259. begin
  32260. pTDefRegMap(@Self)^.clr := $00020000;
  32261. end;
  32262. procedure TSPI2_SPI2ACON.setSPIFE(thebits : TBits_1); inline;
  32263. begin
  32264. if thebits = 0 then
  32265. pTDefRegMap(@Self)^.clr := $00020000
  32266. else
  32267. pTDefRegMap(@Self)^.&set := $00020000;
  32268. end;
  32269. function TSPI2_SPI2ACON.getSPIFE : TBits_1; inline;
  32270. begin
  32271. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  32272. end;
  32273. procedure TSPI2_SPI2ACON.setFRMCNT(thebits : TBits_3); inline;
  32274. begin
  32275. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  32276. end;
  32277. function TSPI2_SPI2ACON.getFRMCNT : TBits_3; inline;
  32278. begin
  32279. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  32280. end;
  32281. procedure TSPI2_SPI2ACON.setFRMSYPW; inline;
  32282. begin
  32283. pTDefRegMap(@Self)^.&set := $08000000;
  32284. end;
  32285. procedure TSPI2_SPI2ACON.clearFRMSYPW; inline;
  32286. begin
  32287. pTDefRegMap(@Self)^.clr := $08000000;
  32288. end;
  32289. procedure TSPI2_SPI2ACON.setFRMSYPW(thebits : TBits_1); inline;
  32290. begin
  32291. if thebits = 0 then
  32292. pTDefRegMap(@Self)^.clr := $08000000
  32293. else
  32294. pTDefRegMap(@Self)^.&set := $08000000;
  32295. end;
  32296. function TSPI2_SPI2ACON.getFRMSYPW : TBits_1; inline;
  32297. begin
  32298. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  32299. end;
  32300. procedure TSPI2_SPI2ACON.setMSSEN; inline;
  32301. begin
  32302. pTDefRegMap(@Self)^.&set := $10000000;
  32303. end;
  32304. procedure TSPI2_SPI2ACON.clearMSSEN; inline;
  32305. begin
  32306. pTDefRegMap(@Self)^.clr := $10000000;
  32307. end;
  32308. procedure TSPI2_SPI2ACON.setMSSEN(thebits : TBits_1); inline;
  32309. begin
  32310. if thebits = 0 then
  32311. pTDefRegMap(@Self)^.clr := $10000000
  32312. else
  32313. pTDefRegMap(@Self)^.&set := $10000000;
  32314. end;
  32315. function TSPI2_SPI2ACON.getMSSEN : TBits_1; inline;
  32316. begin
  32317. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  32318. end;
  32319. procedure TSPI2_SPI2ACON.setFRMPOL; inline;
  32320. begin
  32321. pTDefRegMap(@Self)^.&set := $20000000;
  32322. end;
  32323. procedure TSPI2_SPI2ACON.clearFRMPOL; inline;
  32324. begin
  32325. pTDefRegMap(@Self)^.clr := $20000000;
  32326. end;
  32327. procedure TSPI2_SPI2ACON.setFRMPOL(thebits : TBits_1); inline;
  32328. begin
  32329. if thebits = 0 then
  32330. pTDefRegMap(@Self)^.clr := $20000000
  32331. else
  32332. pTDefRegMap(@Self)^.&set := $20000000;
  32333. end;
  32334. function TSPI2_SPI2ACON.getFRMPOL : TBits_1; inline;
  32335. begin
  32336. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  32337. end;
  32338. procedure TSPI2_SPI2ACON.setFRMSYNC; inline;
  32339. begin
  32340. pTDefRegMap(@Self)^.&set := $40000000;
  32341. end;
  32342. procedure TSPI2_SPI2ACON.clearFRMSYNC; inline;
  32343. begin
  32344. pTDefRegMap(@Self)^.clr := $40000000;
  32345. end;
  32346. procedure TSPI2_SPI2ACON.setFRMSYNC(thebits : TBits_1); inline;
  32347. begin
  32348. if thebits = 0 then
  32349. pTDefRegMap(@Self)^.clr := $40000000
  32350. else
  32351. pTDefRegMap(@Self)^.&set := $40000000;
  32352. end;
  32353. function TSPI2_SPI2ACON.getFRMSYNC : TBits_1; inline;
  32354. begin
  32355. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  32356. end;
  32357. procedure TSPI2_SPI2ACON.setFRMEN; inline;
  32358. begin
  32359. pTDefRegMap(@Self)^.&set := $80000000;
  32360. end;
  32361. procedure TSPI2_SPI2ACON.clearFRMEN; inline;
  32362. begin
  32363. pTDefRegMap(@Self)^.clr := $80000000;
  32364. end;
  32365. procedure TSPI2_SPI2ACON.setFRMEN(thebits : TBits_1); inline;
  32366. begin
  32367. if thebits = 0 then
  32368. pTDefRegMap(@Self)^.clr := $80000000
  32369. else
  32370. pTDefRegMap(@Self)^.&set := $80000000;
  32371. end;
  32372. function TSPI2_SPI2ACON.getFRMEN : TBits_1; inline;
  32373. begin
  32374. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  32375. end;
  32376. procedure TSPI2_SPI2ACON.setw(thebits : TBits_32); inline;
  32377. begin
  32378. pTDefRegMap(@Self)^.val := thebits;
  32379. end;
  32380. function TSPI2_SPI2ACON.getw : TBits_32; inline;
  32381. begin
  32382. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32383. end;
  32384. procedure TSPI2_SPI2CON.setSRXISEL(thebits : TBits_2); inline;
  32385. begin
  32386. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  32387. end;
  32388. function TSPI2_SPI2CON.getSRXISEL : TBits_2; inline;
  32389. begin
  32390. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  32391. end;
  32392. procedure TSPI2_SPI2CON.setSTXISEL(thebits : TBits_2); inline;
  32393. begin
  32394. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  32395. end;
  32396. function TSPI2_SPI2CON.getSTXISEL : TBits_2; inline;
  32397. begin
  32398. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  32399. end;
  32400. procedure TSPI2_SPI2CON.setMSTEN; inline;
  32401. begin
  32402. pTDefRegMap(@Self)^.&set := $00000020;
  32403. end;
  32404. procedure TSPI2_SPI2CON.clearMSTEN; inline;
  32405. begin
  32406. pTDefRegMap(@Self)^.clr := $00000020;
  32407. end;
  32408. procedure TSPI2_SPI2CON.setMSTEN(thebits : TBits_1); inline;
  32409. begin
  32410. if thebits = 0 then
  32411. pTDefRegMap(@Self)^.clr := $00000020
  32412. else
  32413. pTDefRegMap(@Self)^.&set := $00000020;
  32414. end;
  32415. function TSPI2_SPI2CON.getMSTEN : TBits_1; inline;
  32416. begin
  32417. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32418. end;
  32419. procedure TSPI2_SPI2CON.setCKP; inline;
  32420. begin
  32421. pTDefRegMap(@Self)^.&set := $00000040;
  32422. end;
  32423. procedure TSPI2_SPI2CON.clearCKP; inline;
  32424. begin
  32425. pTDefRegMap(@Self)^.clr := $00000040;
  32426. end;
  32427. procedure TSPI2_SPI2CON.setCKP(thebits : TBits_1); inline;
  32428. begin
  32429. if thebits = 0 then
  32430. pTDefRegMap(@Self)^.clr := $00000040
  32431. else
  32432. pTDefRegMap(@Self)^.&set := $00000040;
  32433. end;
  32434. function TSPI2_SPI2CON.getCKP : TBits_1; inline;
  32435. begin
  32436. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32437. end;
  32438. procedure TSPI2_SPI2CON.setSSEN; inline;
  32439. begin
  32440. pTDefRegMap(@Self)^.&set := $00000080;
  32441. end;
  32442. procedure TSPI2_SPI2CON.clearSSEN; inline;
  32443. begin
  32444. pTDefRegMap(@Self)^.clr := $00000080;
  32445. end;
  32446. procedure TSPI2_SPI2CON.setSSEN(thebits : TBits_1); inline;
  32447. begin
  32448. if thebits = 0 then
  32449. pTDefRegMap(@Self)^.clr := $00000080
  32450. else
  32451. pTDefRegMap(@Self)^.&set := $00000080;
  32452. end;
  32453. function TSPI2_SPI2CON.getSSEN : TBits_1; inline;
  32454. begin
  32455. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32456. end;
  32457. procedure TSPI2_SPI2CON.setCKE; inline;
  32458. begin
  32459. pTDefRegMap(@Self)^.&set := $00000100;
  32460. end;
  32461. procedure TSPI2_SPI2CON.clearCKE; inline;
  32462. begin
  32463. pTDefRegMap(@Self)^.clr := $00000100;
  32464. end;
  32465. procedure TSPI2_SPI2CON.setCKE(thebits : TBits_1); inline;
  32466. begin
  32467. if thebits = 0 then
  32468. pTDefRegMap(@Self)^.clr := $00000100
  32469. else
  32470. pTDefRegMap(@Self)^.&set := $00000100;
  32471. end;
  32472. function TSPI2_SPI2CON.getCKE : TBits_1; inline;
  32473. begin
  32474. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32475. end;
  32476. procedure TSPI2_SPI2CON.setSMP; inline;
  32477. begin
  32478. pTDefRegMap(@Self)^.&set := $00000200;
  32479. end;
  32480. procedure TSPI2_SPI2CON.clearSMP; inline;
  32481. begin
  32482. pTDefRegMap(@Self)^.clr := $00000200;
  32483. end;
  32484. procedure TSPI2_SPI2CON.setSMP(thebits : TBits_1); inline;
  32485. begin
  32486. if thebits = 0 then
  32487. pTDefRegMap(@Self)^.clr := $00000200
  32488. else
  32489. pTDefRegMap(@Self)^.&set := $00000200;
  32490. end;
  32491. function TSPI2_SPI2CON.getSMP : TBits_1; inline;
  32492. begin
  32493. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  32494. end;
  32495. procedure TSPI2_SPI2CON.setMODE16; inline;
  32496. begin
  32497. pTDefRegMap(@Self)^.&set := $00000400;
  32498. end;
  32499. procedure TSPI2_SPI2CON.clearMODE16; inline;
  32500. begin
  32501. pTDefRegMap(@Self)^.clr := $00000400;
  32502. end;
  32503. procedure TSPI2_SPI2CON.setMODE16(thebits : TBits_1); inline;
  32504. begin
  32505. if thebits = 0 then
  32506. pTDefRegMap(@Self)^.clr := $00000400
  32507. else
  32508. pTDefRegMap(@Self)^.&set := $00000400;
  32509. end;
  32510. function TSPI2_SPI2CON.getMODE16 : TBits_1; inline;
  32511. begin
  32512. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  32513. end;
  32514. procedure TSPI2_SPI2CON.setMODE32; inline;
  32515. begin
  32516. pTDefRegMap(@Self)^.&set := $00000800;
  32517. end;
  32518. procedure TSPI2_SPI2CON.clearMODE32; inline;
  32519. begin
  32520. pTDefRegMap(@Self)^.clr := $00000800;
  32521. end;
  32522. procedure TSPI2_SPI2CON.setMODE32(thebits : TBits_1); inline;
  32523. begin
  32524. if thebits = 0 then
  32525. pTDefRegMap(@Self)^.clr := $00000800
  32526. else
  32527. pTDefRegMap(@Self)^.&set := $00000800;
  32528. end;
  32529. function TSPI2_SPI2CON.getMODE32 : TBits_1; inline;
  32530. begin
  32531. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32532. end;
  32533. procedure TSPI2_SPI2CON.setDISSDO; inline;
  32534. begin
  32535. pTDefRegMap(@Self)^.&set := $00001000;
  32536. end;
  32537. procedure TSPI2_SPI2CON.clearDISSDO; inline;
  32538. begin
  32539. pTDefRegMap(@Self)^.clr := $00001000;
  32540. end;
  32541. procedure TSPI2_SPI2CON.setDISSDO(thebits : TBits_1); inline;
  32542. begin
  32543. if thebits = 0 then
  32544. pTDefRegMap(@Self)^.clr := $00001000
  32545. else
  32546. pTDefRegMap(@Self)^.&set := $00001000;
  32547. end;
  32548. function TSPI2_SPI2CON.getDISSDO : TBits_1; inline;
  32549. begin
  32550. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  32551. end;
  32552. procedure TSPI2_SPI2CON.setSIDL; inline;
  32553. begin
  32554. pTDefRegMap(@Self)^.&set := $00002000;
  32555. end;
  32556. procedure TSPI2_SPI2CON.clearSIDL; inline;
  32557. begin
  32558. pTDefRegMap(@Self)^.clr := $00002000;
  32559. end;
  32560. procedure TSPI2_SPI2CON.setSIDL(thebits : TBits_1); inline;
  32561. begin
  32562. if thebits = 0 then
  32563. pTDefRegMap(@Self)^.clr := $00002000
  32564. else
  32565. pTDefRegMap(@Self)^.&set := $00002000;
  32566. end;
  32567. function TSPI2_SPI2CON.getSIDL : TBits_1; inline;
  32568. begin
  32569. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  32570. end;
  32571. procedure TSPI2_SPI2CON.setON; inline;
  32572. begin
  32573. pTDefRegMap(@Self)^.&set := $00008000;
  32574. end;
  32575. procedure TSPI2_SPI2CON.clearON; inline;
  32576. begin
  32577. pTDefRegMap(@Self)^.clr := $00008000;
  32578. end;
  32579. procedure TSPI2_SPI2CON.setON(thebits : TBits_1); inline;
  32580. begin
  32581. if thebits = 0 then
  32582. pTDefRegMap(@Self)^.clr := $00008000
  32583. else
  32584. pTDefRegMap(@Self)^.&set := $00008000;
  32585. end;
  32586. function TSPI2_SPI2CON.getON : TBits_1; inline;
  32587. begin
  32588. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  32589. end;
  32590. procedure TSPI2_SPI2CON.setENHBUF; inline;
  32591. begin
  32592. pTDefRegMap(@Self)^.&set := $00010000;
  32593. end;
  32594. procedure TSPI2_SPI2CON.clearENHBUF; inline;
  32595. begin
  32596. pTDefRegMap(@Self)^.clr := $00010000;
  32597. end;
  32598. procedure TSPI2_SPI2CON.setENHBUF(thebits : TBits_1); inline;
  32599. begin
  32600. if thebits = 0 then
  32601. pTDefRegMap(@Self)^.clr := $00010000
  32602. else
  32603. pTDefRegMap(@Self)^.&set := $00010000;
  32604. end;
  32605. function TSPI2_SPI2CON.getENHBUF : TBits_1; inline;
  32606. begin
  32607. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  32608. end;
  32609. procedure TSPI2_SPI2CON.setSPIFE; inline;
  32610. begin
  32611. pTDefRegMap(@Self)^.&set := $00020000;
  32612. end;
  32613. procedure TSPI2_SPI2CON.clearSPIFE; inline;
  32614. begin
  32615. pTDefRegMap(@Self)^.clr := $00020000;
  32616. end;
  32617. procedure TSPI2_SPI2CON.setSPIFE(thebits : TBits_1); inline;
  32618. begin
  32619. if thebits = 0 then
  32620. pTDefRegMap(@Self)^.clr := $00020000
  32621. else
  32622. pTDefRegMap(@Self)^.&set := $00020000;
  32623. end;
  32624. function TSPI2_SPI2CON.getSPIFE : TBits_1; inline;
  32625. begin
  32626. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  32627. end;
  32628. procedure TSPI2_SPI2CON.setFRMCNT(thebits : TBits_3); inline;
  32629. begin
  32630. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  32631. end;
  32632. function TSPI2_SPI2CON.getFRMCNT : TBits_3; inline;
  32633. begin
  32634. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  32635. end;
  32636. procedure TSPI2_SPI2CON.setFRMSYPW; inline;
  32637. begin
  32638. pTDefRegMap(@Self)^.&set := $08000000;
  32639. end;
  32640. procedure TSPI2_SPI2CON.clearFRMSYPW; inline;
  32641. begin
  32642. pTDefRegMap(@Self)^.clr := $08000000;
  32643. end;
  32644. procedure TSPI2_SPI2CON.setFRMSYPW(thebits : TBits_1); inline;
  32645. begin
  32646. if thebits = 0 then
  32647. pTDefRegMap(@Self)^.clr := $08000000
  32648. else
  32649. pTDefRegMap(@Self)^.&set := $08000000;
  32650. end;
  32651. function TSPI2_SPI2CON.getFRMSYPW : TBits_1; inline;
  32652. begin
  32653. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  32654. end;
  32655. procedure TSPI2_SPI2CON.setMSSEN; inline;
  32656. begin
  32657. pTDefRegMap(@Self)^.&set := $10000000;
  32658. end;
  32659. procedure TSPI2_SPI2CON.clearMSSEN; inline;
  32660. begin
  32661. pTDefRegMap(@Self)^.clr := $10000000;
  32662. end;
  32663. procedure TSPI2_SPI2CON.setMSSEN(thebits : TBits_1); inline;
  32664. begin
  32665. if thebits = 0 then
  32666. pTDefRegMap(@Self)^.clr := $10000000
  32667. else
  32668. pTDefRegMap(@Self)^.&set := $10000000;
  32669. end;
  32670. function TSPI2_SPI2CON.getMSSEN : TBits_1; inline;
  32671. begin
  32672. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  32673. end;
  32674. procedure TSPI2_SPI2CON.setFRMPOL; inline;
  32675. begin
  32676. pTDefRegMap(@Self)^.&set := $20000000;
  32677. end;
  32678. procedure TSPI2_SPI2CON.clearFRMPOL; inline;
  32679. begin
  32680. pTDefRegMap(@Self)^.clr := $20000000;
  32681. end;
  32682. procedure TSPI2_SPI2CON.setFRMPOL(thebits : TBits_1); inline;
  32683. begin
  32684. if thebits = 0 then
  32685. pTDefRegMap(@Self)^.clr := $20000000
  32686. else
  32687. pTDefRegMap(@Self)^.&set := $20000000;
  32688. end;
  32689. function TSPI2_SPI2CON.getFRMPOL : TBits_1; inline;
  32690. begin
  32691. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  32692. end;
  32693. procedure TSPI2_SPI2CON.setFRMSYNC; inline;
  32694. begin
  32695. pTDefRegMap(@Self)^.&set := $40000000;
  32696. end;
  32697. procedure TSPI2_SPI2CON.clearFRMSYNC; inline;
  32698. begin
  32699. pTDefRegMap(@Self)^.clr := $40000000;
  32700. end;
  32701. procedure TSPI2_SPI2CON.setFRMSYNC(thebits : TBits_1); inline;
  32702. begin
  32703. if thebits = 0 then
  32704. pTDefRegMap(@Self)^.clr := $40000000
  32705. else
  32706. pTDefRegMap(@Self)^.&set := $40000000;
  32707. end;
  32708. function TSPI2_SPI2CON.getFRMSYNC : TBits_1; inline;
  32709. begin
  32710. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  32711. end;
  32712. procedure TSPI2_SPI2CON.setFRMEN; inline;
  32713. begin
  32714. pTDefRegMap(@Self)^.&set := $80000000;
  32715. end;
  32716. procedure TSPI2_SPI2CON.clearFRMEN; inline;
  32717. begin
  32718. pTDefRegMap(@Self)^.clr := $80000000;
  32719. end;
  32720. procedure TSPI2_SPI2CON.setFRMEN(thebits : TBits_1); inline;
  32721. begin
  32722. if thebits = 0 then
  32723. pTDefRegMap(@Self)^.clr := $80000000
  32724. else
  32725. pTDefRegMap(@Self)^.&set := $80000000;
  32726. end;
  32727. function TSPI2_SPI2CON.getFRMEN : TBits_1; inline;
  32728. begin
  32729. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  32730. end;
  32731. procedure TSPI2_SPI2CON.setw(thebits : TBits_32); inline;
  32732. begin
  32733. pTDefRegMap(@Self)^.val := thebits;
  32734. end;
  32735. function TSPI2_SPI2CON.getw : TBits_32; inline;
  32736. begin
  32737. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32738. end;
  32739. procedure TSPI2_SPI2ASTAT.setSPIRBF; inline;
  32740. begin
  32741. pTDefRegMap(@Self)^.&set := $00000001;
  32742. end;
  32743. procedure TSPI2_SPI2ASTAT.clearSPIRBF; inline;
  32744. begin
  32745. pTDefRegMap(@Self)^.clr := $00000001;
  32746. end;
  32747. procedure TSPI2_SPI2ASTAT.setSPIRBF(thebits : TBits_1); inline;
  32748. begin
  32749. if thebits = 0 then
  32750. pTDefRegMap(@Self)^.clr := $00000001
  32751. else
  32752. pTDefRegMap(@Self)^.&set := $00000001;
  32753. end;
  32754. function TSPI2_SPI2ASTAT.getSPIRBF : TBits_1; inline;
  32755. begin
  32756. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  32757. end;
  32758. procedure TSPI2_SPI2ASTAT.setSPITBF; inline;
  32759. begin
  32760. pTDefRegMap(@Self)^.&set := $00000002;
  32761. end;
  32762. procedure TSPI2_SPI2ASTAT.clearSPITBF; inline;
  32763. begin
  32764. pTDefRegMap(@Self)^.clr := $00000002;
  32765. end;
  32766. procedure TSPI2_SPI2ASTAT.setSPITBF(thebits : TBits_1); inline;
  32767. begin
  32768. if thebits = 0 then
  32769. pTDefRegMap(@Self)^.clr := $00000002
  32770. else
  32771. pTDefRegMap(@Self)^.&set := $00000002;
  32772. end;
  32773. function TSPI2_SPI2ASTAT.getSPITBF : TBits_1; inline;
  32774. begin
  32775. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  32776. end;
  32777. procedure TSPI2_SPI2ASTAT.setSPITBE; inline;
  32778. begin
  32779. pTDefRegMap(@Self)^.&set := $00000008;
  32780. end;
  32781. procedure TSPI2_SPI2ASTAT.clearSPITBE; inline;
  32782. begin
  32783. pTDefRegMap(@Self)^.clr := $00000008;
  32784. end;
  32785. procedure TSPI2_SPI2ASTAT.setSPITBE(thebits : TBits_1); inline;
  32786. begin
  32787. if thebits = 0 then
  32788. pTDefRegMap(@Self)^.clr := $00000008
  32789. else
  32790. pTDefRegMap(@Self)^.&set := $00000008;
  32791. end;
  32792. function TSPI2_SPI2ASTAT.getSPITBE : TBits_1; inline;
  32793. begin
  32794. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  32795. end;
  32796. procedure TSPI2_SPI2ASTAT.setSPIRBE; inline;
  32797. begin
  32798. pTDefRegMap(@Self)^.&set := $00000020;
  32799. end;
  32800. procedure TSPI2_SPI2ASTAT.clearSPIRBE; inline;
  32801. begin
  32802. pTDefRegMap(@Self)^.clr := $00000020;
  32803. end;
  32804. procedure TSPI2_SPI2ASTAT.setSPIRBE(thebits : TBits_1); inline;
  32805. begin
  32806. if thebits = 0 then
  32807. pTDefRegMap(@Self)^.clr := $00000020
  32808. else
  32809. pTDefRegMap(@Self)^.&set := $00000020;
  32810. end;
  32811. function TSPI2_SPI2ASTAT.getSPIRBE : TBits_1; inline;
  32812. begin
  32813. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32814. end;
  32815. procedure TSPI2_SPI2ASTAT.setSPIROV; inline;
  32816. begin
  32817. pTDefRegMap(@Self)^.&set := $00000040;
  32818. end;
  32819. procedure TSPI2_SPI2ASTAT.clearSPIROV; inline;
  32820. begin
  32821. pTDefRegMap(@Self)^.clr := $00000040;
  32822. end;
  32823. procedure TSPI2_SPI2ASTAT.setSPIROV(thebits : TBits_1); inline;
  32824. begin
  32825. if thebits = 0 then
  32826. pTDefRegMap(@Self)^.clr := $00000040
  32827. else
  32828. pTDefRegMap(@Self)^.&set := $00000040;
  32829. end;
  32830. function TSPI2_SPI2ASTAT.getSPIROV : TBits_1; inline;
  32831. begin
  32832. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  32833. end;
  32834. procedure TSPI2_SPI2ASTAT.setSRMT; inline;
  32835. begin
  32836. pTDefRegMap(@Self)^.&set := $00000080;
  32837. end;
  32838. procedure TSPI2_SPI2ASTAT.clearSRMT; inline;
  32839. begin
  32840. pTDefRegMap(@Self)^.clr := $00000080;
  32841. end;
  32842. procedure TSPI2_SPI2ASTAT.setSRMT(thebits : TBits_1); inline;
  32843. begin
  32844. if thebits = 0 then
  32845. pTDefRegMap(@Self)^.clr := $00000080
  32846. else
  32847. pTDefRegMap(@Self)^.&set := $00000080;
  32848. end;
  32849. function TSPI2_SPI2ASTAT.getSRMT : TBits_1; inline;
  32850. begin
  32851. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  32852. end;
  32853. procedure TSPI2_SPI2ASTAT.setSPITUR; inline;
  32854. begin
  32855. pTDefRegMap(@Self)^.&set := $00000100;
  32856. end;
  32857. procedure TSPI2_SPI2ASTAT.clearSPITUR; inline;
  32858. begin
  32859. pTDefRegMap(@Self)^.clr := $00000100;
  32860. end;
  32861. procedure TSPI2_SPI2ASTAT.setSPITUR(thebits : TBits_1); inline;
  32862. begin
  32863. if thebits = 0 then
  32864. pTDefRegMap(@Self)^.clr := $00000100
  32865. else
  32866. pTDefRegMap(@Self)^.&set := $00000100;
  32867. end;
  32868. function TSPI2_SPI2ASTAT.getSPITUR : TBits_1; inline;
  32869. begin
  32870. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  32871. end;
  32872. procedure TSPI2_SPI2ASTAT.setSPIBUSY; inline;
  32873. begin
  32874. pTDefRegMap(@Self)^.&set := $00000800;
  32875. end;
  32876. procedure TSPI2_SPI2ASTAT.clearSPIBUSY; inline;
  32877. begin
  32878. pTDefRegMap(@Self)^.clr := $00000800;
  32879. end;
  32880. procedure TSPI2_SPI2ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  32881. begin
  32882. if thebits = 0 then
  32883. pTDefRegMap(@Self)^.clr := $00000800
  32884. else
  32885. pTDefRegMap(@Self)^.&set := $00000800;
  32886. end;
  32887. function TSPI2_SPI2ASTAT.getSPIBUSY : TBits_1; inline;
  32888. begin
  32889. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  32890. end;
  32891. procedure TSPI2_SPI2ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  32892. begin
  32893. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  32894. end;
  32895. function TSPI2_SPI2ASTAT.getTXBUFELM : TBits_5; inline;
  32896. begin
  32897. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  32898. end;
  32899. procedure TSPI2_SPI2ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  32900. begin
  32901. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  32902. end;
  32903. function TSPI2_SPI2ASTAT.getRXBUFELM : TBits_5; inline;
  32904. begin
  32905. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  32906. end;
  32907. procedure TSPI2_SPI2ASTAT.setw(thebits : TBits_32); inline;
  32908. begin
  32909. pTDefRegMap(@Self)^.val := thebits;
  32910. end;
  32911. function TSPI2_SPI2ASTAT.getw : TBits_32; inline;
  32912. begin
  32913. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  32914. end;
  32915. procedure TSPI2_SPI2STAT.setSPIRBF; inline;
  32916. begin
  32917. pTDefRegMap(@Self)^.&set := $00000001;
  32918. end;
  32919. procedure TSPI2_SPI2STAT.clearSPIRBF; inline;
  32920. begin
  32921. pTDefRegMap(@Self)^.clr := $00000001;
  32922. end;
  32923. procedure TSPI2_SPI2STAT.setSPIRBF(thebits : TBits_1); inline;
  32924. begin
  32925. if thebits = 0 then
  32926. pTDefRegMap(@Self)^.clr := $00000001
  32927. else
  32928. pTDefRegMap(@Self)^.&set := $00000001;
  32929. end;
  32930. function TSPI2_SPI2STAT.getSPIRBF : TBits_1; inline;
  32931. begin
  32932. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  32933. end;
  32934. procedure TSPI2_SPI2STAT.setSPITBF; inline;
  32935. begin
  32936. pTDefRegMap(@Self)^.&set := $00000002;
  32937. end;
  32938. procedure TSPI2_SPI2STAT.clearSPITBF; inline;
  32939. begin
  32940. pTDefRegMap(@Self)^.clr := $00000002;
  32941. end;
  32942. procedure TSPI2_SPI2STAT.setSPITBF(thebits : TBits_1); inline;
  32943. begin
  32944. if thebits = 0 then
  32945. pTDefRegMap(@Self)^.clr := $00000002
  32946. else
  32947. pTDefRegMap(@Self)^.&set := $00000002;
  32948. end;
  32949. function TSPI2_SPI2STAT.getSPITBF : TBits_1; inline;
  32950. begin
  32951. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  32952. end;
  32953. procedure TSPI2_SPI2STAT.setSPITBE; inline;
  32954. begin
  32955. pTDefRegMap(@Self)^.&set := $00000008;
  32956. end;
  32957. procedure TSPI2_SPI2STAT.clearSPITBE; inline;
  32958. begin
  32959. pTDefRegMap(@Self)^.clr := $00000008;
  32960. end;
  32961. procedure TSPI2_SPI2STAT.setSPITBE(thebits : TBits_1); inline;
  32962. begin
  32963. if thebits = 0 then
  32964. pTDefRegMap(@Self)^.clr := $00000008
  32965. else
  32966. pTDefRegMap(@Self)^.&set := $00000008;
  32967. end;
  32968. function TSPI2_SPI2STAT.getSPITBE : TBits_1; inline;
  32969. begin
  32970. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  32971. end;
  32972. procedure TSPI2_SPI2STAT.setSPIRBE; inline;
  32973. begin
  32974. pTDefRegMap(@Self)^.&set := $00000020;
  32975. end;
  32976. procedure TSPI2_SPI2STAT.clearSPIRBE; inline;
  32977. begin
  32978. pTDefRegMap(@Self)^.clr := $00000020;
  32979. end;
  32980. procedure TSPI2_SPI2STAT.setSPIRBE(thebits : TBits_1); inline;
  32981. begin
  32982. if thebits = 0 then
  32983. pTDefRegMap(@Self)^.clr := $00000020
  32984. else
  32985. pTDefRegMap(@Self)^.&set := $00000020;
  32986. end;
  32987. function TSPI2_SPI2STAT.getSPIRBE : TBits_1; inline;
  32988. begin
  32989. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  32990. end;
  32991. procedure TSPI2_SPI2STAT.setSPIROV; inline;
  32992. begin
  32993. pTDefRegMap(@Self)^.&set := $00000040;
  32994. end;
  32995. procedure TSPI2_SPI2STAT.clearSPIROV; inline;
  32996. begin
  32997. pTDefRegMap(@Self)^.clr := $00000040;
  32998. end;
  32999. procedure TSPI2_SPI2STAT.setSPIROV(thebits : TBits_1); inline;
  33000. begin
  33001. if thebits = 0 then
  33002. pTDefRegMap(@Self)^.clr := $00000040
  33003. else
  33004. pTDefRegMap(@Self)^.&set := $00000040;
  33005. end;
  33006. function TSPI2_SPI2STAT.getSPIROV : TBits_1; inline;
  33007. begin
  33008. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33009. end;
  33010. procedure TSPI2_SPI2STAT.setSRMT; inline;
  33011. begin
  33012. pTDefRegMap(@Self)^.&set := $00000080;
  33013. end;
  33014. procedure TSPI2_SPI2STAT.clearSRMT; inline;
  33015. begin
  33016. pTDefRegMap(@Self)^.clr := $00000080;
  33017. end;
  33018. procedure TSPI2_SPI2STAT.setSRMT(thebits : TBits_1); inline;
  33019. begin
  33020. if thebits = 0 then
  33021. pTDefRegMap(@Self)^.clr := $00000080
  33022. else
  33023. pTDefRegMap(@Self)^.&set := $00000080;
  33024. end;
  33025. function TSPI2_SPI2STAT.getSRMT : TBits_1; inline;
  33026. begin
  33027. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33028. end;
  33029. procedure TSPI2_SPI2STAT.setSPITUR; inline;
  33030. begin
  33031. pTDefRegMap(@Self)^.&set := $00000100;
  33032. end;
  33033. procedure TSPI2_SPI2STAT.clearSPITUR; inline;
  33034. begin
  33035. pTDefRegMap(@Self)^.clr := $00000100;
  33036. end;
  33037. procedure TSPI2_SPI2STAT.setSPITUR(thebits : TBits_1); inline;
  33038. begin
  33039. if thebits = 0 then
  33040. pTDefRegMap(@Self)^.clr := $00000100
  33041. else
  33042. pTDefRegMap(@Self)^.&set := $00000100;
  33043. end;
  33044. function TSPI2_SPI2STAT.getSPITUR : TBits_1; inline;
  33045. begin
  33046. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33047. end;
  33048. procedure TSPI2_SPI2STAT.setSPIBUSY; inline;
  33049. begin
  33050. pTDefRegMap(@Self)^.&set := $00000800;
  33051. end;
  33052. procedure TSPI2_SPI2STAT.clearSPIBUSY; inline;
  33053. begin
  33054. pTDefRegMap(@Self)^.clr := $00000800;
  33055. end;
  33056. procedure TSPI2_SPI2STAT.setSPIBUSY(thebits : TBits_1); inline;
  33057. begin
  33058. if thebits = 0 then
  33059. pTDefRegMap(@Self)^.clr := $00000800
  33060. else
  33061. pTDefRegMap(@Self)^.&set := $00000800;
  33062. end;
  33063. function TSPI2_SPI2STAT.getSPIBUSY : TBits_1; inline;
  33064. begin
  33065. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33066. end;
  33067. procedure TSPI2_SPI2STAT.setTXBUFELM(thebits : TBits_5); inline;
  33068. begin
  33069. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  33070. end;
  33071. function TSPI2_SPI2STAT.getTXBUFELM : TBits_5; inline;
  33072. begin
  33073. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  33074. end;
  33075. procedure TSPI2_SPI2STAT.setRXBUFELM(thebits : TBits_5); inline;
  33076. begin
  33077. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  33078. end;
  33079. function TSPI2_SPI2STAT.getRXBUFELM : TBits_5; inline;
  33080. begin
  33081. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  33082. end;
  33083. procedure TSPI2_SPI2STAT.setw(thebits : TBits_32); inline;
  33084. begin
  33085. pTDefRegMap(@Self)^.val := thebits;
  33086. end;
  33087. function TSPI2_SPI2STAT.getw : TBits_32; inline;
  33088. begin
  33089. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33090. end;
  33091. procedure TSPI4_SPI3ACON.setSRXISEL(thebits : TBits_2); inline;
  33092. begin
  33093. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  33094. end;
  33095. function TSPI4_SPI3ACON.getSRXISEL : TBits_2; inline;
  33096. begin
  33097. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  33098. end;
  33099. procedure TSPI4_SPI3ACON.setSTXISEL(thebits : TBits_2); inline;
  33100. begin
  33101. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  33102. end;
  33103. function TSPI4_SPI3ACON.getSTXISEL : TBits_2; inline;
  33104. begin
  33105. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  33106. end;
  33107. procedure TSPI4_SPI3ACON.setMSTEN; inline;
  33108. begin
  33109. pTDefRegMap(@Self)^.&set := $00000020;
  33110. end;
  33111. procedure TSPI4_SPI3ACON.clearMSTEN; inline;
  33112. begin
  33113. pTDefRegMap(@Self)^.clr := $00000020;
  33114. end;
  33115. procedure TSPI4_SPI3ACON.setMSTEN(thebits : TBits_1); inline;
  33116. begin
  33117. if thebits = 0 then
  33118. pTDefRegMap(@Self)^.clr := $00000020
  33119. else
  33120. pTDefRegMap(@Self)^.&set := $00000020;
  33121. end;
  33122. function TSPI4_SPI3ACON.getMSTEN : TBits_1; inline;
  33123. begin
  33124. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33125. end;
  33126. procedure TSPI4_SPI3ACON.setCKP; inline;
  33127. begin
  33128. pTDefRegMap(@Self)^.&set := $00000040;
  33129. end;
  33130. procedure TSPI4_SPI3ACON.clearCKP; inline;
  33131. begin
  33132. pTDefRegMap(@Self)^.clr := $00000040;
  33133. end;
  33134. procedure TSPI4_SPI3ACON.setCKP(thebits : TBits_1); inline;
  33135. begin
  33136. if thebits = 0 then
  33137. pTDefRegMap(@Self)^.clr := $00000040
  33138. else
  33139. pTDefRegMap(@Self)^.&set := $00000040;
  33140. end;
  33141. function TSPI4_SPI3ACON.getCKP : TBits_1; inline;
  33142. begin
  33143. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33144. end;
  33145. procedure TSPI4_SPI3ACON.setSSEN; inline;
  33146. begin
  33147. pTDefRegMap(@Self)^.&set := $00000080;
  33148. end;
  33149. procedure TSPI4_SPI3ACON.clearSSEN; inline;
  33150. begin
  33151. pTDefRegMap(@Self)^.clr := $00000080;
  33152. end;
  33153. procedure TSPI4_SPI3ACON.setSSEN(thebits : TBits_1); inline;
  33154. begin
  33155. if thebits = 0 then
  33156. pTDefRegMap(@Self)^.clr := $00000080
  33157. else
  33158. pTDefRegMap(@Self)^.&set := $00000080;
  33159. end;
  33160. function TSPI4_SPI3ACON.getSSEN : TBits_1; inline;
  33161. begin
  33162. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33163. end;
  33164. procedure TSPI4_SPI3ACON.setCKE; inline;
  33165. begin
  33166. pTDefRegMap(@Self)^.&set := $00000100;
  33167. end;
  33168. procedure TSPI4_SPI3ACON.clearCKE; inline;
  33169. begin
  33170. pTDefRegMap(@Self)^.clr := $00000100;
  33171. end;
  33172. procedure TSPI4_SPI3ACON.setCKE(thebits : TBits_1); inline;
  33173. begin
  33174. if thebits = 0 then
  33175. pTDefRegMap(@Self)^.clr := $00000100
  33176. else
  33177. pTDefRegMap(@Self)^.&set := $00000100;
  33178. end;
  33179. function TSPI4_SPI3ACON.getCKE : TBits_1; inline;
  33180. begin
  33181. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33182. end;
  33183. procedure TSPI4_SPI3ACON.setSMP; inline;
  33184. begin
  33185. pTDefRegMap(@Self)^.&set := $00000200;
  33186. end;
  33187. procedure TSPI4_SPI3ACON.clearSMP; inline;
  33188. begin
  33189. pTDefRegMap(@Self)^.clr := $00000200;
  33190. end;
  33191. procedure TSPI4_SPI3ACON.setSMP(thebits : TBits_1); inline;
  33192. begin
  33193. if thebits = 0 then
  33194. pTDefRegMap(@Self)^.clr := $00000200
  33195. else
  33196. pTDefRegMap(@Self)^.&set := $00000200;
  33197. end;
  33198. function TSPI4_SPI3ACON.getSMP : TBits_1; inline;
  33199. begin
  33200. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  33201. end;
  33202. procedure TSPI4_SPI3ACON.setMODE16; inline;
  33203. begin
  33204. pTDefRegMap(@Self)^.&set := $00000400;
  33205. end;
  33206. procedure TSPI4_SPI3ACON.clearMODE16; inline;
  33207. begin
  33208. pTDefRegMap(@Self)^.clr := $00000400;
  33209. end;
  33210. procedure TSPI4_SPI3ACON.setMODE16(thebits : TBits_1); inline;
  33211. begin
  33212. if thebits = 0 then
  33213. pTDefRegMap(@Self)^.clr := $00000400
  33214. else
  33215. pTDefRegMap(@Self)^.&set := $00000400;
  33216. end;
  33217. function TSPI4_SPI3ACON.getMODE16 : TBits_1; inline;
  33218. begin
  33219. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  33220. end;
  33221. procedure TSPI4_SPI3ACON.setMODE32; inline;
  33222. begin
  33223. pTDefRegMap(@Self)^.&set := $00000800;
  33224. end;
  33225. procedure TSPI4_SPI3ACON.clearMODE32; inline;
  33226. begin
  33227. pTDefRegMap(@Self)^.clr := $00000800;
  33228. end;
  33229. procedure TSPI4_SPI3ACON.setMODE32(thebits : TBits_1); inline;
  33230. begin
  33231. if thebits = 0 then
  33232. pTDefRegMap(@Self)^.clr := $00000800
  33233. else
  33234. pTDefRegMap(@Self)^.&set := $00000800;
  33235. end;
  33236. function TSPI4_SPI3ACON.getMODE32 : TBits_1; inline;
  33237. begin
  33238. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33239. end;
  33240. procedure TSPI4_SPI3ACON.setDISSDO; inline;
  33241. begin
  33242. pTDefRegMap(@Self)^.&set := $00001000;
  33243. end;
  33244. procedure TSPI4_SPI3ACON.clearDISSDO; inline;
  33245. begin
  33246. pTDefRegMap(@Self)^.clr := $00001000;
  33247. end;
  33248. procedure TSPI4_SPI3ACON.setDISSDO(thebits : TBits_1); inline;
  33249. begin
  33250. if thebits = 0 then
  33251. pTDefRegMap(@Self)^.clr := $00001000
  33252. else
  33253. pTDefRegMap(@Self)^.&set := $00001000;
  33254. end;
  33255. function TSPI4_SPI3ACON.getDISSDO : TBits_1; inline;
  33256. begin
  33257. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  33258. end;
  33259. procedure TSPI4_SPI3ACON.setSIDL; inline;
  33260. begin
  33261. pTDefRegMap(@Self)^.&set := $00002000;
  33262. end;
  33263. procedure TSPI4_SPI3ACON.clearSIDL; inline;
  33264. begin
  33265. pTDefRegMap(@Self)^.clr := $00002000;
  33266. end;
  33267. procedure TSPI4_SPI3ACON.setSIDL(thebits : TBits_1); inline;
  33268. begin
  33269. if thebits = 0 then
  33270. pTDefRegMap(@Self)^.clr := $00002000
  33271. else
  33272. pTDefRegMap(@Self)^.&set := $00002000;
  33273. end;
  33274. function TSPI4_SPI3ACON.getSIDL : TBits_1; inline;
  33275. begin
  33276. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  33277. end;
  33278. procedure TSPI4_SPI3ACON.setON; inline;
  33279. begin
  33280. pTDefRegMap(@Self)^.&set := $00008000;
  33281. end;
  33282. procedure TSPI4_SPI3ACON.clearON; inline;
  33283. begin
  33284. pTDefRegMap(@Self)^.clr := $00008000;
  33285. end;
  33286. procedure TSPI4_SPI3ACON.setON(thebits : TBits_1); inline;
  33287. begin
  33288. if thebits = 0 then
  33289. pTDefRegMap(@Self)^.clr := $00008000
  33290. else
  33291. pTDefRegMap(@Self)^.&set := $00008000;
  33292. end;
  33293. function TSPI4_SPI3ACON.getON : TBits_1; inline;
  33294. begin
  33295. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  33296. end;
  33297. procedure TSPI4_SPI3ACON.setENHBUF; inline;
  33298. begin
  33299. pTDefRegMap(@Self)^.&set := $00010000;
  33300. end;
  33301. procedure TSPI4_SPI3ACON.clearENHBUF; inline;
  33302. begin
  33303. pTDefRegMap(@Self)^.clr := $00010000;
  33304. end;
  33305. procedure TSPI4_SPI3ACON.setENHBUF(thebits : TBits_1); inline;
  33306. begin
  33307. if thebits = 0 then
  33308. pTDefRegMap(@Self)^.clr := $00010000
  33309. else
  33310. pTDefRegMap(@Self)^.&set := $00010000;
  33311. end;
  33312. function TSPI4_SPI3ACON.getENHBUF : TBits_1; inline;
  33313. begin
  33314. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  33315. end;
  33316. procedure TSPI4_SPI3ACON.setSPIFE; inline;
  33317. begin
  33318. pTDefRegMap(@Self)^.&set := $00020000;
  33319. end;
  33320. procedure TSPI4_SPI3ACON.clearSPIFE; inline;
  33321. begin
  33322. pTDefRegMap(@Self)^.clr := $00020000;
  33323. end;
  33324. procedure TSPI4_SPI3ACON.setSPIFE(thebits : TBits_1); inline;
  33325. begin
  33326. if thebits = 0 then
  33327. pTDefRegMap(@Self)^.clr := $00020000
  33328. else
  33329. pTDefRegMap(@Self)^.&set := $00020000;
  33330. end;
  33331. function TSPI4_SPI3ACON.getSPIFE : TBits_1; inline;
  33332. begin
  33333. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  33334. end;
  33335. procedure TSPI4_SPI3ACON.setFRMCNT(thebits : TBits_3); inline;
  33336. begin
  33337. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  33338. end;
  33339. function TSPI4_SPI3ACON.getFRMCNT : TBits_3; inline;
  33340. begin
  33341. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  33342. end;
  33343. procedure TSPI4_SPI3ACON.setFRMSYPW; inline;
  33344. begin
  33345. pTDefRegMap(@Self)^.&set := $08000000;
  33346. end;
  33347. procedure TSPI4_SPI3ACON.clearFRMSYPW; inline;
  33348. begin
  33349. pTDefRegMap(@Self)^.clr := $08000000;
  33350. end;
  33351. procedure TSPI4_SPI3ACON.setFRMSYPW(thebits : TBits_1); inline;
  33352. begin
  33353. if thebits = 0 then
  33354. pTDefRegMap(@Self)^.clr := $08000000
  33355. else
  33356. pTDefRegMap(@Self)^.&set := $08000000;
  33357. end;
  33358. function TSPI4_SPI3ACON.getFRMSYPW : TBits_1; inline;
  33359. begin
  33360. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  33361. end;
  33362. procedure TSPI4_SPI3ACON.setMSSEN; inline;
  33363. begin
  33364. pTDefRegMap(@Self)^.&set := $10000000;
  33365. end;
  33366. procedure TSPI4_SPI3ACON.clearMSSEN; inline;
  33367. begin
  33368. pTDefRegMap(@Self)^.clr := $10000000;
  33369. end;
  33370. procedure TSPI4_SPI3ACON.setMSSEN(thebits : TBits_1); inline;
  33371. begin
  33372. if thebits = 0 then
  33373. pTDefRegMap(@Self)^.clr := $10000000
  33374. else
  33375. pTDefRegMap(@Self)^.&set := $10000000;
  33376. end;
  33377. function TSPI4_SPI3ACON.getMSSEN : TBits_1; inline;
  33378. begin
  33379. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  33380. end;
  33381. procedure TSPI4_SPI3ACON.setFRMPOL; inline;
  33382. begin
  33383. pTDefRegMap(@Self)^.&set := $20000000;
  33384. end;
  33385. procedure TSPI4_SPI3ACON.clearFRMPOL; inline;
  33386. begin
  33387. pTDefRegMap(@Self)^.clr := $20000000;
  33388. end;
  33389. procedure TSPI4_SPI3ACON.setFRMPOL(thebits : TBits_1); inline;
  33390. begin
  33391. if thebits = 0 then
  33392. pTDefRegMap(@Self)^.clr := $20000000
  33393. else
  33394. pTDefRegMap(@Self)^.&set := $20000000;
  33395. end;
  33396. function TSPI4_SPI3ACON.getFRMPOL : TBits_1; inline;
  33397. begin
  33398. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  33399. end;
  33400. procedure TSPI4_SPI3ACON.setFRMSYNC; inline;
  33401. begin
  33402. pTDefRegMap(@Self)^.&set := $40000000;
  33403. end;
  33404. procedure TSPI4_SPI3ACON.clearFRMSYNC; inline;
  33405. begin
  33406. pTDefRegMap(@Self)^.clr := $40000000;
  33407. end;
  33408. procedure TSPI4_SPI3ACON.setFRMSYNC(thebits : TBits_1); inline;
  33409. begin
  33410. if thebits = 0 then
  33411. pTDefRegMap(@Self)^.clr := $40000000
  33412. else
  33413. pTDefRegMap(@Self)^.&set := $40000000;
  33414. end;
  33415. function TSPI4_SPI3ACON.getFRMSYNC : TBits_1; inline;
  33416. begin
  33417. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  33418. end;
  33419. procedure TSPI4_SPI3ACON.setFRMEN; inline;
  33420. begin
  33421. pTDefRegMap(@Self)^.&set := $80000000;
  33422. end;
  33423. procedure TSPI4_SPI3ACON.clearFRMEN; inline;
  33424. begin
  33425. pTDefRegMap(@Self)^.clr := $80000000;
  33426. end;
  33427. procedure TSPI4_SPI3ACON.setFRMEN(thebits : TBits_1); inline;
  33428. begin
  33429. if thebits = 0 then
  33430. pTDefRegMap(@Self)^.clr := $80000000
  33431. else
  33432. pTDefRegMap(@Self)^.&set := $80000000;
  33433. end;
  33434. function TSPI4_SPI3ACON.getFRMEN : TBits_1; inline;
  33435. begin
  33436. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  33437. end;
  33438. procedure TSPI4_SPI3ACON.setw(thebits : TBits_32); inline;
  33439. begin
  33440. pTDefRegMap(@Self)^.val := thebits;
  33441. end;
  33442. function TSPI4_SPI3ACON.getw : TBits_32; inline;
  33443. begin
  33444. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33445. end;
  33446. procedure TSPI4_SPI4CON.setSRXISEL(thebits : TBits_2); inline;
  33447. begin
  33448. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  33449. end;
  33450. function TSPI4_SPI4CON.getSRXISEL : TBits_2; inline;
  33451. begin
  33452. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  33453. end;
  33454. procedure TSPI4_SPI4CON.setSTXISEL(thebits : TBits_2); inline;
  33455. begin
  33456. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  33457. end;
  33458. function TSPI4_SPI4CON.getSTXISEL : TBits_2; inline;
  33459. begin
  33460. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  33461. end;
  33462. procedure TSPI4_SPI4CON.setMSTEN; inline;
  33463. begin
  33464. pTDefRegMap(@Self)^.&set := $00000020;
  33465. end;
  33466. procedure TSPI4_SPI4CON.clearMSTEN; inline;
  33467. begin
  33468. pTDefRegMap(@Self)^.clr := $00000020;
  33469. end;
  33470. procedure TSPI4_SPI4CON.setMSTEN(thebits : TBits_1); inline;
  33471. begin
  33472. if thebits = 0 then
  33473. pTDefRegMap(@Self)^.clr := $00000020
  33474. else
  33475. pTDefRegMap(@Self)^.&set := $00000020;
  33476. end;
  33477. function TSPI4_SPI4CON.getMSTEN : TBits_1; inline;
  33478. begin
  33479. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33480. end;
  33481. procedure TSPI4_SPI4CON.setCKP; inline;
  33482. begin
  33483. pTDefRegMap(@Self)^.&set := $00000040;
  33484. end;
  33485. procedure TSPI4_SPI4CON.clearCKP; inline;
  33486. begin
  33487. pTDefRegMap(@Self)^.clr := $00000040;
  33488. end;
  33489. procedure TSPI4_SPI4CON.setCKP(thebits : TBits_1); inline;
  33490. begin
  33491. if thebits = 0 then
  33492. pTDefRegMap(@Self)^.clr := $00000040
  33493. else
  33494. pTDefRegMap(@Self)^.&set := $00000040;
  33495. end;
  33496. function TSPI4_SPI4CON.getCKP : TBits_1; inline;
  33497. begin
  33498. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33499. end;
  33500. procedure TSPI4_SPI4CON.setSSEN; inline;
  33501. begin
  33502. pTDefRegMap(@Self)^.&set := $00000080;
  33503. end;
  33504. procedure TSPI4_SPI4CON.clearSSEN; inline;
  33505. begin
  33506. pTDefRegMap(@Self)^.clr := $00000080;
  33507. end;
  33508. procedure TSPI4_SPI4CON.setSSEN(thebits : TBits_1); inline;
  33509. begin
  33510. if thebits = 0 then
  33511. pTDefRegMap(@Self)^.clr := $00000080
  33512. else
  33513. pTDefRegMap(@Self)^.&set := $00000080;
  33514. end;
  33515. function TSPI4_SPI4CON.getSSEN : TBits_1; inline;
  33516. begin
  33517. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33518. end;
  33519. procedure TSPI4_SPI4CON.setCKE; inline;
  33520. begin
  33521. pTDefRegMap(@Self)^.&set := $00000100;
  33522. end;
  33523. procedure TSPI4_SPI4CON.clearCKE; inline;
  33524. begin
  33525. pTDefRegMap(@Self)^.clr := $00000100;
  33526. end;
  33527. procedure TSPI4_SPI4CON.setCKE(thebits : TBits_1); inline;
  33528. begin
  33529. if thebits = 0 then
  33530. pTDefRegMap(@Self)^.clr := $00000100
  33531. else
  33532. pTDefRegMap(@Self)^.&set := $00000100;
  33533. end;
  33534. function TSPI4_SPI4CON.getCKE : TBits_1; inline;
  33535. begin
  33536. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33537. end;
  33538. procedure TSPI4_SPI4CON.setSMP; inline;
  33539. begin
  33540. pTDefRegMap(@Self)^.&set := $00000200;
  33541. end;
  33542. procedure TSPI4_SPI4CON.clearSMP; inline;
  33543. begin
  33544. pTDefRegMap(@Self)^.clr := $00000200;
  33545. end;
  33546. procedure TSPI4_SPI4CON.setSMP(thebits : TBits_1); inline;
  33547. begin
  33548. if thebits = 0 then
  33549. pTDefRegMap(@Self)^.clr := $00000200
  33550. else
  33551. pTDefRegMap(@Self)^.&set := $00000200;
  33552. end;
  33553. function TSPI4_SPI4CON.getSMP : TBits_1; inline;
  33554. begin
  33555. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  33556. end;
  33557. procedure TSPI4_SPI4CON.setMODE16; inline;
  33558. begin
  33559. pTDefRegMap(@Self)^.&set := $00000400;
  33560. end;
  33561. procedure TSPI4_SPI4CON.clearMODE16; inline;
  33562. begin
  33563. pTDefRegMap(@Self)^.clr := $00000400;
  33564. end;
  33565. procedure TSPI4_SPI4CON.setMODE16(thebits : TBits_1); inline;
  33566. begin
  33567. if thebits = 0 then
  33568. pTDefRegMap(@Self)^.clr := $00000400
  33569. else
  33570. pTDefRegMap(@Self)^.&set := $00000400;
  33571. end;
  33572. function TSPI4_SPI4CON.getMODE16 : TBits_1; inline;
  33573. begin
  33574. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  33575. end;
  33576. procedure TSPI4_SPI4CON.setMODE32; inline;
  33577. begin
  33578. pTDefRegMap(@Self)^.&set := $00000800;
  33579. end;
  33580. procedure TSPI4_SPI4CON.clearMODE32; inline;
  33581. begin
  33582. pTDefRegMap(@Self)^.clr := $00000800;
  33583. end;
  33584. procedure TSPI4_SPI4CON.setMODE32(thebits : TBits_1); inline;
  33585. begin
  33586. if thebits = 0 then
  33587. pTDefRegMap(@Self)^.clr := $00000800
  33588. else
  33589. pTDefRegMap(@Self)^.&set := $00000800;
  33590. end;
  33591. function TSPI4_SPI4CON.getMODE32 : TBits_1; inline;
  33592. begin
  33593. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33594. end;
  33595. procedure TSPI4_SPI4CON.setDISSDO; inline;
  33596. begin
  33597. pTDefRegMap(@Self)^.&set := $00001000;
  33598. end;
  33599. procedure TSPI4_SPI4CON.clearDISSDO; inline;
  33600. begin
  33601. pTDefRegMap(@Self)^.clr := $00001000;
  33602. end;
  33603. procedure TSPI4_SPI4CON.setDISSDO(thebits : TBits_1); inline;
  33604. begin
  33605. if thebits = 0 then
  33606. pTDefRegMap(@Self)^.clr := $00001000
  33607. else
  33608. pTDefRegMap(@Self)^.&set := $00001000;
  33609. end;
  33610. function TSPI4_SPI4CON.getDISSDO : TBits_1; inline;
  33611. begin
  33612. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  33613. end;
  33614. procedure TSPI4_SPI4CON.setSIDL; inline;
  33615. begin
  33616. pTDefRegMap(@Self)^.&set := $00002000;
  33617. end;
  33618. procedure TSPI4_SPI4CON.clearSIDL; inline;
  33619. begin
  33620. pTDefRegMap(@Self)^.clr := $00002000;
  33621. end;
  33622. procedure TSPI4_SPI4CON.setSIDL(thebits : TBits_1); inline;
  33623. begin
  33624. if thebits = 0 then
  33625. pTDefRegMap(@Self)^.clr := $00002000
  33626. else
  33627. pTDefRegMap(@Self)^.&set := $00002000;
  33628. end;
  33629. function TSPI4_SPI4CON.getSIDL : TBits_1; inline;
  33630. begin
  33631. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  33632. end;
  33633. procedure TSPI4_SPI4CON.setON; inline;
  33634. begin
  33635. pTDefRegMap(@Self)^.&set := $00008000;
  33636. end;
  33637. procedure TSPI4_SPI4CON.clearON; inline;
  33638. begin
  33639. pTDefRegMap(@Self)^.clr := $00008000;
  33640. end;
  33641. procedure TSPI4_SPI4CON.setON(thebits : TBits_1); inline;
  33642. begin
  33643. if thebits = 0 then
  33644. pTDefRegMap(@Self)^.clr := $00008000
  33645. else
  33646. pTDefRegMap(@Self)^.&set := $00008000;
  33647. end;
  33648. function TSPI4_SPI4CON.getON : TBits_1; inline;
  33649. begin
  33650. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  33651. end;
  33652. procedure TSPI4_SPI4CON.setENHBUF; inline;
  33653. begin
  33654. pTDefRegMap(@Self)^.&set := $00010000;
  33655. end;
  33656. procedure TSPI4_SPI4CON.clearENHBUF; inline;
  33657. begin
  33658. pTDefRegMap(@Self)^.clr := $00010000;
  33659. end;
  33660. procedure TSPI4_SPI4CON.setENHBUF(thebits : TBits_1); inline;
  33661. begin
  33662. if thebits = 0 then
  33663. pTDefRegMap(@Self)^.clr := $00010000
  33664. else
  33665. pTDefRegMap(@Self)^.&set := $00010000;
  33666. end;
  33667. function TSPI4_SPI4CON.getENHBUF : TBits_1; inline;
  33668. begin
  33669. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  33670. end;
  33671. procedure TSPI4_SPI4CON.setSPIFE; inline;
  33672. begin
  33673. pTDefRegMap(@Self)^.&set := $00020000;
  33674. end;
  33675. procedure TSPI4_SPI4CON.clearSPIFE; inline;
  33676. begin
  33677. pTDefRegMap(@Self)^.clr := $00020000;
  33678. end;
  33679. procedure TSPI4_SPI4CON.setSPIFE(thebits : TBits_1); inline;
  33680. begin
  33681. if thebits = 0 then
  33682. pTDefRegMap(@Self)^.clr := $00020000
  33683. else
  33684. pTDefRegMap(@Self)^.&set := $00020000;
  33685. end;
  33686. function TSPI4_SPI4CON.getSPIFE : TBits_1; inline;
  33687. begin
  33688. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  33689. end;
  33690. procedure TSPI4_SPI4CON.setFRMCNT(thebits : TBits_3); inline;
  33691. begin
  33692. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  33693. end;
  33694. function TSPI4_SPI4CON.getFRMCNT : TBits_3; inline;
  33695. begin
  33696. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  33697. end;
  33698. procedure TSPI4_SPI4CON.setFRMSYPW; inline;
  33699. begin
  33700. pTDefRegMap(@Self)^.&set := $08000000;
  33701. end;
  33702. procedure TSPI4_SPI4CON.clearFRMSYPW; inline;
  33703. begin
  33704. pTDefRegMap(@Self)^.clr := $08000000;
  33705. end;
  33706. procedure TSPI4_SPI4CON.setFRMSYPW(thebits : TBits_1); inline;
  33707. begin
  33708. if thebits = 0 then
  33709. pTDefRegMap(@Self)^.clr := $08000000
  33710. else
  33711. pTDefRegMap(@Self)^.&set := $08000000;
  33712. end;
  33713. function TSPI4_SPI4CON.getFRMSYPW : TBits_1; inline;
  33714. begin
  33715. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  33716. end;
  33717. procedure TSPI4_SPI4CON.setMSSEN; inline;
  33718. begin
  33719. pTDefRegMap(@Self)^.&set := $10000000;
  33720. end;
  33721. procedure TSPI4_SPI4CON.clearMSSEN; inline;
  33722. begin
  33723. pTDefRegMap(@Self)^.clr := $10000000;
  33724. end;
  33725. procedure TSPI4_SPI4CON.setMSSEN(thebits : TBits_1); inline;
  33726. begin
  33727. if thebits = 0 then
  33728. pTDefRegMap(@Self)^.clr := $10000000
  33729. else
  33730. pTDefRegMap(@Self)^.&set := $10000000;
  33731. end;
  33732. function TSPI4_SPI4CON.getMSSEN : TBits_1; inline;
  33733. begin
  33734. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  33735. end;
  33736. procedure TSPI4_SPI4CON.setFRMPOL; inline;
  33737. begin
  33738. pTDefRegMap(@Self)^.&set := $20000000;
  33739. end;
  33740. procedure TSPI4_SPI4CON.clearFRMPOL; inline;
  33741. begin
  33742. pTDefRegMap(@Self)^.clr := $20000000;
  33743. end;
  33744. procedure TSPI4_SPI4CON.setFRMPOL(thebits : TBits_1); inline;
  33745. begin
  33746. if thebits = 0 then
  33747. pTDefRegMap(@Self)^.clr := $20000000
  33748. else
  33749. pTDefRegMap(@Self)^.&set := $20000000;
  33750. end;
  33751. function TSPI4_SPI4CON.getFRMPOL : TBits_1; inline;
  33752. begin
  33753. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  33754. end;
  33755. procedure TSPI4_SPI4CON.setFRMSYNC; inline;
  33756. begin
  33757. pTDefRegMap(@Self)^.&set := $40000000;
  33758. end;
  33759. procedure TSPI4_SPI4CON.clearFRMSYNC; inline;
  33760. begin
  33761. pTDefRegMap(@Self)^.clr := $40000000;
  33762. end;
  33763. procedure TSPI4_SPI4CON.setFRMSYNC(thebits : TBits_1); inline;
  33764. begin
  33765. if thebits = 0 then
  33766. pTDefRegMap(@Self)^.clr := $40000000
  33767. else
  33768. pTDefRegMap(@Self)^.&set := $40000000;
  33769. end;
  33770. function TSPI4_SPI4CON.getFRMSYNC : TBits_1; inline;
  33771. begin
  33772. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  33773. end;
  33774. procedure TSPI4_SPI4CON.setFRMEN; inline;
  33775. begin
  33776. pTDefRegMap(@Self)^.&set := $80000000;
  33777. end;
  33778. procedure TSPI4_SPI4CON.clearFRMEN; inline;
  33779. begin
  33780. pTDefRegMap(@Self)^.clr := $80000000;
  33781. end;
  33782. procedure TSPI4_SPI4CON.setFRMEN(thebits : TBits_1); inline;
  33783. begin
  33784. if thebits = 0 then
  33785. pTDefRegMap(@Self)^.clr := $80000000
  33786. else
  33787. pTDefRegMap(@Self)^.&set := $80000000;
  33788. end;
  33789. function TSPI4_SPI4CON.getFRMEN : TBits_1; inline;
  33790. begin
  33791. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  33792. end;
  33793. procedure TSPI4_SPI4CON.setw(thebits : TBits_32); inline;
  33794. begin
  33795. pTDefRegMap(@Self)^.val := thebits;
  33796. end;
  33797. function TSPI4_SPI4CON.getw : TBits_32; inline;
  33798. begin
  33799. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33800. end;
  33801. procedure TSPI4_SPI3ASTAT.setSPIRBF; inline;
  33802. begin
  33803. pTDefRegMap(@Self)^.&set := $00000001;
  33804. end;
  33805. procedure TSPI4_SPI3ASTAT.clearSPIRBF; inline;
  33806. begin
  33807. pTDefRegMap(@Self)^.clr := $00000001;
  33808. end;
  33809. procedure TSPI4_SPI3ASTAT.setSPIRBF(thebits : TBits_1); inline;
  33810. begin
  33811. if thebits = 0 then
  33812. pTDefRegMap(@Self)^.clr := $00000001
  33813. else
  33814. pTDefRegMap(@Self)^.&set := $00000001;
  33815. end;
  33816. function TSPI4_SPI3ASTAT.getSPIRBF : TBits_1; inline;
  33817. begin
  33818. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  33819. end;
  33820. procedure TSPI4_SPI3ASTAT.setSPITBF; inline;
  33821. begin
  33822. pTDefRegMap(@Self)^.&set := $00000002;
  33823. end;
  33824. procedure TSPI4_SPI3ASTAT.clearSPITBF; inline;
  33825. begin
  33826. pTDefRegMap(@Self)^.clr := $00000002;
  33827. end;
  33828. procedure TSPI4_SPI3ASTAT.setSPITBF(thebits : TBits_1); inline;
  33829. begin
  33830. if thebits = 0 then
  33831. pTDefRegMap(@Self)^.clr := $00000002
  33832. else
  33833. pTDefRegMap(@Self)^.&set := $00000002;
  33834. end;
  33835. function TSPI4_SPI3ASTAT.getSPITBF : TBits_1; inline;
  33836. begin
  33837. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  33838. end;
  33839. procedure TSPI4_SPI3ASTAT.setSPITBE; inline;
  33840. begin
  33841. pTDefRegMap(@Self)^.&set := $00000008;
  33842. end;
  33843. procedure TSPI4_SPI3ASTAT.clearSPITBE; inline;
  33844. begin
  33845. pTDefRegMap(@Self)^.clr := $00000008;
  33846. end;
  33847. procedure TSPI4_SPI3ASTAT.setSPITBE(thebits : TBits_1); inline;
  33848. begin
  33849. if thebits = 0 then
  33850. pTDefRegMap(@Self)^.clr := $00000008
  33851. else
  33852. pTDefRegMap(@Self)^.&set := $00000008;
  33853. end;
  33854. function TSPI4_SPI3ASTAT.getSPITBE : TBits_1; inline;
  33855. begin
  33856. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  33857. end;
  33858. procedure TSPI4_SPI3ASTAT.setSPIRBE; inline;
  33859. begin
  33860. pTDefRegMap(@Self)^.&set := $00000020;
  33861. end;
  33862. procedure TSPI4_SPI3ASTAT.clearSPIRBE; inline;
  33863. begin
  33864. pTDefRegMap(@Self)^.clr := $00000020;
  33865. end;
  33866. procedure TSPI4_SPI3ASTAT.setSPIRBE(thebits : TBits_1); inline;
  33867. begin
  33868. if thebits = 0 then
  33869. pTDefRegMap(@Self)^.clr := $00000020
  33870. else
  33871. pTDefRegMap(@Self)^.&set := $00000020;
  33872. end;
  33873. function TSPI4_SPI3ASTAT.getSPIRBE : TBits_1; inline;
  33874. begin
  33875. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  33876. end;
  33877. procedure TSPI4_SPI3ASTAT.setSPIROV; inline;
  33878. begin
  33879. pTDefRegMap(@Self)^.&set := $00000040;
  33880. end;
  33881. procedure TSPI4_SPI3ASTAT.clearSPIROV; inline;
  33882. begin
  33883. pTDefRegMap(@Self)^.clr := $00000040;
  33884. end;
  33885. procedure TSPI4_SPI3ASTAT.setSPIROV(thebits : TBits_1); inline;
  33886. begin
  33887. if thebits = 0 then
  33888. pTDefRegMap(@Self)^.clr := $00000040
  33889. else
  33890. pTDefRegMap(@Self)^.&set := $00000040;
  33891. end;
  33892. function TSPI4_SPI3ASTAT.getSPIROV : TBits_1; inline;
  33893. begin
  33894. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  33895. end;
  33896. procedure TSPI4_SPI3ASTAT.setSRMT; inline;
  33897. begin
  33898. pTDefRegMap(@Self)^.&set := $00000080;
  33899. end;
  33900. procedure TSPI4_SPI3ASTAT.clearSRMT; inline;
  33901. begin
  33902. pTDefRegMap(@Self)^.clr := $00000080;
  33903. end;
  33904. procedure TSPI4_SPI3ASTAT.setSRMT(thebits : TBits_1); inline;
  33905. begin
  33906. if thebits = 0 then
  33907. pTDefRegMap(@Self)^.clr := $00000080
  33908. else
  33909. pTDefRegMap(@Self)^.&set := $00000080;
  33910. end;
  33911. function TSPI4_SPI3ASTAT.getSRMT : TBits_1; inline;
  33912. begin
  33913. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  33914. end;
  33915. procedure TSPI4_SPI3ASTAT.setSPITUR; inline;
  33916. begin
  33917. pTDefRegMap(@Self)^.&set := $00000100;
  33918. end;
  33919. procedure TSPI4_SPI3ASTAT.clearSPITUR; inline;
  33920. begin
  33921. pTDefRegMap(@Self)^.clr := $00000100;
  33922. end;
  33923. procedure TSPI4_SPI3ASTAT.setSPITUR(thebits : TBits_1); inline;
  33924. begin
  33925. if thebits = 0 then
  33926. pTDefRegMap(@Self)^.clr := $00000100
  33927. else
  33928. pTDefRegMap(@Self)^.&set := $00000100;
  33929. end;
  33930. function TSPI4_SPI3ASTAT.getSPITUR : TBits_1; inline;
  33931. begin
  33932. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  33933. end;
  33934. procedure TSPI4_SPI3ASTAT.setSPIBUSY; inline;
  33935. begin
  33936. pTDefRegMap(@Self)^.&set := $00000800;
  33937. end;
  33938. procedure TSPI4_SPI3ASTAT.clearSPIBUSY; inline;
  33939. begin
  33940. pTDefRegMap(@Self)^.clr := $00000800;
  33941. end;
  33942. procedure TSPI4_SPI3ASTAT.setSPIBUSY(thebits : TBits_1); inline;
  33943. begin
  33944. if thebits = 0 then
  33945. pTDefRegMap(@Self)^.clr := $00000800
  33946. else
  33947. pTDefRegMap(@Self)^.&set := $00000800;
  33948. end;
  33949. function TSPI4_SPI3ASTAT.getSPIBUSY : TBits_1; inline;
  33950. begin
  33951. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  33952. end;
  33953. procedure TSPI4_SPI3ASTAT.setTXBUFELM(thebits : TBits_5); inline;
  33954. begin
  33955. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  33956. end;
  33957. function TSPI4_SPI3ASTAT.getTXBUFELM : TBits_5; inline;
  33958. begin
  33959. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  33960. end;
  33961. procedure TSPI4_SPI3ASTAT.setRXBUFELM(thebits : TBits_5); inline;
  33962. begin
  33963. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  33964. end;
  33965. function TSPI4_SPI3ASTAT.getRXBUFELM : TBits_5; inline;
  33966. begin
  33967. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  33968. end;
  33969. procedure TSPI4_SPI3ASTAT.setw(thebits : TBits_32); inline;
  33970. begin
  33971. pTDefRegMap(@Self)^.val := thebits;
  33972. end;
  33973. function TSPI4_SPI3ASTAT.getw : TBits_32; inline;
  33974. begin
  33975. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  33976. end;
  33977. procedure TSPI4_SPI4STAT.setSPIRBF; inline;
  33978. begin
  33979. pTDefRegMap(@Self)^.&set := $00000001;
  33980. end;
  33981. procedure TSPI4_SPI4STAT.clearSPIRBF; inline;
  33982. begin
  33983. pTDefRegMap(@Self)^.clr := $00000001;
  33984. end;
  33985. procedure TSPI4_SPI4STAT.setSPIRBF(thebits : TBits_1); inline;
  33986. begin
  33987. if thebits = 0 then
  33988. pTDefRegMap(@Self)^.clr := $00000001
  33989. else
  33990. pTDefRegMap(@Self)^.&set := $00000001;
  33991. end;
  33992. function TSPI4_SPI4STAT.getSPIRBF : TBits_1; inline;
  33993. begin
  33994. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  33995. end;
  33996. procedure TSPI4_SPI4STAT.setSPITBF; inline;
  33997. begin
  33998. pTDefRegMap(@Self)^.&set := $00000002;
  33999. end;
  34000. procedure TSPI4_SPI4STAT.clearSPITBF; inline;
  34001. begin
  34002. pTDefRegMap(@Self)^.clr := $00000002;
  34003. end;
  34004. procedure TSPI4_SPI4STAT.setSPITBF(thebits : TBits_1); inline;
  34005. begin
  34006. if thebits = 0 then
  34007. pTDefRegMap(@Self)^.clr := $00000002
  34008. else
  34009. pTDefRegMap(@Self)^.&set := $00000002;
  34010. end;
  34011. function TSPI4_SPI4STAT.getSPITBF : TBits_1; inline;
  34012. begin
  34013. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34014. end;
  34015. procedure TSPI4_SPI4STAT.setSPITBE; inline;
  34016. begin
  34017. pTDefRegMap(@Self)^.&set := $00000008;
  34018. end;
  34019. procedure TSPI4_SPI4STAT.clearSPITBE; inline;
  34020. begin
  34021. pTDefRegMap(@Self)^.clr := $00000008;
  34022. end;
  34023. procedure TSPI4_SPI4STAT.setSPITBE(thebits : TBits_1); inline;
  34024. begin
  34025. if thebits = 0 then
  34026. pTDefRegMap(@Self)^.clr := $00000008
  34027. else
  34028. pTDefRegMap(@Self)^.&set := $00000008;
  34029. end;
  34030. function TSPI4_SPI4STAT.getSPITBE : TBits_1; inline;
  34031. begin
  34032. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  34033. end;
  34034. procedure TSPI4_SPI4STAT.setSPIRBE; inline;
  34035. begin
  34036. pTDefRegMap(@Self)^.&set := $00000020;
  34037. end;
  34038. procedure TSPI4_SPI4STAT.clearSPIRBE; inline;
  34039. begin
  34040. pTDefRegMap(@Self)^.clr := $00000020;
  34041. end;
  34042. procedure TSPI4_SPI4STAT.setSPIRBE(thebits : TBits_1); inline;
  34043. begin
  34044. if thebits = 0 then
  34045. pTDefRegMap(@Self)^.clr := $00000020
  34046. else
  34047. pTDefRegMap(@Self)^.&set := $00000020;
  34048. end;
  34049. function TSPI4_SPI4STAT.getSPIRBE : TBits_1; inline;
  34050. begin
  34051. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34052. end;
  34053. procedure TSPI4_SPI4STAT.setSPIROV; inline;
  34054. begin
  34055. pTDefRegMap(@Self)^.&set := $00000040;
  34056. end;
  34057. procedure TSPI4_SPI4STAT.clearSPIROV; inline;
  34058. begin
  34059. pTDefRegMap(@Self)^.clr := $00000040;
  34060. end;
  34061. procedure TSPI4_SPI4STAT.setSPIROV(thebits : TBits_1); inline;
  34062. begin
  34063. if thebits = 0 then
  34064. pTDefRegMap(@Self)^.clr := $00000040
  34065. else
  34066. pTDefRegMap(@Self)^.&set := $00000040;
  34067. end;
  34068. function TSPI4_SPI4STAT.getSPIROV : TBits_1; inline;
  34069. begin
  34070. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34071. end;
  34072. procedure TSPI4_SPI4STAT.setSRMT; inline;
  34073. begin
  34074. pTDefRegMap(@Self)^.&set := $00000080;
  34075. end;
  34076. procedure TSPI4_SPI4STAT.clearSRMT; inline;
  34077. begin
  34078. pTDefRegMap(@Self)^.clr := $00000080;
  34079. end;
  34080. procedure TSPI4_SPI4STAT.setSRMT(thebits : TBits_1); inline;
  34081. begin
  34082. if thebits = 0 then
  34083. pTDefRegMap(@Self)^.clr := $00000080
  34084. else
  34085. pTDefRegMap(@Self)^.&set := $00000080;
  34086. end;
  34087. function TSPI4_SPI4STAT.getSRMT : TBits_1; inline;
  34088. begin
  34089. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34090. end;
  34091. procedure TSPI4_SPI4STAT.setSPITUR; inline;
  34092. begin
  34093. pTDefRegMap(@Self)^.&set := $00000100;
  34094. end;
  34095. procedure TSPI4_SPI4STAT.clearSPITUR; inline;
  34096. begin
  34097. pTDefRegMap(@Self)^.clr := $00000100;
  34098. end;
  34099. procedure TSPI4_SPI4STAT.setSPITUR(thebits : TBits_1); inline;
  34100. begin
  34101. if thebits = 0 then
  34102. pTDefRegMap(@Self)^.clr := $00000100
  34103. else
  34104. pTDefRegMap(@Self)^.&set := $00000100;
  34105. end;
  34106. function TSPI4_SPI4STAT.getSPITUR : TBits_1; inline;
  34107. begin
  34108. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34109. end;
  34110. procedure TSPI4_SPI4STAT.setSPIBUSY; inline;
  34111. begin
  34112. pTDefRegMap(@Self)^.&set := $00000800;
  34113. end;
  34114. procedure TSPI4_SPI4STAT.clearSPIBUSY; inline;
  34115. begin
  34116. pTDefRegMap(@Self)^.clr := $00000800;
  34117. end;
  34118. procedure TSPI4_SPI4STAT.setSPIBUSY(thebits : TBits_1); inline;
  34119. begin
  34120. if thebits = 0 then
  34121. pTDefRegMap(@Self)^.clr := $00000800
  34122. else
  34123. pTDefRegMap(@Self)^.&set := $00000800;
  34124. end;
  34125. function TSPI4_SPI4STAT.getSPIBUSY : TBits_1; inline;
  34126. begin
  34127. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34128. end;
  34129. procedure TSPI4_SPI4STAT.setTXBUFELM(thebits : TBits_5); inline;
  34130. begin
  34131. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  34132. end;
  34133. function TSPI4_SPI4STAT.getTXBUFELM : TBits_5; inline;
  34134. begin
  34135. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  34136. end;
  34137. procedure TSPI4_SPI4STAT.setRXBUFELM(thebits : TBits_5); inline;
  34138. begin
  34139. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  34140. end;
  34141. function TSPI4_SPI4STAT.getRXBUFELM : TBits_5; inline;
  34142. begin
  34143. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  34144. end;
  34145. procedure TSPI4_SPI4STAT.setw(thebits : TBits_32); inline;
  34146. begin
  34147. pTDefRegMap(@Self)^.val := thebits;
  34148. end;
  34149. function TSPI4_SPI4STAT.getw : TBits_32; inline;
  34150. begin
  34151. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34152. end;
  34153. procedure TSPI1_SPI1CON.setSRXISEL(thebits : TBits_2); inline;
  34154. begin
  34155. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  34156. end;
  34157. function TSPI1_SPI1CON.getSRXISEL : TBits_2; inline;
  34158. begin
  34159. getSRXISEL := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  34160. end;
  34161. procedure TSPI1_SPI1CON.setSTXISEL(thebits : TBits_2); inline;
  34162. begin
  34163. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF3 or ( thebits shl 2 );
  34164. end;
  34165. function TSPI1_SPI1CON.getSTXISEL : TBits_2; inline;
  34166. begin
  34167. getSTXISEL := (pTDefRegMap(@Self)^.val and $0000000C) shr 2;
  34168. end;
  34169. procedure TSPI1_SPI1CON.setMSTEN; inline;
  34170. begin
  34171. pTDefRegMap(@Self)^.&set := $00000020;
  34172. end;
  34173. procedure TSPI1_SPI1CON.clearMSTEN; inline;
  34174. begin
  34175. pTDefRegMap(@Self)^.clr := $00000020;
  34176. end;
  34177. procedure TSPI1_SPI1CON.setMSTEN(thebits : TBits_1); inline;
  34178. begin
  34179. if thebits = 0 then
  34180. pTDefRegMap(@Self)^.clr := $00000020
  34181. else
  34182. pTDefRegMap(@Self)^.&set := $00000020;
  34183. end;
  34184. function TSPI1_SPI1CON.getMSTEN : TBits_1; inline;
  34185. begin
  34186. getMSTEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34187. end;
  34188. procedure TSPI1_SPI1CON.setCKP; inline;
  34189. begin
  34190. pTDefRegMap(@Self)^.&set := $00000040;
  34191. end;
  34192. procedure TSPI1_SPI1CON.clearCKP; inline;
  34193. begin
  34194. pTDefRegMap(@Self)^.clr := $00000040;
  34195. end;
  34196. procedure TSPI1_SPI1CON.setCKP(thebits : TBits_1); inline;
  34197. begin
  34198. if thebits = 0 then
  34199. pTDefRegMap(@Self)^.clr := $00000040
  34200. else
  34201. pTDefRegMap(@Self)^.&set := $00000040;
  34202. end;
  34203. function TSPI1_SPI1CON.getCKP : TBits_1; inline;
  34204. begin
  34205. getCKP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34206. end;
  34207. procedure TSPI1_SPI1CON.setSSEN; inline;
  34208. begin
  34209. pTDefRegMap(@Self)^.&set := $00000080;
  34210. end;
  34211. procedure TSPI1_SPI1CON.clearSSEN; inline;
  34212. begin
  34213. pTDefRegMap(@Self)^.clr := $00000080;
  34214. end;
  34215. procedure TSPI1_SPI1CON.setSSEN(thebits : TBits_1); inline;
  34216. begin
  34217. if thebits = 0 then
  34218. pTDefRegMap(@Self)^.clr := $00000080
  34219. else
  34220. pTDefRegMap(@Self)^.&set := $00000080;
  34221. end;
  34222. function TSPI1_SPI1CON.getSSEN : TBits_1; inline;
  34223. begin
  34224. getSSEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34225. end;
  34226. procedure TSPI1_SPI1CON.setCKE; inline;
  34227. begin
  34228. pTDefRegMap(@Self)^.&set := $00000100;
  34229. end;
  34230. procedure TSPI1_SPI1CON.clearCKE; inline;
  34231. begin
  34232. pTDefRegMap(@Self)^.clr := $00000100;
  34233. end;
  34234. procedure TSPI1_SPI1CON.setCKE(thebits : TBits_1); inline;
  34235. begin
  34236. if thebits = 0 then
  34237. pTDefRegMap(@Self)^.clr := $00000100
  34238. else
  34239. pTDefRegMap(@Self)^.&set := $00000100;
  34240. end;
  34241. function TSPI1_SPI1CON.getCKE : TBits_1; inline;
  34242. begin
  34243. getCKE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34244. end;
  34245. procedure TSPI1_SPI1CON.setSMP; inline;
  34246. begin
  34247. pTDefRegMap(@Self)^.&set := $00000200;
  34248. end;
  34249. procedure TSPI1_SPI1CON.clearSMP; inline;
  34250. begin
  34251. pTDefRegMap(@Self)^.clr := $00000200;
  34252. end;
  34253. procedure TSPI1_SPI1CON.setSMP(thebits : TBits_1); inline;
  34254. begin
  34255. if thebits = 0 then
  34256. pTDefRegMap(@Self)^.clr := $00000200
  34257. else
  34258. pTDefRegMap(@Self)^.&set := $00000200;
  34259. end;
  34260. function TSPI1_SPI1CON.getSMP : TBits_1; inline;
  34261. begin
  34262. getSMP := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  34263. end;
  34264. procedure TSPI1_SPI1CON.setMODE16; inline;
  34265. begin
  34266. pTDefRegMap(@Self)^.&set := $00000400;
  34267. end;
  34268. procedure TSPI1_SPI1CON.clearMODE16; inline;
  34269. begin
  34270. pTDefRegMap(@Self)^.clr := $00000400;
  34271. end;
  34272. procedure TSPI1_SPI1CON.setMODE16(thebits : TBits_1); inline;
  34273. begin
  34274. if thebits = 0 then
  34275. pTDefRegMap(@Self)^.clr := $00000400
  34276. else
  34277. pTDefRegMap(@Self)^.&set := $00000400;
  34278. end;
  34279. function TSPI1_SPI1CON.getMODE16 : TBits_1; inline;
  34280. begin
  34281. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  34282. end;
  34283. procedure TSPI1_SPI1CON.setMODE32; inline;
  34284. begin
  34285. pTDefRegMap(@Self)^.&set := $00000800;
  34286. end;
  34287. procedure TSPI1_SPI1CON.clearMODE32; inline;
  34288. begin
  34289. pTDefRegMap(@Self)^.clr := $00000800;
  34290. end;
  34291. procedure TSPI1_SPI1CON.setMODE32(thebits : TBits_1); inline;
  34292. begin
  34293. if thebits = 0 then
  34294. pTDefRegMap(@Self)^.clr := $00000800
  34295. else
  34296. pTDefRegMap(@Self)^.&set := $00000800;
  34297. end;
  34298. function TSPI1_SPI1CON.getMODE32 : TBits_1; inline;
  34299. begin
  34300. getMODE32 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34301. end;
  34302. procedure TSPI1_SPI1CON.setDISSDO; inline;
  34303. begin
  34304. pTDefRegMap(@Self)^.&set := $00001000;
  34305. end;
  34306. procedure TSPI1_SPI1CON.clearDISSDO; inline;
  34307. begin
  34308. pTDefRegMap(@Self)^.clr := $00001000;
  34309. end;
  34310. procedure TSPI1_SPI1CON.setDISSDO(thebits : TBits_1); inline;
  34311. begin
  34312. if thebits = 0 then
  34313. pTDefRegMap(@Self)^.clr := $00001000
  34314. else
  34315. pTDefRegMap(@Self)^.&set := $00001000;
  34316. end;
  34317. function TSPI1_SPI1CON.getDISSDO : TBits_1; inline;
  34318. begin
  34319. getDISSDO := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  34320. end;
  34321. procedure TSPI1_SPI1CON.setSIDL; inline;
  34322. begin
  34323. pTDefRegMap(@Self)^.&set := $00002000;
  34324. end;
  34325. procedure TSPI1_SPI1CON.clearSIDL; inline;
  34326. begin
  34327. pTDefRegMap(@Self)^.clr := $00002000;
  34328. end;
  34329. procedure TSPI1_SPI1CON.setSIDL(thebits : TBits_1); inline;
  34330. begin
  34331. if thebits = 0 then
  34332. pTDefRegMap(@Self)^.clr := $00002000
  34333. else
  34334. pTDefRegMap(@Self)^.&set := $00002000;
  34335. end;
  34336. function TSPI1_SPI1CON.getSIDL : TBits_1; inline;
  34337. begin
  34338. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34339. end;
  34340. procedure TSPI1_SPI1CON.setON; inline;
  34341. begin
  34342. pTDefRegMap(@Self)^.&set := $00008000;
  34343. end;
  34344. procedure TSPI1_SPI1CON.clearON; inline;
  34345. begin
  34346. pTDefRegMap(@Self)^.clr := $00008000;
  34347. end;
  34348. procedure TSPI1_SPI1CON.setON(thebits : TBits_1); inline;
  34349. begin
  34350. if thebits = 0 then
  34351. pTDefRegMap(@Self)^.clr := $00008000
  34352. else
  34353. pTDefRegMap(@Self)^.&set := $00008000;
  34354. end;
  34355. function TSPI1_SPI1CON.getON : TBits_1; inline;
  34356. begin
  34357. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  34358. end;
  34359. procedure TSPI1_SPI1CON.setENHBUF; inline;
  34360. begin
  34361. pTDefRegMap(@Self)^.&set := $00010000;
  34362. end;
  34363. procedure TSPI1_SPI1CON.clearENHBUF; inline;
  34364. begin
  34365. pTDefRegMap(@Self)^.clr := $00010000;
  34366. end;
  34367. procedure TSPI1_SPI1CON.setENHBUF(thebits : TBits_1); inline;
  34368. begin
  34369. if thebits = 0 then
  34370. pTDefRegMap(@Self)^.clr := $00010000
  34371. else
  34372. pTDefRegMap(@Self)^.&set := $00010000;
  34373. end;
  34374. function TSPI1_SPI1CON.getENHBUF : TBits_1; inline;
  34375. begin
  34376. getENHBUF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  34377. end;
  34378. procedure TSPI1_SPI1CON.setSPIFE; inline;
  34379. begin
  34380. pTDefRegMap(@Self)^.&set := $00020000;
  34381. end;
  34382. procedure TSPI1_SPI1CON.clearSPIFE; inline;
  34383. begin
  34384. pTDefRegMap(@Self)^.clr := $00020000;
  34385. end;
  34386. procedure TSPI1_SPI1CON.setSPIFE(thebits : TBits_1); inline;
  34387. begin
  34388. if thebits = 0 then
  34389. pTDefRegMap(@Self)^.clr := $00020000
  34390. else
  34391. pTDefRegMap(@Self)^.&set := $00020000;
  34392. end;
  34393. function TSPI1_SPI1CON.getSPIFE : TBits_1; inline;
  34394. begin
  34395. getSPIFE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  34396. end;
  34397. procedure TSPI1_SPI1CON.setFRMCNT(thebits : TBits_3); inline;
  34398. begin
  34399. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  34400. end;
  34401. function TSPI1_SPI1CON.getFRMCNT : TBits_3; inline;
  34402. begin
  34403. getFRMCNT := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  34404. end;
  34405. procedure TSPI1_SPI1CON.setFRMSYPW; inline;
  34406. begin
  34407. pTDefRegMap(@Self)^.&set := $08000000;
  34408. end;
  34409. procedure TSPI1_SPI1CON.clearFRMSYPW; inline;
  34410. begin
  34411. pTDefRegMap(@Self)^.clr := $08000000;
  34412. end;
  34413. procedure TSPI1_SPI1CON.setFRMSYPW(thebits : TBits_1); inline;
  34414. begin
  34415. if thebits = 0 then
  34416. pTDefRegMap(@Self)^.clr := $08000000
  34417. else
  34418. pTDefRegMap(@Self)^.&set := $08000000;
  34419. end;
  34420. function TSPI1_SPI1CON.getFRMSYPW : TBits_1; inline;
  34421. begin
  34422. getFRMSYPW := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  34423. end;
  34424. procedure TSPI1_SPI1CON.setMSSEN; inline;
  34425. begin
  34426. pTDefRegMap(@Self)^.&set := $10000000;
  34427. end;
  34428. procedure TSPI1_SPI1CON.clearMSSEN; inline;
  34429. begin
  34430. pTDefRegMap(@Self)^.clr := $10000000;
  34431. end;
  34432. procedure TSPI1_SPI1CON.setMSSEN(thebits : TBits_1); inline;
  34433. begin
  34434. if thebits = 0 then
  34435. pTDefRegMap(@Self)^.clr := $10000000
  34436. else
  34437. pTDefRegMap(@Self)^.&set := $10000000;
  34438. end;
  34439. function TSPI1_SPI1CON.getMSSEN : TBits_1; inline;
  34440. begin
  34441. getMSSEN := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  34442. end;
  34443. procedure TSPI1_SPI1CON.setFRMPOL; inline;
  34444. begin
  34445. pTDefRegMap(@Self)^.&set := $20000000;
  34446. end;
  34447. procedure TSPI1_SPI1CON.clearFRMPOL; inline;
  34448. begin
  34449. pTDefRegMap(@Self)^.clr := $20000000;
  34450. end;
  34451. procedure TSPI1_SPI1CON.setFRMPOL(thebits : TBits_1); inline;
  34452. begin
  34453. if thebits = 0 then
  34454. pTDefRegMap(@Self)^.clr := $20000000
  34455. else
  34456. pTDefRegMap(@Self)^.&set := $20000000;
  34457. end;
  34458. function TSPI1_SPI1CON.getFRMPOL : TBits_1; inline;
  34459. begin
  34460. getFRMPOL := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  34461. end;
  34462. procedure TSPI1_SPI1CON.setFRMSYNC; inline;
  34463. begin
  34464. pTDefRegMap(@Self)^.&set := $40000000;
  34465. end;
  34466. procedure TSPI1_SPI1CON.clearFRMSYNC; inline;
  34467. begin
  34468. pTDefRegMap(@Self)^.clr := $40000000;
  34469. end;
  34470. procedure TSPI1_SPI1CON.setFRMSYNC(thebits : TBits_1); inline;
  34471. begin
  34472. if thebits = 0 then
  34473. pTDefRegMap(@Self)^.clr := $40000000
  34474. else
  34475. pTDefRegMap(@Self)^.&set := $40000000;
  34476. end;
  34477. function TSPI1_SPI1CON.getFRMSYNC : TBits_1; inline;
  34478. begin
  34479. getFRMSYNC := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  34480. end;
  34481. procedure TSPI1_SPI1CON.setFRMEN; inline;
  34482. begin
  34483. pTDefRegMap(@Self)^.&set := $80000000;
  34484. end;
  34485. procedure TSPI1_SPI1CON.clearFRMEN; inline;
  34486. begin
  34487. pTDefRegMap(@Self)^.clr := $80000000;
  34488. end;
  34489. procedure TSPI1_SPI1CON.setFRMEN(thebits : TBits_1); inline;
  34490. begin
  34491. if thebits = 0 then
  34492. pTDefRegMap(@Self)^.clr := $80000000
  34493. else
  34494. pTDefRegMap(@Self)^.&set := $80000000;
  34495. end;
  34496. function TSPI1_SPI1CON.getFRMEN : TBits_1; inline;
  34497. begin
  34498. getFRMEN := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  34499. end;
  34500. procedure TSPI1_SPI1CON.setw(thebits : TBits_32); inline;
  34501. begin
  34502. pTDefRegMap(@Self)^.val := thebits;
  34503. end;
  34504. function TSPI1_SPI1CON.getw : TBits_32; inline;
  34505. begin
  34506. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34507. end;
  34508. procedure TSPI1_SPI1STAT.setSPIRBF; inline;
  34509. begin
  34510. pTDefRegMap(@Self)^.&set := $00000001;
  34511. end;
  34512. procedure TSPI1_SPI1STAT.clearSPIRBF; inline;
  34513. begin
  34514. pTDefRegMap(@Self)^.clr := $00000001;
  34515. end;
  34516. procedure TSPI1_SPI1STAT.setSPIRBF(thebits : TBits_1); inline;
  34517. begin
  34518. if thebits = 0 then
  34519. pTDefRegMap(@Self)^.clr := $00000001
  34520. else
  34521. pTDefRegMap(@Self)^.&set := $00000001;
  34522. end;
  34523. function TSPI1_SPI1STAT.getSPIRBF : TBits_1; inline;
  34524. begin
  34525. getSPIRBF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  34526. end;
  34527. procedure TSPI1_SPI1STAT.setSPITBF; inline;
  34528. begin
  34529. pTDefRegMap(@Self)^.&set := $00000002;
  34530. end;
  34531. procedure TSPI1_SPI1STAT.clearSPITBF; inline;
  34532. begin
  34533. pTDefRegMap(@Self)^.clr := $00000002;
  34534. end;
  34535. procedure TSPI1_SPI1STAT.setSPITBF(thebits : TBits_1); inline;
  34536. begin
  34537. if thebits = 0 then
  34538. pTDefRegMap(@Self)^.clr := $00000002
  34539. else
  34540. pTDefRegMap(@Self)^.&set := $00000002;
  34541. end;
  34542. function TSPI1_SPI1STAT.getSPITBF : TBits_1; inline;
  34543. begin
  34544. getSPITBF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34545. end;
  34546. procedure TSPI1_SPI1STAT.setSPITBE; inline;
  34547. begin
  34548. pTDefRegMap(@Self)^.&set := $00000008;
  34549. end;
  34550. procedure TSPI1_SPI1STAT.clearSPITBE; inline;
  34551. begin
  34552. pTDefRegMap(@Self)^.clr := $00000008;
  34553. end;
  34554. procedure TSPI1_SPI1STAT.setSPITBE(thebits : TBits_1); inline;
  34555. begin
  34556. if thebits = 0 then
  34557. pTDefRegMap(@Self)^.clr := $00000008
  34558. else
  34559. pTDefRegMap(@Self)^.&set := $00000008;
  34560. end;
  34561. function TSPI1_SPI1STAT.getSPITBE : TBits_1; inline;
  34562. begin
  34563. getSPITBE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  34564. end;
  34565. procedure TSPI1_SPI1STAT.setSPIRBE; inline;
  34566. begin
  34567. pTDefRegMap(@Self)^.&set := $00000020;
  34568. end;
  34569. procedure TSPI1_SPI1STAT.clearSPIRBE; inline;
  34570. begin
  34571. pTDefRegMap(@Self)^.clr := $00000020;
  34572. end;
  34573. procedure TSPI1_SPI1STAT.setSPIRBE(thebits : TBits_1); inline;
  34574. begin
  34575. if thebits = 0 then
  34576. pTDefRegMap(@Self)^.clr := $00000020
  34577. else
  34578. pTDefRegMap(@Self)^.&set := $00000020;
  34579. end;
  34580. function TSPI1_SPI1STAT.getSPIRBE : TBits_1; inline;
  34581. begin
  34582. getSPIRBE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34583. end;
  34584. procedure TSPI1_SPI1STAT.setSPIROV; inline;
  34585. begin
  34586. pTDefRegMap(@Self)^.&set := $00000040;
  34587. end;
  34588. procedure TSPI1_SPI1STAT.clearSPIROV; inline;
  34589. begin
  34590. pTDefRegMap(@Self)^.clr := $00000040;
  34591. end;
  34592. procedure TSPI1_SPI1STAT.setSPIROV(thebits : TBits_1); inline;
  34593. begin
  34594. if thebits = 0 then
  34595. pTDefRegMap(@Self)^.clr := $00000040
  34596. else
  34597. pTDefRegMap(@Self)^.&set := $00000040;
  34598. end;
  34599. function TSPI1_SPI1STAT.getSPIROV : TBits_1; inline;
  34600. begin
  34601. getSPIROV := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34602. end;
  34603. procedure TSPI1_SPI1STAT.setSRMT; inline;
  34604. begin
  34605. pTDefRegMap(@Self)^.&set := $00000080;
  34606. end;
  34607. procedure TSPI1_SPI1STAT.clearSRMT; inline;
  34608. begin
  34609. pTDefRegMap(@Self)^.clr := $00000080;
  34610. end;
  34611. procedure TSPI1_SPI1STAT.setSRMT(thebits : TBits_1); inline;
  34612. begin
  34613. if thebits = 0 then
  34614. pTDefRegMap(@Self)^.clr := $00000080
  34615. else
  34616. pTDefRegMap(@Self)^.&set := $00000080;
  34617. end;
  34618. function TSPI1_SPI1STAT.getSRMT : TBits_1; inline;
  34619. begin
  34620. getSRMT := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34621. end;
  34622. procedure TSPI1_SPI1STAT.setSPITUR; inline;
  34623. begin
  34624. pTDefRegMap(@Self)^.&set := $00000100;
  34625. end;
  34626. procedure TSPI1_SPI1STAT.clearSPITUR; inline;
  34627. begin
  34628. pTDefRegMap(@Self)^.clr := $00000100;
  34629. end;
  34630. procedure TSPI1_SPI1STAT.setSPITUR(thebits : TBits_1); inline;
  34631. begin
  34632. if thebits = 0 then
  34633. pTDefRegMap(@Self)^.clr := $00000100
  34634. else
  34635. pTDefRegMap(@Self)^.&set := $00000100;
  34636. end;
  34637. function TSPI1_SPI1STAT.getSPITUR : TBits_1; inline;
  34638. begin
  34639. getSPITUR := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34640. end;
  34641. procedure TSPI1_SPI1STAT.setSPIBUSY; inline;
  34642. begin
  34643. pTDefRegMap(@Self)^.&set := $00000800;
  34644. end;
  34645. procedure TSPI1_SPI1STAT.clearSPIBUSY; inline;
  34646. begin
  34647. pTDefRegMap(@Self)^.clr := $00000800;
  34648. end;
  34649. procedure TSPI1_SPI1STAT.setSPIBUSY(thebits : TBits_1); inline;
  34650. begin
  34651. if thebits = 0 then
  34652. pTDefRegMap(@Self)^.clr := $00000800
  34653. else
  34654. pTDefRegMap(@Self)^.&set := $00000800;
  34655. end;
  34656. function TSPI1_SPI1STAT.getSPIBUSY : TBits_1; inline;
  34657. begin
  34658. getSPIBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34659. end;
  34660. procedure TSPI1_SPI1STAT.setTXBUFELM(thebits : TBits_5); inline;
  34661. begin
  34662. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  34663. end;
  34664. function TSPI1_SPI1STAT.getTXBUFELM : TBits_5; inline;
  34665. begin
  34666. getTXBUFELM := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  34667. end;
  34668. procedure TSPI1_SPI1STAT.setRXBUFELM(thebits : TBits_5); inline;
  34669. begin
  34670. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  34671. end;
  34672. function TSPI1_SPI1STAT.getRXBUFELM : TBits_5; inline;
  34673. begin
  34674. getRXBUFELM := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  34675. end;
  34676. procedure TSPI1_SPI1STAT.setw(thebits : TBits_32); inline;
  34677. begin
  34678. pTDefRegMap(@Self)^.val := thebits;
  34679. end;
  34680. function TSPI1_SPI1STAT.getw : TBits_32; inline;
  34681. begin
  34682. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  34683. end;
  34684. procedure TUART1A_U1AMODE.setSTSEL; inline;
  34685. begin
  34686. pTDefRegMap(@Self)^.&set := $00000001;
  34687. end;
  34688. procedure TUART1A_U1AMODE.clearSTSEL; inline;
  34689. begin
  34690. pTDefRegMap(@Self)^.clr := $00000001;
  34691. end;
  34692. procedure TUART1A_U1AMODE.setSTSEL(thebits : TBits_1); inline;
  34693. begin
  34694. if thebits = 0 then
  34695. pTDefRegMap(@Self)^.clr := $00000001
  34696. else
  34697. pTDefRegMap(@Self)^.&set := $00000001;
  34698. end;
  34699. function TUART1A_U1AMODE.getSTSEL : TBits_1; inline;
  34700. begin
  34701. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  34702. end;
  34703. procedure TUART1A_U1AMODE.setPDSEL(thebits : TBits_2); inline;
  34704. begin
  34705. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  34706. end;
  34707. function TUART1A_U1AMODE.getPDSEL : TBits_2; inline;
  34708. begin
  34709. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  34710. end;
  34711. procedure TUART1A_U1AMODE.setBRGH; inline;
  34712. begin
  34713. pTDefRegMap(@Self)^.&set := $00000008;
  34714. end;
  34715. procedure TUART1A_U1AMODE.clearBRGH; inline;
  34716. begin
  34717. pTDefRegMap(@Self)^.clr := $00000008;
  34718. end;
  34719. procedure TUART1A_U1AMODE.setBRGH(thebits : TBits_1); inline;
  34720. begin
  34721. if thebits = 0 then
  34722. pTDefRegMap(@Self)^.clr := $00000008
  34723. else
  34724. pTDefRegMap(@Self)^.&set := $00000008;
  34725. end;
  34726. function TUART1A_U1AMODE.getBRGH : TBits_1; inline;
  34727. begin
  34728. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  34729. end;
  34730. procedure TUART1A_U1AMODE.setRXINV; inline;
  34731. begin
  34732. pTDefRegMap(@Self)^.&set := $00000010;
  34733. end;
  34734. procedure TUART1A_U1AMODE.clearRXINV; inline;
  34735. begin
  34736. pTDefRegMap(@Self)^.clr := $00000010;
  34737. end;
  34738. procedure TUART1A_U1AMODE.setRXINV(thebits : TBits_1); inline;
  34739. begin
  34740. if thebits = 0 then
  34741. pTDefRegMap(@Self)^.clr := $00000010
  34742. else
  34743. pTDefRegMap(@Self)^.&set := $00000010;
  34744. end;
  34745. function TUART1A_U1AMODE.getRXINV : TBits_1; inline;
  34746. begin
  34747. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  34748. end;
  34749. procedure TUART1A_U1AMODE.setABAUD; inline;
  34750. begin
  34751. pTDefRegMap(@Self)^.&set := $00000020;
  34752. end;
  34753. procedure TUART1A_U1AMODE.clearABAUD; inline;
  34754. begin
  34755. pTDefRegMap(@Self)^.clr := $00000020;
  34756. end;
  34757. procedure TUART1A_U1AMODE.setABAUD(thebits : TBits_1); inline;
  34758. begin
  34759. if thebits = 0 then
  34760. pTDefRegMap(@Self)^.clr := $00000020
  34761. else
  34762. pTDefRegMap(@Self)^.&set := $00000020;
  34763. end;
  34764. function TUART1A_U1AMODE.getABAUD : TBits_1; inline;
  34765. begin
  34766. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  34767. end;
  34768. procedure TUART1A_U1AMODE.setLPBACK; inline;
  34769. begin
  34770. pTDefRegMap(@Self)^.&set := $00000040;
  34771. end;
  34772. procedure TUART1A_U1AMODE.clearLPBACK; inline;
  34773. begin
  34774. pTDefRegMap(@Self)^.clr := $00000040;
  34775. end;
  34776. procedure TUART1A_U1AMODE.setLPBACK(thebits : TBits_1); inline;
  34777. begin
  34778. if thebits = 0 then
  34779. pTDefRegMap(@Self)^.clr := $00000040
  34780. else
  34781. pTDefRegMap(@Self)^.&set := $00000040;
  34782. end;
  34783. function TUART1A_U1AMODE.getLPBACK : TBits_1; inline;
  34784. begin
  34785. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  34786. end;
  34787. procedure TUART1A_U1AMODE.setWAKE; inline;
  34788. begin
  34789. pTDefRegMap(@Self)^.&set := $00000080;
  34790. end;
  34791. procedure TUART1A_U1AMODE.clearWAKE; inline;
  34792. begin
  34793. pTDefRegMap(@Self)^.clr := $00000080;
  34794. end;
  34795. procedure TUART1A_U1AMODE.setWAKE(thebits : TBits_1); inline;
  34796. begin
  34797. if thebits = 0 then
  34798. pTDefRegMap(@Self)^.clr := $00000080
  34799. else
  34800. pTDefRegMap(@Self)^.&set := $00000080;
  34801. end;
  34802. function TUART1A_U1AMODE.getWAKE : TBits_1; inline;
  34803. begin
  34804. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  34805. end;
  34806. procedure TUART1A_U1AMODE.setUEN(thebits : TBits_2); inline;
  34807. begin
  34808. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  34809. end;
  34810. function TUART1A_U1AMODE.getUEN : TBits_2; inline;
  34811. begin
  34812. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  34813. end;
  34814. procedure TUART1A_U1AMODE.setRTSMD; inline;
  34815. begin
  34816. pTDefRegMap(@Self)^.&set := $00000800;
  34817. end;
  34818. procedure TUART1A_U1AMODE.clearRTSMD; inline;
  34819. begin
  34820. pTDefRegMap(@Self)^.clr := $00000800;
  34821. end;
  34822. procedure TUART1A_U1AMODE.setRTSMD(thebits : TBits_1); inline;
  34823. begin
  34824. if thebits = 0 then
  34825. pTDefRegMap(@Self)^.clr := $00000800
  34826. else
  34827. pTDefRegMap(@Self)^.&set := $00000800;
  34828. end;
  34829. function TUART1A_U1AMODE.getRTSMD : TBits_1; inline;
  34830. begin
  34831. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  34832. end;
  34833. procedure TUART1A_U1AMODE.setIREN; inline;
  34834. begin
  34835. pTDefRegMap(@Self)^.&set := $00001000;
  34836. end;
  34837. procedure TUART1A_U1AMODE.clearIREN; inline;
  34838. begin
  34839. pTDefRegMap(@Self)^.clr := $00001000;
  34840. end;
  34841. procedure TUART1A_U1AMODE.setIREN(thebits : TBits_1); inline;
  34842. begin
  34843. if thebits = 0 then
  34844. pTDefRegMap(@Self)^.clr := $00001000
  34845. else
  34846. pTDefRegMap(@Self)^.&set := $00001000;
  34847. end;
  34848. function TUART1A_U1AMODE.getIREN : TBits_1; inline;
  34849. begin
  34850. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  34851. end;
  34852. procedure TUART1A_U1AMODE.setSIDL; inline;
  34853. begin
  34854. pTDefRegMap(@Self)^.&set := $00002000;
  34855. end;
  34856. procedure TUART1A_U1AMODE.clearSIDL; inline;
  34857. begin
  34858. pTDefRegMap(@Self)^.clr := $00002000;
  34859. end;
  34860. procedure TUART1A_U1AMODE.setSIDL(thebits : TBits_1); inline;
  34861. begin
  34862. if thebits = 0 then
  34863. pTDefRegMap(@Self)^.clr := $00002000
  34864. else
  34865. pTDefRegMap(@Self)^.&set := $00002000;
  34866. end;
  34867. function TUART1A_U1AMODE.getSIDL : TBits_1; inline;
  34868. begin
  34869. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34870. end;
  34871. procedure TUART1A_U1AMODE.setON; inline;
  34872. begin
  34873. pTDefRegMap(@Self)^.&set := $00008000;
  34874. end;
  34875. procedure TUART1A_U1AMODE.clearON; inline;
  34876. begin
  34877. pTDefRegMap(@Self)^.clr := $00008000;
  34878. end;
  34879. procedure TUART1A_U1AMODE.setON(thebits : TBits_1); inline;
  34880. begin
  34881. if thebits = 0 then
  34882. pTDefRegMap(@Self)^.clr := $00008000
  34883. else
  34884. pTDefRegMap(@Self)^.&set := $00008000;
  34885. end;
  34886. function TUART1A_U1AMODE.getON : TBits_1; inline;
  34887. begin
  34888. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  34889. end;
  34890. procedure TUART1A_U1AMODE.setPDSEL0; inline;
  34891. begin
  34892. pTDefRegMap(@Self)^.&set := $00000002;
  34893. end;
  34894. procedure TUART1A_U1AMODE.clearPDSEL0; inline;
  34895. begin
  34896. pTDefRegMap(@Self)^.clr := $00000002;
  34897. end;
  34898. procedure TUART1A_U1AMODE.setPDSEL0(thebits : TBits_1); inline;
  34899. begin
  34900. if thebits = 0 then
  34901. pTDefRegMap(@Self)^.clr := $00000002
  34902. else
  34903. pTDefRegMap(@Self)^.&set := $00000002;
  34904. end;
  34905. function TUART1A_U1AMODE.getPDSEL0 : TBits_1; inline;
  34906. begin
  34907. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  34908. end;
  34909. procedure TUART1A_U1AMODE.setPDSEL1; inline;
  34910. begin
  34911. pTDefRegMap(@Self)^.&set := $00000004;
  34912. end;
  34913. procedure TUART1A_U1AMODE.clearPDSEL1; inline;
  34914. begin
  34915. pTDefRegMap(@Self)^.clr := $00000004;
  34916. end;
  34917. procedure TUART1A_U1AMODE.setPDSEL1(thebits : TBits_1); inline;
  34918. begin
  34919. if thebits = 0 then
  34920. pTDefRegMap(@Self)^.clr := $00000004
  34921. else
  34922. pTDefRegMap(@Self)^.&set := $00000004;
  34923. end;
  34924. function TUART1A_U1AMODE.getPDSEL1 : TBits_1; inline;
  34925. begin
  34926. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  34927. end;
  34928. procedure TUART1A_U1AMODE.setUEN0; inline;
  34929. begin
  34930. pTDefRegMap(@Self)^.&set := $00000100;
  34931. end;
  34932. procedure TUART1A_U1AMODE.clearUEN0; inline;
  34933. begin
  34934. pTDefRegMap(@Self)^.clr := $00000100;
  34935. end;
  34936. procedure TUART1A_U1AMODE.setUEN0(thebits : TBits_1); inline;
  34937. begin
  34938. if thebits = 0 then
  34939. pTDefRegMap(@Self)^.clr := $00000100
  34940. else
  34941. pTDefRegMap(@Self)^.&set := $00000100;
  34942. end;
  34943. function TUART1A_U1AMODE.getUEN0 : TBits_1; inline;
  34944. begin
  34945. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  34946. end;
  34947. procedure TUART1A_U1AMODE.setUEN1; inline;
  34948. begin
  34949. pTDefRegMap(@Self)^.&set := $00000200;
  34950. end;
  34951. procedure TUART1A_U1AMODE.clearUEN1; inline;
  34952. begin
  34953. pTDefRegMap(@Self)^.clr := $00000200;
  34954. end;
  34955. procedure TUART1A_U1AMODE.setUEN1(thebits : TBits_1); inline;
  34956. begin
  34957. if thebits = 0 then
  34958. pTDefRegMap(@Self)^.clr := $00000200
  34959. else
  34960. pTDefRegMap(@Self)^.&set := $00000200;
  34961. end;
  34962. function TUART1A_U1AMODE.getUEN1 : TBits_1; inline;
  34963. begin
  34964. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  34965. end;
  34966. procedure TUART1A_U1AMODE.setUSIDL; inline;
  34967. begin
  34968. pTDefRegMap(@Self)^.&set := $00002000;
  34969. end;
  34970. procedure TUART1A_U1AMODE.clearUSIDL; inline;
  34971. begin
  34972. pTDefRegMap(@Self)^.clr := $00002000;
  34973. end;
  34974. procedure TUART1A_U1AMODE.setUSIDL(thebits : TBits_1); inline;
  34975. begin
  34976. if thebits = 0 then
  34977. pTDefRegMap(@Self)^.clr := $00002000
  34978. else
  34979. pTDefRegMap(@Self)^.&set := $00002000;
  34980. end;
  34981. function TUART1A_U1AMODE.getUSIDL : TBits_1; inline;
  34982. begin
  34983. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  34984. end;
  34985. procedure TUART1A_U1AMODE.setUARTEN; inline;
  34986. begin
  34987. pTDefRegMap(@Self)^.&set := $00008000;
  34988. end;
  34989. procedure TUART1A_U1AMODE.clearUARTEN; inline;
  34990. begin
  34991. pTDefRegMap(@Self)^.clr := $00008000;
  34992. end;
  34993. procedure TUART1A_U1AMODE.setUARTEN(thebits : TBits_1); inline;
  34994. begin
  34995. if thebits = 0 then
  34996. pTDefRegMap(@Self)^.clr := $00008000
  34997. else
  34998. pTDefRegMap(@Self)^.&set := $00008000;
  34999. end;
  35000. function TUART1A_U1AMODE.getUARTEN : TBits_1; inline;
  35001. begin
  35002. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35003. end;
  35004. procedure TUART1A_U1AMODE.setw(thebits : TBits_32); inline;
  35005. begin
  35006. pTDefRegMap(@Self)^.val := thebits;
  35007. end;
  35008. function TUART1A_U1AMODE.getw : TBits_32; inline;
  35009. begin
  35010. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35011. end;
  35012. procedure TUART1A_U1MODE.setSTSEL; inline;
  35013. begin
  35014. pTDefRegMap(@Self)^.&set := $00000001;
  35015. end;
  35016. procedure TUART1A_U1MODE.clearSTSEL; inline;
  35017. begin
  35018. pTDefRegMap(@Self)^.clr := $00000001;
  35019. end;
  35020. procedure TUART1A_U1MODE.setSTSEL(thebits : TBits_1); inline;
  35021. begin
  35022. if thebits = 0 then
  35023. pTDefRegMap(@Self)^.clr := $00000001
  35024. else
  35025. pTDefRegMap(@Self)^.&set := $00000001;
  35026. end;
  35027. function TUART1A_U1MODE.getSTSEL : TBits_1; inline;
  35028. begin
  35029. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35030. end;
  35031. procedure TUART1A_U1MODE.setPDSEL(thebits : TBits_2); inline;
  35032. begin
  35033. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  35034. end;
  35035. function TUART1A_U1MODE.getPDSEL : TBits_2; inline;
  35036. begin
  35037. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  35038. end;
  35039. procedure TUART1A_U1MODE.setBRGH; inline;
  35040. begin
  35041. pTDefRegMap(@Self)^.&set := $00000008;
  35042. end;
  35043. procedure TUART1A_U1MODE.clearBRGH; inline;
  35044. begin
  35045. pTDefRegMap(@Self)^.clr := $00000008;
  35046. end;
  35047. procedure TUART1A_U1MODE.setBRGH(thebits : TBits_1); inline;
  35048. begin
  35049. if thebits = 0 then
  35050. pTDefRegMap(@Self)^.clr := $00000008
  35051. else
  35052. pTDefRegMap(@Self)^.&set := $00000008;
  35053. end;
  35054. function TUART1A_U1MODE.getBRGH : TBits_1; inline;
  35055. begin
  35056. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35057. end;
  35058. procedure TUART1A_U1MODE.setRXINV; inline;
  35059. begin
  35060. pTDefRegMap(@Self)^.&set := $00000010;
  35061. end;
  35062. procedure TUART1A_U1MODE.clearRXINV; inline;
  35063. begin
  35064. pTDefRegMap(@Self)^.clr := $00000010;
  35065. end;
  35066. procedure TUART1A_U1MODE.setRXINV(thebits : TBits_1); inline;
  35067. begin
  35068. if thebits = 0 then
  35069. pTDefRegMap(@Self)^.clr := $00000010
  35070. else
  35071. pTDefRegMap(@Self)^.&set := $00000010;
  35072. end;
  35073. function TUART1A_U1MODE.getRXINV : TBits_1; inline;
  35074. begin
  35075. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  35076. end;
  35077. procedure TUART1A_U1MODE.setABAUD; inline;
  35078. begin
  35079. pTDefRegMap(@Self)^.&set := $00000020;
  35080. end;
  35081. procedure TUART1A_U1MODE.clearABAUD; inline;
  35082. begin
  35083. pTDefRegMap(@Self)^.clr := $00000020;
  35084. end;
  35085. procedure TUART1A_U1MODE.setABAUD(thebits : TBits_1); inline;
  35086. begin
  35087. if thebits = 0 then
  35088. pTDefRegMap(@Self)^.clr := $00000020
  35089. else
  35090. pTDefRegMap(@Self)^.&set := $00000020;
  35091. end;
  35092. function TUART1A_U1MODE.getABAUD : TBits_1; inline;
  35093. begin
  35094. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35095. end;
  35096. procedure TUART1A_U1MODE.setLPBACK; inline;
  35097. begin
  35098. pTDefRegMap(@Self)^.&set := $00000040;
  35099. end;
  35100. procedure TUART1A_U1MODE.clearLPBACK; inline;
  35101. begin
  35102. pTDefRegMap(@Self)^.clr := $00000040;
  35103. end;
  35104. procedure TUART1A_U1MODE.setLPBACK(thebits : TBits_1); inline;
  35105. begin
  35106. if thebits = 0 then
  35107. pTDefRegMap(@Self)^.clr := $00000040
  35108. else
  35109. pTDefRegMap(@Self)^.&set := $00000040;
  35110. end;
  35111. function TUART1A_U1MODE.getLPBACK : TBits_1; inline;
  35112. begin
  35113. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35114. end;
  35115. procedure TUART1A_U1MODE.setWAKE; inline;
  35116. begin
  35117. pTDefRegMap(@Self)^.&set := $00000080;
  35118. end;
  35119. procedure TUART1A_U1MODE.clearWAKE; inline;
  35120. begin
  35121. pTDefRegMap(@Self)^.clr := $00000080;
  35122. end;
  35123. procedure TUART1A_U1MODE.setWAKE(thebits : TBits_1); inline;
  35124. begin
  35125. if thebits = 0 then
  35126. pTDefRegMap(@Self)^.clr := $00000080
  35127. else
  35128. pTDefRegMap(@Self)^.&set := $00000080;
  35129. end;
  35130. function TUART1A_U1MODE.getWAKE : TBits_1; inline;
  35131. begin
  35132. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35133. end;
  35134. procedure TUART1A_U1MODE.setUEN(thebits : TBits_2); inline;
  35135. begin
  35136. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  35137. end;
  35138. function TUART1A_U1MODE.getUEN : TBits_2; inline;
  35139. begin
  35140. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  35141. end;
  35142. procedure TUART1A_U1MODE.setRTSMD; inline;
  35143. begin
  35144. pTDefRegMap(@Self)^.&set := $00000800;
  35145. end;
  35146. procedure TUART1A_U1MODE.clearRTSMD; inline;
  35147. begin
  35148. pTDefRegMap(@Self)^.clr := $00000800;
  35149. end;
  35150. procedure TUART1A_U1MODE.setRTSMD(thebits : TBits_1); inline;
  35151. begin
  35152. if thebits = 0 then
  35153. pTDefRegMap(@Self)^.clr := $00000800
  35154. else
  35155. pTDefRegMap(@Self)^.&set := $00000800;
  35156. end;
  35157. function TUART1A_U1MODE.getRTSMD : TBits_1; inline;
  35158. begin
  35159. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35160. end;
  35161. procedure TUART1A_U1MODE.setIREN; inline;
  35162. begin
  35163. pTDefRegMap(@Self)^.&set := $00001000;
  35164. end;
  35165. procedure TUART1A_U1MODE.clearIREN; inline;
  35166. begin
  35167. pTDefRegMap(@Self)^.clr := $00001000;
  35168. end;
  35169. procedure TUART1A_U1MODE.setIREN(thebits : TBits_1); inline;
  35170. begin
  35171. if thebits = 0 then
  35172. pTDefRegMap(@Self)^.clr := $00001000
  35173. else
  35174. pTDefRegMap(@Self)^.&set := $00001000;
  35175. end;
  35176. function TUART1A_U1MODE.getIREN : TBits_1; inline;
  35177. begin
  35178. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35179. end;
  35180. procedure TUART1A_U1MODE.setSIDL; inline;
  35181. begin
  35182. pTDefRegMap(@Self)^.&set := $00002000;
  35183. end;
  35184. procedure TUART1A_U1MODE.clearSIDL; inline;
  35185. begin
  35186. pTDefRegMap(@Self)^.clr := $00002000;
  35187. end;
  35188. procedure TUART1A_U1MODE.setSIDL(thebits : TBits_1); inline;
  35189. begin
  35190. if thebits = 0 then
  35191. pTDefRegMap(@Self)^.clr := $00002000
  35192. else
  35193. pTDefRegMap(@Self)^.&set := $00002000;
  35194. end;
  35195. function TUART1A_U1MODE.getSIDL : TBits_1; inline;
  35196. begin
  35197. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35198. end;
  35199. procedure TUART1A_U1MODE.setON; inline;
  35200. begin
  35201. pTDefRegMap(@Self)^.&set := $00008000;
  35202. end;
  35203. procedure TUART1A_U1MODE.clearON; inline;
  35204. begin
  35205. pTDefRegMap(@Self)^.clr := $00008000;
  35206. end;
  35207. procedure TUART1A_U1MODE.setON(thebits : TBits_1); inline;
  35208. begin
  35209. if thebits = 0 then
  35210. pTDefRegMap(@Self)^.clr := $00008000
  35211. else
  35212. pTDefRegMap(@Self)^.&set := $00008000;
  35213. end;
  35214. function TUART1A_U1MODE.getON : TBits_1; inline;
  35215. begin
  35216. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35217. end;
  35218. procedure TUART1A_U1MODE.setPDSEL0; inline;
  35219. begin
  35220. pTDefRegMap(@Self)^.&set := $00000002;
  35221. end;
  35222. procedure TUART1A_U1MODE.clearPDSEL0; inline;
  35223. begin
  35224. pTDefRegMap(@Self)^.clr := $00000002;
  35225. end;
  35226. procedure TUART1A_U1MODE.setPDSEL0(thebits : TBits_1); inline;
  35227. begin
  35228. if thebits = 0 then
  35229. pTDefRegMap(@Self)^.clr := $00000002
  35230. else
  35231. pTDefRegMap(@Self)^.&set := $00000002;
  35232. end;
  35233. function TUART1A_U1MODE.getPDSEL0 : TBits_1; inline;
  35234. begin
  35235. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35236. end;
  35237. procedure TUART1A_U1MODE.setPDSEL1; inline;
  35238. begin
  35239. pTDefRegMap(@Self)^.&set := $00000004;
  35240. end;
  35241. procedure TUART1A_U1MODE.clearPDSEL1; inline;
  35242. begin
  35243. pTDefRegMap(@Self)^.clr := $00000004;
  35244. end;
  35245. procedure TUART1A_U1MODE.setPDSEL1(thebits : TBits_1); inline;
  35246. begin
  35247. if thebits = 0 then
  35248. pTDefRegMap(@Self)^.clr := $00000004
  35249. else
  35250. pTDefRegMap(@Self)^.&set := $00000004;
  35251. end;
  35252. function TUART1A_U1MODE.getPDSEL1 : TBits_1; inline;
  35253. begin
  35254. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  35255. end;
  35256. procedure TUART1A_U1MODE.setUEN0; inline;
  35257. begin
  35258. pTDefRegMap(@Self)^.&set := $00000100;
  35259. end;
  35260. procedure TUART1A_U1MODE.clearUEN0; inline;
  35261. begin
  35262. pTDefRegMap(@Self)^.clr := $00000100;
  35263. end;
  35264. procedure TUART1A_U1MODE.setUEN0(thebits : TBits_1); inline;
  35265. begin
  35266. if thebits = 0 then
  35267. pTDefRegMap(@Self)^.clr := $00000100
  35268. else
  35269. pTDefRegMap(@Self)^.&set := $00000100;
  35270. end;
  35271. function TUART1A_U1MODE.getUEN0 : TBits_1; inline;
  35272. begin
  35273. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35274. end;
  35275. procedure TUART1A_U1MODE.setUEN1; inline;
  35276. begin
  35277. pTDefRegMap(@Self)^.&set := $00000200;
  35278. end;
  35279. procedure TUART1A_U1MODE.clearUEN1; inline;
  35280. begin
  35281. pTDefRegMap(@Self)^.clr := $00000200;
  35282. end;
  35283. procedure TUART1A_U1MODE.setUEN1(thebits : TBits_1); inline;
  35284. begin
  35285. if thebits = 0 then
  35286. pTDefRegMap(@Self)^.clr := $00000200
  35287. else
  35288. pTDefRegMap(@Self)^.&set := $00000200;
  35289. end;
  35290. function TUART1A_U1MODE.getUEN1 : TBits_1; inline;
  35291. begin
  35292. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35293. end;
  35294. procedure TUART1A_U1MODE.setUSIDL; inline;
  35295. begin
  35296. pTDefRegMap(@Self)^.&set := $00002000;
  35297. end;
  35298. procedure TUART1A_U1MODE.clearUSIDL; inline;
  35299. begin
  35300. pTDefRegMap(@Self)^.clr := $00002000;
  35301. end;
  35302. procedure TUART1A_U1MODE.setUSIDL(thebits : TBits_1); inline;
  35303. begin
  35304. if thebits = 0 then
  35305. pTDefRegMap(@Self)^.clr := $00002000
  35306. else
  35307. pTDefRegMap(@Self)^.&set := $00002000;
  35308. end;
  35309. function TUART1A_U1MODE.getUSIDL : TBits_1; inline;
  35310. begin
  35311. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35312. end;
  35313. procedure TUART1A_U1MODE.setUARTEN; inline;
  35314. begin
  35315. pTDefRegMap(@Self)^.&set := $00008000;
  35316. end;
  35317. procedure TUART1A_U1MODE.clearUARTEN; inline;
  35318. begin
  35319. pTDefRegMap(@Self)^.clr := $00008000;
  35320. end;
  35321. procedure TUART1A_U1MODE.setUARTEN(thebits : TBits_1); inline;
  35322. begin
  35323. if thebits = 0 then
  35324. pTDefRegMap(@Self)^.clr := $00008000
  35325. else
  35326. pTDefRegMap(@Self)^.&set := $00008000;
  35327. end;
  35328. function TUART1A_U1MODE.getUARTEN : TBits_1; inline;
  35329. begin
  35330. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35331. end;
  35332. procedure TUART1A_U1MODE.setw(thebits : TBits_32); inline;
  35333. begin
  35334. pTDefRegMap(@Self)^.val := thebits;
  35335. end;
  35336. function TUART1A_U1MODE.getw : TBits_32; inline;
  35337. begin
  35338. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35339. end;
  35340. procedure TUART1A_U1ASTA.setURXDA; inline;
  35341. begin
  35342. pTDefRegMap(@Self)^.&set := $00000001;
  35343. end;
  35344. procedure TUART1A_U1ASTA.clearURXDA; inline;
  35345. begin
  35346. pTDefRegMap(@Self)^.clr := $00000001;
  35347. end;
  35348. procedure TUART1A_U1ASTA.setURXDA(thebits : TBits_1); inline;
  35349. begin
  35350. if thebits = 0 then
  35351. pTDefRegMap(@Self)^.clr := $00000001
  35352. else
  35353. pTDefRegMap(@Self)^.&set := $00000001;
  35354. end;
  35355. function TUART1A_U1ASTA.getURXDA : TBits_1; inline;
  35356. begin
  35357. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35358. end;
  35359. procedure TUART1A_U1ASTA.setOERR; inline;
  35360. begin
  35361. pTDefRegMap(@Self)^.&set := $00000002;
  35362. end;
  35363. procedure TUART1A_U1ASTA.clearOERR; inline;
  35364. begin
  35365. pTDefRegMap(@Self)^.clr := $00000002;
  35366. end;
  35367. procedure TUART1A_U1ASTA.setOERR(thebits : TBits_1); inline;
  35368. begin
  35369. if thebits = 0 then
  35370. pTDefRegMap(@Self)^.clr := $00000002
  35371. else
  35372. pTDefRegMap(@Self)^.&set := $00000002;
  35373. end;
  35374. function TUART1A_U1ASTA.getOERR : TBits_1; inline;
  35375. begin
  35376. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35377. end;
  35378. procedure TUART1A_U1ASTA.setFERR; inline;
  35379. begin
  35380. pTDefRegMap(@Self)^.&set := $00000004;
  35381. end;
  35382. procedure TUART1A_U1ASTA.clearFERR; inline;
  35383. begin
  35384. pTDefRegMap(@Self)^.clr := $00000004;
  35385. end;
  35386. procedure TUART1A_U1ASTA.setFERR(thebits : TBits_1); inline;
  35387. begin
  35388. if thebits = 0 then
  35389. pTDefRegMap(@Self)^.clr := $00000004
  35390. else
  35391. pTDefRegMap(@Self)^.&set := $00000004;
  35392. end;
  35393. function TUART1A_U1ASTA.getFERR : TBits_1; inline;
  35394. begin
  35395. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  35396. end;
  35397. procedure TUART1A_U1ASTA.setPERR; inline;
  35398. begin
  35399. pTDefRegMap(@Self)^.&set := $00000008;
  35400. end;
  35401. procedure TUART1A_U1ASTA.clearPERR; inline;
  35402. begin
  35403. pTDefRegMap(@Self)^.clr := $00000008;
  35404. end;
  35405. procedure TUART1A_U1ASTA.setPERR(thebits : TBits_1); inline;
  35406. begin
  35407. if thebits = 0 then
  35408. pTDefRegMap(@Self)^.clr := $00000008
  35409. else
  35410. pTDefRegMap(@Self)^.&set := $00000008;
  35411. end;
  35412. function TUART1A_U1ASTA.getPERR : TBits_1; inline;
  35413. begin
  35414. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35415. end;
  35416. procedure TUART1A_U1ASTA.setRIDLE; inline;
  35417. begin
  35418. pTDefRegMap(@Self)^.&set := $00000010;
  35419. end;
  35420. procedure TUART1A_U1ASTA.clearRIDLE; inline;
  35421. begin
  35422. pTDefRegMap(@Self)^.clr := $00000010;
  35423. end;
  35424. procedure TUART1A_U1ASTA.setRIDLE(thebits : TBits_1); inline;
  35425. begin
  35426. if thebits = 0 then
  35427. pTDefRegMap(@Self)^.clr := $00000010
  35428. else
  35429. pTDefRegMap(@Self)^.&set := $00000010;
  35430. end;
  35431. function TUART1A_U1ASTA.getRIDLE : TBits_1; inline;
  35432. begin
  35433. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  35434. end;
  35435. procedure TUART1A_U1ASTA.setADDEN; inline;
  35436. begin
  35437. pTDefRegMap(@Self)^.&set := $00000020;
  35438. end;
  35439. procedure TUART1A_U1ASTA.clearADDEN; inline;
  35440. begin
  35441. pTDefRegMap(@Self)^.clr := $00000020;
  35442. end;
  35443. procedure TUART1A_U1ASTA.setADDEN(thebits : TBits_1); inline;
  35444. begin
  35445. if thebits = 0 then
  35446. pTDefRegMap(@Self)^.clr := $00000020
  35447. else
  35448. pTDefRegMap(@Self)^.&set := $00000020;
  35449. end;
  35450. function TUART1A_U1ASTA.getADDEN : TBits_1; inline;
  35451. begin
  35452. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35453. end;
  35454. procedure TUART1A_U1ASTA.setURXISEL(thebits : TBits_2); inline;
  35455. begin
  35456. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  35457. end;
  35458. function TUART1A_U1ASTA.getURXISEL : TBits_2; inline;
  35459. begin
  35460. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  35461. end;
  35462. procedure TUART1A_U1ASTA.setTRMT; inline;
  35463. begin
  35464. pTDefRegMap(@Self)^.&set := $00000100;
  35465. end;
  35466. procedure TUART1A_U1ASTA.clearTRMT; inline;
  35467. begin
  35468. pTDefRegMap(@Self)^.clr := $00000100;
  35469. end;
  35470. procedure TUART1A_U1ASTA.setTRMT(thebits : TBits_1); inline;
  35471. begin
  35472. if thebits = 0 then
  35473. pTDefRegMap(@Self)^.clr := $00000100
  35474. else
  35475. pTDefRegMap(@Self)^.&set := $00000100;
  35476. end;
  35477. function TUART1A_U1ASTA.getTRMT : TBits_1; inline;
  35478. begin
  35479. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35480. end;
  35481. procedure TUART1A_U1ASTA.setUTXBF; inline;
  35482. begin
  35483. pTDefRegMap(@Self)^.&set := $00000200;
  35484. end;
  35485. procedure TUART1A_U1ASTA.clearUTXBF; inline;
  35486. begin
  35487. pTDefRegMap(@Self)^.clr := $00000200;
  35488. end;
  35489. procedure TUART1A_U1ASTA.setUTXBF(thebits : TBits_1); inline;
  35490. begin
  35491. if thebits = 0 then
  35492. pTDefRegMap(@Self)^.clr := $00000200
  35493. else
  35494. pTDefRegMap(@Self)^.&set := $00000200;
  35495. end;
  35496. function TUART1A_U1ASTA.getUTXBF : TBits_1; inline;
  35497. begin
  35498. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35499. end;
  35500. procedure TUART1A_U1ASTA.setUTXEN; inline;
  35501. begin
  35502. pTDefRegMap(@Self)^.&set := $00000400;
  35503. end;
  35504. procedure TUART1A_U1ASTA.clearUTXEN; inline;
  35505. begin
  35506. pTDefRegMap(@Self)^.clr := $00000400;
  35507. end;
  35508. procedure TUART1A_U1ASTA.setUTXEN(thebits : TBits_1); inline;
  35509. begin
  35510. if thebits = 0 then
  35511. pTDefRegMap(@Self)^.clr := $00000400
  35512. else
  35513. pTDefRegMap(@Self)^.&set := $00000400;
  35514. end;
  35515. function TUART1A_U1ASTA.getUTXEN : TBits_1; inline;
  35516. begin
  35517. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  35518. end;
  35519. procedure TUART1A_U1ASTA.setUTXBRK; inline;
  35520. begin
  35521. pTDefRegMap(@Self)^.&set := $00000800;
  35522. end;
  35523. procedure TUART1A_U1ASTA.clearUTXBRK; inline;
  35524. begin
  35525. pTDefRegMap(@Self)^.clr := $00000800;
  35526. end;
  35527. procedure TUART1A_U1ASTA.setUTXBRK(thebits : TBits_1); inline;
  35528. begin
  35529. if thebits = 0 then
  35530. pTDefRegMap(@Self)^.clr := $00000800
  35531. else
  35532. pTDefRegMap(@Self)^.&set := $00000800;
  35533. end;
  35534. function TUART1A_U1ASTA.getUTXBRK : TBits_1; inline;
  35535. begin
  35536. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35537. end;
  35538. procedure TUART1A_U1ASTA.setURXEN; inline;
  35539. begin
  35540. pTDefRegMap(@Self)^.&set := $00001000;
  35541. end;
  35542. procedure TUART1A_U1ASTA.clearURXEN; inline;
  35543. begin
  35544. pTDefRegMap(@Self)^.clr := $00001000;
  35545. end;
  35546. procedure TUART1A_U1ASTA.setURXEN(thebits : TBits_1); inline;
  35547. begin
  35548. if thebits = 0 then
  35549. pTDefRegMap(@Self)^.clr := $00001000
  35550. else
  35551. pTDefRegMap(@Self)^.&set := $00001000;
  35552. end;
  35553. function TUART1A_U1ASTA.getURXEN : TBits_1; inline;
  35554. begin
  35555. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35556. end;
  35557. procedure TUART1A_U1ASTA.setUTXINV; inline;
  35558. begin
  35559. pTDefRegMap(@Self)^.&set := $00002000;
  35560. end;
  35561. procedure TUART1A_U1ASTA.clearUTXINV; inline;
  35562. begin
  35563. pTDefRegMap(@Self)^.clr := $00002000;
  35564. end;
  35565. procedure TUART1A_U1ASTA.setUTXINV(thebits : TBits_1); inline;
  35566. begin
  35567. if thebits = 0 then
  35568. pTDefRegMap(@Self)^.clr := $00002000
  35569. else
  35570. pTDefRegMap(@Self)^.&set := $00002000;
  35571. end;
  35572. function TUART1A_U1ASTA.getUTXINV : TBits_1; inline;
  35573. begin
  35574. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35575. end;
  35576. procedure TUART1A_U1ASTA.setUTXISEL(thebits : TBits_2); inline;
  35577. begin
  35578. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  35579. end;
  35580. function TUART1A_U1ASTA.getUTXISEL : TBits_2; inline;
  35581. begin
  35582. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  35583. end;
  35584. procedure TUART1A_U1ASTA.setADDR(thebits : TBits_8); inline;
  35585. begin
  35586. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  35587. end;
  35588. function TUART1A_U1ASTA.getADDR : TBits_8; inline;
  35589. begin
  35590. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  35591. end;
  35592. procedure TUART1A_U1ASTA.setADM_EN; inline;
  35593. begin
  35594. pTDefRegMap(@Self)^.&set := $01000000;
  35595. end;
  35596. procedure TUART1A_U1ASTA.clearADM_EN; inline;
  35597. begin
  35598. pTDefRegMap(@Self)^.clr := $01000000;
  35599. end;
  35600. procedure TUART1A_U1ASTA.setADM_EN(thebits : TBits_1); inline;
  35601. begin
  35602. if thebits = 0 then
  35603. pTDefRegMap(@Self)^.clr := $01000000
  35604. else
  35605. pTDefRegMap(@Self)^.&set := $01000000;
  35606. end;
  35607. function TUART1A_U1ASTA.getADM_EN : TBits_1; inline;
  35608. begin
  35609. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  35610. end;
  35611. procedure TUART1A_U1ASTA.setURXISEL0; inline;
  35612. begin
  35613. pTDefRegMap(@Self)^.&set := $00000040;
  35614. end;
  35615. procedure TUART1A_U1ASTA.clearURXISEL0; inline;
  35616. begin
  35617. pTDefRegMap(@Self)^.clr := $00000040;
  35618. end;
  35619. procedure TUART1A_U1ASTA.setURXISEL0(thebits : TBits_1); inline;
  35620. begin
  35621. if thebits = 0 then
  35622. pTDefRegMap(@Self)^.clr := $00000040
  35623. else
  35624. pTDefRegMap(@Self)^.&set := $00000040;
  35625. end;
  35626. function TUART1A_U1ASTA.getURXISEL0 : TBits_1; inline;
  35627. begin
  35628. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35629. end;
  35630. procedure TUART1A_U1ASTA.setURXISEL1; inline;
  35631. begin
  35632. pTDefRegMap(@Self)^.&set := $00000080;
  35633. end;
  35634. procedure TUART1A_U1ASTA.clearURXISEL1; inline;
  35635. begin
  35636. pTDefRegMap(@Self)^.clr := $00000080;
  35637. end;
  35638. procedure TUART1A_U1ASTA.setURXISEL1(thebits : TBits_1); inline;
  35639. begin
  35640. if thebits = 0 then
  35641. pTDefRegMap(@Self)^.clr := $00000080
  35642. else
  35643. pTDefRegMap(@Self)^.&set := $00000080;
  35644. end;
  35645. function TUART1A_U1ASTA.getURXISEL1 : TBits_1; inline;
  35646. begin
  35647. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  35648. end;
  35649. procedure TUART1A_U1ASTA.setUTXISEL0; inline;
  35650. begin
  35651. pTDefRegMap(@Self)^.&set := $00004000;
  35652. end;
  35653. procedure TUART1A_U1ASTA.clearUTXISEL0; inline;
  35654. begin
  35655. pTDefRegMap(@Self)^.clr := $00004000;
  35656. end;
  35657. procedure TUART1A_U1ASTA.setUTXISEL0(thebits : TBits_1); inline;
  35658. begin
  35659. if thebits = 0 then
  35660. pTDefRegMap(@Self)^.clr := $00004000
  35661. else
  35662. pTDefRegMap(@Self)^.&set := $00004000;
  35663. end;
  35664. function TUART1A_U1ASTA.getUTXISEL0 : TBits_1; inline;
  35665. begin
  35666. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  35667. end;
  35668. procedure TUART1A_U1ASTA.setUTXISEL1; inline;
  35669. begin
  35670. pTDefRegMap(@Self)^.&set := $00008000;
  35671. end;
  35672. procedure TUART1A_U1ASTA.clearUTXISEL1; inline;
  35673. begin
  35674. pTDefRegMap(@Self)^.clr := $00008000;
  35675. end;
  35676. procedure TUART1A_U1ASTA.setUTXISEL1(thebits : TBits_1); inline;
  35677. begin
  35678. if thebits = 0 then
  35679. pTDefRegMap(@Self)^.clr := $00008000
  35680. else
  35681. pTDefRegMap(@Self)^.&set := $00008000;
  35682. end;
  35683. function TUART1A_U1ASTA.getUTXISEL1 : TBits_1; inline;
  35684. begin
  35685. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  35686. end;
  35687. procedure TUART1A_U1ASTA.setUTXSEL(thebits : TBits_2); inline;
  35688. begin
  35689. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  35690. end;
  35691. function TUART1A_U1ASTA.getUTXSEL : TBits_2; inline;
  35692. begin
  35693. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  35694. end;
  35695. procedure TUART1A_U1ASTA.setw(thebits : TBits_32); inline;
  35696. begin
  35697. pTDefRegMap(@Self)^.val := thebits;
  35698. end;
  35699. function TUART1A_U1ASTA.getw : TBits_32; inline;
  35700. begin
  35701. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  35702. end;
  35703. procedure TUART1A_U1STA.setURXDA; inline;
  35704. begin
  35705. pTDefRegMap(@Self)^.&set := $00000001;
  35706. end;
  35707. procedure TUART1A_U1STA.clearURXDA; inline;
  35708. begin
  35709. pTDefRegMap(@Self)^.clr := $00000001;
  35710. end;
  35711. procedure TUART1A_U1STA.setURXDA(thebits : TBits_1); inline;
  35712. begin
  35713. if thebits = 0 then
  35714. pTDefRegMap(@Self)^.clr := $00000001
  35715. else
  35716. pTDefRegMap(@Self)^.&set := $00000001;
  35717. end;
  35718. function TUART1A_U1STA.getURXDA : TBits_1; inline;
  35719. begin
  35720. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  35721. end;
  35722. procedure TUART1A_U1STA.setOERR; inline;
  35723. begin
  35724. pTDefRegMap(@Self)^.&set := $00000002;
  35725. end;
  35726. procedure TUART1A_U1STA.clearOERR; inline;
  35727. begin
  35728. pTDefRegMap(@Self)^.clr := $00000002;
  35729. end;
  35730. procedure TUART1A_U1STA.setOERR(thebits : TBits_1); inline;
  35731. begin
  35732. if thebits = 0 then
  35733. pTDefRegMap(@Self)^.clr := $00000002
  35734. else
  35735. pTDefRegMap(@Self)^.&set := $00000002;
  35736. end;
  35737. function TUART1A_U1STA.getOERR : TBits_1; inline;
  35738. begin
  35739. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  35740. end;
  35741. procedure TUART1A_U1STA.setFERR; inline;
  35742. begin
  35743. pTDefRegMap(@Self)^.&set := $00000004;
  35744. end;
  35745. procedure TUART1A_U1STA.clearFERR; inline;
  35746. begin
  35747. pTDefRegMap(@Self)^.clr := $00000004;
  35748. end;
  35749. procedure TUART1A_U1STA.setFERR(thebits : TBits_1); inline;
  35750. begin
  35751. if thebits = 0 then
  35752. pTDefRegMap(@Self)^.clr := $00000004
  35753. else
  35754. pTDefRegMap(@Self)^.&set := $00000004;
  35755. end;
  35756. function TUART1A_U1STA.getFERR : TBits_1; inline;
  35757. begin
  35758. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  35759. end;
  35760. procedure TUART1A_U1STA.setPERR; inline;
  35761. begin
  35762. pTDefRegMap(@Self)^.&set := $00000008;
  35763. end;
  35764. procedure TUART1A_U1STA.clearPERR; inline;
  35765. begin
  35766. pTDefRegMap(@Self)^.clr := $00000008;
  35767. end;
  35768. procedure TUART1A_U1STA.setPERR(thebits : TBits_1); inline;
  35769. begin
  35770. if thebits = 0 then
  35771. pTDefRegMap(@Self)^.clr := $00000008
  35772. else
  35773. pTDefRegMap(@Self)^.&set := $00000008;
  35774. end;
  35775. function TUART1A_U1STA.getPERR : TBits_1; inline;
  35776. begin
  35777. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  35778. end;
  35779. procedure TUART1A_U1STA.setRIDLE; inline;
  35780. begin
  35781. pTDefRegMap(@Self)^.&set := $00000010;
  35782. end;
  35783. procedure TUART1A_U1STA.clearRIDLE; inline;
  35784. begin
  35785. pTDefRegMap(@Self)^.clr := $00000010;
  35786. end;
  35787. procedure TUART1A_U1STA.setRIDLE(thebits : TBits_1); inline;
  35788. begin
  35789. if thebits = 0 then
  35790. pTDefRegMap(@Self)^.clr := $00000010
  35791. else
  35792. pTDefRegMap(@Self)^.&set := $00000010;
  35793. end;
  35794. function TUART1A_U1STA.getRIDLE : TBits_1; inline;
  35795. begin
  35796. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  35797. end;
  35798. procedure TUART1A_U1STA.setADDEN; inline;
  35799. begin
  35800. pTDefRegMap(@Self)^.&set := $00000020;
  35801. end;
  35802. procedure TUART1A_U1STA.clearADDEN; inline;
  35803. begin
  35804. pTDefRegMap(@Self)^.clr := $00000020;
  35805. end;
  35806. procedure TUART1A_U1STA.setADDEN(thebits : TBits_1); inline;
  35807. begin
  35808. if thebits = 0 then
  35809. pTDefRegMap(@Self)^.clr := $00000020
  35810. else
  35811. pTDefRegMap(@Self)^.&set := $00000020;
  35812. end;
  35813. function TUART1A_U1STA.getADDEN : TBits_1; inline;
  35814. begin
  35815. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  35816. end;
  35817. procedure TUART1A_U1STA.setURXISEL(thebits : TBits_2); inline;
  35818. begin
  35819. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  35820. end;
  35821. function TUART1A_U1STA.getURXISEL : TBits_2; inline;
  35822. begin
  35823. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  35824. end;
  35825. procedure TUART1A_U1STA.setTRMT; inline;
  35826. begin
  35827. pTDefRegMap(@Self)^.&set := $00000100;
  35828. end;
  35829. procedure TUART1A_U1STA.clearTRMT; inline;
  35830. begin
  35831. pTDefRegMap(@Self)^.clr := $00000100;
  35832. end;
  35833. procedure TUART1A_U1STA.setTRMT(thebits : TBits_1); inline;
  35834. begin
  35835. if thebits = 0 then
  35836. pTDefRegMap(@Self)^.clr := $00000100
  35837. else
  35838. pTDefRegMap(@Self)^.&set := $00000100;
  35839. end;
  35840. function TUART1A_U1STA.getTRMT : TBits_1; inline;
  35841. begin
  35842. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  35843. end;
  35844. procedure TUART1A_U1STA.setUTXBF; inline;
  35845. begin
  35846. pTDefRegMap(@Self)^.&set := $00000200;
  35847. end;
  35848. procedure TUART1A_U1STA.clearUTXBF; inline;
  35849. begin
  35850. pTDefRegMap(@Self)^.clr := $00000200;
  35851. end;
  35852. procedure TUART1A_U1STA.setUTXBF(thebits : TBits_1); inline;
  35853. begin
  35854. if thebits = 0 then
  35855. pTDefRegMap(@Self)^.clr := $00000200
  35856. else
  35857. pTDefRegMap(@Self)^.&set := $00000200;
  35858. end;
  35859. function TUART1A_U1STA.getUTXBF : TBits_1; inline;
  35860. begin
  35861. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  35862. end;
  35863. procedure TUART1A_U1STA.setUTXEN; inline;
  35864. begin
  35865. pTDefRegMap(@Self)^.&set := $00000400;
  35866. end;
  35867. procedure TUART1A_U1STA.clearUTXEN; inline;
  35868. begin
  35869. pTDefRegMap(@Self)^.clr := $00000400;
  35870. end;
  35871. procedure TUART1A_U1STA.setUTXEN(thebits : TBits_1); inline;
  35872. begin
  35873. if thebits = 0 then
  35874. pTDefRegMap(@Self)^.clr := $00000400
  35875. else
  35876. pTDefRegMap(@Self)^.&set := $00000400;
  35877. end;
  35878. function TUART1A_U1STA.getUTXEN : TBits_1; inline;
  35879. begin
  35880. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  35881. end;
  35882. procedure TUART1A_U1STA.setUTXBRK; inline;
  35883. begin
  35884. pTDefRegMap(@Self)^.&set := $00000800;
  35885. end;
  35886. procedure TUART1A_U1STA.clearUTXBRK; inline;
  35887. begin
  35888. pTDefRegMap(@Self)^.clr := $00000800;
  35889. end;
  35890. procedure TUART1A_U1STA.setUTXBRK(thebits : TBits_1); inline;
  35891. begin
  35892. if thebits = 0 then
  35893. pTDefRegMap(@Self)^.clr := $00000800
  35894. else
  35895. pTDefRegMap(@Self)^.&set := $00000800;
  35896. end;
  35897. function TUART1A_U1STA.getUTXBRK : TBits_1; inline;
  35898. begin
  35899. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  35900. end;
  35901. procedure TUART1A_U1STA.setURXEN; inline;
  35902. begin
  35903. pTDefRegMap(@Self)^.&set := $00001000;
  35904. end;
  35905. procedure TUART1A_U1STA.clearURXEN; inline;
  35906. begin
  35907. pTDefRegMap(@Self)^.clr := $00001000;
  35908. end;
  35909. procedure TUART1A_U1STA.setURXEN(thebits : TBits_1); inline;
  35910. begin
  35911. if thebits = 0 then
  35912. pTDefRegMap(@Self)^.clr := $00001000
  35913. else
  35914. pTDefRegMap(@Self)^.&set := $00001000;
  35915. end;
  35916. function TUART1A_U1STA.getURXEN : TBits_1; inline;
  35917. begin
  35918. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  35919. end;
  35920. procedure TUART1A_U1STA.setUTXINV; inline;
  35921. begin
  35922. pTDefRegMap(@Self)^.&set := $00002000;
  35923. end;
  35924. procedure TUART1A_U1STA.clearUTXINV; inline;
  35925. begin
  35926. pTDefRegMap(@Self)^.clr := $00002000;
  35927. end;
  35928. procedure TUART1A_U1STA.setUTXINV(thebits : TBits_1); inline;
  35929. begin
  35930. if thebits = 0 then
  35931. pTDefRegMap(@Self)^.clr := $00002000
  35932. else
  35933. pTDefRegMap(@Self)^.&set := $00002000;
  35934. end;
  35935. function TUART1A_U1STA.getUTXINV : TBits_1; inline;
  35936. begin
  35937. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  35938. end;
  35939. procedure TUART1A_U1STA.setUTXISEL(thebits : TBits_2); inline;
  35940. begin
  35941. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  35942. end;
  35943. function TUART1A_U1STA.getUTXISEL : TBits_2; inline;
  35944. begin
  35945. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  35946. end;
  35947. procedure TUART1A_U1STA.setADDR(thebits : TBits_8); inline;
  35948. begin
  35949. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  35950. end;
  35951. function TUART1A_U1STA.getADDR : TBits_8; inline;
  35952. begin
  35953. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  35954. end;
  35955. procedure TUART1A_U1STA.setADM_EN; inline;
  35956. begin
  35957. pTDefRegMap(@Self)^.&set := $01000000;
  35958. end;
  35959. procedure TUART1A_U1STA.clearADM_EN; inline;
  35960. begin
  35961. pTDefRegMap(@Self)^.clr := $01000000;
  35962. end;
  35963. procedure TUART1A_U1STA.setADM_EN(thebits : TBits_1); inline;
  35964. begin
  35965. if thebits = 0 then
  35966. pTDefRegMap(@Self)^.clr := $01000000
  35967. else
  35968. pTDefRegMap(@Self)^.&set := $01000000;
  35969. end;
  35970. function TUART1A_U1STA.getADM_EN : TBits_1; inline;
  35971. begin
  35972. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  35973. end;
  35974. procedure TUART1A_U1STA.setURXISEL0; inline;
  35975. begin
  35976. pTDefRegMap(@Self)^.&set := $00000040;
  35977. end;
  35978. procedure TUART1A_U1STA.clearURXISEL0; inline;
  35979. begin
  35980. pTDefRegMap(@Self)^.clr := $00000040;
  35981. end;
  35982. procedure TUART1A_U1STA.setURXISEL0(thebits : TBits_1); inline;
  35983. begin
  35984. if thebits = 0 then
  35985. pTDefRegMap(@Self)^.clr := $00000040
  35986. else
  35987. pTDefRegMap(@Self)^.&set := $00000040;
  35988. end;
  35989. function TUART1A_U1STA.getURXISEL0 : TBits_1; inline;
  35990. begin
  35991. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  35992. end;
  35993. procedure TUART1A_U1STA.setURXISEL1; inline;
  35994. begin
  35995. pTDefRegMap(@Self)^.&set := $00000080;
  35996. end;
  35997. procedure TUART1A_U1STA.clearURXISEL1; inline;
  35998. begin
  35999. pTDefRegMap(@Self)^.clr := $00000080;
  36000. end;
  36001. procedure TUART1A_U1STA.setURXISEL1(thebits : TBits_1); inline;
  36002. begin
  36003. if thebits = 0 then
  36004. pTDefRegMap(@Self)^.clr := $00000080
  36005. else
  36006. pTDefRegMap(@Self)^.&set := $00000080;
  36007. end;
  36008. function TUART1A_U1STA.getURXISEL1 : TBits_1; inline;
  36009. begin
  36010. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36011. end;
  36012. procedure TUART1A_U1STA.setUTXISEL0; inline;
  36013. begin
  36014. pTDefRegMap(@Self)^.&set := $00004000;
  36015. end;
  36016. procedure TUART1A_U1STA.clearUTXISEL0; inline;
  36017. begin
  36018. pTDefRegMap(@Self)^.clr := $00004000;
  36019. end;
  36020. procedure TUART1A_U1STA.setUTXISEL0(thebits : TBits_1); inline;
  36021. begin
  36022. if thebits = 0 then
  36023. pTDefRegMap(@Self)^.clr := $00004000
  36024. else
  36025. pTDefRegMap(@Self)^.&set := $00004000;
  36026. end;
  36027. function TUART1A_U1STA.getUTXISEL0 : TBits_1; inline;
  36028. begin
  36029. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  36030. end;
  36031. procedure TUART1A_U1STA.setUTXISEL1; inline;
  36032. begin
  36033. pTDefRegMap(@Self)^.&set := $00008000;
  36034. end;
  36035. procedure TUART1A_U1STA.clearUTXISEL1; inline;
  36036. begin
  36037. pTDefRegMap(@Self)^.clr := $00008000;
  36038. end;
  36039. procedure TUART1A_U1STA.setUTXISEL1(thebits : TBits_1); inline;
  36040. begin
  36041. if thebits = 0 then
  36042. pTDefRegMap(@Self)^.clr := $00008000
  36043. else
  36044. pTDefRegMap(@Self)^.&set := $00008000;
  36045. end;
  36046. function TUART1A_U1STA.getUTXISEL1 : TBits_1; inline;
  36047. begin
  36048. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36049. end;
  36050. procedure TUART1A_U1STA.setUTXSEL(thebits : TBits_2); inline;
  36051. begin
  36052. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  36053. end;
  36054. function TUART1A_U1STA.getUTXSEL : TBits_2; inline;
  36055. begin
  36056. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  36057. end;
  36058. procedure TUART1A_U1STA.setw(thebits : TBits_32); inline;
  36059. begin
  36060. pTDefRegMap(@Self)^.val := thebits;
  36061. end;
  36062. function TUART1A_U1STA.getw : TBits_32; inline;
  36063. begin
  36064. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36065. end;
  36066. procedure TUART4_U1BMODE.setSTSEL; inline;
  36067. begin
  36068. pTDefRegMap(@Self)^.&set := $00000001;
  36069. end;
  36070. procedure TUART4_U1BMODE.clearSTSEL; inline;
  36071. begin
  36072. pTDefRegMap(@Self)^.clr := $00000001;
  36073. end;
  36074. procedure TUART4_U1BMODE.setSTSEL(thebits : TBits_1); inline;
  36075. begin
  36076. if thebits = 0 then
  36077. pTDefRegMap(@Self)^.clr := $00000001
  36078. else
  36079. pTDefRegMap(@Self)^.&set := $00000001;
  36080. end;
  36081. function TUART4_U1BMODE.getSTSEL : TBits_1; inline;
  36082. begin
  36083. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36084. end;
  36085. procedure TUART4_U1BMODE.setPDSEL(thebits : TBits_2); inline;
  36086. begin
  36087. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  36088. end;
  36089. function TUART4_U1BMODE.getPDSEL : TBits_2; inline;
  36090. begin
  36091. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  36092. end;
  36093. procedure TUART4_U1BMODE.setBRGH; inline;
  36094. begin
  36095. pTDefRegMap(@Self)^.&set := $00000008;
  36096. end;
  36097. procedure TUART4_U1BMODE.clearBRGH; inline;
  36098. begin
  36099. pTDefRegMap(@Self)^.clr := $00000008;
  36100. end;
  36101. procedure TUART4_U1BMODE.setBRGH(thebits : TBits_1); inline;
  36102. begin
  36103. if thebits = 0 then
  36104. pTDefRegMap(@Self)^.clr := $00000008
  36105. else
  36106. pTDefRegMap(@Self)^.&set := $00000008;
  36107. end;
  36108. function TUART4_U1BMODE.getBRGH : TBits_1; inline;
  36109. begin
  36110. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36111. end;
  36112. procedure TUART4_U1BMODE.setRXINV; inline;
  36113. begin
  36114. pTDefRegMap(@Self)^.&set := $00000010;
  36115. end;
  36116. procedure TUART4_U1BMODE.clearRXINV; inline;
  36117. begin
  36118. pTDefRegMap(@Self)^.clr := $00000010;
  36119. end;
  36120. procedure TUART4_U1BMODE.setRXINV(thebits : TBits_1); inline;
  36121. begin
  36122. if thebits = 0 then
  36123. pTDefRegMap(@Self)^.clr := $00000010
  36124. else
  36125. pTDefRegMap(@Self)^.&set := $00000010;
  36126. end;
  36127. function TUART4_U1BMODE.getRXINV : TBits_1; inline;
  36128. begin
  36129. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36130. end;
  36131. procedure TUART4_U1BMODE.setABAUD; inline;
  36132. begin
  36133. pTDefRegMap(@Self)^.&set := $00000020;
  36134. end;
  36135. procedure TUART4_U1BMODE.clearABAUD; inline;
  36136. begin
  36137. pTDefRegMap(@Self)^.clr := $00000020;
  36138. end;
  36139. procedure TUART4_U1BMODE.setABAUD(thebits : TBits_1); inline;
  36140. begin
  36141. if thebits = 0 then
  36142. pTDefRegMap(@Self)^.clr := $00000020
  36143. else
  36144. pTDefRegMap(@Self)^.&set := $00000020;
  36145. end;
  36146. function TUART4_U1BMODE.getABAUD : TBits_1; inline;
  36147. begin
  36148. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36149. end;
  36150. procedure TUART4_U1BMODE.setLPBACK; inline;
  36151. begin
  36152. pTDefRegMap(@Self)^.&set := $00000040;
  36153. end;
  36154. procedure TUART4_U1BMODE.clearLPBACK; inline;
  36155. begin
  36156. pTDefRegMap(@Self)^.clr := $00000040;
  36157. end;
  36158. procedure TUART4_U1BMODE.setLPBACK(thebits : TBits_1); inline;
  36159. begin
  36160. if thebits = 0 then
  36161. pTDefRegMap(@Self)^.clr := $00000040
  36162. else
  36163. pTDefRegMap(@Self)^.&set := $00000040;
  36164. end;
  36165. function TUART4_U1BMODE.getLPBACK : TBits_1; inline;
  36166. begin
  36167. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36168. end;
  36169. procedure TUART4_U1BMODE.setWAKE; inline;
  36170. begin
  36171. pTDefRegMap(@Self)^.&set := $00000080;
  36172. end;
  36173. procedure TUART4_U1BMODE.clearWAKE; inline;
  36174. begin
  36175. pTDefRegMap(@Self)^.clr := $00000080;
  36176. end;
  36177. procedure TUART4_U1BMODE.setWAKE(thebits : TBits_1); inline;
  36178. begin
  36179. if thebits = 0 then
  36180. pTDefRegMap(@Self)^.clr := $00000080
  36181. else
  36182. pTDefRegMap(@Self)^.&set := $00000080;
  36183. end;
  36184. function TUART4_U1BMODE.getWAKE : TBits_1; inline;
  36185. begin
  36186. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36187. end;
  36188. procedure TUART4_U1BMODE.setIREN; inline;
  36189. begin
  36190. pTDefRegMap(@Self)^.&set := $00001000;
  36191. end;
  36192. procedure TUART4_U1BMODE.clearIREN; inline;
  36193. begin
  36194. pTDefRegMap(@Self)^.clr := $00001000;
  36195. end;
  36196. procedure TUART4_U1BMODE.setIREN(thebits : TBits_1); inline;
  36197. begin
  36198. if thebits = 0 then
  36199. pTDefRegMap(@Self)^.clr := $00001000
  36200. else
  36201. pTDefRegMap(@Self)^.&set := $00001000;
  36202. end;
  36203. function TUART4_U1BMODE.getIREN : TBits_1; inline;
  36204. begin
  36205. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36206. end;
  36207. procedure TUART4_U1BMODE.setSIDL; inline;
  36208. begin
  36209. pTDefRegMap(@Self)^.&set := $00002000;
  36210. end;
  36211. procedure TUART4_U1BMODE.clearSIDL; inline;
  36212. begin
  36213. pTDefRegMap(@Self)^.clr := $00002000;
  36214. end;
  36215. procedure TUART4_U1BMODE.setSIDL(thebits : TBits_1); inline;
  36216. begin
  36217. if thebits = 0 then
  36218. pTDefRegMap(@Self)^.clr := $00002000
  36219. else
  36220. pTDefRegMap(@Self)^.&set := $00002000;
  36221. end;
  36222. function TUART4_U1BMODE.getSIDL : TBits_1; inline;
  36223. begin
  36224. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36225. end;
  36226. procedure TUART4_U1BMODE.setON; inline;
  36227. begin
  36228. pTDefRegMap(@Self)^.&set := $00008000;
  36229. end;
  36230. procedure TUART4_U1BMODE.clearON; inline;
  36231. begin
  36232. pTDefRegMap(@Self)^.clr := $00008000;
  36233. end;
  36234. procedure TUART4_U1BMODE.setON(thebits : TBits_1); inline;
  36235. begin
  36236. if thebits = 0 then
  36237. pTDefRegMap(@Self)^.clr := $00008000
  36238. else
  36239. pTDefRegMap(@Self)^.&set := $00008000;
  36240. end;
  36241. function TUART4_U1BMODE.getON : TBits_1; inline;
  36242. begin
  36243. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36244. end;
  36245. procedure TUART4_U1BMODE.setPDSEL0; inline;
  36246. begin
  36247. pTDefRegMap(@Self)^.&set := $00000002;
  36248. end;
  36249. procedure TUART4_U1BMODE.clearPDSEL0; inline;
  36250. begin
  36251. pTDefRegMap(@Self)^.clr := $00000002;
  36252. end;
  36253. procedure TUART4_U1BMODE.setPDSEL0(thebits : TBits_1); inline;
  36254. begin
  36255. if thebits = 0 then
  36256. pTDefRegMap(@Self)^.clr := $00000002
  36257. else
  36258. pTDefRegMap(@Self)^.&set := $00000002;
  36259. end;
  36260. function TUART4_U1BMODE.getPDSEL0 : TBits_1; inline;
  36261. begin
  36262. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36263. end;
  36264. procedure TUART4_U1BMODE.setPDSEL1; inline;
  36265. begin
  36266. pTDefRegMap(@Self)^.&set := $00000004;
  36267. end;
  36268. procedure TUART4_U1BMODE.clearPDSEL1; inline;
  36269. begin
  36270. pTDefRegMap(@Self)^.clr := $00000004;
  36271. end;
  36272. procedure TUART4_U1BMODE.setPDSEL1(thebits : TBits_1); inline;
  36273. begin
  36274. if thebits = 0 then
  36275. pTDefRegMap(@Self)^.clr := $00000004
  36276. else
  36277. pTDefRegMap(@Self)^.&set := $00000004;
  36278. end;
  36279. function TUART4_U1BMODE.getPDSEL1 : TBits_1; inline;
  36280. begin
  36281. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36282. end;
  36283. procedure TUART4_U1BMODE.setUSIDL; inline;
  36284. begin
  36285. pTDefRegMap(@Self)^.&set := $00002000;
  36286. end;
  36287. procedure TUART4_U1BMODE.clearUSIDL; inline;
  36288. begin
  36289. pTDefRegMap(@Self)^.clr := $00002000;
  36290. end;
  36291. procedure TUART4_U1BMODE.setUSIDL(thebits : TBits_1); inline;
  36292. begin
  36293. if thebits = 0 then
  36294. pTDefRegMap(@Self)^.clr := $00002000
  36295. else
  36296. pTDefRegMap(@Self)^.&set := $00002000;
  36297. end;
  36298. function TUART4_U1BMODE.getUSIDL : TBits_1; inline;
  36299. begin
  36300. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36301. end;
  36302. procedure TUART4_U1BMODE.setUARTEN; inline;
  36303. begin
  36304. pTDefRegMap(@Self)^.&set := $00008000;
  36305. end;
  36306. procedure TUART4_U1BMODE.clearUARTEN; inline;
  36307. begin
  36308. pTDefRegMap(@Self)^.clr := $00008000;
  36309. end;
  36310. procedure TUART4_U1BMODE.setUARTEN(thebits : TBits_1); inline;
  36311. begin
  36312. if thebits = 0 then
  36313. pTDefRegMap(@Self)^.clr := $00008000
  36314. else
  36315. pTDefRegMap(@Self)^.&set := $00008000;
  36316. end;
  36317. function TUART4_U1BMODE.getUARTEN : TBits_1; inline;
  36318. begin
  36319. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36320. end;
  36321. procedure TUART4_U1BMODE.setw(thebits : TBits_32); inline;
  36322. begin
  36323. pTDefRegMap(@Self)^.val := thebits;
  36324. end;
  36325. function TUART4_U1BMODE.getw : TBits_32; inline;
  36326. begin
  36327. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36328. end;
  36329. procedure TUART4_U4MODE.setSTSEL; inline;
  36330. begin
  36331. pTDefRegMap(@Self)^.&set := $00000001;
  36332. end;
  36333. procedure TUART4_U4MODE.clearSTSEL; inline;
  36334. begin
  36335. pTDefRegMap(@Self)^.clr := $00000001;
  36336. end;
  36337. procedure TUART4_U4MODE.setSTSEL(thebits : TBits_1); inline;
  36338. begin
  36339. if thebits = 0 then
  36340. pTDefRegMap(@Self)^.clr := $00000001
  36341. else
  36342. pTDefRegMap(@Self)^.&set := $00000001;
  36343. end;
  36344. function TUART4_U4MODE.getSTSEL : TBits_1; inline;
  36345. begin
  36346. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36347. end;
  36348. procedure TUART4_U4MODE.setPDSEL(thebits : TBits_2); inline;
  36349. begin
  36350. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  36351. end;
  36352. function TUART4_U4MODE.getPDSEL : TBits_2; inline;
  36353. begin
  36354. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  36355. end;
  36356. procedure TUART4_U4MODE.setBRGH; inline;
  36357. begin
  36358. pTDefRegMap(@Self)^.&set := $00000008;
  36359. end;
  36360. procedure TUART4_U4MODE.clearBRGH; inline;
  36361. begin
  36362. pTDefRegMap(@Self)^.clr := $00000008;
  36363. end;
  36364. procedure TUART4_U4MODE.setBRGH(thebits : TBits_1); inline;
  36365. begin
  36366. if thebits = 0 then
  36367. pTDefRegMap(@Self)^.clr := $00000008
  36368. else
  36369. pTDefRegMap(@Self)^.&set := $00000008;
  36370. end;
  36371. function TUART4_U4MODE.getBRGH : TBits_1; inline;
  36372. begin
  36373. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36374. end;
  36375. procedure TUART4_U4MODE.setRXINV; inline;
  36376. begin
  36377. pTDefRegMap(@Self)^.&set := $00000010;
  36378. end;
  36379. procedure TUART4_U4MODE.clearRXINV; inline;
  36380. begin
  36381. pTDefRegMap(@Self)^.clr := $00000010;
  36382. end;
  36383. procedure TUART4_U4MODE.setRXINV(thebits : TBits_1); inline;
  36384. begin
  36385. if thebits = 0 then
  36386. pTDefRegMap(@Self)^.clr := $00000010
  36387. else
  36388. pTDefRegMap(@Self)^.&set := $00000010;
  36389. end;
  36390. function TUART4_U4MODE.getRXINV : TBits_1; inline;
  36391. begin
  36392. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36393. end;
  36394. procedure TUART4_U4MODE.setABAUD; inline;
  36395. begin
  36396. pTDefRegMap(@Self)^.&set := $00000020;
  36397. end;
  36398. procedure TUART4_U4MODE.clearABAUD; inline;
  36399. begin
  36400. pTDefRegMap(@Self)^.clr := $00000020;
  36401. end;
  36402. procedure TUART4_U4MODE.setABAUD(thebits : TBits_1); inline;
  36403. begin
  36404. if thebits = 0 then
  36405. pTDefRegMap(@Self)^.clr := $00000020
  36406. else
  36407. pTDefRegMap(@Self)^.&set := $00000020;
  36408. end;
  36409. function TUART4_U4MODE.getABAUD : TBits_1; inline;
  36410. begin
  36411. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36412. end;
  36413. procedure TUART4_U4MODE.setLPBACK; inline;
  36414. begin
  36415. pTDefRegMap(@Self)^.&set := $00000040;
  36416. end;
  36417. procedure TUART4_U4MODE.clearLPBACK; inline;
  36418. begin
  36419. pTDefRegMap(@Self)^.clr := $00000040;
  36420. end;
  36421. procedure TUART4_U4MODE.setLPBACK(thebits : TBits_1); inline;
  36422. begin
  36423. if thebits = 0 then
  36424. pTDefRegMap(@Self)^.clr := $00000040
  36425. else
  36426. pTDefRegMap(@Self)^.&set := $00000040;
  36427. end;
  36428. function TUART4_U4MODE.getLPBACK : TBits_1; inline;
  36429. begin
  36430. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36431. end;
  36432. procedure TUART4_U4MODE.setWAKE; inline;
  36433. begin
  36434. pTDefRegMap(@Self)^.&set := $00000080;
  36435. end;
  36436. procedure TUART4_U4MODE.clearWAKE; inline;
  36437. begin
  36438. pTDefRegMap(@Self)^.clr := $00000080;
  36439. end;
  36440. procedure TUART4_U4MODE.setWAKE(thebits : TBits_1); inline;
  36441. begin
  36442. if thebits = 0 then
  36443. pTDefRegMap(@Self)^.clr := $00000080
  36444. else
  36445. pTDefRegMap(@Self)^.&set := $00000080;
  36446. end;
  36447. function TUART4_U4MODE.getWAKE : TBits_1; inline;
  36448. begin
  36449. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36450. end;
  36451. procedure TUART4_U4MODE.setIREN; inline;
  36452. begin
  36453. pTDefRegMap(@Self)^.&set := $00001000;
  36454. end;
  36455. procedure TUART4_U4MODE.clearIREN; inline;
  36456. begin
  36457. pTDefRegMap(@Self)^.clr := $00001000;
  36458. end;
  36459. procedure TUART4_U4MODE.setIREN(thebits : TBits_1); inline;
  36460. begin
  36461. if thebits = 0 then
  36462. pTDefRegMap(@Self)^.clr := $00001000
  36463. else
  36464. pTDefRegMap(@Self)^.&set := $00001000;
  36465. end;
  36466. function TUART4_U4MODE.getIREN : TBits_1; inline;
  36467. begin
  36468. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36469. end;
  36470. procedure TUART4_U4MODE.setSIDL; inline;
  36471. begin
  36472. pTDefRegMap(@Self)^.&set := $00002000;
  36473. end;
  36474. procedure TUART4_U4MODE.clearSIDL; inline;
  36475. begin
  36476. pTDefRegMap(@Self)^.clr := $00002000;
  36477. end;
  36478. procedure TUART4_U4MODE.setSIDL(thebits : TBits_1); inline;
  36479. begin
  36480. if thebits = 0 then
  36481. pTDefRegMap(@Self)^.clr := $00002000
  36482. else
  36483. pTDefRegMap(@Self)^.&set := $00002000;
  36484. end;
  36485. function TUART4_U4MODE.getSIDL : TBits_1; inline;
  36486. begin
  36487. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36488. end;
  36489. procedure TUART4_U4MODE.setON; inline;
  36490. begin
  36491. pTDefRegMap(@Self)^.&set := $00008000;
  36492. end;
  36493. procedure TUART4_U4MODE.clearON; inline;
  36494. begin
  36495. pTDefRegMap(@Self)^.clr := $00008000;
  36496. end;
  36497. procedure TUART4_U4MODE.setON(thebits : TBits_1); inline;
  36498. begin
  36499. if thebits = 0 then
  36500. pTDefRegMap(@Self)^.clr := $00008000
  36501. else
  36502. pTDefRegMap(@Self)^.&set := $00008000;
  36503. end;
  36504. function TUART4_U4MODE.getON : TBits_1; inline;
  36505. begin
  36506. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36507. end;
  36508. procedure TUART4_U4MODE.setPDSEL0; inline;
  36509. begin
  36510. pTDefRegMap(@Self)^.&set := $00000002;
  36511. end;
  36512. procedure TUART4_U4MODE.clearPDSEL0; inline;
  36513. begin
  36514. pTDefRegMap(@Self)^.clr := $00000002;
  36515. end;
  36516. procedure TUART4_U4MODE.setPDSEL0(thebits : TBits_1); inline;
  36517. begin
  36518. if thebits = 0 then
  36519. pTDefRegMap(@Self)^.clr := $00000002
  36520. else
  36521. pTDefRegMap(@Self)^.&set := $00000002;
  36522. end;
  36523. function TUART4_U4MODE.getPDSEL0 : TBits_1; inline;
  36524. begin
  36525. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36526. end;
  36527. procedure TUART4_U4MODE.setPDSEL1; inline;
  36528. begin
  36529. pTDefRegMap(@Self)^.&set := $00000004;
  36530. end;
  36531. procedure TUART4_U4MODE.clearPDSEL1; inline;
  36532. begin
  36533. pTDefRegMap(@Self)^.clr := $00000004;
  36534. end;
  36535. procedure TUART4_U4MODE.setPDSEL1(thebits : TBits_1); inline;
  36536. begin
  36537. if thebits = 0 then
  36538. pTDefRegMap(@Self)^.clr := $00000004
  36539. else
  36540. pTDefRegMap(@Self)^.&set := $00000004;
  36541. end;
  36542. function TUART4_U4MODE.getPDSEL1 : TBits_1; inline;
  36543. begin
  36544. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36545. end;
  36546. procedure TUART4_U4MODE.setUSIDL; inline;
  36547. begin
  36548. pTDefRegMap(@Self)^.&set := $00002000;
  36549. end;
  36550. procedure TUART4_U4MODE.clearUSIDL; inline;
  36551. begin
  36552. pTDefRegMap(@Self)^.clr := $00002000;
  36553. end;
  36554. procedure TUART4_U4MODE.setUSIDL(thebits : TBits_1); inline;
  36555. begin
  36556. if thebits = 0 then
  36557. pTDefRegMap(@Self)^.clr := $00002000
  36558. else
  36559. pTDefRegMap(@Self)^.&set := $00002000;
  36560. end;
  36561. function TUART4_U4MODE.getUSIDL : TBits_1; inline;
  36562. begin
  36563. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36564. end;
  36565. procedure TUART4_U4MODE.setUARTEN; inline;
  36566. begin
  36567. pTDefRegMap(@Self)^.&set := $00008000;
  36568. end;
  36569. procedure TUART4_U4MODE.clearUARTEN; inline;
  36570. begin
  36571. pTDefRegMap(@Self)^.clr := $00008000;
  36572. end;
  36573. procedure TUART4_U4MODE.setUARTEN(thebits : TBits_1); inline;
  36574. begin
  36575. if thebits = 0 then
  36576. pTDefRegMap(@Self)^.clr := $00008000
  36577. else
  36578. pTDefRegMap(@Self)^.&set := $00008000;
  36579. end;
  36580. function TUART4_U4MODE.getUARTEN : TBits_1; inline;
  36581. begin
  36582. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36583. end;
  36584. procedure TUART4_U4MODE.setw(thebits : TBits_32); inline;
  36585. begin
  36586. pTDefRegMap(@Self)^.val := thebits;
  36587. end;
  36588. function TUART4_U4MODE.getw : TBits_32; inline;
  36589. begin
  36590. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36591. end;
  36592. procedure TUART4_U1BSTA.setURXDA; inline;
  36593. begin
  36594. pTDefRegMap(@Self)^.&set := $00000001;
  36595. end;
  36596. procedure TUART4_U1BSTA.clearURXDA; inline;
  36597. begin
  36598. pTDefRegMap(@Self)^.clr := $00000001;
  36599. end;
  36600. procedure TUART4_U1BSTA.setURXDA(thebits : TBits_1); inline;
  36601. begin
  36602. if thebits = 0 then
  36603. pTDefRegMap(@Self)^.clr := $00000001
  36604. else
  36605. pTDefRegMap(@Self)^.&set := $00000001;
  36606. end;
  36607. function TUART4_U1BSTA.getURXDA : TBits_1; inline;
  36608. begin
  36609. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36610. end;
  36611. procedure TUART4_U1BSTA.setOERR; inline;
  36612. begin
  36613. pTDefRegMap(@Self)^.&set := $00000002;
  36614. end;
  36615. procedure TUART4_U1BSTA.clearOERR; inline;
  36616. begin
  36617. pTDefRegMap(@Self)^.clr := $00000002;
  36618. end;
  36619. procedure TUART4_U1BSTA.setOERR(thebits : TBits_1); inline;
  36620. begin
  36621. if thebits = 0 then
  36622. pTDefRegMap(@Self)^.clr := $00000002
  36623. else
  36624. pTDefRegMap(@Self)^.&set := $00000002;
  36625. end;
  36626. function TUART4_U1BSTA.getOERR : TBits_1; inline;
  36627. begin
  36628. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36629. end;
  36630. procedure TUART4_U1BSTA.setFERR; inline;
  36631. begin
  36632. pTDefRegMap(@Self)^.&set := $00000004;
  36633. end;
  36634. procedure TUART4_U1BSTA.clearFERR; inline;
  36635. begin
  36636. pTDefRegMap(@Self)^.clr := $00000004;
  36637. end;
  36638. procedure TUART4_U1BSTA.setFERR(thebits : TBits_1); inline;
  36639. begin
  36640. if thebits = 0 then
  36641. pTDefRegMap(@Self)^.clr := $00000004
  36642. else
  36643. pTDefRegMap(@Self)^.&set := $00000004;
  36644. end;
  36645. function TUART4_U1BSTA.getFERR : TBits_1; inline;
  36646. begin
  36647. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  36648. end;
  36649. procedure TUART4_U1BSTA.setPERR; inline;
  36650. begin
  36651. pTDefRegMap(@Self)^.&set := $00000008;
  36652. end;
  36653. procedure TUART4_U1BSTA.clearPERR; inline;
  36654. begin
  36655. pTDefRegMap(@Self)^.clr := $00000008;
  36656. end;
  36657. procedure TUART4_U1BSTA.setPERR(thebits : TBits_1); inline;
  36658. begin
  36659. if thebits = 0 then
  36660. pTDefRegMap(@Self)^.clr := $00000008
  36661. else
  36662. pTDefRegMap(@Self)^.&set := $00000008;
  36663. end;
  36664. function TUART4_U1BSTA.getPERR : TBits_1; inline;
  36665. begin
  36666. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  36667. end;
  36668. procedure TUART4_U1BSTA.setRIDLE; inline;
  36669. begin
  36670. pTDefRegMap(@Self)^.&set := $00000010;
  36671. end;
  36672. procedure TUART4_U1BSTA.clearRIDLE; inline;
  36673. begin
  36674. pTDefRegMap(@Self)^.clr := $00000010;
  36675. end;
  36676. procedure TUART4_U1BSTA.setRIDLE(thebits : TBits_1); inline;
  36677. begin
  36678. if thebits = 0 then
  36679. pTDefRegMap(@Self)^.clr := $00000010
  36680. else
  36681. pTDefRegMap(@Self)^.&set := $00000010;
  36682. end;
  36683. function TUART4_U1BSTA.getRIDLE : TBits_1; inline;
  36684. begin
  36685. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  36686. end;
  36687. procedure TUART4_U1BSTA.setADDEN; inline;
  36688. begin
  36689. pTDefRegMap(@Self)^.&set := $00000020;
  36690. end;
  36691. procedure TUART4_U1BSTA.clearADDEN; inline;
  36692. begin
  36693. pTDefRegMap(@Self)^.clr := $00000020;
  36694. end;
  36695. procedure TUART4_U1BSTA.setADDEN(thebits : TBits_1); inline;
  36696. begin
  36697. if thebits = 0 then
  36698. pTDefRegMap(@Self)^.clr := $00000020
  36699. else
  36700. pTDefRegMap(@Self)^.&set := $00000020;
  36701. end;
  36702. function TUART4_U1BSTA.getADDEN : TBits_1; inline;
  36703. begin
  36704. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  36705. end;
  36706. procedure TUART4_U1BSTA.setURXISEL(thebits : TBits_2); inline;
  36707. begin
  36708. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  36709. end;
  36710. function TUART4_U1BSTA.getURXISEL : TBits_2; inline;
  36711. begin
  36712. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  36713. end;
  36714. procedure TUART4_U1BSTA.setTRMT; inline;
  36715. begin
  36716. pTDefRegMap(@Self)^.&set := $00000100;
  36717. end;
  36718. procedure TUART4_U1BSTA.clearTRMT; inline;
  36719. begin
  36720. pTDefRegMap(@Self)^.clr := $00000100;
  36721. end;
  36722. procedure TUART4_U1BSTA.setTRMT(thebits : TBits_1); inline;
  36723. begin
  36724. if thebits = 0 then
  36725. pTDefRegMap(@Self)^.clr := $00000100
  36726. else
  36727. pTDefRegMap(@Self)^.&set := $00000100;
  36728. end;
  36729. function TUART4_U1BSTA.getTRMT : TBits_1; inline;
  36730. begin
  36731. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  36732. end;
  36733. procedure TUART4_U1BSTA.setUTXBF; inline;
  36734. begin
  36735. pTDefRegMap(@Self)^.&set := $00000200;
  36736. end;
  36737. procedure TUART4_U1BSTA.clearUTXBF; inline;
  36738. begin
  36739. pTDefRegMap(@Self)^.clr := $00000200;
  36740. end;
  36741. procedure TUART4_U1BSTA.setUTXBF(thebits : TBits_1); inline;
  36742. begin
  36743. if thebits = 0 then
  36744. pTDefRegMap(@Self)^.clr := $00000200
  36745. else
  36746. pTDefRegMap(@Self)^.&set := $00000200;
  36747. end;
  36748. function TUART4_U1BSTA.getUTXBF : TBits_1; inline;
  36749. begin
  36750. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  36751. end;
  36752. procedure TUART4_U1BSTA.setUTXEN; inline;
  36753. begin
  36754. pTDefRegMap(@Self)^.&set := $00000400;
  36755. end;
  36756. procedure TUART4_U1BSTA.clearUTXEN; inline;
  36757. begin
  36758. pTDefRegMap(@Self)^.clr := $00000400;
  36759. end;
  36760. procedure TUART4_U1BSTA.setUTXEN(thebits : TBits_1); inline;
  36761. begin
  36762. if thebits = 0 then
  36763. pTDefRegMap(@Self)^.clr := $00000400
  36764. else
  36765. pTDefRegMap(@Self)^.&set := $00000400;
  36766. end;
  36767. function TUART4_U1BSTA.getUTXEN : TBits_1; inline;
  36768. begin
  36769. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  36770. end;
  36771. procedure TUART4_U1BSTA.setUTXBRK; inline;
  36772. begin
  36773. pTDefRegMap(@Self)^.&set := $00000800;
  36774. end;
  36775. procedure TUART4_U1BSTA.clearUTXBRK; inline;
  36776. begin
  36777. pTDefRegMap(@Self)^.clr := $00000800;
  36778. end;
  36779. procedure TUART4_U1BSTA.setUTXBRK(thebits : TBits_1); inline;
  36780. begin
  36781. if thebits = 0 then
  36782. pTDefRegMap(@Self)^.clr := $00000800
  36783. else
  36784. pTDefRegMap(@Self)^.&set := $00000800;
  36785. end;
  36786. function TUART4_U1BSTA.getUTXBRK : TBits_1; inline;
  36787. begin
  36788. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  36789. end;
  36790. procedure TUART4_U1BSTA.setURXEN; inline;
  36791. begin
  36792. pTDefRegMap(@Self)^.&set := $00001000;
  36793. end;
  36794. procedure TUART4_U1BSTA.clearURXEN; inline;
  36795. begin
  36796. pTDefRegMap(@Self)^.clr := $00001000;
  36797. end;
  36798. procedure TUART4_U1BSTA.setURXEN(thebits : TBits_1); inline;
  36799. begin
  36800. if thebits = 0 then
  36801. pTDefRegMap(@Self)^.clr := $00001000
  36802. else
  36803. pTDefRegMap(@Self)^.&set := $00001000;
  36804. end;
  36805. function TUART4_U1BSTA.getURXEN : TBits_1; inline;
  36806. begin
  36807. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  36808. end;
  36809. procedure TUART4_U1BSTA.setUTXINV; inline;
  36810. begin
  36811. pTDefRegMap(@Self)^.&set := $00002000;
  36812. end;
  36813. procedure TUART4_U1BSTA.clearUTXINV; inline;
  36814. begin
  36815. pTDefRegMap(@Self)^.clr := $00002000;
  36816. end;
  36817. procedure TUART4_U1BSTA.setUTXINV(thebits : TBits_1); inline;
  36818. begin
  36819. if thebits = 0 then
  36820. pTDefRegMap(@Self)^.clr := $00002000
  36821. else
  36822. pTDefRegMap(@Self)^.&set := $00002000;
  36823. end;
  36824. function TUART4_U1BSTA.getUTXINV : TBits_1; inline;
  36825. begin
  36826. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  36827. end;
  36828. procedure TUART4_U1BSTA.setUTXISEL(thebits : TBits_2); inline;
  36829. begin
  36830. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  36831. end;
  36832. function TUART4_U1BSTA.getUTXISEL : TBits_2; inline;
  36833. begin
  36834. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  36835. end;
  36836. procedure TUART4_U1BSTA.setADDR(thebits : TBits_8); inline;
  36837. begin
  36838. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  36839. end;
  36840. function TUART4_U1BSTA.getADDR : TBits_8; inline;
  36841. begin
  36842. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  36843. end;
  36844. procedure TUART4_U1BSTA.setADM_EN; inline;
  36845. begin
  36846. pTDefRegMap(@Self)^.&set := $01000000;
  36847. end;
  36848. procedure TUART4_U1BSTA.clearADM_EN; inline;
  36849. begin
  36850. pTDefRegMap(@Self)^.clr := $01000000;
  36851. end;
  36852. procedure TUART4_U1BSTA.setADM_EN(thebits : TBits_1); inline;
  36853. begin
  36854. if thebits = 0 then
  36855. pTDefRegMap(@Self)^.clr := $01000000
  36856. else
  36857. pTDefRegMap(@Self)^.&set := $01000000;
  36858. end;
  36859. function TUART4_U1BSTA.getADM_EN : TBits_1; inline;
  36860. begin
  36861. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  36862. end;
  36863. procedure TUART4_U1BSTA.setURXISEL0; inline;
  36864. begin
  36865. pTDefRegMap(@Self)^.&set := $00000040;
  36866. end;
  36867. procedure TUART4_U1BSTA.clearURXISEL0; inline;
  36868. begin
  36869. pTDefRegMap(@Self)^.clr := $00000040;
  36870. end;
  36871. procedure TUART4_U1BSTA.setURXISEL0(thebits : TBits_1); inline;
  36872. begin
  36873. if thebits = 0 then
  36874. pTDefRegMap(@Self)^.clr := $00000040
  36875. else
  36876. pTDefRegMap(@Self)^.&set := $00000040;
  36877. end;
  36878. function TUART4_U1BSTA.getURXISEL0 : TBits_1; inline;
  36879. begin
  36880. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  36881. end;
  36882. procedure TUART4_U1BSTA.setURXISEL1; inline;
  36883. begin
  36884. pTDefRegMap(@Self)^.&set := $00000080;
  36885. end;
  36886. procedure TUART4_U1BSTA.clearURXISEL1; inline;
  36887. begin
  36888. pTDefRegMap(@Self)^.clr := $00000080;
  36889. end;
  36890. procedure TUART4_U1BSTA.setURXISEL1(thebits : TBits_1); inline;
  36891. begin
  36892. if thebits = 0 then
  36893. pTDefRegMap(@Self)^.clr := $00000080
  36894. else
  36895. pTDefRegMap(@Self)^.&set := $00000080;
  36896. end;
  36897. function TUART4_U1BSTA.getURXISEL1 : TBits_1; inline;
  36898. begin
  36899. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  36900. end;
  36901. procedure TUART4_U1BSTA.setUTXISEL0; inline;
  36902. begin
  36903. pTDefRegMap(@Self)^.&set := $00004000;
  36904. end;
  36905. procedure TUART4_U1BSTA.clearUTXISEL0; inline;
  36906. begin
  36907. pTDefRegMap(@Self)^.clr := $00004000;
  36908. end;
  36909. procedure TUART4_U1BSTA.setUTXISEL0(thebits : TBits_1); inline;
  36910. begin
  36911. if thebits = 0 then
  36912. pTDefRegMap(@Self)^.clr := $00004000
  36913. else
  36914. pTDefRegMap(@Self)^.&set := $00004000;
  36915. end;
  36916. function TUART4_U1BSTA.getUTXISEL0 : TBits_1; inline;
  36917. begin
  36918. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  36919. end;
  36920. procedure TUART4_U1BSTA.setUTXISEL1; inline;
  36921. begin
  36922. pTDefRegMap(@Self)^.&set := $00008000;
  36923. end;
  36924. procedure TUART4_U1BSTA.clearUTXISEL1; inline;
  36925. begin
  36926. pTDefRegMap(@Self)^.clr := $00008000;
  36927. end;
  36928. procedure TUART4_U1BSTA.setUTXISEL1(thebits : TBits_1); inline;
  36929. begin
  36930. if thebits = 0 then
  36931. pTDefRegMap(@Self)^.clr := $00008000
  36932. else
  36933. pTDefRegMap(@Self)^.&set := $00008000;
  36934. end;
  36935. function TUART4_U1BSTA.getUTXISEL1 : TBits_1; inline;
  36936. begin
  36937. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  36938. end;
  36939. procedure TUART4_U1BSTA.setUTXSEL(thebits : TBits_2); inline;
  36940. begin
  36941. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  36942. end;
  36943. function TUART4_U1BSTA.getUTXSEL : TBits_2; inline;
  36944. begin
  36945. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  36946. end;
  36947. procedure TUART4_U1BSTA.setw(thebits : TBits_32); inline;
  36948. begin
  36949. pTDefRegMap(@Self)^.val := thebits;
  36950. end;
  36951. function TUART4_U1BSTA.getw : TBits_32; inline;
  36952. begin
  36953. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  36954. end;
  36955. procedure TUART4_U4STA.setURXDA; inline;
  36956. begin
  36957. pTDefRegMap(@Self)^.&set := $00000001;
  36958. end;
  36959. procedure TUART4_U4STA.clearURXDA; inline;
  36960. begin
  36961. pTDefRegMap(@Self)^.clr := $00000001;
  36962. end;
  36963. procedure TUART4_U4STA.setURXDA(thebits : TBits_1); inline;
  36964. begin
  36965. if thebits = 0 then
  36966. pTDefRegMap(@Self)^.clr := $00000001
  36967. else
  36968. pTDefRegMap(@Self)^.&set := $00000001;
  36969. end;
  36970. function TUART4_U4STA.getURXDA : TBits_1; inline;
  36971. begin
  36972. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  36973. end;
  36974. procedure TUART4_U4STA.setOERR; inline;
  36975. begin
  36976. pTDefRegMap(@Self)^.&set := $00000002;
  36977. end;
  36978. procedure TUART4_U4STA.clearOERR; inline;
  36979. begin
  36980. pTDefRegMap(@Self)^.clr := $00000002;
  36981. end;
  36982. procedure TUART4_U4STA.setOERR(thebits : TBits_1); inline;
  36983. begin
  36984. if thebits = 0 then
  36985. pTDefRegMap(@Self)^.clr := $00000002
  36986. else
  36987. pTDefRegMap(@Self)^.&set := $00000002;
  36988. end;
  36989. function TUART4_U4STA.getOERR : TBits_1; inline;
  36990. begin
  36991. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  36992. end;
  36993. procedure TUART4_U4STA.setFERR; inline;
  36994. begin
  36995. pTDefRegMap(@Self)^.&set := $00000004;
  36996. end;
  36997. procedure TUART4_U4STA.clearFERR; inline;
  36998. begin
  36999. pTDefRegMap(@Self)^.clr := $00000004;
  37000. end;
  37001. procedure TUART4_U4STA.setFERR(thebits : TBits_1); inline;
  37002. begin
  37003. if thebits = 0 then
  37004. pTDefRegMap(@Self)^.clr := $00000004
  37005. else
  37006. pTDefRegMap(@Self)^.&set := $00000004;
  37007. end;
  37008. function TUART4_U4STA.getFERR : TBits_1; inline;
  37009. begin
  37010. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37011. end;
  37012. procedure TUART4_U4STA.setPERR; inline;
  37013. begin
  37014. pTDefRegMap(@Self)^.&set := $00000008;
  37015. end;
  37016. procedure TUART4_U4STA.clearPERR; inline;
  37017. begin
  37018. pTDefRegMap(@Self)^.clr := $00000008;
  37019. end;
  37020. procedure TUART4_U4STA.setPERR(thebits : TBits_1); inline;
  37021. begin
  37022. if thebits = 0 then
  37023. pTDefRegMap(@Self)^.clr := $00000008
  37024. else
  37025. pTDefRegMap(@Self)^.&set := $00000008;
  37026. end;
  37027. function TUART4_U4STA.getPERR : TBits_1; inline;
  37028. begin
  37029. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37030. end;
  37031. procedure TUART4_U4STA.setRIDLE; inline;
  37032. begin
  37033. pTDefRegMap(@Self)^.&set := $00000010;
  37034. end;
  37035. procedure TUART4_U4STA.clearRIDLE; inline;
  37036. begin
  37037. pTDefRegMap(@Self)^.clr := $00000010;
  37038. end;
  37039. procedure TUART4_U4STA.setRIDLE(thebits : TBits_1); inline;
  37040. begin
  37041. if thebits = 0 then
  37042. pTDefRegMap(@Self)^.clr := $00000010
  37043. else
  37044. pTDefRegMap(@Self)^.&set := $00000010;
  37045. end;
  37046. function TUART4_U4STA.getRIDLE : TBits_1; inline;
  37047. begin
  37048. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37049. end;
  37050. procedure TUART4_U4STA.setADDEN; inline;
  37051. begin
  37052. pTDefRegMap(@Self)^.&set := $00000020;
  37053. end;
  37054. procedure TUART4_U4STA.clearADDEN; inline;
  37055. begin
  37056. pTDefRegMap(@Self)^.clr := $00000020;
  37057. end;
  37058. procedure TUART4_U4STA.setADDEN(thebits : TBits_1); inline;
  37059. begin
  37060. if thebits = 0 then
  37061. pTDefRegMap(@Self)^.clr := $00000020
  37062. else
  37063. pTDefRegMap(@Self)^.&set := $00000020;
  37064. end;
  37065. function TUART4_U4STA.getADDEN : TBits_1; inline;
  37066. begin
  37067. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37068. end;
  37069. procedure TUART4_U4STA.setURXISEL(thebits : TBits_2); inline;
  37070. begin
  37071. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  37072. end;
  37073. function TUART4_U4STA.getURXISEL : TBits_2; inline;
  37074. begin
  37075. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  37076. end;
  37077. procedure TUART4_U4STA.setTRMT; inline;
  37078. begin
  37079. pTDefRegMap(@Self)^.&set := $00000100;
  37080. end;
  37081. procedure TUART4_U4STA.clearTRMT; inline;
  37082. begin
  37083. pTDefRegMap(@Self)^.clr := $00000100;
  37084. end;
  37085. procedure TUART4_U4STA.setTRMT(thebits : TBits_1); inline;
  37086. begin
  37087. if thebits = 0 then
  37088. pTDefRegMap(@Self)^.clr := $00000100
  37089. else
  37090. pTDefRegMap(@Self)^.&set := $00000100;
  37091. end;
  37092. function TUART4_U4STA.getTRMT : TBits_1; inline;
  37093. begin
  37094. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  37095. end;
  37096. procedure TUART4_U4STA.setUTXBF; inline;
  37097. begin
  37098. pTDefRegMap(@Self)^.&set := $00000200;
  37099. end;
  37100. procedure TUART4_U4STA.clearUTXBF; inline;
  37101. begin
  37102. pTDefRegMap(@Self)^.clr := $00000200;
  37103. end;
  37104. procedure TUART4_U4STA.setUTXBF(thebits : TBits_1); inline;
  37105. begin
  37106. if thebits = 0 then
  37107. pTDefRegMap(@Self)^.clr := $00000200
  37108. else
  37109. pTDefRegMap(@Self)^.&set := $00000200;
  37110. end;
  37111. function TUART4_U4STA.getUTXBF : TBits_1; inline;
  37112. begin
  37113. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  37114. end;
  37115. procedure TUART4_U4STA.setUTXEN; inline;
  37116. begin
  37117. pTDefRegMap(@Self)^.&set := $00000400;
  37118. end;
  37119. procedure TUART4_U4STA.clearUTXEN; inline;
  37120. begin
  37121. pTDefRegMap(@Self)^.clr := $00000400;
  37122. end;
  37123. procedure TUART4_U4STA.setUTXEN(thebits : TBits_1); inline;
  37124. begin
  37125. if thebits = 0 then
  37126. pTDefRegMap(@Self)^.clr := $00000400
  37127. else
  37128. pTDefRegMap(@Self)^.&set := $00000400;
  37129. end;
  37130. function TUART4_U4STA.getUTXEN : TBits_1; inline;
  37131. begin
  37132. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  37133. end;
  37134. procedure TUART4_U4STA.setUTXBRK; inline;
  37135. begin
  37136. pTDefRegMap(@Self)^.&set := $00000800;
  37137. end;
  37138. procedure TUART4_U4STA.clearUTXBRK; inline;
  37139. begin
  37140. pTDefRegMap(@Self)^.clr := $00000800;
  37141. end;
  37142. procedure TUART4_U4STA.setUTXBRK(thebits : TBits_1); inline;
  37143. begin
  37144. if thebits = 0 then
  37145. pTDefRegMap(@Self)^.clr := $00000800
  37146. else
  37147. pTDefRegMap(@Self)^.&set := $00000800;
  37148. end;
  37149. function TUART4_U4STA.getUTXBRK : TBits_1; inline;
  37150. begin
  37151. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  37152. end;
  37153. procedure TUART4_U4STA.setURXEN; inline;
  37154. begin
  37155. pTDefRegMap(@Self)^.&set := $00001000;
  37156. end;
  37157. procedure TUART4_U4STA.clearURXEN; inline;
  37158. begin
  37159. pTDefRegMap(@Self)^.clr := $00001000;
  37160. end;
  37161. procedure TUART4_U4STA.setURXEN(thebits : TBits_1); inline;
  37162. begin
  37163. if thebits = 0 then
  37164. pTDefRegMap(@Self)^.clr := $00001000
  37165. else
  37166. pTDefRegMap(@Self)^.&set := $00001000;
  37167. end;
  37168. function TUART4_U4STA.getURXEN : TBits_1; inline;
  37169. begin
  37170. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37171. end;
  37172. procedure TUART4_U4STA.setUTXINV; inline;
  37173. begin
  37174. pTDefRegMap(@Self)^.&set := $00002000;
  37175. end;
  37176. procedure TUART4_U4STA.clearUTXINV; inline;
  37177. begin
  37178. pTDefRegMap(@Self)^.clr := $00002000;
  37179. end;
  37180. procedure TUART4_U4STA.setUTXINV(thebits : TBits_1); inline;
  37181. begin
  37182. if thebits = 0 then
  37183. pTDefRegMap(@Self)^.clr := $00002000
  37184. else
  37185. pTDefRegMap(@Self)^.&set := $00002000;
  37186. end;
  37187. function TUART4_U4STA.getUTXINV : TBits_1; inline;
  37188. begin
  37189. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37190. end;
  37191. procedure TUART4_U4STA.setUTXISEL(thebits : TBits_2); inline;
  37192. begin
  37193. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37194. end;
  37195. function TUART4_U4STA.getUTXISEL : TBits_2; inline;
  37196. begin
  37197. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37198. end;
  37199. procedure TUART4_U4STA.setADDR(thebits : TBits_8); inline;
  37200. begin
  37201. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  37202. end;
  37203. function TUART4_U4STA.getADDR : TBits_8; inline;
  37204. begin
  37205. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  37206. end;
  37207. procedure TUART4_U4STA.setADM_EN; inline;
  37208. begin
  37209. pTDefRegMap(@Self)^.&set := $01000000;
  37210. end;
  37211. procedure TUART4_U4STA.clearADM_EN; inline;
  37212. begin
  37213. pTDefRegMap(@Self)^.clr := $01000000;
  37214. end;
  37215. procedure TUART4_U4STA.setADM_EN(thebits : TBits_1); inline;
  37216. begin
  37217. if thebits = 0 then
  37218. pTDefRegMap(@Self)^.clr := $01000000
  37219. else
  37220. pTDefRegMap(@Self)^.&set := $01000000;
  37221. end;
  37222. function TUART4_U4STA.getADM_EN : TBits_1; inline;
  37223. begin
  37224. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  37225. end;
  37226. procedure TUART4_U4STA.setURXISEL0; inline;
  37227. begin
  37228. pTDefRegMap(@Self)^.&set := $00000040;
  37229. end;
  37230. procedure TUART4_U4STA.clearURXISEL0; inline;
  37231. begin
  37232. pTDefRegMap(@Self)^.clr := $00000040;
  37233. end;
  37234. procedure TUART4_U4STA.setURXISEL0(thebits : TBits_1); inline;
  37235. begin
  37236. if thebits = 0 then
  37237. pTDefRegMap(@Self)^.clr := $00000040
  37238. else
  37239. pTDefRegMap(@Self)^.&set := $00000040;
  37240. end;
  37241. function TUART4_U4STA.getURXISEL0 : TBits_1; inline;
  37242. begin
  37243. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37244. end;
  37245. procedure TUART4_U4STA.setURXISEL1; inline;
  37246. begin
  37247. pTDefRegMap(@Self)^.&set := $00000080;
  37248. end;
  37249. procedure TUART4_U4STA.clearURXISEL1; inline;
  37250. begin
  37251. pTDefRegMap(@Self)^.clr := $00000080;
  37252. end;
  37253. procedure TUART4_U4STA.setURXISEL1(thebits : TBits_1); inline;
  37254. begin
  37255. if thebits = 0 then
  37256. pTDefRegMap(@Self)^.clr := $00000080
  37257. else
  37258. pTDefRegMap(@Self)^.&set := $00000080;
  37259. end;
  37260. function TUART4_U4STA.getURXISEL1 : TBits_1; inline;
  37261. begin
  37262. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37263. end;
  37264. procedure TUART4_U4STA.setUTXISEL0; inline;
  37265. begin
  37266. pTDefRegMap(@Self)^.&set := $00004000;
  37267. end;
  37268. procedure TUART4_U4STA.clearUTXISEL0; inline;
  37269. begin
  37270. pTDefRegMap(@Self)^.clr := $00004000;
  37271. end;
  37272. procedure TUART4_U4STA.setUTXISEL0(thebits : TBits_1); inline;
  37273. begin
  37274. if thebits = 0 then
  37275. pTDefRegMap(@Self)^.clr := $00004000
  37276. else
  37277. pTDefRegMap(@Self)^.&set := $00004000;
  37278. end;
  37279. function TUART4_U4STA.getUTXISEL0 : TBits_1; inline;
  37280. begin
  37281. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  37282. end;
  37283. procedure TUART4_U4STA.setUTXISEL1; inline;
  37284. begin
  37285. pTDefRegMap(@Self)^.&set := $00008000;
  37286. end;
  37287. procedure TUART4_U4STA.clearUTXISEL1; inline;
  37288. begin
  37289. pTDefRegMap(@Self)^.clr := $00008000;
  37290. end;
  37291. procedure TUART4_U4STA.setUTXISEL1(thebits : TBits_1); inline;
  37292. begin
  37293. if thebits = 0 then
  37294. pTDefRegMap(@Self)^.clr := $00008000
  37295. else
  37296. pTDefRegMap(@Self)^.&set := $00008000;
  37297. end;
  37298. function TUART4_U4STA.getUTXISEL1 : TBits_1; inline;
  37299. begin
  37300. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37301. end;
  37302. procedure TUART4_U4STA.setUTXSEL(thebits : TBits_2); inline;
  37303. begin
  37304. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  37305. end;
  37306. function TUART4_U4STA.getUTXSEL : TBits_2; inline;
  37307. begin
  37308. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  37309. end;
  37310. procedure TUART4_U4STA.setw(thebits : TBits_32); inline;
  37311. begin
  37312. pTDefRegMap(@Self)^.val := thebits;
  37313. end;
  37314. function TUART4_U4STA.getw : TBits_32; inline;
  37315. begin
  37316. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37317. end;
  37318. procedure TUART3_U2AMODE.setSTSEL; inline;
  37319. begin
  37320. pTDefRegMap(@Self)^.&set := $00000001;
  37321. end;
  37322. procedure TUART3_U2AMODE.clearSTSEL; inline;
  37323. begin
  37324. pTDefRegMap(@Self)^.clr := $00000001;
  37325. end;
  37326. procedure TUART3_U2AMODE.setSTSEL(thebits : TBits_1); inline;
  37327. begin
  37328. if thebits = 0 then
  37329. pTDefRegMap(@Self)^.clr := $00000001
  37330. else
  37331. pTDefRegMap(@Self)^.&set := $00000001;
  37332. end;
  37333. function TUART3_U2AMODE.getSTSEL : TBits_1; inline;
  37334. begin
  37335. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37336. end;
  37337. procedure TUART3_U2AMODE.setPDSEL(thebits : TBits_2); inline;
  37338. begin
  37339. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  37340. end;
  37341. function TUART3_U2AMODE.getPDSEL : TBits_2; inline;
  37342. begin
  37343. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  37344. end;
  37345. procedure TUART3_U2AMODE.setBRGH; inline;
  37346. begin
  37347. pTDefRegMap(@Self)^.&set := $00000008;
  37348. end;
  37349. procedure TUART3_U2AMODE.clearBRGH; inline;
  37350. begin
  37351. pTDefRegMap(@Self)^.clr := $00000008;
  37352. end;
  37353. procedure TUART3_U2AMODE.setBRGH(thebits : TBits_1); inline;
  37354. begin
  37355. if thebits = 0 then
  37356. pTDefRegMap(@Self)^.clr := $00000008
  37357. else
  37358. pTDefRegMap(@Self)^.&set := $00000008;
  37359. end;
  37360. function TUART3_U2AMODE.getBRGH : TBits_1; inline;
  37361. begin
  37362. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37363. end;
  37364. procedure TUART3_U2AMODE.setRXINV; inline;
  37365. begin
  37366. pTDefRegMap(@Self)^.&set := $00000010;
  37367. end;
  37368. procedure TUART3_U2AMODE.clearRXINV; inline;
  37369. begin
  37370. pTDefRegMap(@Self)^.clr := $00000010;
  37371. end;
  37372. procedure TUART3_U2AMODE.setRXINV(thebits : TBits_1); inline;
  37373. begin
  37374. if thebits = 0 then
  37375. pTDefRegMap(@Self)^.clr := $00000010
  37376. else
  37377. pTDefRegMap(@Self)^.&set := $00000010;
  37378. end;
  37379. function TUART3_U2AMODE.getRXINV : TBits_1; inline;
  37380. begin
  37381. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37382. end;
  37383. procedure TUART3_U2AMODE.setABAUD; inline;
  37384. begin
  37385. pTDefRegMap(@Self)^.&set := $00000020;
  37386. end;
  37387. procedure TUART3_U2AMODE.clearABAUD; inline;
  37388. begin
  37389. pTDefRegMap(@Self)^.clr := $00000020;
  37390. end;
  37391. procedure TUART3_U2AMODE.setABAUD(thebits : TBits_1); inline;
  37392. begin
  37393. if thebits = 0 then
  37394. pTDefRegMap(@Self)^.clr := $00000020
  37395. else
  37396. pTDefRegMap(@Self)^.&set := $00000020;
  37397. end;
  37398. function TUART3_U2AMODE.getABAUD : TBits_1; inline;
  37399. begin
  37400. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37401. end;
  37402. procedure TUART3_U2AMODE.setLPBACK; inline;
  37403. begin
  37404. pTDefRegMap(@Self)^.&set := $00000040;
  37405. end;
  37406. procedure TUART3_U2AMODE.clearLPBACK; inline;
  37407. begin
  37408. pTDefRegMap(@Self)^.clr := $00000040;
  37409. end;
  37410. procedure TUART3_U2AMODE.setLPBACK(thebits : TBits_1); inline;
  37411. begin
  37412. if thebits = 0 then
  37413. pTDefRegMap(@Self)^.clr := $00000040
  37414. else
  37415. pTDefRegMap(@Self)^.&set := $00000040;
  37416. end;
  37417. function TUART3_U2AMODE.getLPBACK : TBits_1; inline;
  37418. begin
  37419. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37420. end;
  37421. procedure TUART3_U2AMODE.setWAKE; inline;
  37422. begin
  37423. pTDefRegMap(@Self)^.&set := $00000080;
  37424. end;
  37425. procedure TUART3_U2AMODE.clearWAKE; inline;
  37426. begin
  37427. pTDefRegMap(@Self)^.clr := $00000080;
  37428. end;
  37429. procedure TUART3_U2AMODE.setWAKE(thebits : TBits_1); inline;
  37430. begin
  37431. if thebits = 0 then
  37432. pTDefRegMap(@Self)^.clr := $00000080
  37433. else
  37434. pTDefRegMap(@Self)^.&set := $00000080;
  37435. end;
  37436. function TUART3_U2AMODE.getWAKE : TBits_1; inline;
  37437. begin
  37438. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37439. end;
  37440. procedure TUART3_U2AMODE.setUEN(thebits : TBits_2); inline;
  37441. begin
  37442. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  37443. end;
  37444. function TUART3_U2AMODE.getUEN : TBits_2; inline;
  37445. begin
  37446. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  37447. end;
  37448. procedure TUART3_U2AMODE.setRTSMD; inline;
  37449. begin
  37450. pTDefRegMap(@Self)^.&set := $00000800;
  37451. end;
  37452. procedure TUART3_U2AMODE.clearRTSMD; inline;
  37453. begin
  37454. pTDefRegMap(@Self)^.clr := $00000800;
  37455. end;
  37456. procedure TUART3_U2AMODE.setRTSMD(thebits : TBits_1); inline;
  37457. begin
  37458. if thebits = 0 then
  37459. pTDefRegMap(@Self)^.clr := $00000800
  37460. else
  37461. pTDefRegMap(@Self)^.&set := $00000800;
  37462. end;
  37463. function TUART3_U2AMODE.getRTSMD : TBits_1; inline;
  37464. begin
  37465. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  37466. end;
  37467. procedure TUART3_U2AMODE.setIREN; inline;
  37468. begin
  37469. pTDefRegMap(@Self)^.&set := $00001000;
  37470. end;
  37471. procedure TUART3_U2AMODE.clearIREN; inline;
  37472. begin
  37473. pTDefRegMap(@Self)^.clr := $00001000;
  37474. end;
  37475. procedure TUART3_U2AMODE.setIREN(thebits : TBits_1); inline;
  37476. begin
  37477. if thebits = 0 then
  37478. pTDefRegMap(@Self)^.clr := $00001000
  37479. else
  37480. pTDefRegMap(@Self)^.&set := $00001000;
  37481. end;
  37482. function TUART3_U2AMODE.getIREN : TBits_1; inline;
  37483. begin
  37484. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37485. end;
  37486. procedure TUART3_U2AMODE.setSIDL; inline;
  37487. begin
  37488. pTDefRegMap(@Self)^.&set := $00002000;
  37489. end;
  37490. procedure TUART3_U2AMODE.clearSIDL; inline;
  37491. begin
  37492. pTDefRegMap(@Self)^.clr := $00002000;
  37493. end;
  37494. procedure TUART3_U2AMODE.setSIDL(thebits : TBits_1); inline;
  37495. begin
  37496. if thebits = 0 then
  37497. pTDefRegMap(@Self)^.clr := $00002000
  37498. else
  37499. pTDefRegMap(@Self)^.&set := $00002000;
  37500. end;
  37501. function TUART3_U2AMODE.getSIDL : TBits_1; inline;
  37502. begin
  37503. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37504. end;
  37505. procedure TUART3_U2AMODE.setON; inline;
  37506. begin
  37507. pTDefRegMap(@Self)^.&set := $00008000;
  37508. end;
  37509. procedure TUART3_U2AMODE.clearON; inline;
  37510. begin
  37511. pTDefRegMap(@Self)^.clr := $00008000;
  37512. end;
  37513. procedure TUART3_U2AMODE.setON(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 TUART3_U2AMODE.getON : TBits_1; inline;
  37521. begin
  37522. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37523. end;
  37524. procedure TUART3_U2AMODE.setPDSEL0; inline;
  37525. begin
  37526. pTDefRegMap(@Self)^.&set := $00000002;
  37527. end;
  37528. procedure TUART3_U2AMODE.clearPDSEL0; inline;
  37529. begin
  37530. pTDefRegMap(@Self)^.clr := $00000002;
  37531. end;
  37532. procedure TUART3_U2AMODE.setPDSEL0(thebits : TBits_1); inline;
  37533. begin
  37534. if thebits = 0 then
  37535. pTDefRegMap(@Self)^.clr := $00000002
  37536. else
  37537. pTDefRegMap(@Self)^.&set := $00000002;
  37538. end;
  37539. function TUART3_U2AMODE.getPDSEL0 : TBits_1; inline;
  37540. begin
  37541. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37542. end;
  37543. procedure TUART3_U2AMODE.setPDSEL1; inline;
  37544. begin
  37545. pTDefRegMap(@Self)^.&set := $00000004;
  37546. end;
  37547. procedure TUART3_U2AMODE.clearPDSEL1; inline;
  37548. begin
  37549. pTDefRegMap(@Self)^.clr := $00000004;
  37550. end;
  37551. procedure TUART3_U2AMODE.setPDSEL1(thebits : TBits_1); inline;
  37552. begin
  37553. if thebits = 0 then
  37554. pTDefRegMap(@Self)^.clr := $00000004
  37555. else
  37556. pTDefRegMap(@Self)^.&set := $00000004;
  37557. end;
  37558. function TUART3_U2AMODE.getPDSEL1 : TBits_1; inline;
  37559. begin
  37560. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37561. end;
  37562. procedure TUART3_U2AMODE.setUEN0; inline;
  37563. begin
  37564. pTDefRegMap(@Self)^.&set := $00000100;
  37565. end;
  37566. procedure TUART3_U2AMODE.clearUEN0; inline;
  37567. begin
  37568. pTDefRegMap(@Self)^.clr := $00000100;
  37569. end;
  37570. procedure TUART3_U2AMODE.setUEN0(thebits : TBits_1); inline;
  37571. begin
  37572. if thebits = 0 then
  37573. pTDefRegMap(@Self)^.clr := $00000100
  37574. else
  37575. pTDefRegMap(@Self)^.&set := $00000100;
  37576. end;
  37577. function TUART3_U2AMODE.getUEN0 : TBits_1; inline;
  37578. begin
  37579. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  37580. end;
  37581. procedure TUART3_U2AMODE.setUEN1; inline;
  37582. begin
  37583. pTDefRegMap(@Self)^.&set := $00000200;
  37584. end;
  37585. procedure TUART3_U2AMODE.clearUEN1; inline;
  37586. begin
  37587. pTDefRegMap(@Self)^.clr := $00000200;
  37588. end;
  37589. procedure TUART3_U2AMODE.setUEN1(thebits : TBits_1); inline;
  37590. begin
  37591. if thebits = 0 then
  37592. pTDefRegMap(@Self)^.clr := $00000200
  37593. else
  37594. pTDefRegMap(@Self)^.&set := $00000200;
  37595. end;
  37596. function TUART3_U2AMODE.getUEN1 : TBits_1; inline;
  37597. begin
  37598. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  37599. end;
  37600. procedure TUART3_U2AMODE.setUSIDL; inline;
  37601. begin
  37602. pTDefRegMap(@Self)^.&set := $00002000;
  37603. end;
  37604. procedure TUART3_U2AMODE.clearUSIDL; inline;
  37605. begin
  37606. pTDefRegMap(@Self)^.clr := $00002000;
  37607. end;
  37608. procedure TUART3_U2AMODE.setUSIDL(thebits : TBits_1); inline;
  37609. begin
  37610. if thebits = 0 then
  37611. pTDefRegMap(@Self)^.clr := $00002000
  37612. else
  37613. pTDefRegMap(@Self)^.&set := $00002000;
  37614. end;
  37615. function TUART3_U2AMODE.getUSIDL : TBits_1; inline;
  37616. begin
  37617. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37618. end;
  37619. procedure TUART3_U2AMODE.setUARTEN; inline;
  37620. begin
  37621. pTDefRegMap(@Self)^.&set := $00008000;
  37622. end;
  37623. procedure TUART3_U2AMODE.clearUARTEN; inline;
  37624. begin
  37625. pTDefRegMap(@Self)^.clr := $00008000;
  37626. end;
  37627. procedure TUART3_U2AMODE.setUARTEN(thebits : TBits_1); inline;
  37628. begin
  37629. if thebits = 0 then
  37630. pTDefRegMap(@Self)^.clr := $00008000
  37631. else
  37632. pTDefRegMap(@Self)^.&set := $00008000;
  37633. end;
  37634. function TUART3_U2AMODE.getUARTEN : TBits_1; inline;
  37635. begin
  37636. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37637. end;
  37638. procedure TUART3_U2AMODE.setw(thebits : TBits_32); inline;
  37639. begin
  37640. pTDefRegMap(@Self)^.val := thebits;
  37641. end;
  37642. function TUART3_U2AMODE.getw : TBits_32; inline;
  37643. begin
  37644. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37645. end;
  37646. procedure TUART3_U3MODE.setSTSEL; inline;
  37647. begin
  37648. pTDefRegMap(@Self)^.&set := $00000001;
  37649. end;
  37650. procedure TUART3_U3MODE.clearSTSEL; inline;
  37651. begin
  37652. pTDefRegMap(@Self)^.clr := $00000001;
  37653. end;
  37654. procedure TUART3_U3MODE.setSTSEL(thebits : TBits_1); inline;
  37655. begin
  37656. if thebits = 0 then
  37657. pTDefRegMap(@Self)^.clr := $00000001
  37658. else
  37659. pTDefRegMap(@Self)^.&set := $00000001;
  37660. end;
  37661. function TUART3_U3MODE.getSTSEL : TBits_1; inline;
  37662. begin
  37663. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37664. end;
  37665. procedure TUART3_U3MODE.setPDSEL(thebits : TBits_2); inline;
  37666. begin
  37667. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  37668. end;
  37669. function TUART3_U3MODE.getPDSEL : TBits_2; inline;
  37670. begin
  37671. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  37672. end;
  37673. procedure TUART3_U3MODE.setBRGH; inline;
  37674. begin
  37675. pTDefRegMap(@Self)^.&set := $00000008;
  37676. end;
  37677. procedure TUART3_U3MODE.clearBRGH; inline;
  37678. begin
  37679. pTDefRegMap(@Self)^.clr := $00000008;
  37680. end;
  37681. procedure TUART3_U3MODE.setBRGH(thebits : TBits_1); inline;
  37682. begin
  37683. if thebits = 0 then
  37684. pTDefRegMap(@Self)^.clr := $00000008
  37685. else
  37686. pTDefRegMap(@Self)^.&set := $00000008;
  37687. end;
  37688. function TUART3_U3MODE.getBRGH : TBits_1; inline;
  37689. begin
  37690. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  37691. end;
  37692. procedure TUART3_U3MODE.setRXINV; inline;
  37693. begin
  37694. pTDefRegMap(@Self)^.&set := $00000010;
  37695. end;
  37696. procedure TUART3_U3MODE.clearRXINV; inline;
  37697. begin
  37698. pTDefRegMap(@Self)^.clr := $00000010;
  37699. end;
  37700. procedure TUART3_U3MODE.setRXINV(thebits : TBits_1); inline;
  37701. begin
  37702. if thebits = 0 then
  37703. pTDefRegMap(@Self)^.clr := $00000010
  37704. else
  37705. pTDefRegMap(@Self)^.&set := $00000010;
  37706. end;
  37707. function TUART3_U3MODE.getRXINV : TBits_1; inline;
  37708. begin
  37709. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  37710. end;
  37711. procedure TUART3_U3MODE.setABAUD; inline;
  37712. begin
  37713. pTDefRegMap(@Self)^.&set := $00000020;
  37714. end;
  37715. procedure TUART3_U3MODE.clearABAUD; inline;
  37716. begin
  37717. pTDefRegMap(@Self)^.clr := $00000020;
  37718. end;
  37719. procedure TUART3_U3MODE.setABAUD(thebits : TBits_1); inline;
  37720. begin
  37721. if thebits = 0 then
  37722. pTDefRegMap(@Self)^.clr := $00000020
  37723. else
  37724. pTDefRegMap(@Self)^.&set := $00000020;
  37725. end;
  37726. function TUART3_U3MODE.getABAUD : TBits_1; inline;
  37727. begin
  37728. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  37729. end;
  37730. procedure TUART3_U3MODE.setLPBACK; inline;
  37731. begin
  37732. pTDefRegMap(@Self)^.&set := $00000040;
  37733. end;
  37734. procedure TUART3_U3MODE.clearLPBACK; inline;
  37735. begin
  37736. pTDefRegMap(@Self)^.clr := $00000040;
  37737. end;
  37738. procedure TUART3_U3MODE.setLPBACK(thebits : TBits_1); inline;
  37739. begin
  37740. if thebits = 0 then
  37741. pTDefRegMap(@Self)^.clr := $00000040
  37742. else
  37743. pTDefRegMap(@Self)^.&set := $00000040;
  37744. end;
  37745. function TUART3_U3MODE.getLPBACK : TBits_1; inline;
  37746. begin
  37747. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  37748. end;
  37749. procedure TUART3_U3MODE.setWAKE; inline;
  37750. begin
  37751. pTDefRegMap(@Self)^.&set := $00000080;
  37752. end;
  37753. procedure TUART3_U3MODE.clearWAKE; inline;
  37754. begin
  37755. pTDefRegMap(@Self)^.clr := $00000080;
  37756. end;
  37757. procedure TUART3_U3MODE.setWAKE(thebits : TBits_1); inline;
  37758. begin
  37759. if thebits = 0 then
  37760. pTDefRegMap(@Self)^.clr := $00000080
  37761. else
  37762. pTDefRegMap(@Self)^.&set := $00000080;
  37763. end;
  37764. function TUART3_U3MODE.getWAKE : TBits_1; inline;
  37765. begin
  37766. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  37767. end;
  37768. procedure TUART3_U3MODE.setUEN(thebits : TBits_2); inline;
  37769. begin
  37770. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  37771. end;
  37772. function TUART3_U3MODE.getUEN : TBits_2; inline;
  37773. begin
  37774. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  37775. end;
  37776. procedure TUART3_U3MODE.setRTSMD; inline;
  37777. begin
  37778. pTDefRegMap(@Self)^.&set := $00000800;
  37779. end;
  37780. procedure TUART3_U3MODE.clearRTSMD; inline;
  37781. begin
  37782. pTDefRegMap(@Self)^.clr := $00000800;
  37783. end;
  37784. procedure TUART3_U3MODE.setRTSMD(thebits : TBits_1); inline;
  37785. begin
  37786. if thebits = 0 then
  37787. pTDefRegMap(@Self)^.clr := $00000800
  37788. else
  37789. pTDefRegMap(@Self)^.&set := $00000800;
  37790. end;
  37791. function TUART3_U3MODE.getRTSMD : TBits_1; inline;
  37792. begin
  37793. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  37794. end;
  37795. procedure TUART3_U3MODE.setIREN; inline;
  37796. begin
  37797. pTDefRegMap(@Self)^.&set := $00001000;
  37798. end;
  37799. procedure TUART3_U3MODE.clearIREN; inline;
  37800. begin
  37801. pTDefRegMap(@Self)^.clr := $00001000;
  37802. end;
  37803. procedure TUART3_U3MODE.setIREN(thebits : TBits_1); inline;
  37804. begin
  37805. if thebits = 0 then
  37806. pTDefRegMap(@Self)^.clr := $00001000
  37807. else
  37808. pTDefRegMap(@Self)^.&set := $00001000;
  37809. end;
  37810. function TUART3_U3MODE.getIREN : TBits_1; inline;
  37811. begin
  37812. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  37813. end;
  37814. procedure TUART3_U3MODE.setSIDL; inline;
  37815. begin
  37816. pTDefRegMap(@Self)^.&set := $00002000;
  37817. end;
  37818. procedure TUART3_U3MODE.clearSIDL; inline;
  37819. begin
  37820. pTDefRegMap(@Self)^.clr := $00002000;
  37821. end;
  37822. procedure TUART3_U3MODE.setSIDL(thebits : TBits_1); inline;
  37823. begin
  37824. if thebits = 0 then
  37825. pTDefRegMap(@Self)^.clr := $00002000
  37826. else
  37827. pTDefRegMap(@Self)^.&set := $00002000;
  37828. end;
  37829. function TUART3_U3MODE.getSIDL : TBits_1; inline;
  37830. begin
  37831. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37832. end;
  37833. procedure TUART3_U3MODE.setON; inline;
  37834. begin
  37835. pTDefRegMap(@Self)^.&set := $00008000;
  37836. end;
  37837. procedure TUART3_U3MODE.clearON; inline;
  37838. begin
  37839. pTDefRegMap(@Self)^.clr := $00008000;
  37840. end;
  37841. procedure TUART3_U3MODE.setON(thebits : TBits_1); inline;
  37842. begin
  37843. if thebits = 0 then
  37844. pTDefRegMap(@Self)^.clr := $00008000
  37845. else
  37846. pTDefRegMap(@Self)^.&set := $00008000;
  37847. end;
  37848. function TUART3_U3MODE.getON : TBits_1; inline;
  37849. begin
  37850. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37851. end;
  37852. procedure TUART3_U3MODE.setPDSEL0; inline;
  37853. begin
  37854. pTDefRegMap(@Self)^.&set := $00000002;
  37855. end;
  37856. procedure TUART3_U3MODE.clearPDSEL0; inline;
  37857. begin
  37858. pTDefRegMap(@Self)^.clr := $00000002;
  37859. end;
  37860. procedure TUART3_U3MODE.setPDSEL0(thebits : TBits_1); inline;
  37861. begin
  37862. if thebits = 0 then
  37863. pTDefRegMap(@Self)^.clr := $00000002
  37864. else
  37865. pTDefRegMap(@Self)^.&set := $00000002;
  37866. end;
  37867. function TUART3_U3MODE.getPDSEL0 : TBits_1; inline;
  37868. begin
  37869. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  37870. end;
  37871. procedure TUART3_U3MODE.setPDSEL1; inline;
  37872. begin
  37873. pTDefRegMap(@Self)^.&set := $00000004;
  37874. end;
  37875. procedure TUART3_U3MODE.clearPDSEL1; inline;
  37876. begin
  37877. pTDefRegMap(@Self)^.clr := $00000004;
  37878. end;
  37879. procedure TUART3_U3MODE.setPDSEL1(thebits : TBits_1); inline;
  37880. begin
  37881. if thebits = 0 then
  37882. pTDefRegMap(@Self)^.clr := $00000004
  37883. else
  37884. pTDefRegMap(@Self)^.&set := $00000004;
  37885. end;
  37886. function TUART3_U3MODE.getPDSEL1 : TBits_1; inline;
  37887. begin
  37888. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  37889. end;
  37890. procedure TUART3_U3MODE.setUEN0; inline;
  37891. begin
  37892. pTDefRegMap(@Self)^.&set := $00000100;
  37893. end;
  37894. procedure TUART3_U3MODE.clearUEN0; inline;
  37895. begin
  37896. pTDefRegMap(@Self)^.clr := $00000100;
  37897. end;
  37898. procedure TUART3_U3MODE.setUEN0(thebits : TBits_1); inline;
  37899. begin
  37900. if thebits = 0 then
  37901. pTDefRegMap(@Self)^.clr := $00000100
  37902. else
  37903. pTDefRegMap(@Self)^.&set := $00000100;
  37904. end;
  37905. function TUART3_U3MODE.getUEN0 : TBits_1; inline;
  37906. begin
  37907. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  37908. end;
  37909. procedure TUART3_U3MODE.setUEN1; inline;
  37910. begin
  37911. pTDefRegMap(@Self)^.&set := $00000200;
  37912. end;
  37913. procedure TUART3_U3MODE.clearUEN1; inline;
  37914. begin
  37915. pTDefRegMap(@Self)^.clr := $00000200;
  37916. end;
  37917. procedure TUART3_U3MODE.setUEN1(thebits : TBits_1); inline;
  37918. begin
  37919. if thebits = 0 then
  37920. pTDefRegMap(@Self)^.clr := $00000200
  37921. else
  37922. pTDefRegMap(@Self)^.&set := $00000200;
  37923. end;
  37924. function TUART3_U3MODE.getUEN1 : TBits_1; inline;
  37925. begin
  37926. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  37927. end;
  37928. procedure TUART3_U3MODE.setUSIDL; inline;
  37929. begin
  37930. pTDefRegMap(@Self)^.&set := $00002000;
  37931. end;
  37932. procedure TUART3_U3MODE.clearUSIDL; inline;
  37933. begin
  37934. pTDefRegMap(@Self)^.clr := $00002000;
  37935. end;
  37936. procedure TUART3_U3MODE.setUSIDL(thebits : TBits_1); inline;
  37937. begin
  37938. if thebits = 0 then
  37939. pTDefRegMap(@Self)^.clr := $00002000
  37940. else
  37941. pTDefRegMap(@Self)^.&set := $00002000;
  37942. end;
  37943. function TUART3_U3MODE.getUSIDL : TBits_1; inline;
  37944. begin
  37945. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  37946. end;
  37947. procedure TUART3_U3MODE.setUARTEN; inline;
  37948. begin
  37949. pTDefRegMap(@Self)^.&set := $00008000;
  37950. end;
  37951. procedure TUART3_U3MODE.clearUARTEN; inline;
  37952. begin
  37953. pTDefRegMap(@Self)^.clr := $00008000;
  37954. end;
  37955. procedure TUART3_U3MODE.setUARTEN(thebits : TBits_1); inline;
  37956. begin
  37957. if thebits = 0 then
  37958. pTDefRegMap(@Self)^.clr := $00008000
  37959. else
  37960. pTDefRegMap(@Self)^.&set := $00008000;
  37961. end;
  37962. function TUART3_U3MODE.getUARTEN : TBits_1; inline;
  37963. begin
  37964. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  37965. end;
  37966. procedure TUART3_U3MODE.setw(thebits : TBits_32); inline;
  37967. begin
  37968. pTDefRegMap(@Self)^.val := thebits;
  37969. end;
  37970. function TUART3_U3MODE.getw : TBits_32; inline;
  37971. begin
  37972. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  37973. end;
  37974. procedure TUART3_U2ASTA.setURXDA; inline;
  37975. begin
  37976. pTDefRegMap(@Self)^.&set := $00000001;
  37977. end;
  37978. procedure TUART3_U2ASTA.clearURXDA; inline;
  37979. begin
  37980. pTDefRegMap(@Self)^.clr := $00000001;
  37981. end;
  37982. procedure TUART3_U2ASTA.setURXDA(thebits : TBits_1); inline;
  37983. begin
  37984. if thebits = 0 then
  37985. pTDefRegMap(@Self)^.clr := $00000001
  37986. else
  37987. pTDefRegMap(@Self)^.&set := $00000001;
  37988. end;
  37989. function TUART3_U2ASTA.getURXDA : TBits_1; inline;
  37990. begin
  37991. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  37992. end;
  37993. procedure TUART3_U2ASTA.setOERR; inline;
  37994. begin
  37995. pTDefRegMap(@Self)^.&set := $00000002;
  37996. end;
  37997. procedure TUART3_U2ASTA.clearOERR; inline;
  37998. begin
  37999. pTDefRegMap(@Self)^.clr := $00000002;
  38000. end;
  38001. procedure TUART3_U2ASTA.setOERR(thebits : TBits_1); inline;
  38002. begin
  38003. if thebits = 0 then
  38004. pTDefRegMap(@Self)^.clr := $00000002
  38005. else
  38006. pTDefRegMap(@Self)^.&set := $00000002;
  38007. end;
  38008. function TUART3_U2ASTA.getOERR : TBits_1; inline;
  38009. begin
  38010. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38011. end;
  38012. procedure TUART3_U2ASTA.setFERR; inline;
  38013. begin
  38014. pTDefRegMap(@Self)^.&set := $00000004;
  38015. end;
  38016. procedure TUART3_U2ASTA.clearFERR; inline;
  38017. begin
  38018. pTDefRegMap(@Self)^.clr := $00000004;
  38019. end;
  38020. procedure TUART3_U2ASTA.setFERR(thebits : TBits_1); inline;
  38021. begin
  38022. if thebits = 0 then
  38023. pTDefRegMap(@Self)^.clr := $00000004
  38024. else
  38025. pTDefRegMap(@Self)^.&set := $00000004;
  38026. end;
  38027. function TUART3_U2ASTA.getFERR : TBits_1; inline;
  38028. begin
  38029. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38030. end;
  38031. procedure TUART3_U2ASTA.setPERR; inline;
  38032. begin
  38033. pTDefRegMap(@Self)^.&set := $00000008;
  38034. end;
  38035. procedure TUART3_U2ASTA.clearPERR; inline;
  38036. begin
  38037. pTDefRegMap(@Self)^.clr := $00000008;
  38038. end;
  38039. procedure TUART3_U2ASTA.setPERR(thebits : TBits_1); inline;
  38040. begin
  38041. if thebits = 0 then
  38042. pTDefRegMap(@Self)^.clr := $00000008
  38043. else
  38044. pTDefRegMap(@Self)^.&set := $00000008;
  38045. end;
  38046. function TUART3_U2ASTA.getPERR : TBits_1; inline;
  38047. begin
  38048. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38049. end;
  38050. procedure TUART3_U2ASTA.setRIDLE; inline;
  38051. begin
  38052. pTDefRegMap(@Self)^.&set := $00000010;
  38053. end;
  38054. procedure TUART3_U2ASTA.clearRIDLE; inline;
  38055. begin
  38056. pTDefRegMap(@Self)^.clr := $00000010;
  38057. end;
  38058. procedure TUART3_U2ASTA.setRIDLE(thebits : TBits_1); inline;
  38059. begin
  38060. if thebits = 0 then
  38061. pTDefRegMap(@Self)^.clr := $00000010
  38062. else
  38063. pTDefRegMap(@Self)^.&set := $00000010;
  38064. end;
  38065. function TUART3_U2ASTA.getRIDLE : TBits_1; inline;
  38066. begin
  38067. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38068. end;
  38069. procedure TUART3_U2ASTA.setADDEN; inline;
  38070. begin
  38071. pTDefRegMap(@Self)^.&set := $00000020;
  38072. end;
  38073. procedure TUART3_U2ASTA.clearADDEN; inline;
  38074. begin
  38075. pTDefRegMap(@Self)^.clr := $00000020;
  38076. end;
  38077. procedure TUART3_U2ASTA.setADDEN(thebits : TBits_1); inline;
  38078. begin
  38079. if thebits = 0 then
  38080. pTDefRegMap(@Self)^.clr := $00000020
  38081. else
  38082. pTDefRegMap(@Self)^.&set := $00000020;
  38083. end;
  38084. function TUART3_U2ASTA.getADDEN : TBits_1; inline;
  38085. begin
  38086. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38087. end;
  38088. procedure TUART3_U2ASTA.setURXISEL(thebits : TBits_2); inline;
  38089. begin
  38090. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  38091. end;
  38092. function TUART3_U2ASTA.getURXISEL : TBits_2; inline;
  38093. begin
  38094. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  38095. end;
  38096. procedure TUART3_U2ASTA.setTRMT; inline;
  38097. begin
  38098. pTDefRegMap(@Self)^.&set := $00000100;
  38099. end;
  38100. procedure TUART3_U2ASTA.clearTRMT; inline;
  38101. begin
  38102. pTDefRegMap(@Self)^.clr := $00000100;
  38103. end;
  38104. procedure TUART3_U2ASTA.setTRMT(thebits : TBits_1); inline;
  38105. begin
  38106. if thebits = 0 then
  38107. pTDefRegMap(@Self)^.clr := $00000100
  38108. else
  38109. pTDefRegMap(@Self)^.&set := $00000100;
  38110. end;
  38111. function TUART3_U2ASTA.getTRMT : TBits_1; inline;
  38112. begin
  38113. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38114. end;
  38115. procedure TUART3_U2ASTA.setUTXBF; inline;
  38116. begin
  38117. pTDefRegMap(@Self)^.&set := $00000200;
  38118. end;
  38119. procedure TUART3_U2ASTA.clearUTXBF; inline;
  38120. begin
  38121. pTDefRegMap(@Self)^.clr := $00000200;
  38122. end;
  38123. procedure TUART3_U2ASTA.setUTXBF(thebits : TBits_1); inline;
  38124. begin
  38125. if thebits = 0 then
  38126. pTDefRegMap(@Self)^.clr := $00000200
  38127. else
  38128. pTDefRegMap(@Self)^.&set := $00000200;
  38129. end;
  38130. function TUART3_U2ASTA.getUTXBF : TBits_1; inline;
  38131. begin
  38132. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38133. end;
  38134. procedure TUART3_U2ASTA.setUTXEN; inline;
  38135. begin
  38136. pTDefRegMap(@Self)^.&set := $00000400;
  38137. end;
  38138. procedure TUART3_U2ASTA.clearUTXEN; inline;
  38139. begin
  38140. pTDefRegMap(@Self)^.clr := $00000400;
  38141. end;
  38142. procedure TUART3_U2ASTA.setUTXEN(thebits : TBits_1); inline;
  38143. begin
  38144. if thebits = 0 then
  38145. pTDefRegMap(@Self)^.clr := $00000400
  38146. else
  38147. pTDefRegMap(@Self)^.&set := $00000400;
  38148. end;
  38149. function TUART3_U2ASTA.getUTXEN : TBits_1; inline;
  38150. begin
  38151. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  38152. end;
  38153. procedure TUART3_U2ASTA.setUTXBRK; inline;
  38154. begin
  38155. pTDefRegMap(@Self)^.&set := $00000800;
  38156. end;
  38157. procedure TUART3_U2ASTA.clearUTXBRK; inline;
  38158. begin
  38159. pTDefRegMap(@Self)^.clr := $00000800;
  38160. end;
  38161. procedure TUART3_U2ASTA.setUTXBRK(thebits : TBits_1); inline;
  38162. begin
  38163. if thebits = 0 then
  38164. pTDefRegMap(@Self)^.clr := $00000800
  38165. else
  38166. pTDefRegMap(@Self)^.&set := $00000800;
  38167. end;
  38168. function TUART3_U2ASTA.getUTXBRK : TBits_1; inline;
  38169. begin
  38170. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38171. end;
  38172. procedure TUART3_U2ASTA.setURXEN; inline;
  38173. begin
  38174. pTDefRegMap(@Self)^.&set := $00001000;
  38175. end;
  38176. procedure TUART3_U2ASTA.clearURXEN; inline;
  38177. begin
  38178. pTDefRegMap(@Self)^.clr := $00001000;
  38179. end;
  38180. procedure TUART3_U2ASTA.setURXEN(thebits : TBits_1); inline;
  38181. begin
  38182. if thebits = 0 then
  38183. pTDefRegMap(@Self)^.clr := $00001000
  38184. else
  38185. pTDefRegMap(@Self)^.&set := $00001000;
  38186. end;
  38187. function TUART3_U2ASTA.getURXEN : TBits_1; inline;
  38188. begin
  38189. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38190. end;
  38191. procedure TUART3_U2ASTA.setUTXINV; inline;
  38192. begin
  38193. pTDefRegMap(@Self)^.&set := $00002000;
  38194. end;
  38195. procedure TUART3_U2ASTA.clearUTXINV; inline;
  38196. begin
  38197. pTDefRegMap(@Self)^.clr := $00002000;
  38198. end;
  38199. procedure TUART3_U2ASTA.setUTXINV(thebits : TBits_1); inline;
  38200. begin
  38201. if thebits = 0 then
  38202. pTDefRegMap(@Self)^.clr := $00002000
  38203. else
  38204. pTDefRegMap(@Self)^.&set := $00002000;
  38205. end;
  38206. function TUART3_U2ASTA.getUTXINV : TBits_1; inline;
  38207. begin
  38208. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38209. end;
  38210. procedure TUART3_U2ASTA.setUTXISEL(thebits : TBits_2); inline;
  38211. begin
  38212. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38213. end;
  38214. function TUART3_U2ASTA.getUTXISEL : TBits_2; inline;
  38215. begin
  38216. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38217. end;
  38218. procedure TUART3_U2ASTA.setADDR(thebits : TBits_8); inline;
  38219. begin
  38220. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  38221. end;
  38222. function TUART3_U2ASTA.getADDR : TBits_8; inline;
  38223. begin
  38224. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  38225. end;
  38226. procedure TUART3_U2ASTA.setADM_EN; inline;
  38227. begin
  38228. pTDefRegMap(@Self)^.&set := $01000000;
  38229. end;
  38230. procedure TUART3_U2ASTA.clearADM_EN; inline;
  38231. begin
  38232. pTDefRegMap(@Self)^.clr := $01000000;
  38233. end;
  38234. procedure TUART3_U2ASTA.setADM_EN(thebits : TBits_1); inline;
  38235. begin
  38236. if thebits = 0 then
  38237. pTDefRegMap(@Self)^.clr := $01000000
  38238. else
  38239. pTDefRegMap(@Self)^.&set := $01000000;
  38240. end;
  38241. function TUART3_U2ASTA.getADM_EN : TBits_1; inline;
  38242. begin
  38243. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  38244. end;
  38245. procedure TUART3_U2ASTA.setURXISEL0; inline;
  38246. begin
  38247. pTDefRegMap(@Self)^.&set := $00000040;
  38248. end;
  38249. procedure TUART3_U2ASTA.clearURXISEL0; inline;
  38250. begin
  38251. pTDefRegMap(@Self)^.clr := $00000040;
  38252. end;
  38253. procedure TUART3_U2ASTA.setURXISEL0(thebits : TBits_1); inline;
  38254. begin
  38255. if thebits = 0 then
  38256. pTDefRegMap(@Self)^.clr := $00000040
  38257. else
  38258. pTDefRegMap(@Self)^.&set := $00000040;
  38259. end;
  38260. function TUART3_U2ASTA.getURXISEL0 : TBits_1; inline;
  38261. begin
  38262. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38263. end;
  38264. procedure TUART3_U2ASTA.setURXISEL1; inline;
  38265. begin
  38266. pTDefRegMap(@Self)^.&set := $00000080;
  38267. end;
  38268. procedure TUART3_U2ASTA.clearURXISEL1; inline;
  38269. begin
  38270. pTDefRegMap(@Self)^.clr := $00000080;
  38271. end;
  38272. procedure TUART3_U2ASTA.setURXISEL1(thebits : TBits_1); inline;
  38273. begin
  38274. if thebits = 0 then
  38275. pTDefRegMap(@Self)^.clr := $00000080
  38276. else
  38277. pTDefRegMap(@Self)^.&set := $00000080;
  38278. end;
  38279. function TUART3_U2ASTA.getURXISEL1 : TBits_1; inline;
  38280. begin
  38281. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38282. end;
  38283. procedure TUART3_U2ASTA.setUTXISEL0; inline;
  38284. begin
  38285. pTDefRegMap(@Self)^.&set := $00004000;
  38286. end;
  38287. procedure TUART3_U2ASTA.clearUTXISEL0; inline;
  38288. begin
  38289. pTDefRegMap(@Self)^.clr := $00004000;
  38290. end;
  38291. procedure TUART3_U2ASTA.setUTXISEL0(thebits : TBits_1); inline;
  38292. begin
  38293. if thebits = 0 then
  38294. pTDefRegMap(@Self)^.clr := $00004000
  38295. else
  38296. pTDefRegMap(@Self)^.&set := $00004000;
  38297. end;
  38298. function TUART3_U2ASTA.getUTXISEL0 : TBits_1; inline;
  38299. begin
  38300. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  38301. end;
  38302. procedure TUART3_U2ASTA.setUTXISEL1; inline;
  38303. begin
  38304. pTDefRegMap(@Self)^.&set := $00008000;
  38305. end;
  38306. procedure TUART3_U2ASTA.clearUTXISEL1; inline;
  38307. begin
  38308. pTDefRegMap(@Self)^.clr := $00008000;
  38309. end;
  38310. procedure TUART3_U2ASTA.setUTXISEL1(thebits : TBits_1); inline;
  38311. begin
  38312. if thebits = 0 then
  38313. pTDefRegMap(@Self)^.clr := $00008000
  38314. else
  38315. pTDefRegMap(@Self)^.&set := $00008000;
  38316. end;
  38317. function TUART3_U2ASTA.getUTXISEL1 : TBits_1; inline;
  38318. begin
  38319. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38320. end;
  38321. procedure TUART3_U2ASTA.setUTXSEL(thebits : TBits_2); inline;
  38322. begin
  38323. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38324. end;
  38325. function TUART3_U2ASTA.getUTXSEL : TBits_2; inline;
  38326. begin
  38327. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38328. end;
  38329. procedure TUART3_U2ASTA.setw(thebits : TBits_32); inline;
  38330. begin
  38331. pTDefRegMap(@Self)^.val := thebits;
  38332. end;
  38333. function TUART3_U2ASTA.getw : TBits_32; inline;
  38334. begin
  38335. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38336. end;
  38337. procedure TUART3_U3STA.setURXDA; inline;
  38338. begin
  38339. pTDefRegMap(@Self)^.&set := $00000001;
  38340. end;
  38341. procedure TUART3_U3STA.clearURXDA; inline;
  38342. begin
  38343. pTDefRegMap(@Self)^.clr := $00000001;
  38344. end;
  38345. procedure TUART3_U3STA.setURXDA(thebits : TBits_1); inline;
  38346. begin
  38347. if thebits = 0 then
  38348. pTDefRegMap(@Self)^.clr := $00000001
  38349. else
  38350. pTDefRegMap(@Self)^.&set := $00000001;
  38351. end;
  38352. function TUART3_U3STA.getURXDA : TBits_1; inline;
  38353. begin
  38354. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38355. end;
  38356. procedure TUART3_U3STA.setOERR; inline;
  38357. begin
  38358. pTDefRegMap(@Self)^.&set := $00000002;
  38359. end;
  38360. procedure TUART3_U3STA.clearOERR; inline;
  38361. begin
  38362. pTDefRegMap(@Self)^.clr := $00000002;
  38363. end;
  38364. procedure TUART3_U3STA.setOERR(thebits : TBits_1); inline;
  38365. begin
  38366. if thebits = 0 then
  38367. pTDefRegMap(@Self)^.clr := $00000002
  38368. else
  38369. pTDefRegMap(@Self)^.&set := $00000002;
  38370. end;
  38371. function TUART3_U3STA.getOERR : TBits_1; inline;
  38372. begin
  38373. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38374. end;
  38375. procedure TUART3_U3STA.setFERR; inline;
  38376. begin
  38377. pTDefRegMap(@Self)^.&set := $00000004;
  38378. end;
  38379. procedure TUART3_U3STA.clearFERR; inline;
  38380. begin
  38381. pTDefRegMap(@Self)^.clr := $00000004;
  38382. end;
  38383. procedure TUART3_U3STA.setFERR(thebits : TBits_1); inline;
  38384. begin
  38385. if thebits = 0 then
  38386. pTDefRegMap(@Self)^.clr := $00000004
  38387. else
  38388. pTDefRegMap(@Self)^.&set := $00000004;
  38389. end;
  38390. function TUART3_U3STA.getFERR : TBits_1; inline;
  38391. begin
  38392. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38393. end;
  38394. procedure TUART3_U3STA.setPERR; inline;
  38395. begin
  38396. pTDefRegMap(@Self)^.&set := $00000008;
  38397. end;
  38398. procedure TUART3_U3STA.clearPERR; inline;
  38399. begin
  38400. pTDefRegMap(@Self)^.clr := $00000008;
  38401. end;
  38402. procedure TUART3_U3STA.setPERR(thebits : TBits_1); inline;
  38403. begin
  38404. if thebits = 0 then
  38405. pTDefRegMap(@Self)^.clr := $00000008
  38406. else
  38407. pTDefRegMap(@Self)^.&set := $00000008;
  38408. end;
  38409. function TUART3_U3STA.getPERR : TBits_1; inline;
  38410. begin
  38411. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38412. end;
  38413. procedure TUART3_U3STA.setRIDLE; inline;
  38414. begin
  38415. pTDefRegMap(@Self)^.&set := $00000010;
  38416. end;
  38417. procedure TUART3_U3STA.clearRIDLE; inline;
  38418. begin
  38419. pTDefRegMap(@Self)^.clr := $00000010;
  38420. end;
  38421. procedure TUART3_U3STA.setRIDLE(thebits : TBits_1); inline;
  38422. begin
  38423. if thebits = 0 then
  38424. pTDefRegMap(@Self)^.clr := $00000010
  38425. else
  38426. pTDefRegMap(@Self)^.&set := $00000010;
  38427. end;
  38428. function TUART3_U3STA.getRIDLE : TBits_1; inline;
  38429. begin
  38430. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38431. end;
  38432. procedure TUART3_U3STA.setADDEN; inline;
  38433. begin
  38434. pTDefRegMap(@Self)^.&set := $00000020;
  38435. end;
  38436. procedure TUART3_U3STA.clearADDEN; inline;
  38437. begin
  38438. pTDefRegMap(@Self)^.clr := $00000020;
  38439. end;
  38440. procedure TUART3_U3STA.setADDEN(thebits : TBits_1); inline;
  38441. begin
  38442. if thebits = 0 then
  38443. pTDefRegMap(@Self)^.clr := $00000020
  38444. else
  38445. pTDefRegMap(@Self)^.&set := $00000020;
  38446. end;
  38447. function TUART3_U3STA.getADDEN : TBits_1; inline;
  38448. begin
  38449. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38450. end;
  38451. procedure TUART3_U3STA.setURXISEL(thebits : TBits_2); inline;
  38452. begin
  38453. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  38454. end;
  38455. function TUART3_U3STA.getURXISEL : TBits_2; inline;
  38456. begin
  38457. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  38458. end;
  38459. procedure TUART3_U3STA.setTRMT; inline;
  38460. begin
  38461. pTDefRegMap(@Self)^.&set := $00000100;
  38462. end;
  38463. procedure TUART3_U3STA.clearTRMT; inline;
  38464. begin
  38465. pTDefRegMap(@Self)^.clr := $00000100;
  38466. end;
  38467. procedure TUART3_U3STA.setTRMT(thebits : TBits_1); inline;
  38468. begin
  38469. if thebits = 0 then
  38470. pTDefRegMap(@Self)^.clr := $00000100
  38471. else
  38472. pTDefRegMap(@Self)^.&set := $00000100;
  38473. end;
  38474. function TUART3_U3STA.getTRMT : TBits_1; inline;
  38475. begin
  38476. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  38477. end;
  38478. procedure TUART3_U3STA.setUTXBF; inline;
  38479. begin
  38480. pTDefRegMap(@Self)^.&set := $00000200;
  38481. end;
  38482. procedure TUART3_U3STA.clearUTXBF; inline;
  38483. begin
  38484. pTDefRegMap(@Self)^.clr := $00000200;
  38485. end;
  38486. procedure TUART3_U3STA.setUTXBF(thebits : TBits_1); inline;
  38487. begin
  38488. if thebits = 0 then
  38489. pTDefRegMap(@Self)^.clr := $00000200
  38490. else
  38491. pTDefRegMap(@Self)^.&set := $00000200;
  38492. end;
  38493. function TUART3_U3STA.getUTXBF : TBits_1; inline;
  38494. begin
  38495. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  38496. end;
  38497. procedure TUART3_U3STA.setUTXEN; inline;
  38498. begin
  38499. pTDefRegMap(@Self)^.&set := $00000400;
  38500. end;
  38501. procedure TUART3_U3STA.clearUTXEN; inline;
  38502. begin
  38503. pTDefRegMap(@Self)^.clr := $00000400;
  38504. end;
  38505. procedure TUART3_U3STA.setUTXEN(thebits : TBits_1); inline;
  38506. begin
  38507. if thebits = 0 then
  38508. pTDefRegMap(@Self)^.clr := $00000400
  38509. else
  38510. pTDefRegMap(@Self)^.&set := $00000400;
  38511. end;
  38512. function TUART3_U3STA.getUTXEN : TBits_1; inline;
  38513. begin
  38514. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  38515. end;
  38516. procedure TUART3_U3STA.setUTXBRK; inline;
  38517. begin
  38518. pTDefRegMap(@Self)^.&set := $00000800;
  38519. end;
  38520. procedure TUART3_U3STA.clearUTXBRK; inline;
  38521. begin
  38522. pTDefRegMap(@Self)^.clr := $00000800;
  38523. end;
  38524. procedure TUART3_U3STA.setUTXBRK(thebits : TBits_1); inline;
  38525. begin
  38526. if thebits = 0 then
  38527. pTDefRegMap(@Self)^.clr := $00000800
  38528. else
  38529. pTDefRegMap(@Self)^.&set := $00000800;
  38530. end;
  38531. function TUART3_U3STA.getUTXBRK : TBits_1; inline;
  38532. begin
  38533. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  38534. end;
  38535. procedure TUART3_U3STA.setURXEN; inline;
  38536. begin
  38537. pTDefRegMap(@Self)^.&set := $00001000;
  38538. end;
  38539. procedure TUART3_U3STA.clearURXEN; inline;
  38540. begin
  38541. pTDefRegMap(@Self)^.clr := $00001000;
  38542. end;
  38543. procedure TUART3_U3STA.setURXEN(thebits : TBits_1); inline;
  38544. begin
  38545. if thebits = 0 then
  38546. pTDefRegMap(@Self)^.clr := $00001000
  38547. else
  38548. pTDefRegMap(@Self)^.&set := $00001000;
  38549. end;
  38550. function TUART3_U3STA.getURXEN : TBits_1; inline;
  38551. begin
  38552. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38553. end;
  38554. procedure TUART3_U3STA.setUTXINV; inline;
  38555. begin
  38556. pTDefRegMap(@Self)^.&set := $00002000;
  38557. end;
  38558. procedure TUART3_U3STA.clearUTXINV; inline;
  38559. begin
  38560. pTDefRegMap(@Self)^.clr := $00002000;
  38561. end;
  38562. procedure TUART3_U3STA.setUTXINV(thebits : TBits_1); inline;
  38563. begin
  38564. if thebits = 0 then
  38565. pTDefRegMap(@Self)^.clr := $00002000
  38566. else
  38567. pTDefRegMap(@Self)^.&set := $00002000;
  38568. end;
  38569. function TUART3_U3STA.getUTXINV : TBits_1; inline;
  38570. begin
  38571. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38572. end;
  38573. procedure TUART3_U3STA.setUTXISEL(thebits : TBits_2); inline;
  38574. begin
  38575. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38576. end;
  38577. function TUART3_U3STA.getUTXISEL : TBits_2; inline;
  38578. begin
  38579. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38580. end;
  38581. procedure TUART3_U3STA.setADDR(thebits : TBits_8); inline;
  38582. begin
  38583. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  38584. end;
  38585. function TUART3_U3STA.getADDR : TBits_8; inline;
  38586. begin
  38587. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  38588. end;
  38589. procedure TUART3_U3STA.setADM_EN; inline;
  38590. begin
  38591. pTDefRegMap(@Self)^.&set := $01000000;
  38592. end;
  38593. procedure TUART3_U3STA.clearADM_EN; inline;
  38594. begin
  38595. pTDefRegMap(@Self)^.clr := $01000000;
  38596. end;
  38597. procedure TUART3_U3STA.setADM_EN(thebits : TBits_1); inline;
  38598. begin
  38599. if thebits = 0 then
  38600. pTDefRegMap(@Self)^.clr := $01000000
  38601. else
  38602. pTDefRegMap(@Self)^.&set := $01000000;
  38603. end;
  38604. function TUART3_U3STA.getADM_EN : TBits_1; inline;
  38605. begin
  38606. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  38607. end;
  38608. procedure TUART3_U3STA.setURXISEL0; inline;
  38609. begin
  38610. pTDefRegMap(@Self)^.&set := $00000040;
  38611. end;
  38612. procedure TUART3_U3STA.clearURXISEL0; inline;
  38613. begin
  38614. pTDefRegMap(@Self)^.clr := $00000040;
  38615. end;
  38616. procedure TUART3_U3STA.setURXISEL0(thebits : TBits_1); inline;
  38617. begin
  38618. if thebits = 0 then
  38619. pTDefRegMap(@Self)^.clr := $00000040
  38620. else
  38621. pTDefRegMap(@Self)^.&set := $00000040;
  38622. end;
  38623. function TUART3_U3STA.getURXISEL0 : TBits_1; inline;
  38624. begin
  38625. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38626. end;
  38627. procedure TUART3_U3STA.setURXISEL1; inline;
  38628. begin
  38629. pTDefRegMap(@Self)^.&set := $00000080;
  38630. end;
  38631. procedure TUART3_U3STA.clearURXISEL1; inline;
  38632. begin
  38633. pTDefRegMap(@Self)^.clr := $00000080;
  38634. end;
  38635. procedure TUART3_U3STA.setURXISEL1(thebits : TBits_1); inline;
  38636. begin
  38637. if thebits = 0 then
  38638. pTDefRegMap(@Self)^.clr := $00000080
  38639. else
  38640. pTDefRegMap(@Self)^.&set := $00000080;
  38641. end;
  38642. function TUART3_U3STA.getURXISEL1 : TBits_1; inline;
  38643. begin
  38644. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38645. end;
  38646. procedure TUART3_U3STA.setUTXISEL0; inline;
  38647. begin
  38648. pTDefRegMap(@Self)^.&set := $00004000;
  38649. end;
  38650. procedure TUART3_U3STA.clearUTXISEL0; inline;
  38651. begin
  38652. pTDefRegMap(@Self)^.clr := $00004000;
  38653. end;
  38654. procedure TUART3_U3STA.setUTXISEL0(thebits : TBits_1); inline;
  38655. begin
  38656. if thebits = 0 then
  38657. pTDefRegMap(@Self)^.clr := $00004000
  38658. else
  38659. pTDefRegMap(@Self)^.&set := $00004000;
  38660. end;
  38661. function TUART3_U3STA.getUTXISEL0 : TBits_1; inline;
  38662. begin
  38663. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  38664. end;
  38665. procedure TUART3_U3STA.setUTXISEL1; inline;
  38666. begin
  38667. pTDefRegMap(@Self)^.&set := $00008000;
  38668. end;
  38669. procedure TUART3_U3STA.clearUTXISEL1; inline;
  38670. begin
  38671. pTDefRegMap(@Self)^.clr := $00008000;
  38672. end;
  38673. procedure TUART3_U3STA.setUTXISEL1(thebits : TBits_1); inline;
  38674. begin
  38675. if thebits = 0 then
  38676. pTDefRegMap(@Self)^.clr := $00008000
  38677. else
  38678. pTDefRegMap(@Self)^.&set := $00008000;
  38679. end;
  38680. function TUART3_U3STA.getUTXISEL1 : TBits_1; inline;
  38681. begin
  38682. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38683. end;
  38684. procedure TUART3_U3STA.setUTXSEL(thebits : TBits_2); inline;
  38685. begin
  38686. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  38687. end;
  38688. function TUART3_U3STA.getUTXSEL : TBits_2; inline;
  38689. begin
  38690. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  38691. end;
  38692. procedure TUART3_U3STA.setw(thebits : TBits_32); inline;
  38693. begin
  38694. pTDefRegMap(@Self)^.val := thebits;
  38695. end;
  38696. function TUART3_U3STA.getw : TBits_32; inline;
  38697. begin
  38698. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38699. end;
  38700. procedure TUART6_U2BMODE.setSTSEL; inline;
  38701. begin
  38702. pTDefRegMap(@Self)^.&set := $00000001;
  38703. end;
  38704. procedure TUART6_U2BMODE.clearSTSEL; inline;
  38705. begin
  38706. pTDefRegMap(@Self)^.clr := $00000001;
  38707. end;
  38708. procedure TUART6_U2BMODE.setSTSEL(thebits : TBits_1); inline;
  38709. begin
  38710. if thebits = 0 then
  38711. pTDefRegMap(@Self)^.clr := $00000001
  38712. else
  38713. pTDefRegMap(@Self)^.&set := $00000001;
  38714. end;
  38715. function TUART6_U2BMODE.getSTSEL : TBits_1; inline;
  38716. begin
  38717. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38718. end;
  38719. procedure TUART6_U2BMODE.setPDSEL(thebits : TBits_2); inline;
  38720. begin
  38721. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  38722. end;
  38723. function TUART6_U2BMODE.getPDSEL : TBits_2; inline;
  38724. begin
  38725. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  38726. end;
  38727. procedure TUART6_U2BMODE.setBRGH; inline;
  38728. begin
  38729. pTDefRegMap(@Self)^.&set := $00000008;
  38730. end;
  38731. procedure TUART6_U2BMODE.clearBRGH; inline;
  38732. begin
  38733. pTDefRegMap(@Self)^.clr := $00000008;
  38734. end;
  38735. procedure TUART6_U2BMODE.setBRGH(thebits : TBits_1); inline;
  38736. begin
  38737. if thebits = 0 then
  38738. pTDefRegMap(@Self)^.clr := $00000008
  38739. else
  38740. pTDefRegMap(@Self)^.&set := $00000008;
  38741. end;
  38742. function TUART6_U2BMODE.getBRGH : TBits_1; inline;
  38743. begin
  38744. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  38745. end;
  38746. procedure TUART6_U2BMODE.setRXINV; inline;
  38747. begin
  38748. pTDefRegMap(@Self)^.&set := $00000010;
  38749. end;
  38750. procedure TUART6_U2BMODE.clearRXINV; inline;
  38751. begin
  38752. pTDefRegMap(@Self)^.clr := $00000010;
  38753. end;
  38754. procedure TUART6_U2BMODE.setRXINV(thebits : TBits_1); inline;
  38755. begin
  38756. if thebits = 0 then
  38757. pTDefRegMap(@Self)^.clr := $00000010
  38758. else
  38759. pTDefRegMap(@Self)^.&set := $00000010;
  38760. end;
  38761. function TUART6_U2BMODE.getRXINV : TBits_1; inline;
  38762. begin
  38763. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  38764. end;
  38765. procedure TUART6_U2BMODE.setABAUD; inline;
  38766. begin
  38767. pTDefRegMap(@Self)^.&set := $00000020;
  38768. end;
  38769. procedure TUART6_U2BMODE.clearABAUD; inline;
  38770. begin
  38771. pTDefRegMap(@Self)^.clr := $00000020;
  38772. end;
  38773. procedure TUART6_U2BMODE.setABAUD(thebits : TBits_1); inline;
  38774. begin
  38775. if thebits = 0 then
  38776. pTDefRegMap(@Self)^.clr := $00000020
  38777. else
  38778. pTDefRegMap(@Self)^.&set := $00000020;
  38779. end;
  38780. function TUART6_U2BMODE.getABAUD : TBits_1; inline;
  38781. begin
  38782. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  38783. end;
  38784. procedure TUART6_U2BMODE.setLPBACK; inline;
  38785. begin
  38786. pTDefRegMap(@Self)^.&set := $00000040;
  38787. end;
  38788. procedure TUART6_U2BMODE.clearLPBACK; inline;
  38789. begin
  38790. pTDefRegMap(@Self)^.clr := $00000040;
  38791. end;
  38792. procedure TUART6_U2BMODE.setLPBACK(thebits : TBits_1); inline;
  38793. begin
  38794. if thebits = 0 then
  38795. pTDefRegMap(@Self)^.clr := $00000040
  38796. else
  38797. pTDefRegMap(@Self)^.&set := $00000040;
  38798. end;
  38799. function TUART6_U2BMODE.getLPBACK : TBits_1; inline;
  38800. begin
  38801. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  38802. end;
  38803. procedure TUART6_U2BMODE.setWAKE; inline;
  38804. begin
  38805. pTDefRegMap(@Self)^.&set := $00000080;
  38806. end;
  38807. procedure TUART6_U2BMODE.clearWAKE; inline;
  38808. begin
  38809. pTDefRegMap(@Self)^.clr := $00000080;
  38810. end;
  38811. procedure TUART6_U2BMODE.setWAKE(thebits : TBits_1); inline;
  38812. begin
  38813. if thebits = 0 then
  38814. pTDefRegMap(@Self)^.clr := $00000080
  38815. else
  38816. pTDefRegMap(@Self)^.&set := $00000080;
  38817. end;
  38818. function TUART6_U2BMODE.getWAKE : TBits_1; inline;
  38819. begin
  38820. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  38821. end;
  38822. procedure TUART6_U2BMODE.setIREN; inline;
  38823. begin
  38824. pTDefRegMap(@Self)^.&set := $00001000;
  38825. end;
  38826. procedure TUART6_U2BMODE.clearIREN; inline;
  38827. begin
  38828. pTDefRegMap(@Self)^.clr := $00001000;
  38829. end;
  38830. procedure TUART6_U2BMODE.setIREN(thebits : TBits_1); inline;
  38831. begin
  38832. if thebits = 0 then
  38833. pTDefRegMap(@Self)^.clr := $00001000
  38834. else
  38835. pTDefRegMap(@Self)^.&set := $00001000;
  38836. end;
  38837. function TUART6_U2BMODE.getIREN : TBits_1; inline;
  38838. begin
  38839. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  38840. end;
  38841. procedure TUART6_U2BMODE.setSIDL; inline;
  38842. begin
  38843. pTDefRegMap(@Self)^.&set := $00002000;
  38844. end;
  38845. procedure TUART6_U2BMODE.clearSIDL; inline;
  38846. begin
  38847. pTDefRegMap(@Self)^.clr := $00002000;
  38848. end;
  38849. procedure TUART6_U2BMODE.setSIDL(thebits : TBits_1); inline;
  38850. begin
  38851. if thebits = 0 then
  38852. pTDefRegMap(@Self)^.clr := $00002000
  38853. else
  38854. pTDefRegMap(@Self)^.&set := $00002000;
  38855. end;
  38856. function TUART6_U2BMODE.getSIDL : TBits_1; inline;
  38857. begin
  38858. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38859. end;
  38860. procedure TUART6_U2BMODE.setON; inline;
  38861. begin
  38862. pTDefRegMap(@Self)^.&set := $00008000;
  38863. end;
  38864. procedure TUART6_U2BMODE.clearON; inline;
  38865. begin
  38866. pTDefRegMap(@Self)^.clr := $00008000;
  38867. end;
  38868. procedure TUART6_U2BMODE.setON(thebits : TBits_1); inline;
  38869. begin
  38870. if thebits = 0 then
  38871. pTDefRegMap(@Self)^.clr := $00008000
  38872. else
  38873. pTDefRegMap(@Self)^.&set := $00008000;
  38874. end;
  38875. function TUART6_U2BMODE.getON : TBits_1; inline;
  38876. begin
  38877. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38878. end;
  38879. procedure TUART6_U2BMODE.setPDSEL0; inline;
  38880. begin
  38881. pTDefRegMap(@Self)^.&set := $00000002;
  38882. end;
  38883. procedure TUART6_U2BMODE.clearPDSEL0; inline;
  38884. begin
  38885. pTDefRegMap(@Self)^.clr := $00000002;
  38886. end;
  38887. procedure TUART6_U2BMODE.setPDSEL0(thebits : TBits_1); inline;
  38888. begin
  38889. if thebits = 0 then
  38890. pTDefRegMap(@Self)^.clr := $00000002
  38891. else
  38892. pTDefRegMap(@Self)^.&set := $00000002;
  38893. end;
  38894. function TUART6_U2BMODE.getPDSEL0 : TBits_1; inline;
  38895. begin
  38896. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  38897. end;
  38898. procedure TUART6_U2BMODE.setPDSEL1; inline;
  38899. begin
  38900. pTDefRegMap(@Self)^.&set := $00000004;
  38901. end;
  38902. procedure TUART6_U2BMODE.clearPDSEL1; inline;
  38903. begin
  38904. pTDefRegMap(@Self)^.clr := $00000004;
  38905. end;
  38906. procedure TUART6_U2BMODE.setPDSEL1(thebits : TBits_1); inline;
  38907. begin
  38908. if thebits = 0 then
  38909. pTDefRegMap(@Self)^.clr := $00000004
  38910. else
  38911. pTDefRegMap(@Self)^.&set := $00000004;
  38912. end;
  38913. function TUART6_U2BMODE.getPDSEL1 : TBits_1; inline;
  38914. begin
  38915. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  38916. end;
  38917. procedure TUART6_U2BMODE.setUSIDL; inline;
  38918. begin
  38919. pTDefRegMap(@Self)^.&set := $00002000;
  38920. end;
  38921. procedure TUART6_U2BMODE.clearUSIDL; inline;
  38922. begin
  38923. pTDefRegMap(@Self)^.clr := $00002000;
  38924. end;
  38925. procedure TUART6_U2BMODE.setUSIDL(thebits : TBits_1); inline;
  38926. begin
  38927. if thebits = 0 then
  38928. pTDefRegMap(@Self)^.clr := $00002000
  38929. else
  38930. pTDefRegMap(@Self)^.&set := $00002000;
  38931. end;
  38932. function TUART6_U2BMODE.getUSIDL : TBits_1; inline;
  38933. begin
  38934. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  38935. end;
  38936. procedure TUART6_U2BMODE.setUARTEN; inline;
  38937. begin
  38938. pTDefRegMap(@Self)^.&set := $00008000;
  38939. end;
  38940. procedure TUART6_U2BMODE.clearUARTEN; inline;
  38941. begin
  38942. pTDefRegMap(@Self)^.clr := $00008000;
  38943. end;
  38944. procedure TUART6_U2BMODE.setUARTEN(thebits : TBits_1); inline;
  38945. begin
  38946. if thebits = 0 then
  38947. pTDefRegMap(@Self)^.clr := $00008000
  38948. else
  38949. pTDefRegMap(@Self)^.&set := $00008000;
  38950. end;
  38951. function TUART6_U2BMODE.getUARTEN : TBits_1; inline;
  38952. begin
  38953. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  38954. end;
  38955. procedure TUART6_U2BMODE.setw(thebits : TBits_32); inline;
  38956. begin
  38957. pTDefRegMap(@Self)^.val := thebits;
  38958. end;
  38959. function TUART6_U2BMODE.getw : TBits_32; inline;
  38960. begin
  38961. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  38962. end;
  38963. procedure TUART6_U6MODE.setSTSEL; inline;
  38964. begin
  38965. pTDefRegMap(@Self)^.&set := $00000001;
  38966. end;
  38967. procedure TUART6_U6MODE.clearSTSEL; inline;
  38968. begin
  38969. pTDefRegMap(@Self)^.clr := $00000001;
  38970. end;
  38971. procedure TUART6_U6MODE.setSTSEL(thebits : TBits_1); inline;
  38972. begin
  38973. if thebits = 0 then
  38974. pTDefRegMap(@Self)^.clr := $00000001
  38975. else
  38976. pTDefRegMap(@Self)^.&set := $00000001;
  38977. end;
  38978. function TUART6_U6MODE.getSTSEL : TBits_1; inline;
  38979. begin
  38980. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  38981. end;
  38982. procedure TUART6_U6MODE.setPDSEL(thebits : TBits_2); inline;
  38983. begin
  38984. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  38985. end;
  38986. function TUART6_U6MODE.getPDSEL : TBits_2; inline;
  38987. begin
  38988. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  38989. end;
  38990. procedure TUART6_U6MODE.setBRGH; inline;
  38991. begin
  38992. pTDefRegMap(@Self)^.&set := $00000008;
  38993. end;
  38994. procedure TUART6_U6MODE.clearBRGH; inline;
  38995. begin
  38996. pTDefRegMap(@Self)^.clr := $00000008;
  38997. end;
  38998. procedure TUART6_U6MODE.setBRGH(thebits : TBits_1); inline;
  38999. begin
  39000. if thebits = 0 then
  39001. pTDefRegMap(@Self)^.clr := $00000008
  39002. else
  39003. pTDefRegMap(@Self)^.&set := $00000008;
  39004. end;
  39005. function TUART6_U6MODE.getBRGH : TBits_1; inline;
  39006. begin
  39007. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39008. end;
  39009. procedure TUART6_U6MODE.setRXINV; inline;
  39010. begin
  39011. pTDefRegMap(@Self)^.&set := $00000010;
  39012. end;
  39013. procedure TUART6_U6MODE.clearRXINV; inline;
  39014. begin
  39015. pTDefRegMap(@Self)^.clr := $00000010;
  39016. end;
  39017. procedure TUART6_U6MODE.setRXINV(thebits : TBits_1); inline;
  39018. begin
  39019. if thebits = 0 then
  39020. pTDefRegMap(@Self)^.clr := $00000010
  39021. else
  39022. pTDefRegMap(@Self)^.&set := $00000010;
  39023. end;
  39024. function TUART6_U6MODE.getRXINV : TBits_1; inline;
  39025. begin
  39026. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39027. end;
  39028. procedure TUART6_U6MODE.setABAUD; inline;
  39029. begin
  39030. pTDefRegMap(@Self)^.&set := $00000020;
  39031. end;
  39032. procedure TUART6_U6MODE.clearABAUD; inline;
  39033. begin
  39034. pTDefRegMap(@Self)^.clr := $00000020;
  39035. end;
  39036. procedure TUART6_U6MODE.setABAUD(thebits : TBits_1); inline;
  39037. begin
  39038. if thebits = 0 then
  39039. pTDefRegMap(@Self)^.clr := $00000020
  39040. else
  39041. pTDefRegMap(@Self)^.&set := $00000020;
  39042. end;
  39043. function TUART6_U6MODE.getABAUD : TBits_1; inline;
  39044. begin
  39045. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39046. end;
  39047. procedure TUART6_U6MODE.setLPBACK; inline;
  39048. begin
  39049. pTDefRegMap(@Self)^.&set := $00000040;
  39050. end;
  39051. procedure TUART6_U6MODE.clearLPBACK; inline;
  39052. begin
  39053. pTDefRegMap(@Self)^.clr := $00000040;
  39054. end;
  39055. procedure TUART6_U6MODE.setLPBACK(thebits : TBits_1); inline;
  39056. begin
  39057. if thebits = 0 then
  39058. pTDefRegMap(@Self)^.clr := $00000040
  39059. else
  39060. pTDefRegMap(@Self)^.&set := $00000040;
  39061. end;
  39062. function TUART6_U6MODE.getLPBACK : TBits_1; inline;
  39063. begin
  39064. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39065. end;
  39066. procedure TUART6_U6MODE.setWAKE; inline;
  39067. begin
  39068. pTDefRegMap(@Self)^.&set := $00000080;
  39069. end;
  39070. procedure TUART6_U6MODE.clearWAKE; inline;
  39071. begin
  39072. pTDefRegMap(@Self)^.clr := $00000080;
  39073. end;
  39074. procedure TUART6_U6MODE.setWAKE(thebits : TBits_1); inline;
  39075. begin
  39076. if thebits = 0 then
  39077. pTDefRegMap(@Self)^.clr := $00000080
  39078. else
  39079. pTDefRegMap(@Self)^.&set := $00000080;
  39080. end;
  39081. function TUART6_U6MODE.getWAKE : TBits_1; inline;
  39082. begin
  39083. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39084. end;
  39085. procedure TUART6_U6MODE.setIREN; inline;
  39086. begin
  39087. pTDefRegMap(@Self)^.&set := $00001000;
  39088. end;
  39089. procedure TUART6_U6MODE.clearIREN; inline;
  39090. begin
  39091. pTDefRegMap(@Self)^.clr := $00001000;
  39092. end;
  39093. procedure TUART6_U6MODE.setIREN(thebits : TBits_1); inline;
  39094. begin
  39095. if thebits = 0 then
  39096. pTDefRegMap(@Self)^.clr := $00001000
  39097. else
  39098. pTDefRegMap(@Self)^.&set := $00001000;
  39099. end;
  39100. function TUART6_U6MODE.getIREN : TBits_1; inline;
  39101. begin
  39102. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39103. end;
  39104. procedure TUART6_U6MODE.setSIDL; inline;
  39105. begin
  39106. pTDefRegMap(@Self)^.&set := $00002000;
  39107. end;
  39108. procedure TUART6_U6MODE.clearSIDL; inline;
  39109. begin
  39110. pTDefRegMap(@Self)^.clr := $00002000;
  39111. end;
  39112. procedure TUART6_U6MODE.setSIDL(thebits : TBits_1); inline;
  39113. begin
  39114. if thebits = 0 then
  39115. pTDefRegMap(@Self)^.clr := $00002000
  39116. else
  39117. pTDefRegMap(@Self)^.&set := $00002000;
  39118. end;
  39119. function TUART6_U6MODE.getSIDL : TBits_1; inline;
  39120. begin
  39121. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39122. end;
  39123. procedure TUART6_U6MODE.setON; inline;
  39124. begin
  39125. pTDefRegMap(@Self)^.&set := $00008000;
  39126. end;
  39127. procedure TUART6_U6MODE.clearON; inline;
  39128. begin
  39129. pTDefRegMap(@Self)^.clr := $00008000;
  39130. end;
  39131. procedure TUART6_U6MODE.setON(thebits : TBits_1); inline;
  39132. begin
  39133. if thebits = 0 then
  39134. pTDefRegMap(@Self)^.clr := $00008000
  39135. else
  39136. pTDefRegMap(@Self)^.&set := $00008000;
  39137. end;
  39138. function TUART6_U6MODE.getON : TBits_1; inline;
  39139. begin
  39140. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39141. end;
  39142. procedure TUART6_U6MODE.setPDSEL0; inline;
  39143. begin
  39144. pTDefRegMap(@Self)^.&set := $00000002;
  39145. end;
  39146. procedure TUART6_U6MODE.clearPDSEL0; inline;
  39147. begin
  39148. pTDefRegMap(@Self)^.clr := $00000002;
  39149. end;
  39150. procedure TUART6_U6MODE.setPDSEL0(thebits : TBits_1); inline;
  39151. begin
  39152. if thebits = 0 then
  39153. pTDefRegMap(@Self)^.clr := $00000002
  39154. else
  39155. pTDefRegMap(@Self)^.&set := $00000002;
  39156. end;
  39157. function TUART6_U6MODE.getPDSEL0 : TBits_1; inline;
  39158. begin
  39159. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39160. end;
  39161. procedure TUART6_U6MODE.setPDSEL1; inline;
  39162. begin
  39163. pTDefRegMap(@Self)^.&set := $00000004;
  39164. end;
  39165. procedure TUART6_U6MODE.clearPDSEL1; inline;
  39166. begin
  39167. pTDefRegMap(@Self)^.clr := $00000004;
  39168. end;
  39169. procedure TUART6_U6MODE.setPDSEL1(thebits : TBits_1); inline;
  39170. begin
  39171. if thebits = 0 then
  39172. pTDefRegMap(@Self)^.clr := $00000004
  39173. else
  39174. pTDefRegMap(@Self)^.&set := $00000004;
  39175. end;
  39176. function TUART6_U6MODE.getPDSEL1 : TBits_1; inline;
  39177. begin
  39178. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39179. end;
  39180. procedure TUART6_U6MODE.setUSIDL; inline;
  39181. begin
  39182. pTDefRegMap(@Self)^.&set := $00002000;
  39183. end;
  39184. procedure TUART6_U6MODE.clearUSIDL; inline;
  39185. begin
  39186. pTDefRegMap(@Self)^.clr := $00002000;
  39187. end;
  39188. procedure TUART6_U6MODE.setUSIDL(thebits : TBits_1); inline;
  39189. begin
  39190. if thebits = 0 then
  39191. pTDefRegMap(@Self)^.clr := $00002000
  39192. else
  39193. pTDefRegMap(@Self)^.&set := $00002000;
  39194. end;
  39195. function TUART6_U6MODE.getUSIDL : TBits_1; inline;
  39196. begin
  39197. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39198. end;
  39199. procedure TUART6_U6MODE.setUARTEN; inline;
  39200. begin
  39201. pTDefRegMap(@Self)^.&set := $00008000;
  39202. end;
  39203. procedure TUART6_U6MODE.clearUARTEN; inline;
  39204. begin
  39205. pTDefRegMap(@Self)^.clr := $00008000;
  39206. end;
  39207. procedure TUART6_U6MODE.setUARTEN(thebits : TBits_1); inline;
  39208. begin
  39209. if thebits = 0 then
  39210. pTDefRegMap(@Self)^.clr := $00008000
  39211. else
  39212. pTDefRegMap(@Self)^.&set := $00008000;
  39213. end;
  39214. function TUART6_U6MODE.getUARTEN : TBits_1; inline;
  39215. begin
  39216. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39217. end;
  39218. procedure TUART6_U6MODE.setw(thebits : TBits_32); inline;
  39219. begin
  39220. pTDefRegMap(@Self)^.val := thebits;
  39221. end;
  39222. function TUART6_U6MODE.getw : TBits_32; inline;
  39223. begin
  39224. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39225. end;
  39226. procedure TUART6_U2BSTA.setURXDA; inline;
  39227. begin
  39228. pTDefRegMap(@Self)^.&set := $00000001;
  39229. end;
  39230. procedure TUART6_U2BSTA.clearURXDA; inline;
  39231. begin
  39232. pTDefRegMap(@Self)^.clr := $00000001;
  39233. end;
  39234. procedure TUART6_U2BSTA.setURXDA(thebits : TBits_1); inline;
  39235. begin
  39236. if thebits = 0 then
  39237. pTDefRegMap(@Self)^.clr := $00000001
  39238. else
  39239. pTDefRegMap(@Self)^.&set := $00000001;
  39240. end;
  39241. function TUART6_U2BSTA.getURXDA : TBits_1; inline;
  39242. begin
  39243. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39244. end;
  39245. procedure TUART6_U2BSTA.setOERR; inline;
  39246. begin
  39247. pTDefRegMap(@Self)^.&set := $00000002;
  39248. end;
  39249. procedure TUART6_U2BSTA.clearOERR; inline;
  39250. begin
  39251. pTDefRegMap(@Self)^.clr := $00000002;
  39252. end;
  39253. procedure TUART6_U2BSTA.setOERR(thebits : TBits_1); inline;
  39254. begin
  39255. if thebits = 0 then
  39256. pTDefRegMap(@Self)^.clr := $00000002
  39257. else
  39258. pTDefRegMap(@Self)^.&set := $00000002;
  39259. end;
  39260. function TUART6_U2BSTA.getOERR : TBits_1; inline;
  39261. begin
  39262. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39263. end;
  39264. procedure TUART6_U2BSTA.setFERR; inline;
  39265. begin
  39266. pTDefRegMap(@Self)^.&set := $00000004;
  39267. end;
  39268. procedure TUART6_U2BSTA.clearFERR; inline;
  39269. begin
  39270. pTDefRegMap(@Self)^.clr := $00000004;
  39271. end;
  39272. procedure TUART6_U2BSTA.setFERR(thebits : TBits_1); inline;
  39273. begin
  39274. if thebits = 0 then
  39275. pTDefRegMap(@Self)^.clr := $00000004
  39276. else
  39277. pTDefRegMap(@Self)^.&set := $00000004;
  39278. end;
  39279. function TUART6_U2BSTA.getFERR : TBits_1; inline;
  39280. begin
  39281. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39282. end;
  39283. procedure TUART6_U2BSTA.setPERR; inline;
  39284. begin
  39285. pTDefRegMap(@Self)^.&set := $00000008;
  39286. end;
  39287. procedure TUART6_U2BSTA.clearPERR; inline;
  39288. begin
  39289. pTDefRegMap(@Self)^.clr := $00000008;
  39290. end;
  39291. procedure TUART6_U2BSTA.setPERR(thebits : TBits_1); inline;
  39292. begin
  39293. if thebits = 0 then
  39294. pTDefRegMap(@Self)^.clr := $00000008
  39295. else
  39296. pTDefRegMap(@Self)^.&set := $00000008;
  39297. end;
  39298. function TUART6_U2BSTA.getPERR : TBits_1; inline;
  39299. begin
  39300. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39301. end;
  39302. procedure TUART6_U2BSTA.setRIDLE; inline;
  39303. begin
  39304. pTDefRegMap(@Self)^.&set := $00000010;
  39305. end;
  39306. procedure TUART6_U2BSTA.clearRIDLE; inline;
  39307. begin
  39308. pTDefRegMap(@Self)^.clr := $00000010;
  39309. end;
  39310. procedure TUART6_U2BSTA.setRIDLE(thebits : TBits_1); inline;
  39311. begin
  39312. if thebits = 0 then
  39313. pTDefRegMap(@Self)^.clr := $00000010
  39314. else
  39315. pTDefRegMap(@Self)^.&set := $00000010;
  39316. end;
  39317. function TUART6_U2BSTA.getRIDLE : TBits_1; inline;
  39318. begin
  39319. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39320. end;
  39321. procedure TUART6_U2BSTA.setADDEN; inline;
  39322. begin
  39323. pTDefRegMap(@Self)^.&set := $00000020;
  39324. end;
  39325. procedure TUART6_U2BSTA.clearADDEN; inline;
  39326. begin
  39327. pTDefRegMap(@Self)^.clr := $00000020;
  39328. end;
  39329. procedure TUART6_U2BSTA.setADDEN(thebits : TBits_1); inline;
  39330. begin
  39331. if thebits = 0 then
  39332. pTDefRegMap(@Self)^.clr := $00000020
  39333. else
  39334. pTDefRegMap(@Self)^.&set := $00000020;
  39335. end;
  39336. function TUART6_U2BSTA.getADDEN : TBits_1; inline;
  39337. begin
  39338. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39339. end;
  39340. procedure TUART6_U2BSTA.setURXISEL(thebits : TBits_2); inline;
  39341. begin
  39342. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  39343. end;
  39344. function TUART6_U2BSTA.getURXISEL : TBits_2; inline;
  39345. begin
  39346. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  39347. end;
  39348. procedure TUART6_U2BSTA.setTRMT; inline;
  39349. begin
  39350. pTDefRegMap(@Self)^.&set := $00000100;
  39351. end;
  39352. procedure TUART6_U2BSTA.clearTRMT; inline;
  39353. begin
  39354. pTDefRegMap(@Self)^.clr := $00000100;
  39355. end;
  39356. procedure TUART6_U2BSTA.setTRMT(thebits : TBits_1); inline;
  39357. begin
  39358. if thebits = 0 then
  39359. pTDefRegMap(@Self)^.clr := $00000100
  39360. else
  39361. pTDefRegMap(@Self)^.&set := $00000100;
  39362. end;
  39363. function TUART6_U2BSTA.getTRMT : TBits_1; inline;
  39364. begin
  39365. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39366. end;
  39367. procedure TUART6_U2BSTA.setUTXBF; inline;
  39368. begin
  39369. pTDefRegMap(@Self)^.&set := $00000200;
  39370. end;
  39371. procedure TUART6_U2BSTA.clearUTXBF; inline;
  39372. begin
  39373. pTDefRegMap(@Self)^.clr := $00000200;
  39374. end;
  39375. procedure TUART6_U2BSTA.setUTXBF(thebits : TBits_1); inline;
  39376. begin
  39377. if thebits = 0 then
  39378. pTDefRegMap(@Self)^.clr := $00000200
  39379. else
  39380. pTDefRegMap(@Self)^.&set := $00000200;
  39381. end;
  39382. function TUART6_U2BSTA.getUTXBF : TBits_1; inline;
  39383. begin
  39384. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39385. end;
  39386. procedure TUART6_U2BSTA.setUTXEN; inline;
  39387. begin
  39388. pTDefRegMap(@Self)^.&set := $00000400;
  39389. end;
  39390. procedure TUART6_U2BSTA.clearUTXEN; inline;
  39391. begin
  39392. pTDefRegMap(@Self)^.clr := $00000400;
  39393. end;
  39394. procedure TUART6_U2BSTA.setUTXEN(thebits : TBits_1); inline;
  39395. begin
  39396. if thebits = 0 then
  39397. pTDefRegMap(@Self)^.clr := $00000400
  39398. else
  39399. pTDefRegMap(@Self)^.&set := $00000400;
  39400. end;
  39401. function TUART6_U2BSTA.getUTXEN : TBits_1; inline;
  39402. begin
  39403. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  39404. end;
  39405. procedure TUART6_U2BSTA.setUTXBRK; inline;
  39406. begin
  39407. pTDefRegMap(@Self)^.&set := $00000800;
  39408. end;
  39409. procedure TUART6_U2BSTA.clearUTXBRK; inline;
  39410. begin
  39411. pTDefRegMap(@Self)^.clr := $00000800;
  39412. end;
  39413. procedure TUART6_U2BSTA.setUTXBRK(thebits : TBits_1); inline;
  39414. begin
  39415. if thebits = 0 then
  39416. pTDefRegMap(@Self)^.clr := $00000800
  39417. else
  39418. pTDefRegMap(@Self)^.&set := $00000800;
  39419. end;
  39420. function TUART6_U2BSTA.getUTXBRK : TBits_1; inline;
  39421. begin
  39422. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  39423. end;
  39424. procedure TUART6_U2BSTA.setURXEN; inline;
  39425. begin
  39426. pTDefRegMap(@Self)^.&set := $00001000;
  39427. end;
  39428. procedure TUART6_U2BSTA.clearURXEN; inline;
  39429. begin
  39430. pTDefRegMap(@Self)^.clr := $00001000;
  39431. end;
  39432. procedure TUART6_U2BSTA.setURXEN(thebits : TBits_1); inline;
  39433. begin
  39434. if thebits = 0 then
  39435. pTDefRegMap(@Self)^.clr := $00001000
  39436. else
  39437. pTDefRegMap(@Self)^.&set := $00001000;
  39438. end;
  39439. function TUART6_U2BSTA.getURXEN : TBits_1; inline;
  39440. begin
  39441. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39442. end;
  39443. procedure TUART6_U2BSTA.setUTXINV; inline;
  39444. begin
  39445. pTDefRegMap(@Self)^.&set := $00002000;
  39446. end;
  39447. procedure TUART6_U2BSTA.clearUTXINV; inline;
  39448. begin
  39449. pTDefRegMap(@Self)^.clr := $00002000;
  39450. end;
  39451. procedure TUART6_U2BSTA.setUTXINV(thebits : TBits_1); inline;
  39452. begin
  39453. if thebits = 0 then
  39454. pTDefRegMap(@Self)^.clr := $00002000
  39455. else
  39456. pTDefRegMap(@Self)^.&set := $00002000;
  39457. end;
  39458. function TUART6_U2BSTA.getUTXINV : TBits_1; inline;
  39459. begin
  39460. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39461. end;
  39462. procedure TUART6_U2BSTA.setUTXISEL(thebits : TBits_2); inline;
  39463. begin
  39464. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39465. end;
  39466. function TUART6_U2BSTA.getUTXISEL : TBits_2; inline;
  39467. begin
  39468. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39469. end;
  39470. procedure TUART6_U2BSTA.setADDR(thebits : TBits_8); inline;
  39471. begin
  39472. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  39473. end;
  39474. function TUART6_U2BSTA.getADDR : TBits_8; inline;
  39475. begin
  39476. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  39477. end;
  39478. procedure TUART6_U2BSTA.setADM_EN; inline;
  39479. begin
  39480. pTDefRegMap(@Self)^.&set := $01000000;
  39481. end;
  39482. procedure TUART6_U2BSTA.clearADM_EN; inline;
  39483. begin
  39484. pTDefRegMap(@Self)^.clr := $01000000;
  39485. end;
  39486. procedure TUART6_U2BSTA.setADM_EN(thebits : TBits_1); inline;
  39487. begin
  39488. if thebits = 0 then
  39489. pTDefRegMap(@Self)^.clr := $01000000
  39490. else
  39491. pTDefRegMap(@Self)^.&set := $01000000;
  39492. end;
  39493. function TUART6_U2BSTA.getADM_EN : TBits_1; inline;
  39494. begin
  39495. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  39496. end;
  39497. procedure TUART6_U2BSTA.setURXISEL0; inline;
  39498. begin
  39499. pTDefRegMap(@Self)^.&set := $00000040;
  39500. end;
  39501. procedure TUART6_U2BSTA.clearURXISEL0; inline;
  39502. begin
  39503. pTDefRegMap(@Self)^.clr := $00000040;
  39504. end;
  39505. procedure TUART6_U2BSTA.setURXISEL0(thebits : TBits_1); inline;
  39506. begin
  39507. if thebits = 0 then
  39508. pTDefRegMap(@Self)^.clr := $00000040
  39509. else
  39510. pTDefRegMap(@Self)^.&set := $00000040;
  39511. end;
  39512. function TUART6_U2BSTA.getURXISEL0 : TBits_1; inline;
  39513. begin
  39514. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39515. end;
  39516. procedure TUART6_U2BSTA.setURXISEL1; inline;
  39517. begin
  39518. pTDefRegMap(@Self)^.&set := $00000080;
  39519. end;
  39520. procedure TUART6_U2BSTA.clearURXISEL1; inline;
  39521. begin
  39522. pTDefRegMap(@Self)^.clr := $00000080;
  39523. end;
  39524. procedure TUART6_U2BSTA.setURXISEL1(thebits : TBits_1); inline;
  39525. begin
  39526. if thebits = 0 then
  39527. pTDefRegMap(@Self)^.clr := $00000080
  39528. else
  39529. pTDefRegMap(@Self)^.&set := $00000080;
  39530. end;
  39531. function TUART6_U2BSTA.getURXISEL1 : TBits_1; inline;
  39532. begin
  39533. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39534. end;
  39535. procedure TUART6_U2BSTA.setUTXISEL0; inline;
  39536. begin
  39537. pTDefRegMap(@Self)^.&set := $00004000;
  39538. end;
  39539. procedure TUART6_U2BSTA.clearUTXISEL0; inline;
  39540. begin
  39541. pTDefRegMap(@Self)^.clr := $00004000;
  39542. end;
  39543. procedure TUART6_U2BSTA.setUTXISEL0(thebits : TBits_1); inline;
  39544. begin
  39545. if thebits = 0 then
  39546. pTDefRegMap(@Self)^.clr := $00004000
  39547. else
  39548. pTDefRegMap(@Self)^.&set := $00004000;
  39549. end;
  39550. function TUART6_U2BSTA.getUTXISEL0 : TBits_1; inline;
  39551. begin
  39552. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  39553. end;
  39554. procedure TUART6_U2BSTA.setUTXISEL1; inline;
  39555. begin
  39556. pTDefRegMap(@Self)^.&set := $00008000;
  39557. end;
  39558. procedure TUART6_U2BSTA.clearUTXISEL1; inline;
  39559. begin
  39560. pTDefRegMap(@Self)^.clr := $00008000;
  39561. end;
  39562. procedure TUART6_U2BSTA.setUTXISEL1(thebits : TBits_1); inline;
  39563. begin
  39564. if thebits = 0 then
  39565. pTDefRegMap(@Self)^.clr := $00008000
  39566. else
  39567. pTDefRegMap(@Self)^.&set := $00008000;
  39568. end;
  39569. function TUART6_U2BSTA.getUTXISEL1 : TBits_1; inline;
  39570. begin
  39571. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39572. end;
  39573. procedure TUART6_U2BSTA.setUTXSEL(thebits : TBits_2); inline;
  39574. begin
  39575. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39576. end;
  39577. function TUART6_U2BSTA.getUTXSEL : TBits_2; inline;
  39578. begin
  39579. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39580. end;
  39581. procedure TUART6_U2BSTA.setw(thebits : TBits_32); inline;
  39582. begin
  39583. pTDefRegMap(@Self)^.val := thebits;
  39584. end;
  39585. function TUART6_U2BSTA.getw : TBits_32; inline;
  39586. begin
  39587. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39588. end;
  39589. procedure TUART6_U6STA.setURXDA; inline;
  39590. begin
  39591. pTDefRegMap(@Self)^.&set := $00000001;
  39592. end;
  39593. procedure TUART6_U6STA.clearURXDA; inline;
  39594. begin
  39595. pTDefRegMap(@Self)^.clr := $00000001;
  39596. end;
  39597. procedure TUART6_U6STA.setURXDA(thebits : TBits_1); inline;
  39598. begin
  39599. if thebits = 0 then
  39600. pTDefRegMap(@Self)^.clr := $00000001
  39601. else
  39602. pTDefRegMap(@Self)^.&set := $00000001;
  39603. end;
  39604. function TUART6_U6STA.getURXDA : TBits_1; inline;
  39605. begin
  39606. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39607. end;
  39608. procedure TUART6_U6STA.setOERR; inline;
  39609. begin
  39610. pTDefRegMap(@Self)^.&set := $00000002;
  39611. end;
  39612. procedure TUART6_U6STA.clearOERR; inline;
  39613. begin
  39614. pTDefRegMap(@Self)^.clr := $00000002;
  39615. end;
  39616. procedure TUART6_U6STA.setOERR(thebits : TBits_1); inline;
  39617. begin
  39618. if thebits = 0 then
  39619. pTDefRegMap(@Self)^.clr := $00000002
  39620. else
  39621. pTDefRegMap(@Self)^.&set := $00000002;
  39622. end;
  39623. function TUART6_U6STA.getOERR : TBits_1; inline;
  39624. begin
  39625. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  39626. end;
  39627. procedure TUART6_U6STA.setFERR; inline;
  39628. begin
  39629. pTDefRegMap(@Self)^.&set := $00000004;
  39630. end;
  39631. procedure TUART6_U6STA.clearFERR; inline;
  39632. begin
  39633. pTDefRegMap(@Self)^.clr := $00000004;
  39634. end;
  39635. procedure TUART6_U6STA.setFERR(thebits : TBits_1); inline;
  39636. begin
  39637. if thebits = 0 then
  39638. pTDefRegMap(@Self)^.clr := $00000004
  39639. else
  39640. pTDefRegMap(@Self)^.&set := $00000004;
  39641. end;
  39642. function TUART6_U6STA.getFERR : TBits_1; inline;
  39643. begin
  39644. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  39645. end;
  39646. procedure TUART6_U6STA.setPERR; inline;
  39647. begin
  39648. pTDefRegMap(@Self)^.&set := $00000008;
  39649. end;
  39650. procedure TUART6_U6STA.clearPERR; inline;
  39651. begin
  39652. pTDefRegMap(@Self)^.clr := $00000008;
  39653. end;
  39654. procedure TUART6_U6STA.setPERR(thebits : TBits_1); inline;
  39655. begin
  39656. if thebits = 0 then
  39657. pTDefRegMap(@Self)^.clr := $00000008
  39658. else
  39659. pTDefRegMap(@Self)^.&set := $00000008;
  39660. end;
  39661. function TUART6_U6STA.getPERR : TBits_1; inline;
  39662. begin
  39663. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39664. end;
  39665. procedure TUART6_U6STA.setRIDLE; inline;
  39666. begin
  39667. pTDefRegMap(@Self)^.&set := $00000010;
  39668. end;
  39669. procedure TUART6_U6STA.clearRIDLE; inline;
  39670. begin
  39671. pTDefRegMap(@Self)^.clr := $00000010;
  39672. end;
  39673. procedure TUART6_U6STA.setRIDLE(thebits : TBits_1); inline;
  39674. begin
  39675. if thebits = 0 then
  39676. pTDefRegMap(@Self)^.clr := $00000010
  39677. else
  39678. pTDefRegMap(@Self)^.&set := $00000010;
  39679. end;
  39680. function TUART6_U6STA.getRIDLE : TBits_1; inline;
  39681. begin
  39682. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  39683. end;
  39684. procedure TUART6_U6STA.setADDEN; inline;
  39685. begin
  39686. pTDefRegMap(@Self)^.&set := $00000020;
  39687. end;
  39688. procedure TUART6_U6STA.clearADDEN; inline;
  39689. begin
  39690. pTDefRegMap(@Self)^.clr := $00000020;
  39691. end;
  39692. procedure TUART6_U6STA.setADDEN(thebits : TBits_1); inline;
  39693. begin
  39694. if thebits = 0 then
  39695. pTDefRegMap(@Self)^.clr := $00000020
  39696. else
  39697. pTDefRegMap(@Self)^.&set := $00000020;
  39698. end;
  39699. function TUART6_U6STA.getADDEN : TBits_1; inline;
  39700. begin
  39701. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  39702. end;
  39703. procedure TUART6_U6STA.setURXISEL(thebits : TBits_2); inline;
  39704. begin
  39705. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  39706. end;
  39707. function TUART6_U6STA.getURXISEL : TBits_2; inline;
  39708. begin
  39709. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  39710. end;
  39711. procedure TUART6_U6STA.setTRMT; inline;
  39712. begin
  39713. pTDefRegMap(@Self)^.&set := $00000100;
  39714. end;
  39715. procedure TUART6_U6STA.clearTRMT; inline;
  39716. begin
  39717. pTDefRegMap(@Self)^.clr := $00000100;
  39718. end;
  39719. procedure TUART6_U6STA.setTRMT(thebits : TBits_1); inline;
  39720. begin
  39721. if thebits = 0 then
  39722. pTDefRegMap(@Self)^.clr := $00000100
  39723. else
  39724. pTDefRegMap(@Self)^.&set := $00000100;
  39725. end;
  39726. function TUART6_U6STA.getTRMT : TBits_1; inline;
  39727. begin
  39728. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  39729. end;
  39730. procedure TUART6_U6STA.setUTXBF; inline;
  39731. begin
  39732. pTDefRegMap(@Self)^.&set := $00000200;
  39733. end;
  39734. procedure TUART6_U6STA.clearUTXBF; inline;
  39735. begin
  39736. pTDefRegMap(@Self)^.clr := $00000200;
  39737. end;
  39738. procedure TUART6_U6STA.setUTXBF(thebits : TBits_1); inline;
  39739. begin
  39740. if thebits = 0 then
  39741. pTDefRegMap(@Self)^.clr := $00000200
  39742. else
  39743. pTDefRegMap(@Self)^.&set := $00000200;
  39744. end;
  39745. function TUART6_U6STA.getUTXBF : TBits_1; inline;
  39746. begin
  39747. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  39748. end;
  39749. procedure TUART6_U6STA.setUTXEN; inline;
  39750. begin
  39751. pTDefRegMap(@Self)^.&set := $00000400;
  39752. end;
  39753. procedure TUART6_U6STA.clearUTXEN; inline;
  39754. begin
  39755. pTDefRegMap(@Self)^.clr := $00000400;
  39756. end;
  39757. procedure TUART6_U6STA.setUTXEN(thebits : TBits_1); inline;
  39758. begin
  39759. if thebits = 0 then
  39760. pTDefRegMap(@Self)^.clr := $00000400
  39761. else
  39762. pTDefRegMap(@Self)^.&set := $00000400;
  39763. end;
  39764. function TUART6_U6STA.getUTXEN : TBits_1; inline;
  39765. begin
  39766. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  39767. end;
  39768. procedure TUART6_U6STA.setUTXBRK; inline;
  39769. begin
  39770. pTDefRegMap(@Self)^.&set := $00000800;
  39771. end;
  39772. procedure TUART6_U6STA.clearUTXBRK; inline;
  39773. begin
  39774. pTDefRegMap(@Self)^.clr := $00000800;
  39775. end;
  39776. procedure TUART6_U6STA.setUTXBRK(thebits : TBits_1); inline;
  39777. begin
  39778. if thebits = 0 then
  39779. pTDefRegMap(@Self)^.clr := $00000800
  39780. else
  39781. pTDefRegMap(@Self)^.&set := $00000800;
  39782. end;
  39783. function TUART6_U6STA.getUTXBRK : TBits_1; inline;
  39784. begin
  39785. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  39786. end;
  39787. procedure TUART6_U6STA.setURXEN; inline;
  39788. begin
  39789. pTDefRegMap(@Self)^.&set := $00001000;
  39790. end;
  39791. procedure TUART6_U6STA.clearURXEN; inline;
  39792. begin
  39793. pTDefRegMap(@Self)^.clr := $00001000;
  39794. end;
  39795. procedure TUART6_U6STA.setURXEN(thebits : TBits_1); inline;
  39796. begin
  39797. if thebits = 0 then
  39798. pTDefRegMap(@Self)^.clr := $00001000
  39799. else
  39800. pTDefRegMap(@Self)^.&set := $00001000;
  39801. end;
  39802. function TUART6_U6STA.getURXEN : TBits_1; inline;
  39803. begin
  39804. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  39805. end;
  39806. procedure TUART6_U6STA.setUTXINV; inline;
  39807. begin
  39808. pTDefRegMap(@Self)^.&set := $00002000;
  39809. end;
  39810. procedure TUART6_U6STA.clearUTXINV; inline;
  39811. begin
  39812. pTDefRegMap(@Self)^.clr := $00002000;
  39813. end;
  39814. procedure TUART6_U6STA.setUTXINV(thebits : TBits_1); inline;
  39815. begin
  39816. if thebits = 0 then
  39817. pTDefRegMap(@Self)^.clr := $00002000
  39818. else
  39819. pTDefRegMap(@Self)^.&set := $00002000;
  39820. end;
  39821. function TUART6_U6STA.getUTXINV : TBits_1; inline;
  39822. begin
  39823. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  39824. end;
  39825. procedure TUART6_U6STA.setUTXISEL(thebits : TBits_2); inline;
  39826. begin
  39827. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39828. end;
  39829. function TUART6_U6STA.getUTXISEL : TBits_2; inline;
  39830. begin
  39831. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39832. end;
  39833. procedure TUART6_U6STA.setADDR(thebits : TBits_8); inline;
  39834. begin
  39835. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  39836. end;
  39837. function TUART6_U6STA.getADDR : TBits_8; inline;
  39838. begin
  39839. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  39840. end;
  39841. procedure TUART6_U6STA.setADM_EN; inline;
  39842. begin
  39843. pTDefRegMap(@Self)^.&set := $01000000;
  39844. end;
  39845. procedure TUART6_U6STA.clearADM_EN; inline;
  39846. begin
  39847. pTDefRegMap(@Self)^.clr := $01000000;
  39848. end;
  39849. procedure TUART6_U6STA.setADM_EN(thebits : TBits_1); inline;
  39850. begin
  39851. if thebits = 0 then
  39852. pTDefRegMap(@Self)^.clr := $01000000
  39853. else
  39854. pTDefRegMap(@Self)^.&set := $01000000;
  39855. end;
  39856. function TUART6_U6STA.getADM_EN : TBits_1; inline;
  39857. begin
  39858. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  39859. end;
  39860. procedure TUART6_U6STA.setURXISEL0; inline;
  39861. begin
  39862. pTDefRegMap(@Self)^.&set := $00000040;
  39863. end;
  39864. procedure TUART6_U6STA.clearURXISEL0; inline;
  39865. begin
  39866. pTDefRegMap(@Self)^.clr := $00000040;
  39867. end;
  39868. procedure TUART6_U6STA.setURXISEL0(thebits : TBits_1); inline;
  39869. begin
  39870. if thebits = 0 then
  39871. pTDefRegMap(@Self)^.clr := $00000040
  39872. else
  39873. pTDefRegMap(@Self)^.&set := $00000040;
  39874. end;
  39875. function TUART6_U6STA.getURXISEL0 : TBits_1; inline;
  39876. begin
  39877. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  39878. end;
  39879. procedure TUART6_U6STA.setURXISEL1; inline;
  39880. begin
  39881. pTDefRegMap(@Self)^.&set := $00000080;
  39882. end;
  39883. procedure TUART6_U6STA.clearURXISEL1; inline;
  39884. begin
  39885. pTDefRegMap(@Self)^.clr := $00000080;
  39886. end;
  39887. procedure TUART6_U6STA.setURXISEL1(thebits : TBits_1); inline;
  39888. begin
  39889. if thebits = 0 then
  39890. pTDefRegMap(@Self)^.clr := $00000080
  39891. else
  39892. pTDefRegMap(@Self)^.&set := $00000080;
  39893. end;
  39894. function TUART6_U6STA.getURXISEL1 : TBits_1; inline;
  39895. begin
  39896. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  39897. end;
  39898. procedure TUART6_U6STA.setUTXISEL0; inline;
  39899. begin
  39900. pTDefRegMap(@Self)^.&set := $00004000;
  39901. end;
  39902. procedure TUART6_U6STA.clearUTXISEL0; inline;
  39903. begin
  39904. pTDefRegMap(@Self)^.clr := $00004000;
  39905. end;
  39906. procedure TUART6_U6STA.setUTXISEL0(thebits : TBits_1); inline;
  39907. begin
  39908. if thebits = 0 then
  39909. pTDefRegMap(@Self)^.clr := $00004000
  39910. else
  39911. pTDefRegMap(@Self)^.&set := $00004000;
  39912. end;
  39913. function TUART6_U6STA.getUTXISEL0 : TBits_1; inline;
  39914. begin
  39915. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  39916. end;
  39917. procedure TUART6_U6STA.setUTXISEL1; inline;
  39918. begin
  39919. pTDefRegMap(@Self)^.&set := $00008000;
  39920. end;
  39921. procedure TUART6_U6STA.clearUTXISEL1; inline;
  39922. begin
  39923. pTDefRegMap(@Self)^.clr := $00008000;
  39924. end;
  39925. procedure TUART6_U6STA.setUTXISEL1(thebits : TBits_1); inline;
  39926. begin
  39927. if thebits = 0 then
  39928. pTDefRegMap(@Self)^.clr := $00008000
  39929. else
  39930. pTDefRegMap(@Self)^.&set := $00008000;
  39931. end;
  39932. function TUART6_U6STA.getUTXISEL1 : TBits_1; inline;
  39933. begin
  39934. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  39935. end;
  39936. procedure TUART6_U6STA.setUTXSEL(thebits : TBits_2); inline;
  39937. begin
  39938. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  39939. end;
  39940. function TUART6_U6STA.getUTXSEL : TBits_2; inline;
  39941. begin
  39942. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  39943. end;
  39944. procedure TUART6_U6STA.setw(thebits : TBits_32); inline;
  39945. begin
  39946. pTDefRegMap(@Self)^.val := thebits;
  39947. end;
  39948. function TUART6_U6STA.getw : TBits_32; inline;
  39949. begin
  39950. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  39951. end;
  39952. procedure TUART3A_U2MODE.setSTSEL; inline;
  39953. begin
  39954. pTDefRegMap(@Self)^.&set := $00000001;
  39955. end;
  39956. procedure TUART3A_U2MODE.clearSTSEL; inline;
  39957. begin
  39958. pTDefRegMap(@Self)^.clr := $00000001;
  39959. end;
  39960. procedure TUART3A_U2MODE.setSTSEL(thebits : TBits_1); inline;
  39961. begin
  39962. if thebits = 0 then
  39963. pTDefRegMap(@Self)^.clr := $00000001
  39964. else
  39965. pTDefRegMap(@Self)^.&set := $00000001;
  39966. end;
  39967. function TUART3A_U2MODE.getSTSEL : TBits_1; inline;
  39968. begin
  39969. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  39970. end;
  39971. procedure TUART3A_U2MODE.setPDSEL(thebits : TBits_2); inline;
  39972. begin
  39973. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  39974. end;
  39975. function TUART3A_U2MODE.getPDSEL : TBits_2; inline;
  39976. begin
  39977. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  39978. end;
  39979. procedure TUART3A_U2MODE.setBRGH; inline;
  39980. begin
  39981. pTDefRegMap(@Self)^.&set := $00000008;
  39982. end;
  39983. procedure TUART3A_U2MODE.clearBRGH; inline;
  39984. begin
  39985. pTDefRegMap(@Self)^.clr := $00000008;
  39986. end;
  39987. procedure TUART3A_U2MODE.setBRGH(thebits : TBits_1); inline;
  39988. begin
  39989. if thebits = 0 then
  39990. pTDefRegMap(@Self)^.clr := $00000008
  39991. else
  39992. pTDefRegMap(@Self)^.&set := $00000008;
  39993. end;
  39994. function TUART3A_U2MODE.getBRGH : TBits_1; inline;
  39995. begin
  39996. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  39997. end;
  39998. procedure TUART3A_U2MODE.setRXINV; inline;
  39999. begin
  40000. pTDefRegMap(@Self)^.&set := $00000010;
  40001. end;
  40002. procedure TUART3A_U2MODE.clearRXINV; inline;
  40003. begin
  40004. pTDefRegMap(@Self)^.clr := $00000010;
  40005. end;
  40006. procedure TUART3A_U2MODE.setRXINV(thebits : TBits_1); inline;
  40007. begin
  40008. if thebits = 0 then
  40009. pTDefRegMap(@Self)^.clr := $00000010
  40010. else
  40011. pTDefRegMap(@Self)^.&set := $00000010;
  40012. end;
  40013. function TUART3A_U2MODE.getRXINV : TBits_1; inline;
  40014. begin
  40015. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40016. end;
  40017. procedure TUART3A_U2MODE.setABAUD; inline;
  40018. begin
  40019. pTDefRegMap(@Self)^.&set := $00000020;
  40020. end;
  40021. procedure TUART3A_U2MODE.clearABAUD; inline;
  40022. begin
  40023. pTDefRegMap(@Self)^.clr := $00000020;
  40024. end;
  40025. procedure TUART3A_U2MODE.setABAUD(thebits : TBits_1); inline;
  40026. begin
  40027. if thebits = 0 then
  40028. pTDefRegMap(@Self)^.clr := $00000020
  40029. else
  40030. pTDefRegMap(@Self)^.&set := $00000020;
  40031. end;
  40032. function TUART3A_U2MODE.getABAUD : TBits_1; inline;
  40033. begin
  40034. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40035. end;
  40036. procedure TUART3A_U2MODE.setLPBACK; inline;
  40037. begin
  40038. pTDefRegMap(@Self)^.&set := $00000040;
  40039. end;
  40040. procedure TUART3A_U2MODE.clearLPBACK; inline;
  40041. begin
  40042. pTDefRegMap(@Self)^.clr := $00000040;
  40043. end;
  40044. procedure TUART3A_U2MODE.setLPBACK(thebits : TBits_1); inline;
  40045. begin
  40046. if thebits = 0 then
  40047. pTDefRegMap(@Self)^.clr := $00000040
  40048. else
  40049. pTDefRegMap(@Self)^.&set := $00000040;
  40050. end;
  40051. function TUART3A_U2MODE.getLPBACK : TBits_1; inline;
  40052. begin
  40053. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40054. end;
  40055. procedure TUART3A_U2MODE.setWAKE; inline;
  40056. begin
  40057. pTDefRegMap(@Self)^.&set := $00000080;
  40058. end;
  40059. procedure TUART3A_U2MODE.clearWAKE; inline;
  40060. begin
  40061. pTDefRegMap(@Self)^.clr := $00000080;
  40062. end;
  40063. procedure TUART3A_U2MODE.setWAKE(thebits : TBits_1); inline;
  40064. begin
  40065. if thebits = 0 then
  40066. pTDefRegMap(@Self)^.clr := $00000080
  40067. else
  40068. pTDefRegMap(@Self)^.&set := $00000080;
  40069. end;
  40070. function TUART3A_U2MODE.getWAKE : TBits_1; inline;
  40071. begin
  40072. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40073. end;
  40074. procedure TUART3A_U2MODE.setUEN(thebits : TBits_2); inline;
  40075. begin
  40076. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  40077. end;
  40078. function TUART3A_U2MODE.getUEN : TBits_2; inline;
  40079. begin
  40080. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  40081. end;
  40082. procedure TUART3A_U2MODE.setRTSMD; inline;
  40083. begin
  40084. pTDefRegMap(@Self)^.&set := $00000800;
  40085. end;
  40086. procedure TUART3A_U2MODE.clearRTSMD; inline;
  40087. begin
  40088. pTDefRegMap(@Self)^.clr := $00000800;
  40089. end;
  40090. procedure TUART3A_U2MODE.setRTSMD(thebits : TBits_1); inline;
  40091. begin
  40092. if thebits = 0 then
  40093. pTDefRegMap(@Self)^.clr := $00000800
  40094. else
  40095. pTDefRegMap(@Self)^.&set := $00000800;
  40096. end;
  40097. function TUART3A_U2MODE.getRTSMD : TBits_1; inline;
  40098. begin
  40099. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40100. end;
  40101. procedure TUART3A_U2MODE.setIREN; inline;
  40102. begin
  40103. pTDefRegMap(@Self)^.&set := $00001000;
  40104. end;
  40105. procedure TUART3A_U2MODE.clearIREN; inline;
  40106. begin
  40107. pTDefRegMap(@Self)^.clr := $00001000;
  40108. end;
  40109. procedure TUART3A_U2MODE.setIREN(thebits : TBits_1); inline;
  40110. begin
  40111. if thebits = 0 then
  40112. pTDefRegMap(@Self)^.clr := $00001000
  40113. else
  40114. pTDefRegMap(@Self)^.&set := $00001000;
  40115. end;
  40116. function TUART3A_U2MODE.getIREN : TBits_1; inline;
  40117. begin
  40118. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40119. end;
  40120. procedure TUART3A_U2MODE.setSIDL; inline;
  40121. begin
  40122. pTDefRegMap(@Self)^.&set := $00002000;
  40123. end;
  40124. procedure TUART3A_U2MODE.clearSIDL; inline;
  40125. begin
  40126. pTDefRegMap(@Self)^.clr := $00002000;
  40127. end;
  40128. procedure TUART3A_U2MODE.setSIDL(thebits : TBits_1); inline;
  40129. begin
  40130. if thebits = 0 then
  40131. pTDefRegMap(@Self)^.clr := $00002000
  40132. else
  40133. pTDefRegMap(@Self)^.&set := $00002000;
  40134. end;
  40135. function TUART3A_U2MODE.getSIDL : TBits_1; inline;
  40136. begin
  40137. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40138. end;
  40139. procedure TUART3A_U2MODE.setON; inline;
  40140. begin
  40141. pTDefRegMap(@Self)^.&set := $00008000;
  40142. end;
  40143. procedure TUART3A_U2MODE.clearON; inline;
  40144. begin
  40145. pTDefRegMap(@Self)^.clr := $00008000;
  40146. end;
  40147. procedure TUART3A_U2MODE.setON(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 TUART3A_U2MODE.getON : TBits_1; inline;
  40155. begin
  40156. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40157. end;
  40158. procedure TUART3A_U2MODE.setPDSEL0; inline;
  40159. begin
  40160. pTDefRegMap(@Self)^.&set := $00000002;
  40161. end;
  40162. procedure TUART3A_U2MODE.clearPDSEL0; inline;
  40163. begin
  40164. pTDefRegMap(@Self)^.clr := $00000002;
  40165. end;
  40166. procedure TUART3A_U2MODE.setPDSEL0(thebits : TBits_1); inline;
  40167. begin
  40168. if thebits = 0 then
  40169. pTDefRegMap(@Self)^.clr := $00000002
  40170. else
  40171. pTDefRegMap(@Self)^.&set := $00000002;
  40172. end;
  40173. function TUART3A_U2MODE.getPDSEL0 : TBits_1; inline;
  40174. begin
  40175. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40176. end;
  40177. procedure TUART3A_U2MODE.setPDSEL1; inline;
  40178. begin
  40179. pTDefRegMap(@Self)^.&set := $00000004;
  40180. end;
  40181. procedure TUART3A_U2MODE.clearPDSEL1; inline;
  40182. begin
  40183. pTDefRegMap(@Self)^.clr := $00000004;
  40184. end;
  40185. procedure TUART3A_U2MODE.setPDSEL1(thebits : TBits_1); inline;
  40186. begin
  40187. if thebits = 0 then
  40188. pTDefRegMap(@Self)^.clr := $00000004
  40189. else
  40190. pTDefRegMap(@Self)^.&set := $00000004;
  40191. end;
  40192. function TUART3A_U2MODE.getPDSEL1 : TBits_1; inline;
  40193. begin
  40194. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40195. end;
  40196. procedure TUART3A_U2MODE.setUEN0; inline;
  40197. begin
  40198. pTDefRegMap(@Self)^.&set := $00000100;
  40199. end;
  40200. procedure TUART3A_U2MODE.clearUEN0; inline;
  40201. begin
  40202. pTDefRegMap(@Self)^.clr := $00000100;
  40203. end;
  40204. procedure TUART3A_U2MODE.setUEN0(thebits : TBits_1); inline;
  40205. begin
  40206. if thebits = 0 then
  40207. pTDefRegMap(@Self)^.clr := $00000100
  40208. else
  40209. pTDefRegMap(@Self)^.&set := $00000100;
  40210. end;
  40211. function TUART3A_U2MODE.getUEN0 : TBits_1; inline;
  40212. begin
  40213. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  40214. end;
  40215. procedure TUART3A_U2MODE.setUEN1; inline;
  40216. begin
  40217. pTDefRegMap(@Self)^.&set := $00000200;
  40218. end;
  40219. procedure TUART3A_U2MODE.clearUEN1; inline;
  40220. begin
  40221. pTDefRegMap(@Self)^.clr := $00000200;
  40222. end;
  40223. procedure TUART3A_U2MODE.setUEN1(thebits : TBits_1); inline;
  40224. begin
  40225. if thebits = 0 then
  40226. pTDefRegMap(@Self)^.clr := $00000200
  40227. else
  40228. pTDefRegMap(@Self)^.&set := $00000200;
  40229. end;
  40230. function TUART3A_U2MODE.getUEN1 : TBits_1; inline;
  40231. begin
  40232. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  40233. end;
  40234. procedure TUART3A_U2MODE.setUSIDL; inline;
  40235. begin
  40236. pTDefRegMap(@Self)^.&set := $00002000;
  40237. end;
  40238. procedure TUART3A_U2MODE.clearUSIDL; inline;
  40239. begin
  40240. pTDefRegMap(@Self)^.clr := $00002000;
  40241. end;
  40242. procedure TUART3A_U2MODE.setUSIDL(thebits : TBits_1); inline;
  40243. begin
  40244. if thebits = 0 then
  40245. pTDefRegMap(@Self)^.clr := $00002000
  40246. else
  40247. pTDefRegMap(@Self)^.&set := $00002000;
  40248. end;
  40249. function TUART3A_U2MODE.getUSIDL : TBits_1; inline;
  40250. begin
  40251. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40252. end;
  40253. procedure TUART3A_U2MODE.setUARTEN; inline;
  40254. begin
  40255. pTDefRegMap(@Self)^.&set := $00008000;
  40256. end;
  40257. procedure TUART3A_U2MODE.clearUARTEN; inline;
  40258. begin
  40259. pTDefRegMap(@Self)^.clr := $00008000;
  40260. end;
  40261. procedure TUART3A_U2MODE.setUARTEN(thebits : TBits_1); inline;
  40262. begin
  40263. if thebits = 0 then
  40264. pTDefRegMap(@Self)^.clr := $00008000
  40265. else
  40266. pTDefRegMap(@Self)^.&set := $00008000;
  40267. end;
  40268. function TUART3A_U2MODE.getUARTEN : TBits_1; inline;
  40269. begin
  40270. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40271. end;
  40272. procedure TUART3A_U2MODE.setw(thebits : TBits_32); inline;
  40273. begin
  40274. pTDefRegMap(@Self)^.val := thebits;
  40275. end;
  40276. function TUART3A_U2MODE.getw : TBits_32; inline;
  40277. begin
  40278. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40279. end;
  40280. procedure TUART3A_U3AMODE.setSTSEL; inline;
  40281. begin
  40282. pTDefRegMap(@Self)^.&set := $00000001;
  40283. end;
  40284. procedure TUART3A_U3AMODE.clearSTSEL; inline;
  40285. begin
  40286. pTDefRegMap(@Self)^.clr := $00000001;
  40287. end;
  40288. procedure TUART3A_U3AMODE.setSTSEL(thebits : TBits_1); inline;
  40289. begin
  40290. if thebits = 0 then
  40291. pTDefRegMap(@Self)^.clr := $00000001
  40292. else
  40293. pTDefRegMap(@Self)^.&set := $00000001;
  40294. end;
  40295. function TUART3A_U3AMODE.getSTSEL : TBits_1; inline;
  40296. begin
  40297. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40298. end;
  40299. procedure TUART3A_U3AMODE.setPDSEL(thebits : TBits_2); inline;
  40300. begin
  40301. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  40302. end;
  40303. function TUART3A_U3AMODE.getPDSEL : TBits_2; inline;
  40304. begin
  40305. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  40306. end;
  40307. procedure TUART3A_U3AMODE.setBRGH; inline;
  40308. begin
  40309. pTDefRegMap(@Self)^.&set := $00000008;
  40310. end;
  40311. procedure TUART3A_U3AMODE.clearBRGH; inline;
  40312. begin
  40313. pTDefRegMap(@Self)^.clr := $00000008;
  40314. end;
  40315. procedure TUART3A_U3AMODE.setBRGH(thebits : TBits_1); inline;
  40316. begin
  40317. if thebits = 0 then
  40318. pTDefRegMap(@Self)^.clr := $00000008
  40319. else
  40320. pTDefRegMap(@Self)^.&set := $00000008;
  40321. end;
  40322. function TUART3A_U3AMODE.getBRGH : TBits_1; inline;
  40323. begin
  40324. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40325. end;
  40326. procedure TUART3A_U3AMODE.setRXINV; inline;
  40327. begin
  40328. pTDefRegMap(@Self)^.&set := $00000010;
  40329. end;
  40330. procedure TUART3A_U3AMODE.clearRXINV; inline;
  40331. begin
  40332. pTDefRegMap(@Self)^.clr := $00000010;
  40333. end;
  40334. procedure TUART3A_U3AMODE.setRXINV(thebits : TBits_1); inline;
  40335. begin
  40336. if thebits = 0 then
  40337. pTDefRegMap(@Self)^.clr := $00000010
  40338. else
  40339. pTDefRegMap(@Self)^.&set := $00000010;
  40340. end;
  40341. function TUART3A_U3AMODE.getRXINV : TBits_1; inline;
  40342. begin
  40343. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40344. end;
  40345. procedure TUART3A_U3AMODE.setABAUD; inline;
  40346. begin
  40347. pTDefRegMap(@Self)^.&set := $00000020;
  40348. end;
  40349. procedure TUART3A_U3AMODE.clearABAUD; inline;
  40350. begin
  40351. pTDefRegMap(@Self)^.clr := $00000020;
  40352. end;
  40353. procedure TUART3A_U3AMODE.setABAUD(thebits : TBits_1); inline;
  40354. begin
  40355. if thebits = 0 then
  40356. pTDefRegMap(@Self)^.clr := $00000020
  40357. else
  40358. pTDefRegMap(@Self)^.&set := $00000020;
  40359. end;
  40360. function TUART3A_U3AMODE.getABAUD : TBits_1; inline;
  40361. begin
  40362. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40363. end;
  40364. procedure TUART3A_U3AMODE.setLPBACK; inline;
  40365. begin
  40366. pTDefRegMap(@Self)^.&set := $00000040;
  40367. end;
  40368. procedure TUART3A_U3AMODE.clearLPBACK; inline;
  40369. begin
  40370. pTDefRegMap(@Self)^.clr := $00000040;
  40371. end;
  40372. procedure TUART3A_U3AMODE.setLPBACK(thebits : TBits_1); inline;
  40373. begin
  40374. if thebits = 0 then
  40375. pTDefRegMap(@Self)^.clr := $00000040
  40376. else
  40377. pTDefRegMap(@Self)^.&set := $00000040;
  40378. end;
  40379. function TUART3A_U3AMODE.getLPBACK : TBits_1; inline;
  40380. begin
  40381. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40382. end;
  40383. procedure TUART3A_U3AMODE.setWAKE; inline;
  40384. begin
  40385. pTDefRegMap(@Self)^.&set := $00000080;
  40386. end;
  40387. procedure TUART3A_U3AMODE.clearWAKE; inline;
  40388. begin
  40389. pTDefRegMap(@Self)^.clr := $00000080;
  40390. end;
  40391. procedure TUART3A_U3AMODE.setWAKE(thebits : TBits_1); inline;
  40392. begin
  40393. if thebits = 0 then
  40394. pTDefRegMap(@Self)^.clr := $00000080
  40395. else
  40396. pTDefRegMap(@Self)^.&set := $00000080;
  40397. end;
  40398. function TUART3A_U3AMODE.getWAKE : TBits_1; inline;
  40399. begin
  40400. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40401. end;
  40402. procedure TUART3A_U3AMODE.setUEN(thebits : TBits_2); inline;
  40403. begin
  40404. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  40405. end;
  40406. function TUART3A_U3AMODE.getUEN : TBits_2; inline;
  40407. begin
  40408. getUEN := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  40409. end;
  40410. procedure TUART3A_U3AMODE.setRTSMD; inline;
  40411. begin
  40412. pTDefRegMap(@Self)^.&set := $00000800;
  40413. end;
  40414. procedure TUART3A_U3AMODE.clearRTSMD; inline;
  40415. begin
  40416. pTDefRegMap(@Self)^.clr := $00000800;
  40417. end;
  40418. procedure TUART3A_U3AMODE.setRTSMD(thebits : TBits_1); inline;
  40419. begin
  40420. if thebits = 0 then
  40421. pTDefRegMap(@Self)^.clr := $00000800
  40422. else
  40423. pTDefRegMap(@Self)^.&set := $00000800;
  40424. end;
  40425. function TUART3A_U3AMODE.getRTSMD : TBits_1; inline;
  40426. begin
  40427. getRTSMD := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40428. end;
  40429. procedure TUART3A_U3AMODE.setIREN; inline;
  40430. begin
  40431. pTDefRegMap(@Self)^.&set := $00001000;
  40432. end;
  40433. procedure TUART3A_U3AMODE.clearIREN; inline;
  40434. begin
  40435. pTDefRegMap(@Self)^.clr := $00001000;
  40436. end;
  40437. procedure TUART3A_U3AMODE.setIREN(thebits : TBits_1); inline;
  40438. begin
  40439. if thebits = 0 then
  40440. pTDefRegMap(@Self)^.clr := $00001000
  40441. else
  40442. pTDefRegMap(@Self)^.&set := $00001000;
  40443. end;
  40444. function TUART3A_U3AMODE.getIREN : TBits_1; inline;
  40445. begin
  40446. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40447. end;
  40448. procedure TUART3A_U3AMODE.setSIDL; inline;
  40449. begin
  40450. pTDefRegMap(@Self)^.&set := $00002000;
  40451. end;
  40452. procedure TUART3A_U3AMODE.clearSIDL; inline;
  40453. begin
  40454. pTDefRegMap(@Self)^.clr := $00002000;
  40455. end;
  40456. procedure TUART3A_U3AMODE.setSIDL(thebits : TBits_1); inline;
  40457. begin
  40458. if thebits = 0 then
  40459. pTDefRegMap(@Self)^.clr := $00002000
  40460. else
  40461. pTDefRegMap(@Self)^.&set := $00002000;
  40462. end;
  40463. function TUART3A_U3AMODE.getSIDL : TBits_1; inline;
  40464. begin
  40465. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40466. end;
  40467. procedure TUART3A_U3AMODE.setON; inline;
  40468. begin
  40469. pTDefRegMap(@Self)^.&set := $00008000;
  40470. end;
  40471. procedure TUART3A_U3AMODE.clearON; inline;
  40472. begin
  40473. pTDefRegMap(@Self)^.clr := $00008000;
  40474. end;
  40475. procedure TUART3A_U3AMODE.setON(thebits : TBits_1); inline;
  40476. begin
  40477. if thebits = 0 then
  40478. pTDefRegMap(@Self)^.clr := $00008000
  40479. else
  40480. pTDefRegMap(@Self)^.&set := $00008000;
  40481. end;
  40482. function TUART3A_U3AMODE.getON : TBits_1; inline;
  40483. begin
  40484. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40485. end;
  40486. procedure TUART3A_U3AMODE.setPDSEL0; inline;
  40487. begin
  40488. pTDefRegMap(@Self)^.&set := $00000002;
  40489. end;
  40490. procedure TUART3A_U3AMODE.clearPDSEL0; inline;
  40491. begin
  40492. pTDefRegMap(@Self)^.clr := $00000002;
  40493. end;
  40494. procedure TUART3A_U3AMODE.setPDSEL0(thebits : TBits_1); inline;
  40495. begin
  40496. if thebits = 0 then
  40497. pTDefRegMap(@Self)^.clr := $00000002
  40498. else
  40499. pTDefRegMap(@Self)^.&set := $00000002;
  40500. end;
  40501. function TUART3A_U3AMODE.getPDSEL0 : TBits_1; inline;
  40502. begin
  40503. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40504. end;
  40505. procedure TUART3A_U3AMODE.setPDSEL1; inline;
  40506. begin
  40507. pTDefRegMap(@Self)^.&set := $00000004;
  40508. end;
  40509. procedure TUART3A_U3AMODE.clearPDSEL1; inline;
  40510. begin
  40511. pTDefRegMap(@Self)^.clr := $00000004;
  40512. end;
  40513. procedure TUART3A_U3AMODE.setPDSEL1(thebits : TBits_1); inline;
  40514. begin
  40515. if thebits = 0 then
  40516. pTDefRegMap(@Self)^.clr := $00000004
  40517. else
  40518. pTDefRegMap(@Self)^.&set := $00000004;
  40519. end;
  40520. function TUART3A_U3AMODE.getPDSEL1 : TBits_1; inline;
  40521. begin
  40522. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40523. end;
  40524. procedure TUART3A_U3AMODE.setUEN0; inline;
  40525. begin
  40526. pTDefRegMap(@Self)^.&set := $00000100;
  40527. end;
  40528. procedure TUART3A_U3AMODE.clearUEN0; inline;
  40529. begin
  40530. pTDefRegMap(@Self)^.clr := $00000100;
  40531. end;
  40532. procedure TUART3A_U3AMODE.setUEN0(thebits : TBits_1); inline;
  40533. begin
  40534. if thebits = 0 then
  40535. pTDefRegMap(@Self)^.clr := $00000100
  40536. else
  40537. pTDefRegMap(@Self)^.&set := $00000100;
  40538. end;
  40539. function TUART3A_U3AMODE.getUEN0 : TBits_1; inline;
  40540. begin
  40541. getUEN0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  40542. end;
  40543. procedure TUART3A_U3AMODE.setUEN1; inline;
  40544. begin
  40545. pTDefRegMap(@Self)^.&set := $00000200;
  40546. end;
  40547. procedure TUART3A_U3AMODE.clearUEN1; inline;
  40548. begin
  40549. pTDefRegMap(@Self)^.clr := $00000200;
  40550. end;
  40551. procedure TUART3A_U3AMODE.setUEN1(thebits : TBits_1); inline;
  40552. begin
  40553. if thebits = 0 then
  40554. pTDefRegMap(@Self)^.clr := $00000200
  40555. else
  40556. pTDefRegMap(@Self)^.&set := $00000200;
  40557. end;
  40558. function TUART3A_U3AMODE.getUEN1 : TBits_1; inline;
  40559. begin
  40560. getUEN1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  40561. end;
  40562. procedure TUART3A_U3AMODE.setUSIDL; inline;
  40563. begin
  40564. pTDefRegMap(@Self)^.&set := $00002000;
  40565. end;
  40566. procedure TUART3A_U3AMODE.clearUSIDL; inline;
  40567. begin
  40568. pTDefRegMap(@Self)^.clr := $00002000;
  40569. end;
  40570. procedure TUART3A_U3AMODE.setUSIDL(thebits : TBits_1); inline;
  40571. begin
  40572. if thebits = 0 then
  40573. pTDefRegMap(@Self)^.clr := $00002000
  40574. else
  40575. pTDefRegMap(@Self)^.&set := $00002000;
  40576. end;
  40577. function TUART3A_U3AMODE.getUSIDL : TBits_1; inline;
  40578. begin
  40579. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40580. end;
  40581. procedure TUART3A_U3AMODE.setUARTEN; inline;
  40582. begin
  40583. pTDefRegMap(@Self)^.&set := $00008000;
  40584. end;
  40585. procedure TUART3A_U3AMODE.clearUARTEN; inline;
  40586. begin
  40587. pTDefRegMap(@Self)^.clr := $00008000;
  40588. end;
  40589. procedure TUART3A_U3AMODE.setUARTEN(thebits : TBits_1); inline;
  40590. begin
  40591. if thebits = 0 then
  40592. pTDefRegMap(@Self)^.clr := $00008000
  40593. else
  40594. pTDefRegMap(@Self)^.&set := $00008000;
  40595. end;
  40596. function TUART3A_U3AMODE.getUARTEN : TBits_1; inline;
  40597. begin
  40598. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40599. end;
  40600. procedure TUART3A_U3AMODE.setw(thebits : TBits_32); inline;
  40601. begin
  40602. pTDefRegMap(@Self)^.val := thebits;
  40603. end;
  40604. function TUART3A_U3AMODE.getw : TBits_32; inline;
  40605. begin
  40606. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40607. end;
  40608. procedure TUART3A_U2STA.setURXDA; inline;
  40609. begin
  40610. pTDefRegMap(@Self)^.&set := $00000001;
  40611. end;
  40612. procedure TUART3A_U2STA.clearURXDA; inline;
  40613. begin
  40614. pTDefRegMap(@Self)^.clr := $00000001;
  40615. end;
  40616. procedure TUART3A_U2STA.setURXDA(thebits : TBits_1); inline;
  40617. begin
  40618. if thebits = 0 then
  40619. pTDefRegMap(@Self)^.clr := $00000001
  40620. else
  40621. pTDefRegMap(@Self)^.&set := $00000001;
  40622. end;
  40623. function TUART3A_U2STA.getURXDA : TBits_1; inline;
  40624. begin
  40625. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40626. end;
  40627. procedure TUART3A_U2STA.setOERR; inline;
  40628. begin
  40629. pTDefRegMap(@Self)^.&set := $00000002;
  40630. end;
  40631. procedure TUART3A_U2STA.clearOERR; inline;
  40632. begin
  40633. pTDefRegMap(@Self)^.clr := $00000002;
  40634. end;
  40635. procedure TUART3A_U2STA.setOERR(thebits : TBits_1); inline;
  40636. begin
  40637. if thebits = 0 then
  40638. pTDefRegMap(@Self)^.clr := $00000002
  40639. else
  40640. pTDefRegMap(@Self)^.&set := $00000002;
  40641. end;
  40642. function TUART3A_U2STA.getOERR : TBits_1; inline;
  40643. begin
  40644. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  40645. end;
  40646. procedure TUART3A_U2STA.setFERR; inline;
  40647. begin
  40648. pTDefRegMap(@Self)^.&set := $00000004;
  40649. end;
  40650. procedure TUART3A_U2STA.clearFERR; inline;
  40651. begin
  40652. pTDefRegMap(@Self)^.clr := $00000004;
  40653. end;
  40654. procedure TUART3A_U2STA.setFERR(thebits : TBits_1); inline;
  40655. begin
  40656. if thebits = 0 then
  40657. pTDefRegMap(@Self)^.clr := $00000004
  40658. else
  40659. pTDefRegMap(@Self)^.&set := $00000004;
  40660. end;
  40661. function TUART3A_U2STA.getFERR : TBits_1; inline;
  40662. begin
  40663. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  40664. end;
  40665. procedure TUART3A_U2STA.setPERR; inline;
  40666. begin
  40667. pTDefRegMap(@Self)^.&set := $00000008;
  40668. end;
  40669. procedure TUART3A_U2STA.clearPERR; inline;
  40670. begin
  40671. pTDefRegMap(@Self)^.clr := $00000008;
  40672. end;
  40673. procedure TUART3A_U2STA.setPERR(thebits : TBits_1); inline;
  40674. begin
  40675. if thebits = 0 then
  40676. pTDefRegMap(@Self)^.clr := $00000008
  40677. else
  40678. pTDefRegMap(@Self)^.&set := $00000008;
  40679. end;
  40680. function TUART3A_U2STA.getPERR : TBits_1; inline;
  40681. begin
  40682. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  40683. end;
  40684. procedure TUART3A_U2STA.setRIDLE; inline;
  40685. begin
  40686. pTDefRegMap(@Self)^.&set := $00000010;
  40687. end;
  40688. procedure TUART3A_U2STA.clearRIDLE; inline;
  40689. begin
  40690. pTDefRegMap(@Self)^.clr := $00000010;
  40691. end;
  40692. procedure TUART3A_U2STA.setRIDLE(thebits : TBits_1); inline;
  40693. begin
  40694. if thebits = 0 then
  40695. pTDefRegMap(@Self)^.clr := $00000010
  40696. else
  40697. pTDefRegMap(@Self)^.&set := $00000010;
  40698. end;
  40699. function TUART3A_U2STA.getRIDLE : TBits_1; inline;
  40700. begin
  40701. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  40702. end;
  40703. procedure TUART3A_U2STA.setADDEN; inline;
  40704. begin
  40705. pTDefRegMap(@Self)^.&set := $00000020;
  40706. end;
  40707. procedure TUART3A_U2STA.clearADDEN; inline;
  40708. begin
  40709. pTDefRegMap(@Self)^.clr := $00000020;
  40710. end;
  40711. procedure TUART3A_U2STA.setADDEN(thebits : TBits_1); inline;
  40712. begin
  40713. if thebits = 0 then
  40714. pTDefRegMap(@Self)^.clr := $00000020
  40715. else
  40716. pTDefRegMap(@Self)^.&set := $00000020;
  40717. end;
  40718. function TUART3A_U2STA.getADDEN : TBits_1; inline;
  40719. begin
  40720. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  40721. end;
  40722. procedure TUART3A_U2STA.setURXISEL(thebits : TBits_2); inline;
  40723. begin
  40724. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  40725. end;
  40726. function TUART3A_U2STA.getURXISEL : TBits_2; inline;
  40727. begin
  40728. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  40729. end;
  40730. procedure TUART3A_U2STA.setTRMT; inline;
  40731. begin
  40732. pTDefRegMap(@Self)^.&set := $00000100;
  40733. end;
  40734. procedure TUART3A_U2STA.clearTRMT; inline;
  40735. begin
  40736. pTDefRegMap(@Self)^.clr := $00000100;
  40737. end;
  40738. procedure TUART3A_U2STA.setTRMT(thebits : TBits_1); inline;
  40739. begin
  40740. if thebits = 0 then
  40741. pTDefRegMap(@Self)^.clr := $00000100
  40742. else
  40743. pTDefRegMap(@Self)^.&set := $00000100;
  40744. end;
  40745. function TUART3A_U2STA.getTRMT : TBits_1; inline;
  40746. begin
  40747. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  40748. end;
  40749. procedure TUART3A_U2STA.setUTXBF; inline;
  40750. begin
  40751. pTDefRegMap(@Self)^.&set := $00000200;
  40752. end;
  40753. procedure TUART3A_U2STA.clearUTXBF; inline;
  40754. begin
  40755. pTDefRegMap(@Self)^.clr := $00000200;
  40756. end;
  40757. procedure TUART3A_U2STA.setUTXBF(thebits : TBits_1); inline;
  40758. begin
  40759. if thebits = 0 then
  40760. pTDefRegMap(@Self)^.clr := $00000200
  40761. else
  40762. pTDefRegMap(@Self)^.&set := $00000200;
  40763. end;
  40764. function TUART3A_U2STA.getUTXBF : TBits_1; inline;
  40765. begin
  40766. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  40767. end;
  40768. procedure TUART3A_U2STA.setUTXEN; inline;
  40769. begin
  40770. pTDefRegMap(@Self)^.&set := $00000400;
  40771. end;
  40772. procedure TUART3A_U2STA.clearUTXEN; inline;
  40773. begin
  40774. pTDefRegMap(@Self)^.clr := $00000400;
  40775. end;
  40776. procedure TUART3A_U2STA.setUTXEN(thebits : TBits_1); inline;
  40777. begin
  40778. if thebits = 0 then
  40779. pTDefRegMap(@Self)^.clr := $00000400
  40780. else
  40781. pTDefRegMap(@Self)^.&set := $00000400;
  40782. end;
  40783. function TUART3A_U2STA.getUTXEN : TBits_1; inline;
  40784. begin
  40785. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  40786. end;
  40787. procedure TUART3A_U2STA.setUTXBRK; inline;
  40788. begin
  40789. pTDefRegMap(@Self)^.&set := $00000800;
  40790. end;
  40791. procedure TUART3A_U2STA.clearUTXBRK; inline;
  40792. begin
  40793. pTDefRegMap(@Self)^.clr := $00000800;
  40794. end;
  40795. procedure TUART3A_U2STA.setUTXBRK(thebits : TBits_1); inline;
  40796. begin
  40797. if thebits = 0 then
  40798. pTDefRegMap(@Self)^.clr := $00000800
  40799. else
  40800. pTDefRegMap(@Self)^.&set := $00000800;
  40801. end;
  40802. function TUART3A_U2STA.getUTXBRK : TBits_1; inline;
  40803. begin
  40804. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  40805. end;
  40806. procedure TUART3A_U2STA.setURXEN; inline;
  40807. begin
  40808. pTDefRegMap(@Self)^.&set := $00001000;
  40809. end;
  40810. procedure TUART3A_U2STA.clearURXEN; inline;
  40811. begin
  40812. pTDefRegMap(@Self)^.clr := $00001000;
  40813. end;
  40814. procedure TUART3A_U2STA.setURXEN(thebits : TBits_1); inline;
  40815. begin
  40816. if thebits = 0 then
  40817. pTDefRegMap(@Self)^.clr := $00001000
  40818. else
  40819. pTDefRegMap(@Self)^.&set := $00001000;
  40820. end;
  40821. function TUART3A_U2STA.getURXEN : TBits_1; inline;
  40822. begin
  40823. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  40824. end;
  40825. procedure TUART3A_U2STA.setUTXINV; inline;
  40826. begin
  40827. pTDefRegMap(@Self)^.&set := $00002000;
  40828. end;
  40829. procedure TUART3A_U2STA.clearUTXINV; inline;
  40830. begin
  40831. pTDefRegMap(@Self)^.clr := $00002000;
  40832. end;
  40833. procedure TUART3A_U2STA.setUTXINV(thebits : TBits_1); inline;
  40834. begin
  40835. if thebits = 0 then
  40836. pTDefRegMap(@Self)^.clr := $00002000
  40837. else
  40838. pTDefRegMap(@Self)^.&set := $00002000;
  40839. end;
  40840. function TUART3A_U2STA.getUTXINV : TBits_1; inline;
  40841. begin
  40842. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  40843. end;
  40844. procedure TUART3A_U2STA.setUTXISEL(thebits : TBits_2); inline;
  40845. begin
  40846. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40847. end;
  40848. function TUART3A_U2STA.getUTXISEL : TBits_2; inline;
  40849. begin
  40850. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40851. end;
  40852. procedure TUART3A_U2STA.setADDR(thebits : TBits_8); inline;
  40853. begin
  40854. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  40855. end;
  40856. function TUART3A_U2STA.getADDR : TBits_8; inline;
  40857. begin
  40858. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  40859. end;
  40860. procedure TUART3A_U2STA.setADM_EN; inline;
  40861. begin
  40862. pTDefRegMap(@Self)^.&set := $01000000;
  40863. end;
  40864. procedure TUART3A_U2STA.clearADM_EN; inline;
  40865. begin
  40866. pTDefRegMap(@Self)^.clr := $01000000;
  40867. end;
  40868. procedure TUART3A_U2STA.setADM_EN(thebits : TBits_1); inline;
  40869. begin
  40870. if thebits = 0 then
  40871. pTDefRegMap(@Self)^.clr := $01000000
  40872. else
  40873. pTDefRegMap(@Self)^.&set := $01000000;
  40874. end;
  40875. function TUART3A_U2STA.getADM_EN : TBits_1; inline;
  40876. begin
  40877. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  40878. end;
  40879. procedure TUART3A_U2STA.setURXISEL0; inline;
  40880. begin
  40881. pTDefRegMap(@Self)^.&set := $00000040;
  40882. end;
  40883. procedure TUART3A_U2STA.clearURXISEL0; inline;
  40884. begin
  40885. pTDefRegMap(@Self)^.clr := $00000040;
  40886. end;
  40887. procedure TUART3A_U2STA.setURXISEL0(thebits : TBits_1); inline;
  40888. begin
  40889. if thebits = 0 then
  40890. pTDefRegMap(@Self)^.clr := $00000040
  40891. else
  40892. pTDefRegMap(@Self)^.&set := $00000040;
  40893. end;
  40894. function TUART3A_U2STA.getURXISEL0 : TBits_1; inline;
  40895. begin
  40896. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  40897. end;
  40898. procedure TUART3A_U2STA.setURXISEL1; inline;
  40899. begin
  40900. pTDefRegMap(@Self)^.&set := $00000080;
  40901. end;
  40902. procedure TUART3A_U2STA.clearURXISEL1; inline;
  40903. begin
  40904. pTDefRegMap(@Self)^.clr := $00000080;
  40905. end;
  40906. procedure TUART3A_U2STA.setURXISEL1(thebits : TBits_1); inline;
  40907. begin
  40908. if thebits = 0 then
  40909. pTDefRegMap(@Self)^.clr := $00000080
  40910. else
  40911. pTDefRegMap(@Self)^.&set := $00000080;
  40912. end;
  40913. function TUART3A_U2STA.getURXISEL1 : TBits_1; inline;
  40914. begin
  40915. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  40916. end;
  40917. procedure TUART3A_U2STA.setUTXISEL0; inline;
  40918. begin
  40919. pTDefRegMap(@Self)^.&set := $00004000;
  40920. end;
  40921. procedure TUART3A_U2STA.clearUTXISEL0; inline;
  40922. begin
  40923. pTDefRegMap(@Self)^.clr := $00004000;
  40924. end;
  40925. procedure TUART3A_U2STA.setUTXISEL0(thebits : TBits_1); inline;
  40926. begin
  40927. if thebits = 0 then
  40928. pTDefRegMap(@Self)^.clr := $00004000
  40929. else
  40930. pTDefRegMap(@Self)^.&set := $00004000;
  40931. end;
  40932. function TUART3A_U2STA.getUTXISEL0 : TBits_1; inline;
  40933. begin
  40934. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  40935. end;
  40936. procedure TUART3A_U2STA.setUTXISEL1; inline;
  40937. begin
  40938. pTDefRegMap(@Self)^.&set := $00008000;
  40939. end;
  40940. procedure TUART3A_U2STA.clearUTXISEL1; inline;
  40941. begin
  40942. pTDefRegMap(@Self)^.clr := $00008000;
  40943. end;
  40944. procedure TUART3A_U2STA.setUTXISEL1(thebits : TBits_1); inline;
  40945. begin
  40946. if thebits = 0 then
  40947. pTDefRegMap(@Self)^.clr := $00008000
  40948. else
  40949. pTDefRegMap(@Self)^.&set := $00008000;
  40950. end;
  40951. function TUART3A_U2STA.getUTXISEL1 : TBits_1; inline;
  40952. begin
  40953. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  40954. end;
  40955. procedure TUART3A_U2STA.setUTXSEL(thebits : TBits_2); inline;
  40956. begin
  40957. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  40958. end;
  40959. function TUART3A_U2STA.getUTXSEL : TBits_2; inline;
  40960. begin
  40961. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  40962. end;
  40963. procedure TUART3A_U2STA.setw(thebits : TBits_32); inline;
  40964. begin
  40965. pTDefRegMap(@Self)^.val := thebits;
  40966. end;
  40967. function TUART3A_U2STA.getw : TBits_32; inline;
  40968. begin
  40969. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  40970. end;
  40971. procedure TUART3A_U3ASTA.setURXDA; inline;
  40972. begin
  40973. pTDefRegMap(@Self)^.&set := $00000001;
  40974. end;
  40975. procedure TUART3A_U3ASTA.clearURXDA; inline;
  40976. begin
  40977. pTDefRegMap(@Self)^.clr := $00000001;
  40978. end;
  40979. procedure TUART3A_U3ASTA.setURXDA(thebits : TBits_1); inline;
  40980. begin
  40981. if thebits = 0 then
  40982. pTDefRegMap(@Self)^.clr := $00000001
  40983. else
  40984. pTDefRegMap(@Self)^.&set := $00000001;
  40985. end;
  40986. function TUART3A_U3ASTA.getURXDA : TBits_1; inline;
  40987. begin
  40988. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  40989. end;
  40990. procedure TUART3A_U3ASTA.setOERR; inline;
  40991. begin
  40992. pTDefRegMap(@Self)^.&set := $00000002;
  40993. end;
  40994. procedure TUART3A_U3ASTA.clearOERR; inline;
  40995. begin
  40996. pTDefRegMap(@Self)^.clr := $00000002;
  40997. end;
  40998. procedure TUART3A_U3ASTA.setOERR(thebits : TBits_1); inline;
  40999. begin
  41000. if thebits = 0 then
  41001. pTDefRegMap(@Self)^.clr := $00000002
  41002. else
  41003. pTDefRegMap(@Self)^.&set := $00000002;
  41004. end;
  41005. function TUART3A_U3ASTA.getOERR : TBits_1; inline;
  41006. begin
  41007. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41008. end;
  41009. procedure TUART3A_U3ASTA.setFERR; inline;
  41010. begin
  41011. pTDefRegMap(@Self)^.&set := $00000004;
  41012. end;
  41013. procedure TUART3A_U3ASTA.clearFERR; inline;
  41014. begin
  41015. pTDefRegMap(@Self)^.clr := $00000004;
  41016. end;
  41017. procedure TUART3A_U3ASTA.setFERR(thebits : TBits_1); inline;
  41018. begin
  41019. if thebits = 0 then
  41020. pTDefRegMap(@Self)^.clr := $00000004
  41021. else
  41022. pTDefRegMap(@Self)^.&set := $00000004;
  41023. end;
  41024. function TUART3A_U3ASTA.getFERR : TBits_1; inline;
  41025. begin
  41026. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41027. end;
  41028. procedure TUART3A_U3ASTA.setPERR; inline;
  41029. begin
  41030. pTDefRegMap(@Self)^.&set := $00000008;
  41031. end;
  41032. procedure TUART3A_U3ASTA.clearPERR; inline;
  41033. begin
  41034. pTDefRegMap(@Self)^.clr := $00000008;
  41035. end;
  41036. procedure TUART3A_U3ASTA.setPERR(thebits : TBits_1); inline;
  41037. begin
  41038. if thebits = 0 then
  41039. pTDefRegMap(@Self)^.clr := $00000008
  41040. else
  41041. pTDefRegMap(@Self)^.&set := $00000008;
  41042. end;
  41043. function TUART3A_U3ASTA.getPERR : TBits_1; inline;
  41044. begin
  41045. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41046. end;
  41047. procedure TUART3A_U3ASTA.setRIDLE; inline;
  41048. begin
  41049. pTDefRegMap(@Self)^.&set := $00000010;
  41050. end;
  41051. procedure TUART3A_U3ASTA.clearRIDLE; inline;
  41052. begin
  41053. pTDefRegMap(@Self)^.clr := $00000010;
  41054. end;
  41055. procedure TUART3A_U3ASTA.setRIDLE(thebits : TBits_1); inline;
  41056. begin
  41057. if thebits = 0 then
  41058. pTDefRegMap(@Self)^.clr := $00000010
  41059. else
  41060. pTDefRegMap(@Self)^.&set := $00000010;
  41061. end;
  41062. function TUART3A_U3ASTA.getRIDLE : TBits_1; inline;
  41063. begin
  41064. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41065. end;
  41066. procedure TUART3A_U3ASTA.setADDEN; inline;
  41067. begin
  41068. pTDefRegMap(@Self)^.&set := $00000020;
  41069. end;
  41070. procedure TUART3A_U3ASTA.clearADDEN; inline;
  41071. begin
  41072. pTDefRegMap(@Self)^.clr := $00000020;
  41073. end;
  41074. procedure TUART3A_U3ASTA.setADDEN(thebits : TBits_1); inline;
  41075. begin
  41076. if thebits = 0 then
  41077. pTDefRegMap(@Self)^.clr := $00000020
  41078. else
  41079. pTDefRegMap(@Self)^.&set := $00000020;
  41080. end;
  41081. function TUART3A_U3ASTA.getADDEN : TBits_1; inline;
  41082. begin
  41083. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41084. end;
  41085. procedure TUART3A_U3ASTA.setURXISEL(thebits : TBits_2); inline;
  41086. begin
  41087. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  41088. end;
  41089. function TUART3A_U3ASTA.getURXISEL : TBits_2; inline;
  41090. begin
  41091. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  41092. end;
  41093. procedure TUART3A_U3ASTA.setTRMT; inline;
  41094. begin
  41095. pTDefRegMap(@Self)^.&set := $00000100;
  41096. end;
  41097. procedure TUART3A_U3ASTA.clearTRMT; inline;
  41098. begin
  41099. pTDefRegMap(@Self)^.clr := $00000100;
  41100. end;
  41101. procedure TUART3A_U3ASTA.setTRMT(thebits : TBits_1); inline;
  41102. begin
  41103. if thebits = 0 then
  41104. pTDefRegMap(@Self)^.clr := $00000100
  41105. else
  41106. pTDefRegMap(@Self)^.&set := $00000100;
  41107. end;
  41108. function TUART3A_U3ASTA.getTRMT : TBits_1; inline;
  41109. begin
  41110. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  41111. end;
  41112. procedure TUART3A_U3ASTA.setUTXBF; inline;
  41113. begin
  41114. pTDefRegMap(@Self)^.&set := $00000200;
  41115. end;
  41116. procedure TUART3A_U3ASTA.clearUTXBF; inline;
  41117. begin
  41118. pTDefRegMap(@Self)^.clr := $00000200;
  41119. end;
  41120. procedure TUART3A_U3ASTA.setUTXBF(thebits : TBits_1); inline;
  41121. begin
  41122. if thebits = 0 then
  41123. pTDefRegMap(@Self)^.clr := $00000200
  41124. else
  41125. pTDefRegMap(@Self)^.&set := $00000200;
  41126. end;
  41127. function TUART3A_U3ASTA.getUTXBF : TBits_1; inline;
  41128. begin
  41129. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  41130. end;
  41131. procedure TUART3A_U3ASTA.setUTXEN; inline;
  41132. begin
  41133. pTDefRegMap(@Self)^.&set := $00000400;
  41134. end;
  41135. procedure TUART3A_U3ASTA.clearUTXEN; inline;
  41136. begin
  41137. pTDefRegMap(@Self)^.clr := $00000400;
  41138. end;
  41139. procedure TUART3A_U3ASTA.setUTXEN(thebits : TBits_1); inline;
  41140. begin
  41141. if thebits = 0 then
  41142. pTDefRegMap(@Self)^.clr := $00000400
  41143. else
  41144. pTDefRegMap(@Self)^.&set := $00000400;
  41145. end;
  41146. function TUART3A_U3ASTA.getUTXEN : TBits_1; inline;
  41147. begin
  41148. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  41149. end;
  41150. procedure TUART3A_U3ASTA.setUTXBRK; inline;
  41151. begin
  41152. pTDefRegMap(@Self)^.&set := $00000800;
  41153. end;
  41154. procedure TUART3A_U3ASTA.clearUTXBRK; inline;
  41155. begin
  41156. pTDefRegMap(@Self)^.clr := $00000800;
  41157. end;
  41158. procedure TUART3A_U3ASTA.setUTXBRK(thebits : TBits_1); inline;
  41159. begin
  41160. if thebits = 0 then
  41161. pTDefRegMap(@Self)^.clr := $00000800
  41162. else
  41163. pTDefRegMap(@Self)^.&set := $00000800;
  41164. end;
  41165. function TUART3A_U3ASTA.getUTXBRK : TBits_1; inline;
  41166. begin
  41167. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  41168. end;
  41169. procedure TUART3A_U3ASTA.setURXEN; inline;
  41170. begin
  41171. pTDefRegMap(@Self)^.&set := $00001000;
  41172. end;
  41173. procedure TUART3A_U3ASTA.clearURXEN; inline;
  41174. begin
  41175. pTDefRegMap(@Self)^.clr := $00001000;
  41176. end;
  41177. procedure TUART3A_U3ASTA.setURXEN(thebits : TBits_1); inline;
  41178. begin
  41179. if thebits = 0 then
  41180. pTDefRegMap(@Self)^.clr := $00001000
  41181. else
  41182. pTDefRegMap(@Self)^.&set := $00001000;
  41183. end;
  41184. function TUART3A_U3ASTA.getURXEN : TBits_1; inline;
  41185. begin
  41186. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41187. end;
  41188. procedure TUART3A_U3ASTA.setUTXINV; inline;
  41189. begin
  41190. pTDefRegMap(@Self)^.&set := $00002000;
  41191. end;
  41192. procedure TUART3A_U3ASTA.clearUTXINV; inline;
  41193. begin
  41194. pTDefRegMap(@Self)^.clr := $00002000;
  41195. end;
  41196. procedure TUART3A_U3ASTA.setUTXINV(thebits : TBits_1); inline;
  41197. begin
  41198. if thebits = 0 then
  41199. pTDefRegMap(@Self)^.clr := $00002000
  41200. else
  41201. pTDefRegMap(@Self)^.&set := $00002000;
  41202. end;
  41203. function TUART3A_U3ASTA.getUTXINV : TBits_1; inline;
  41204. begin
  41205. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41206. end;
  41207. procedure TUART3A_U3ASTA.setUTXISEL(thebits : TBits_2); inline;
  41208. begin
  41209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41210. end;
  41211. function TUART3A_U3ASTA.getUTXISEL : TBits_2; inline;
  41212. begin
  41213. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41214. end;
  41215. procedure TUART3A_U3ASTA.setADDR(thebits : TBits_8); inline;
  41216. begin
  41217. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  41218. end;
  41219. function TUART3A_U3ASTA.getADDR : TBits_8; inline;
  41220. begin
  41221. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  41222. end;
  41223. procedure TUART3A_U3ASTA.setADM_EN; inline;
  41224. begin
  41225. pTDefRegMap(@Self)^.&set := $01000000;
  41226. end;
  41227. procedure TUART3A_U3ASTA.clearADM_EN; inline;
  41228. begin
  41229. pTDefRegMap(@Self)^.clr := $01000000;
  41230. end;
  41231. procedure TUART3A_U3ASTA.setADM_EN(thebits : TBits_1); inline;
  41232. begin
  41233. if thebits = 0 then
  41234. pTDefRegMap(@Self)^.clr := $01000000
  41235. else
  41236. pTDefRegMap(@Self)^.&set := $01000000;
  41237. end;
  41238. function TUART3A_U3ASTA.getADM_EN : TBits_1; inline;
  41239. begin
  41240. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  41241. end;
  41242. procedure TUART3A_U3ASTA.setURXISEL0; inline;
  41243. begin
  41244. pTDefRegMap(@Self)^.&set := $00000040;
  41245. end;
  41246. procedure TUART3A_U3ASTA.clearURXISEL0; inline;
  41247. begin
  41248. pTDefRegMap(@Self)^.clr := $00000040;
  41249. end;
  41250. procedure TUART3A_U3ASTA.setURXISEL0(thebits : TBits_1); inline;
  41251. begin
  41252. if thebits = 0 then
  41253. pTDefRegMap(@Self)^.clr := $00000040
  41254. else
  41255. pTDefRegMap(@Self)^.&set := $00000040;
  41256. end;
  41257. function TUART3A_U3ASTA.getURXISEL0 : TBits_1; inline;
  41258. begin
  41259. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41260. end;
  41261. procedure TUART3A_U3ASTA.setURXISEL1; inline;
  41262. begin
  41263. pTDefRegMap(@Self)^.&set := $00000080;
  41264. end;
  41265. procedure TUART3A_U3ASTA.clearURXISEL1; inline;
  41266. begin
  41267. pTDefRegMap(@Self)^.clr := $00000080;
  41268. end;
  41269. procedure TUART3A_U3ASTA.setURXISEL1(thebits : TBits_1); inline;
  41270. begin
  41271. if thebits = 0 then
  41272. pTDefRegMap(@Self)^.clr := $00000080
  41273. else
  41274. pTDefRegMap(@Self)^.&set := $00000080;
  41275. end;
  41276. function TUART3A_U3ASTA.getURXISEL1 : TBits_1; inline;
  41277. begin
  41278. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41279. end;
  41280. procedure TUART3A_U3ASTA.setUTXISEL0; inline;
  41281. begin
  41282. pTDefRegMap(@Self)^.&set := $00004000;
  41283. end;
  41284. procedure TUART3A_U3ASTA.clearUTXISEL0; inline;
  41285. begin
  41286. pTDefRegMap(@Self)^.clr := $00004000;
  41287. end;
  41288. procedure TUART3A_U3ASTA.setUTXISEL0(thebits : TBits_1); inline;
  41289. begin
  41290. if thebits = 0 then
  41291. pTDefRegMap(@Self)^.clr := $00004000
  41292. else
  41293. pTDefRegMap(@Self)^.&set := $00004000;
  41294. end;
  41295. function TUART3A_U3ASTA.getUTXISEL0 : TBits_1; inline;
  41296. begin
  41297. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  41298. end;
  41299. procedure TUART3A_U3ASTA.setUTXISEL1; inline;
  41300. begin
  41301. pTDefRegMap(@Self)^.&set := $00008000;
  41302. end;
  41303. procedure TUART3A_U3ASTA.clearUTXISEL1; inline;
  41304. begin
  41305. pTDefRegMap(@Self)^.clr := $00008000;
  41306. end;
  41307. procedure TUART3A_U3ASTA.setUTXISEL1(thebits : TBits_1); inline;
  41308. begin
  41309. if thebits = 0 then
  41310. pTDefRegMap(@Self)^.clr := $00008000
  41311. else
  41312. pTDefRegMap(@Self)^.&set := $00008000;
  41313. end;
  41314. function TUART3A_U3ASTA.getUTXISEL1 : TBits_1; inline;
  41315. begin
  41316. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41317. end;
  41318. procedure TUART3A_U3ASTA.setUTXSEL(thebits : TBits_2); inline;
  41319. begin
  41320. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  41321. end;
  41322. function TUART3A_U3ASTA.getUTXSEL : TBits_2; inline;
  41323. begin
  41324. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  41325. end;
  41326. procedure TUART3A_U3ASTA.setw(thebits : TBits_32); inline;
  41327. begin
  41328. pTDefRegMap(@Self)^.val := thebits;
  41329. end;
  41330. function TUART3A_U3ASTA.getw : TBits_32; inline;
  41331. begin
  41332. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41333. end;
  41334. procedure TUART3B_U3BMODE.setSTSEL; inline;
  41335. begin
  41336. pTDefRegMap(@Self)^.&set := $00000001;
  41337. end;
  41338. procedure TUART3B_U3BMODE.clearSTSEL; inline;
  41339. begin
  41340. pTDefRegMap(@Self)^.clr := $00000001;
  41341. end;
  41342. procedure TUART3B_U3BMODE.setSTSEL(thebits : TBits_1); inline;
  41343. begin
  41344. if thebits = 0 then
  41345. pTDefRegMap(@Self)^.clr := $00000001
  41346. else
  41347. pTDefRegMap(@Self)^.&set := $00000001;
  41348. end;
  41349. function TUART3B_U3BMODE.getSTSEL : TBits_1; inline;
  41350. begin
  41351. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41352. end;
  41353. procedure TUART3B_U3BMODE.setPDSEL(thebits : TBits_2); inline;
  41354. begin
  41355. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  41356. end;
  41357. function TUART3B_U3BMODE.getPDSEL : TBits_2; inline;
  41358. begin
  41359. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  41360. end;
  41361. procedure TUART3B_U3BMODE.setBRGH; inline;
  41362. begin
  41363. pTDefRegMap(@Self)^.&set := $00000008;
  41364. end;
  41365. procedure TUART3B_U3BMODE.clearBRGH; inline;
  41366. begin
  41367. pTDefRegMap(@Self)^.clr := $00000008;
  41368. end;
  41369. procedure TUART3B_U3BMODE.setBRGH(thebits : TBits_1); inline;
  41370. begin
  41371. if thebits = 0 then
  41372. pTDefRegMap(@Self)^.clr := $00000008
  41373. else
  41374. pTDefRegMap(@Self)^.&set := $00000008;
  41375. end;
  41376. function TUART3B_U3BMODE.getBRGH : TBits_1; inline;
  41377. begin
  41378. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41379. end;
  41380. procedure TUART3B_U3BMODE.setRXINV; inline;
  41381. begin
  41382. pTDefRegMap(@Self)^.&set := $00000010;
  41383. end;
  41384. procedure TUART3B_U3BMODE.clearRXINV; inline;
  41385. begin
  41386. pTDefRegMap(@Self)^.clr := $00000010;
  41387. end;
  41388. procedure TUART3B_U3BMODE.setRXINV(thebits : TBits_1); inline;
  41389. begin
  41390. if thebits = 0 then
  41391. pTDefRegMap(@Self)^.clr := $00000010
  41392. else
  41393. pTDefRegMap(@Self)^.&set := $00000010;
  41394. end;
  41395. function TUART3B_U3BMODE.getRXINV : TBits_1; inline;
  41396. begin
  41397. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41398. end;
  41399. procedure TUART3B_U3BMODE.setABAUD; inline;
  41400. begin
  41401. pTDefRegMap(@Self)^.&set := $00000020;
  41402. end;
  41403. procedure TUART3B_U3BMODE.clearABAUD; inline;
  41404. begin
  41405. pTDefRegMap(@Self)^.clr := $00000020;
  41406. end;
  41407. procedure TUART3B_U3BMODE.setABAUD(thebits : TBits_1); inline;
  41408. begin
  41409. if thebits = 0 then
  41410. pTDefRegMap(@Self)^.clr := $00000020
  41411. else
  41412. pTDefRegMap(@Self)^.&set := $00000020;
  41413. end;
  41414. function TUART3B_U3BMODE.getABAUD : TBits_1; inline;
  41415. begin
  41416. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41417. end;
  41418. procedure TUART3B_U3BMODE.setLPBACK; inline;
  41419. begin
  41420. pTDefRegMap(@Self)^.&set := $00000040;
  41421. end;
  41422. procedure TUART3B_U3BMODE.clearLPBACK; inline;
  41423. begin
  41424. pTDefRegMap(@Self)^.clr := $00000040;
  41425. end;
  41426. procedure TUART3B_U3BMODE.setLPBACK(thebits : TBits_1); inline;
  41427. begin
  41428. if thebits = 0 then
  41429. pTDefRegMap(@Self)^.clr := $00000040
  41430. else
  41431. pTDefRegMap(@Self)^.&set := $00000040;
  41432. end;
  41433. function TUART3B_U3BMODE.getLPBACK : TBits_1; inline;
  41434. begin
  41435. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41436. end;
  41437. procedure TUART3B_U3BMODE.setWAKE; inline;
  41438. begin
  41439. pTDefRegMap(@Self)^.&set := $00000080;
  41440. end;
  41441. procedure TUART3B_U3BMODE.clearWAKE; inline;
  41442. begin
  41443. pTDefRegMap(@Self)^.clr := $00000080;
  41444. end;
  41445. procedure TUART3B_U3BMODE.setWAKE(thebits : TBits_1); inline;
  41446. begin
  41447. if thebits = 0 then
  41448. pTDefRegMap(@Self)^.clr := $00000080
  41449. else
  41450. pTDefRegMap(@Self)^.&set := $00000080;
  41451. end;
  41452. function TUART3B_U3BMODE.getWAKE : TBits_1; inline;
  41453. begin
  41454. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41455. end;
  41456. procedure TUART3B_U3BMODE.setIREN; inline;
  41457. begin
  41458. pTDefRegMap(@Self)^.&set := $00001000;
  41459. end;
  41460. procedure TUART3B_U3BMODE.clearIREN; inline;
  41461. begin
  41462. pTDefRegMap(@Self)^.clr := $00001000;
  41463. end;
  41464. procedure TUART3B_U3BMODE.setIREN(thebits : TBits_1); inline;
  41465. begin
  41466. if thebits = 0 then
  41467. pTDefRegMap(@Self)^.clr := $00001000
  41468. else
  41469. pTDefRegMap(@Self)^.&set := $00001000;
  41470. end;
  41471. function TUART3B_U3BMODE.getIREN : TBits_1; inline;
  41472. begin
  41473. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41474. end;
  41475. procedure TUART3B_U3BMODE.setSIDL; inline;
  41476. begin
  41477. pTDefRegMap(@Self)^.&set := $00002000;
  41478. end;
  41479. procedure TUART3B_U3BMODE.clearSIDL; inline;
  41480. begin
  41481. pTDefRegMap(@Self)^.clr := $00002000;
  41482. end;
  41483. procedure TUART3B_U3BMODE.setSIDL(thebits : TBits_1); inline;
  41484. begin
  41485. if thebits = 0 then
  41486. pTDefRegMap(@Self)^.clr := $00002000
  41487. else
  41488. pTDefRegMap(@Self)^.&set := $00002000;
  41489. end;
  41490. function TUART3B_U3BMODE.getSIDL : TBits_1; inline;
  41491. begin
  41492. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41493. end;
  41494. procedure TUART3B_U3BMODE.setON; inline;
  41495. begin
  41496. pTDefRegMap(@Self)^.&set := $00008000;
  41497. end;
  41498. procedure TUART3B_U3BMODE.clearON; inline;
  41499. begin
  41500. pTDefRegMap(@Self)^.clr := $00008000;
  41501. end;
  41502. procedure TUART3B_U3BMODE.setON(thebits : TBits_1); inline;
  41503. begin
  41504. if thebits = 0 then
  41505. pTDefRegMap(@Self)^.clr := $00008000
  41506. else
  41507. pTDefRegMap(@Self)^.&set := $00008000;
  41508. end;
  41509. function TUART3B_U3BMODE.getON : TBits_1; inline;
  41510. begin
  41511. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41512. end;
  41513. procedure TUART3B_U3BMODE.setPDSEL0; inline;
  41514. begin
  41515. pTDefRegMap(@Self)^.&set := $00000002;
  41516. end;
  41517. procedure TUART3B_U3BMODE.clearPDSEL0; inline;
  41518. begin
  41519. pTDefRegMap(@Self)^.clr := $00000002;
  41520. end;
  41521. procedure TUART3B_U3BMODE.setPDSEL0(thebits : TBits_1); inline;
  41522. begin
  41523. if thebits = 0 then
  41524. pTDefRegMap(@Self)^.clr := $00000002
  41525. else
  41526. pTDefRegMap(@Self)^.&set := $00000002;
  41527. end;
  41528. function TUART3B_U3BMODE.getPDSEL0 : TBits_1; inline;
  41529. begin
  41530. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41531. end;
  41532. procedure TUART3B_U3BMODE.setPDSEL1; inline;
  41533. begin
  41534. pTDefRegMap(@Self)^.&set := $00000004;
  41535. end;
  41536. procedure TUART3B_U3BMODE.clearPDSEL1; inline;
  41537. begin
  41538. pTDefRegMap(@Self)^.clr := $00000004;
  41539. end;
  41540. procedure TUART3B_U3BMODE.setPDSEL1(thebits : TBits_1); inline;
  41541. begin
  41542. if thebits = 0 then
  41543. pTDefRegMap(@Self)^.clr := $00000004
  41544. else
  41545. pTDefRegMap(@Self)^.&set := $00000004;
  41546. end;
  41547. function TUART3B_U3BMODE.getPDSEL1 : TBits_1; inline;
  41548. begin
  41549. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41550. end;
  41551. procedure TUART3B_U3BMODE.setUSIDL; inline;
  41552. begin
  41553. pTDefRegMap(@Self)^.&set := $00002000;
  41554. end;
  41555. procedure TUART3B_U3BMODE.clearUSIDL; inline;
  41556. begin
  41557. pTDefRegMap(@Self)^.clr := $00002000;
  41558. end;
  41559. procedure TUART3B_U3BMODE.setUSIDL(thebits : TBits_1); inline;
  41560. begin
  41561. if thebits = 0 then
  41562. pTDefRegMap(@Self)^.clr := $00002000
  41563. else
  41564. pTDefRegMap(@Self)^.&set := $00002000;
  41565. end;
  41566. function TUART3B_U3BMODE.getUSIDL : TBits_1; inline;
  41567. begin
  41568. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41569. end;
  41570. procedure TUART3B_U3BMODE.setUARTEN; inline;
  41571. begin
  41572. pTDefRegMap(@Self)^.&set := $00008000;
  41573. end;
  41574. procedure TUART3B_U3BMODE.clearUARTEN; inline;
  41575. begin
  41576. pTDefRegMap(@Self)^.clr := $00008000;
  41577. end;
  41578. procedure TUART3B_U3BMODE.setUARTEN(thebits : TBits_1); inline;
  41579. begin
  41580. if thebits = 0 then
  41581. pTDefRegMap(@Self)^.clr := $00008000
  41582. else
  41583. pTDefRegMap(@Self)^.&set := $00008000;
  41584. end;
  41585. function TUART3B_U3BMODE.getUARTEN : TBits_1; inline;
  41586. begin
  41587. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41588. end;
  41589. procedure TUART3B_U3BMODE.setw(thebits : TBits_32); inline;
  41590. begin
  41591. pTDefRegMap(@Self)^.val := thebits;
  41592. end;
  41593. function TUART3B_U3BMODE.getw : TBits_32; inline;
  41594. begin
  41595. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41596. end;
  41597. procedure TUART3B_U5MODE.setSTSEL; inline;
  41598. begin
  41599. pTDefRegMap(@Self)^.&set := $00000001;
  41600. end;
  41601. procedure TUART3B_U5MODE.clearSTSEL; inline;
  41602. begin
  41603. pTDefRegMap(@Self)^.clr := $00000001;
  41604. end;
  41605. procedure TUART3B_U5MODE.setSTSEL(thebits : TBits_1); inline;
  41606. begin
  41607. if thebits = 0 then
  41608. pTDefRegMap(@Self)^.clr := $00000001
  41609. else
  41610. pTDefRegMap(@Self)^.&set := $00000001;
  41611. end;
  41612. function TUART3B_U5MODE.getSTSEL : TBits_1; inline;
  41613. begin
  41614. getSTSEL := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41615. end;
  41616. procedure TUART3B_U5MODE.setPDSEL(thebits : TBits_2); inline;
  41617. begin
  41618. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF9 or ( thebits shl 1 );
  41619. end;
  41620. function TUART3B_U5MODE.getPDSEL : TBits_2; inline;
  41621. begin
  41622. getPDSEL := (pTDefRegMap(@Self)^.val and $00000006) shr 1;
  41623. end;
  41624. procedure TUART3B_U5MODE.setBRGH; inline;
  41625. begin
  41626. pTDefRegMap(@Self)^.&set := $00000008;
  41627. end;
  41628. procedure TUART3B_U5MODE.clearBRGH; inline;
  41629. begin
  41630. pTDefRegMap(@Self)^.clr := $00000008;
  41631. end;
  41632. procedure TUART3B_U5MODE.setBRGH(thebits : TBits_1); inline;
  41633. begin
  41634. if thebits = 0 then
  41635. pTDefRegMap(@Self)^.clr := $00000008
  41636. else
  41637. pTDefRegMap(@Self)^.&set := $00000008;
  41638. end;
  41639. function TUART3B_U5MODE.getBRGH : TBits_1; inline;
  41640. begin
  41641. getBRGH := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41642. end;
  41643. procedure TUART3B_U5MODE.setRXINV; inline;
  41644. begin
  41645. pTDefRegMap(@Self)^.&set := $00000010;
  41646. end;
  41647. procedure TUART3B_U5MODE.clearRXINV; inline;
  41648. begin
  41649. pTDefRegMap(@Self)^.clr := $00000010;
  41650. end;
  41651. procedure TUART3B_U5MODE.setRXINV(thebits : TBits_1); inline;
  41652. begin
  41653. if thebits = 0 then
  41654. pTDefRegMap(@Self)^.clr := $00000010
  41655. else
  41656. pTDefRegMap(@Self)^.&set := $00000010;
  41657. end;
  41658. function TUART3B_U5MODE.getRXINV : TBits_1; inline;
  41659. begin
  41660. getRXINV := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41661. end;
  41662. procedure TUART3B_U5MODE.setABAUD; inline;
  41663. begin
  41664. pTDefRegMap(@Self)^.&set := $00000020;
  41665. end;
  41666. procedure TUART3B_U5MODE.clearABAUD; inline;
  41667. begin
  41668. pTDefRegMap(@Self)^.clr := $00000020;
  41669. end;
  41670. procedure TUART3B_U5MODE.setABAUD(thebits : TBits_1); inline;
  41671. begin
  41672. if thebits = 0 then
  41673. pTDefRegMap(@Self)^.clr := $00000020
  41674. else
  41675. pTDefRegMap(@Self)^.&set := $00000020;
  41676. end;
  41677. function TUART3B_U5MODE.getABAUD : TBits_1; inline;
  41678. begin
  41679. getABAUD := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41680. end;
  41681. procedure TUART3B_U5MODE.setLPBACK; inline;
  41682. begin
  41683. pTDefRegMap(@Self)^.&set := $00000040;
  41684. end;
  41685. procedure TUART3B_U5MODE.clearLPBACK; inline;
  41686. begin
  41687. pTDefRegMap(@Self)^.clr := $00000040;
  41688. end;
  41689. procedure TUART3B_U5MODE.setLPBACK(thebits : TBits_1); inline;
  41690. begin
  41691. if thebits = 0 then
  41692. pTDefRegMap(@Self)^.clr := $00000040
  41693. else
  41694. pTDefRegMap(@Self)^.&set := $00000040;
  41695. end;
  41696. function TUART3B_U5MODE.getLPBACK : TBits_1; inline;
  41697. begin
  41698. getLPBACK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  41699. end;
  41700. procedure TUART3B_U5MODE.setWAKE; inline;
  41701. begin
  41702. pTDefRegMap(@Self)^.&set := $00000080;
  41703. end;
  41704. procedure TUART3B_U5MODE.clearWAKE; inline;
  41705. begin
  41706. pTDefRegMap(@Self)^.clr := $00000080;
  41707. end;
  41708. procedure TUART3B_U5MODE.setWAKE(thebits : TBits_1); inline;
  41709. begin
  41710. if thebits = 0 then
  41711. pTDefRegMap(@Self)^.clr := $00000080
  41712. else
  41713. pTDefRegMap(@Self)^.&set := $00000080;
  41714. end;
  41715. function TUART3B_U5MODE.getWAKE : TBits_1; inline;
  41716. begin
  41717. getWAKE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  41718. end;
  41719. procedure TUART3B_U5MODE.setIREN; inline;
  41720. begin
  41721. pTDefRegMap(@Self)^.&set := $00001000;
  41722. end;
  41723. procedure TUART3B_U5MODE.clearIREN; inline;
  41724. begin
  41725. pTDefRegMap(@Self)^.clr := $00001000;
  41726. end;
  41727. procedure TUART3B_U5MODE.setIREN(thebits : TBits_1); inline;
  41728. begin
  41729. if thebits = 0 then
  41730. pTDefRegMap(@Self)^.clr := $00001000
  41731. else
  41732. pTDefRegMap(@Self)^.&set := $00001000;
  41733. end;
  41734. function TUART3B_U5MODE.getIREN : TBits_1; inline;
  41735. begin
  41736. getIREN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  41737. end;
  41738. procedure TUART3B_U5MODE.setSIDL; inline;
  41739. begin
  41740. pTDefRegMap(@Self)^.&set := $00002000;
  41741. end;
  41742. procedure TUART3B_U5MODE.clearSIDL; inline;
  41743. begin
  41744. pTDefRegMap(@Self)^.clr := $00002000;
  41745. end;
  41746. procedure TUART3B_U5MODE.setSIDL(thebits : TBits_1); inline;
  41747. begin
  41748. if thebits = 0 then
  41749. pTDefRegMap(@Self)^.clr := $00002000
  41750. else
  41751. pTDefRegMap(@Self)^.&set := $00002000;
  41752. end;
  41753. function TUART3B_U5MODE.getSIDL : TBits_1; inline;
  41754. begin
  41755. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41756. end;
  41757. procedure TUART3B_U5MODE.setON; inline;
  41758. begin
  41759. pTDefRegMap(@Self)^.&set := $00008000;
  41760. end;
  41761. procedure TUART3B_U5MODE.clearON; inline;
  41762. begin
  41763. pTDefRegMap(@Self)^.clr := $00008000;
  41764. end;
  41765. procedure TUART3B_U5MODE.setON(thebits : TBits_1); inline;
  41766. begin
  41767. if thebits = 0 then
  41768. pTDefRegMap(@Self)^.clr := $00008000
  41769. else
  41770. pTDefRegMap(@Self)^.&set := $00008000;
  41771. end;
  41772. function TUART3B_U5MODE.getON : TBits_1; inline;
  41773. begin
  41774. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41775. end;
  41776. procedure TUART3B_U5MODE.setPDSEL0; inline;
  41777. begin
  41778. pTDefRegMap(@Self)^.&set := $00000002;
  41779. end;
  41780. procedure TUART3B_U5MODE.clearPDSEL0; inline;
  41781. begin
  41782. pTDefRegMap(@Self)^.clr := $00000002;
  41783. end;
  41784. procedure TUART3B_U5MODE.setPDSEL0(thebits : TBits_1); inline;
  41785. begin
  41786. if thebits = 0 then
  41787. pTDefRegMap(@Self)^.clr := $00000002
  41788. else
  41789. pTDefRegMap(@Self)^.&set := $00000002;
  41790. end;
  41791. function TUART3B_U5MODE.getPDSEL0 : TBits_1; inline;
  41792. begin
  41793. getPDSEL0 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41794. end;
  41795. procedure TUART3B_U5MODE.setPDSEL1; inline;
  41796. begin
  41797. pTDefRegMap(@Self)^.&set := $00000004;
  41798. end;
  41799. procedure TUART3B_U5MODE.clearPDSEL1; inline;
  41800. begin
  41801. pTDefRegMap(@Self)^.clr := $00000004;
  41802. end;
  41803. procedure TUART3B_U5MODE.setPDSEL1(thebits : TBits_1); inline;
  41804. begin
  41805. if thebits = 0 then
  41806. pTDefRegMap(@Self)^.clr := $00000004
  41807. else
  41808. pTDefRegMap(@Self)^.&set := $00000004;
  41809. end;
  41810. function TUART3B_U5MODE.getPDSEL1 : TBits_1; inline;
  41811. begin
  41812. getPDSEL1 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41813. end;
  41814. procedure TUART3B_U5MODE.setUSIDL; inline;
  41815. begin
  41816. pTDefRegMap(@Self)^.&set := $00002000;
  41817. end;
  41818. procedure TUART3B_U5MODE.clearUSIDL; inline;
  41819. begin
  41820. pTDefRegMap(@Self)^.clr := $00002000;
  41821. end;
  41822. procedure TUART3B_U5MODE.setUSIDL(thebits : TBits_1); inline;
  41823. begin
  41824. if thebits = 0 then
  41825. pTDefRegMap(@Self)^.clr := $00002000
  41826. else
  41827. pTDefRegMap(@Self)^.&set := $00002000;
  41828. end;
  41829. function TUART3B_U5MODE.getUSIDL : TBits_1; inline;
  41830. begin
  41831. getUSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  41832. end;
  41833. procedure TUART3B_U5MODE.setUARTEN; inline;
  41834. begin
  41835. pTDefRegMap(@Self)^.&set := $00008000;
  41836. end;
  41837. procedure TUART3B_U5MODE.clearUARTEN; inline;
  41838. begin
  41839. pTDefRegMap(@Self)^.clr := $00008000;
  41840. end;
  41841. procedure TUART3B_U5MODE.setUARTEN(thebits : TBits_1); inline;
  41842. begin
  41843. if thebits = 0 then
  41844. pTDefRegMap(@Self)^.clr := $00008000
  41845. else
  41846. pTDefRegMap(@Self)^.&set := $00008000;
  41847. end;
  41848. function TUART3B_U5MODE.getUARTEN : TBits_1; inline;
  41849. begin
  41850. getUARTEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  41851. end;
  41852. procedure TUART3B_U5MODE.setw(thebits : TBits_32); inline;
  41853. begin
  41854. pTDefRegMap(@Self)^.val := thebits;
  41855. end;
  41856. function TUART3B_U5MODE.getw : TBits_32; inline;
  41857. begin
  41858. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  41859. end;
  41860. procedure TUART3B_U3BSTA.setURXDA; inline;
  41861. begin
  41862. pTDefRegMap(@Self)^.&set := $00000001;
  41863. end;
  41864. procedure TUART3B_U3BSTA.clearURXDA; inline;
  41865. begin
  41866. pTDefRegMap(@Self)^.clr := $00000001;
  41867. end;
  41868. procedure TUART3B_U3BSTA.setURXDA(thebits : TBits_1); inline;
  41869. begin
  41870. if thebits = 0 then
  41871. pTDefRegMap(@Self)^.clr := $00000001
  41872. else
  41873. pTDefRegMap(@Self)^.&set := $00000001;
  41874. end;
  41875. function TUART3B_U3BSTA.getURXDA : TBits_1; inline;
  41876. begin
  41877. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  41878. end;
  41879. procedure TUART3B_U3BSTA.setOERR; inline;
  41880. begin
  41881. pTDefRegMap(@Self)^.&set := $00000002;
  41882. end;
  41883. procedure TUART3B_U3BSTA.clearOERR; inline;
  41884. begin
  41885. pTDefRegMap(@Self)^.clr := $00000002;
  41886. end;
  41887. procedure TUART3B_U3BSTA.setOERR(thebits : TBits_1); inline;
  41888. begin
  41889. if thebits = 0 then
  41890. pTDefRegMap(@Self)^.clr := $00000002
  41891. else
  41892. pTDefRegMap(@Self)^.&set := $00000002;
  41893. end;
  41894. function TUART3B_U3BSTA.getOERR : TBits_1; inline;
  41895. begin
  41896. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  41897. end;
  41898. procedure TUART3B_U3BSTA.setFERR; inline;
  41899. begin
  41900. pTDefRegMap(@Self)^.&set := $00000004;
  41901. end;
  41902. procedure TUART3B_U3BSTA.clearFERR; inline;
  41903. begin
  41904. pTDefRegMap(@Self)^.clr := $00000004;
  41905. end;
  41906. procedure TUART3B_U3BSTA.setFERR(thebits : TBits_1); inline;
  41907. begin
  41908. if thebits = 0 then
  41909. pTDefRegMap(@Self)^.clr := $00000004
  41910. else
  41911. pTDefRegMap(@Self)^.&set := $00000004;
  41912. end;
  41913. function TUART3B_U3BSTA.getFERR : TBits_1; inline;
  41914. begin
  41915. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  41916. end;
  41917. procedure TUART3B_U3BSTA.setPERR; inline;
  41918. begin
  41919. pTDefRegMap(@Self)^.&set := $00000008;
  41920. end;
  41921. procedure TUART3B_U3BSTA.clearPERR; inline;
  41922. begin
  41923. pTDefRegMap(@Self)^.clr := $00000008;
  41924. end;
  41925. procedure TUART3B_U3BSTA.setPERR(thebits : TBits_1); inline;
  41926. begin
  41927. if thebits = 0 then
  41928. pTDefRegMap(@Self)^.clr := $00000008
  41929. else
  41930. pTDefRegMap(@Self)^.&set := $00000008;
  41931. end;
  41932. function TUART3B_U3BSTA.getPERR : TBits_1; inline;
  41933. begin
  41934. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  41935. end;
  41936. procedure TUART3B_U3BSTA.setRIDLE; inline;
  41937. begin
  41938. pTDefRegMap(@Self)^.&set := $00000010;
  41939. end;
  41940. procedure TUART3B_U3BSTA.clearRIDLE; inline;
  41941. begin
  41942. pTDefRegMap(@Self)^.clr := $00000010;
  41943. end;
  41944. procedure TUART3B_U3BSTA.setRIDLE(thebits : TBits_1); inline;
  41945. begin
  41946. if thebits = 0 then
  41947. pTDefRegMap(@Self)^.clr := $00000010
  41948. else
  41949. pTDefRegMap(@Self)^.&set := $00000010;
  41950. end;
  41951. function TUART3B_U3BSTA.getRIDLE : TBits_1; inline;
  41952. begin
  41953. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  41954. end;
  41955. procedure TUART3B_U3BSTA.setADDEN; inline;
  41956. begin
  41957. pTDefRegMap(@Self)^.&set := $00000020;
  41958. end;
  41959. procedure TUART3B_U3BSTA.clearADDEN; inline;
  41960. begin
  41961. pTDefRegMap(@Self)^.clr := $00000020;
  41962. end;
  41963. procedure TUART3B_U3BSTA.setADDEN(thebits : TBits_1); inline;
  41964. begin
  41965. if thebits = 0 then
  41966. pTDefRegMap(@Self)^.clr := $00000020
  41967. else
  41968. pTDefRegMap(@Self)^.&set := $00000020;
  41969. end;
  41970. function TUART3B_U3BSTA.getADDEN : TBits_1; inline;
  41971. begin
  41972. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  41973. end;
  41974. procedure TUART3B_U3BSTA.setURXISEL(thebits : TBits_2); inline;
  41975. begin
  41976. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  41977. end;
  41978. function TUART3B_U3BSTA.getURXISEL : TBits_2; inline;
  41979. begin
  41980. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  41981. end;
  41982. procedure TUART3B_U3BSTA.setTRMT; inline;
  41983. begin
  41984. pTDefRegMap(@Self)^.&set := $00000100;
  41985. end;
  41986. procedure TUART3B_U3BSTA.clearTRMT; inline;
  41987. begin
  41988. pTDefRegMap(@Self)^.clr := $00000100;
  41989. end;
  41990. procedure TUART3B_U3BSTA.setTRMT(thebits : TBits_1); inline;
  41991. begin
  41992. if thebits = 0 then
  41993. pTDefRegMap(@Self)^.clr := $00000100
  41994. else
  41995. pTDefRegMap(@Self)^.&set := $00000100;
  41996. end;
  41997. function TUART3B_U3BSTA.getTRMT : TBits_1; inline;
  41998. begin
  41999. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42000. end;
  42001. procedure TUART3B_U3BSTA.setUTXBF; inline;
  42002. begin
  42003. pTDefRegMap(@Self)^.&set := $00000200;
  42004. end;
  42005. procedure TUART3B_U3BSTA.clearUTXBF; inline;
  42006. begin
  42007. pTDefRegMap(@Self)^.clr := $00000200;
  42008. end;
  42009. procedure TUART3B_U3BSTA.setUTXBF(thebits : TBits_1); inline;
  42010. begin
  42011. if thebits = 0 then
  42012. pTDefRegMap(@Self)^.clr := $00000200
  42013. else
  42014. pTDefRegMap(@Self)^.&set := $00000200;
  42015. end;
  42016. function TUART3B_U3BSTA.getUTXBF : TBits_1; inline;
  42017. begin
  42018. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42019. end;
  42020. procedure TUART3B_U3BSTA.setUTXEN; inline;
  42021. begin
  42022. pTDefRegMap(@Self)^.&set := $00000400;
  42023. end;
  42024. procedure TUART3B_U3BSTA.clearUTXEN; inline;
  42025. begin
  42026. pTDefRegMap(@Self)^.clr := $00000400;
  42027. end;
  42028. procedure TUART3B_U3BSTA.setUTXEN(thebits : TBits_1); inline;
  42029. begin
  42030. if thebits = 0 then
  42031. pTDefRegMap(@Self)^.clr := $00000400
  42032. else
  42033. pTDefRegMap(@Self)^.&set := $00000400;
  42034. end;
  42035. function TUART3B_U3BSTA.getUTXEN : TBits_1; inline;
  42036. begin
  42037. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42038. end;
  42039. procedure TUART3B_U3BSTA.setUTXBRK; inline;
  42040. begin
  42041. pTDefRegMap(@Self)^.&set := $00000800;
  42042. end;
  42043. procedure TUART3B_U3BSTA.clearUTXBRK; inline;
  42044. begin
  42045. pTDefRegMap(@Self)^.clr := $00000800;
  42046. end;
  42047. procedure TUART3B_U3BSTA.setUTXBRK(thebits : TBits_1); inline;
  42048. begin
  42049. if thebits = 0 then
  42050. pTDefRegMap(@Self)^.clr := $00000800
  42051. else
  42052. pTDefRegMap(@Self)^.&set := $00000800;
  42053. end;
  42054. function TUART3B_U3BSTA.getUTXBRK : TBits_1; inline;
  42055. begin
  42056. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  42057. end;
  42058. procedure TUART3B_U3BSTA.setURXEN; inline;
  42059. begin
  42060. pTDefRegMap(@Self)^.&set := $00001000;
  42061. end;
  42062. procedure TUART3B_U3BSTA.clearURXEN; inline;
  42063. begin
  42064. pTDefRegMap(@Self)^.clr := $00001000;
  42065. end;
  42066. procedure TUART3B_U3BSTA.setURXEN(thebits : TBits_1); inline;
  42067. begin
  42068. if thebits = 0 then
  42069. pTDefRegMap(@Self)^.clr := $00001000
  42070. else
  42071. pTDefRegMap(@Self)^.&set := $00001000;
  42072. end;
  42073. function TUART3B_U3BSTA.getURXEN : TBits_1; inline;
  42074. begin
  42075. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42076. end;
  42077. procedure TUART3B_U3BSTA.setUTXINV; inline;
  42078. begin
  42079. pTDefRegMap(@Self)^.&set := $00002000;
  42080. end;
  42081. procedure TUART3B_U3BSTA.clearUTXINV; inline;
  42082. begin
  42083. pTDefRegMap(@Self)^.clr := $00002000;
  42084. end;
  42085. procedure TUART3B_U3BSTA.setUTXINV(thebits : TBits_1); inline;
  42086. begin
  42087. if thebits = 0 then
  42088. pTDefRegMap(@Self)^.clr := $00002000
  42089. else
  42090. pTDefRegMap(@Self)^.&set := $00002000;
  42091. end;
  42092. function TUART3B_U3BSTA.getUTXINV : TBits_1; inline;
  42093. begin
  42094. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42095. end;
  42096. procedure TUART3B_U3BSTA.setUTXISEL(thebits : TBits_2); inline;
  42097. begin
  42098. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42099. end;
  42100. function TUART3B_U3BSTA.getUTXISEL : TBits_2; inline;
  42101. begin
  42102. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42103. end;
  42104. procedure TUART3B_U3BSTA.setADDR(thebits : TBits_8); inline;
  42105. begin
  42106. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  42107. end;
  42108. function TUART3B_U3BSTA.getADDR : TBits_8; inline;
  42109. begin
  42110. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  42111. end;
  42112. procedure TUART3B_U3BSTA.setADM_EN; inline;
  42113. begin
  42114. pTDefRegMap(@Self)^.&set := $01000000;
  42115. end;
  42116. procedure TUART3B_U3BSTA.clearADM_EN; inline;
  42117. begin
  42118. pTDefRegMap(@Self)^.clr := $01000000;
  42119. end;
  42120. procedure TUART3B_U3BSTA.setADM_EN(thebits : TBits_1); inline;
  42121. begin
  42122. if thebits = 0 then
  42123. pTDefRegMap(@Self)^.clr := $01000000
  42124. else
  42125. pTDefRegMap(@Self)^.&set := $01000000;
  42126. end;
  42127. function TUART3B_U3BSTA.getADM_EN : TBits_1; inline;
  42128. begin
  42129. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  42130. end;
  42131. procedure TUART3B_U3BSTA.setURXISEL0; inline;
  42132. begin
  42133. pTDefRegMap(@Self)^.&set := $00000040;
  42134. end;
  42135. procedure TUART3B_U3BSTA.clearURXISEL0; inline;
  42136. begin
  42137. pTDefRegMap(@Self)^.clr := $00000040;
  42138. end;
  42139. procedure TUART3B_U3BSTA.setURXISEL0(thebits : TBits_1); inline;
  42140. begin
  42141. if thebits = 0 then
  42142. pTDefRegMap(@Self)^.clr := $00000040
  42143. else
  42144. pTDefRegMap(@Self)^.&set := $00000040;
  42145. end;
  42146. function TUART3B_U3BSTA.getURXISEL0 : TBits_1; inline;
  42147. begin
  42148. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42149. end;
  42150. procedure TUART3B_U3BSTA.setURXISEL1; inline;
  42151. begin
  42152. pTDefRegMap(@Self)^.&set := $00000080;
  42153. end;
  42154. procedure TUART3B_U3BSTA.clearURXISEL1; inline;
  42155. begin
  42156. pTDefRegMap(@Self)^.clr := $00000080;
  42157. end;
  42158. procedure TUART3B_U3BSTA.setURXISEL1(thebits : TBits_1); inline;
  42159. begin
  42160. if thebits = 0 then
  42161. pTDefRegMap(@Self)^.clr := $00000080
  42162. else
  42163. pTDefRegMap(@Self)^.&set := $00000080;
  42164. end;
  42165. function TUART3B_U3BSTA.getURXISEL1 : TBits_1; inline;
  42166. begin
  42167. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42168. end;
  42169. procedure TUART3B_U3BSTA.setUTXISEL0; inline;
  42170. begin
  42171. pTDefRegMap(@Self)^.&set := $00004000;
  42172. end;
  42173. procedure TUART3B_U3BSTA.clearUTXISEL0; inline;
  42174. begin
  42175. pTDefRegMap(@Self)^.clr := $00004000;
  42176. end;
  42177. procedure TUART3B_U3BSTA.setUTXISEL0(thebits : TBits_1); inline;
  42178. begin
  42179. if thebits = 0 then
  42180. pTDefRegMap(@Self)^.clr := $00004000
  42181. else
  42182. pTDefRegMap(@Self)^.&set := $00004000;
  42183. end;
  42184. function TUART3B_U3BSTA.getUTXISEL0 : TBits_1; inline;
  42185. begin
  42186. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  42187. end;
  42188. procedure TUART3B_U3BSTA.setUTXISEL1; inline;
  42189. begin
  42190. pTDefRegMap(@Self)^.&set := $00008000;
  42191. end;
  42192. procedure TUART3B_U3BSTA.clearUTXISEL1; inline;
  42193. begin
  42194. pTDefRegMap(@Self)^.clr := $00008000;
  42195. end;
  42196. procedure TUART3B_U3BSTA.setUTXISEL1(thebits : TBits_1); inline;
  42197. begin
  42198. if thebits = 0 then
  42199. pTDefRegMap(@Self)^.clr := $00008000
  42200. else
  42201. pTDefRegMap(@Self)^.&set := $00008000;
  42202. end;
  42203. function TUART3B_U3BSTA.getUTXISEL1 : TBits_1; inline;
  42204. begin
  42205. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42206. end;
  42207. procedure TUART3B_U3BSTA.setUTXSEL(thebits : TBits_2); inline;
  42208. begin
  42209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42210. end;
  42211. function TUART3B_U3BSTA.getUTXSEL : TBits_2; inline;
  42212. begin
  42213. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42214. end;
  42215. procedure TUART3B_U3BSTA.setw(thebits : TBits_32); inline;
  42216. begin
  42217. pTDefRegMap(@Self)^.val := thebits;
  42218. end;
  42219. function TUART3B_U3BSTA.getw : TBits_32; inline;
  42220. begin
  42221. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42222. end;
  42223. procedure TUART3B_U5STA.setURXDA; inline;
  42224. begin
  42225. pTDefRegMap(@Self)^.&set := $00000001;
  42226. end;
  42227. procedure TUART3B_U5STA.clearURXDA; inline;
  42228. begin
  42229. pTDefRegMap(@Self)^.clr := $00000001;
  42230. end;
  42231. procedure TUART3B_U5STA.setURXDA(thebits : TBits_1); inline;
  42232. begin
  42233. if thebits = 0 then
  42234. pTDefRegMap(@Self)^.clr := $00000001
  42235. else
  42236. pTDefRegMap(@Self)^.&set := $00000001;
  42237. end;
  42238. function TUART3B_U5STA.getURXDA : TBits_1; inline;
  42239. begin
  42240. getURXDA := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42241. end;
  42242. procedure TUART3B_U5STA.setOERR; inline;
  42243. begin
  42244. pTDefRegMap(@Self)^.&set := $00000002;
  42245. end;
  42246. procedure TUART3B_U5STA.clearOERR; inline;
  42247. begin
  42248. pTDefRegMap(@Self)^.clr := $00000002;
  42249. end;
  42250. procedure TUART3B_U5STA.setOERR(thebits : TBits_1); inline;
  42251. begin
  42252. if thebits = 0 then
  42253. pTDefRegMap(@Self)^.clr := $00000002
  42254. else
  42255. pTDefRegMap(@Self)^.&set := $00000002;
  42256. end;
  42257. function TUART3B_U5STA.getOERR : TBits_1; inline;
  42258. begin
  42259. getOERR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42260. end;
  42261. procedure TUART3B_U5STA.setFERR; inline;
  42262. begin
  42263. pTDefRegMap(@Self)^.&set := $00000004;
  42264. end;
  42265. procedure TUART3B_U5STA.clearFERR; inline;
  42266. begin
  42267. pTDefRegMap(@Self)^.clr := $00000004;
  42268. end;
  42269. procedure TUART3B_U5STA.setFERR(thebits : TBits_1); inline;
  42270. begin
  42271. if thebits = 0 then
  42272. pTDefRegMap(@Self)^.clr := $00000004
  42273. else
  42274. pTDefRegMap(@Self)^.&set := $00000004;
  42275. end;
  42276. function TUART3B_U5STA.getFERR : TBits_1; inline;
  42277. begin
  42278. getFERR := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  42279. end;
  42280. procedure TUART3B_U5STA.setPERR; inline;
  42281. begin
  42282. pTDefRegMap(@Self)^.&set := $00000008;
  42283. end;
  42284. procedure TUART3B_U5STA.clearPERR; inline;
  42285. begin
  42286. pTDefRegMap(@Self)^.clr := $00000008;
  42287. end;
  42288. procedure TUART3B_U5STA.setPERR(thebits : TBits_1); inline;
  42289. begin
  42290. if thebits = 0 then
  42291. pTDefRegMap(@Self)^.clr := $00000008
  42292. else
  42293. pTDefRegMap(@Self)^.&set := $00000008;
  42294. end;
  42295. function TUART3B_U5STA.getPERR : TBits_1; inline;
  42296. begin
  42297. getPERR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42298. end;
  42299. procedure TUART3B_U5STA.setRIDLE; inline;
  42300. begin
  42301. pTDefRegMap(@Self)^.&set := $00000010;
  42302. end;
  42303. procedure TUART3B_U5STA.clearRIDLE; inline;
  42304. begin
  42305. pTDefRegMap(@Self)^.clr := $00000010;
  42306. end;
  42307. procedure TUART3B_U5STA.setRIDLE(thebits : TBits_1); inline;
  42308. begin
  42309. if thebits = 0 then
  42310. pTDefRegMap(@Self)^.clr := $00000010
  42311. else
  42312. pTDefRegMap(@Self)^.&set := $00000010;
  42313. end;
  42314. function TUART3B_U5STA.getRIDLE : TBits_1; inline;
  42315. begin
  42316. getRIDLE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42317. end;
  42318. procedure TUART3B_U5STA.setADDEN; inline;
  42319. begin
  42320. pTDefRegMap(@Self)^.&set := $00000020;
  42321. end;
  42322. procedure TUART3B_U5STA.clearADDEN; inline;
  42323. begin
  42324. pTDefRegMap(@Self)^.clr := $00000020;
  42325. end;
  42326. procedure TUART3B_U5STA.setADDEN(thebits : TBits_1); inline;
  42327. begin
  42328. if thebits = 0 then
  42329. pTDefRegMap(@Self)^.clr := $00000020
  42330. else
  42331. pTDefRegMap(@Self)^.&set := $00000020;
  42332. end;
  42333. function TUART3B_U5STA.getADDEN : TBits_1; inline;
  42334. begin
  42335. getADDEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42336. end;
  42337. procedure TUART3B_U5STA.setURXISEL(thebits : TBits_2); inline;
  42338. begin
  42339. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42340. end;
  42341. function TUART3B_U5STA.getURXISEL : TBits_2; inline;
  42342. begin
  42343. getURXISEL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42344. end;
  42345. procedure TUART3B_U5STA.setTRMT; inline;
  42346. begin
  42347. pTDefRegMap(@Self)^.&set := $00000100;
  42348. end;
  42349. procedure TUART3B_U5STA.clearTRMT; inline;
  42350. begin
  42351. pTDefRegMap(@Self)^.clr := $00000100;
  42352. end;
  42353. procedure TUART3B_U5STA.setTRMT(thebits : TBits_1); inline;
  42354. begin
  42355. if thebits = 0 then
  42356. pTDefRegMap(@Self)^.clr := $00000100
  42357. else
  42358. pTDefRegMap(@Self)^.&set := $00000100;
  42359. end;
  42360. function TUART3B_U5STA.getTRMT : TBits_1; inline;
  42361. begin
  42362. getTRMT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42363. end;
  42364. procedure TUART3B_U5STA.setUTXBF; inline;
  42365. begin
  42366. pTDefRegMap(@Self)^.&set := $00000200;
  42367. end;
  42368. procedure TUART3B_U5STA.clearUTXBF; inline;
  42369. begin
  42370. pTDefRegMap(@Self)^.clr := $00000200;
  42371. end;
  42372. procedure TUART3B_U5STA.setUTXBF(thebits : TBits_1); inline;
  42373. begin
  42374. if thebits = 0 then
  42375. pTDefRegMap(@Self)^.clr := $00000200
  42376. else
  42377. pTDefRegMap(@Self)^.&set := $00000200;
  42378. end;
  42379. function TUART3B_U5STA.getUTXBF : TBits_1; inline;
  42380. begin
  42381. getUTXBF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42382. end;
  42383. procedure TUART3B_U5STA.setUTXEN; inline;
  42384. begin
  42385. pTDefRegMap(@Self)^.&set := $00000400;
  42386. end;
  42387. procedure TUART3B_U5STA.clearUTXEN; inline;
  42388. begin
  42389. pTDefRegMap(@Self)^.clr := $00000400;
  42390. end;
  42391. procedure TUART3B_U5STA.setUTXEN(thebits : TBits_1); inline;
  42392. begin
  42393. if thebits = 0 then
  42394. pTDefRegMap(@Self)^.clr := $00000400
  42395. else
  42396. pTDefRegMap(@Self)^.&set := $00000400;
  42397. end;
  42398. function TUART3B_U5STA.getUTXEN : TBits_1; inline;
  42399. begin
  42400. getUTXEN := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42401. end;
  42402. procedure TUART3B_U5STA.setUTXBRK; inline;
  42403. begin
  42404. pTDefRegMap(@Self)^.&set := $00000800;
  42405. end;
  42406. procedure TUART3B_U5STA.clearUTXBRK; inline;
  42407. begin
  42408. pTDefRegMap(@Self)^.clr := $00000800;
  42409. end;
  42410. procedure TUART3B_U5STA.setUTXBRK(thebits : TBits_1); inline;
  42411. begin
  42412. if thebits = 0 then
  42413. pTDefRegMap(@Self)^.clr := $00000800
  42414. else
  42415. pTDefRegMap(@Self)^.&set := $00000800;
  42416. end;
  42417. function TUART3B_U5STA.getUTXBRK : TBits_1; inline;
  42418. begin
  42419. getUTXBRK := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  42420. end;
  42421. procedure TUART3B_U5STA.setURXEN; inline;
  42422. begin
  42423. pTDefRegMap(@Self)^.&set := $00001000;
  42424. end;
  42425. procedure TUART3B_U5STA.clearURXEN; inline;
  42426. begin
  42427. pTDefRegMap(@Self)^.clr := $00001000;
  42428. end;
  42429. procedure TUART3B_U5STA.setURXEN(thebits : TBits_1); inline;
  42430. begin
  42431. if thebits = 0 then
  42432. pTDefRegMap(@Self)^.clr := $00001000
  42433. else
  42434. pTDefRegMap(@Self)^.&set := $00001000;
  42435. end;
  42436. function TUART3B_U5STA.getURXEN : TBits_1; inline;
  42437. begin
  42438. getURXEN := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42439. end;
  42440. procedure TUART3B_U5STA.setUTXINV; inline;
  42441. begin
  42442. pTDefRegMap(@Self)^.&set := $00002000;
  42443. end;
  42444. procedure TUART3B_U5STA.clearUTXINV; inline;
  42445. begin
  42446. pTDefRegMap(@Self)^.clr := $00002000;
  42447. end;
  42448. procedure TUART3B_U5STA.setUTXINV(thebits : TBits_1); inline;
  42449. begin
  42450. if thebits = 0 then
  42451. pTDefRegMap(@Self)^.clr := $00002000
  42452. else
  42453. pTDefRegMap(@Self)^.&set := $00002000;
  42454. end;
  42455. function TUART3B_U5STA.getUTXINV : TBits_1; inline;
  42456. begin
  42457. getUTXINV := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42458. end;
  42459. procedure TUART3B_U5STA.setUTXISEL(thebits : TBits_2); inline;
  42460. begin
  42461. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42462. end;
  42463. function TUART3B_U5STA.getUTXISEL : TBits_2; inline;
  42464. begin
  42465. getUTXISEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42466. end;
  42467. procedure TUART3B_U5STA.setADDR(thebits : TBits_8); inline;
  42468. begin
  42469. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  42470. end;
  42471. function TUART3B_U5STA.getADDR : TBits_8; inline;
  42472. begin
  42473. getADDR := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  42474. end;
  42475. procedure TUART3B_U5STA.setADM_EN; inline;
  42476. begin
  42477. pTDefRegMap(@Self)^.&set := $01000000;
  42478. end;
  42479. procedure TUART3B_U5STA.clearADM_EN; inline;
  42480. begin
  42481. pTDefRegMap(@Self)^.clr := $01000000;
  42482. end;
  42483. procedure TUART3B_U5STA.setADM_EN(thebits : TBits_1); inline;
  42484. begin
  42485. if thebits = 0 then
  42486. pTDefRegMap(@Self)^.clr := $01000000
  42487. else
  42488. pTDefRegMap(@Self)^.&set := $01000000;
  42489. end;
  42490. function TUART3B_U5STA.getADM_EN : TBits_1; inline;
  42491. begin
  42492. getADM_EN := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  42493. end;
  42494. procedure TUART3B_U5STA.setURXISEL0; inline;
  42495. begin
  42496. pTDefRegMap(@Self)^.&set := $00000040;
  42497. end;
  42498. procedure TUART3B_U5STA.clearURXISEL0; inline;
  42499. begin
  42500. pTDefRegMap(@Self)^.clr := $00000040;
  42501. end;
  42502. procedure TUART3B_U5STA.setURXISEL0(thebits : TBits_1); inline;
  42503. begin
  42504. if thebits = 0 then
  42505. pTDefRegMap(@Self)^.clr := $00000040
  42506. else
  42507. pTDefRegMap(@Self)^.&set := $00000040;
  42508. end;
  42509. function TUART3B_U5STA.getURXISEL0 : TBits_1; inline;
  42510. begin
  42511. getURXISEL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42512. end;
  42513. procedure TUART3B_U5STA.setURXISEL1; inline;
  42514. begin
  42515. pTDefRegMap(@Self)^.&set := $00000080;
  42516. end;
  42517. procedure TUART3B_U5STA.clearURXISEL1; inline;
  42518. begin
  42519. pTDefRegMap(@Self)^.clr := $00000080;
  42520. end;
  42521. procedure TUART3B_U5STA.setURXISEL1(thebits : TBits_1); inline;
  42522. begin
  42523. if thebits = 0 then
  42524. pTDefRegMap(@Self)^.clr := $00000080
  42525. else
  42526. pTDefRegMap(@Self)^.&set := $00000080;
  42527. end;
  42528. function TUART3B_U5STA.getURXISEL1 : TBits_1; inline;
  42529. begin
  42530. getURXISEL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42531. end;
  42532. procedure TUART3B_U5STA.setUTXISEL0; inline;
  42533. begin
  42534. pTDefRegMap(@Self)^.&set := $00004000;
  42535. end;
  42536. procedure TUART3B_U5STA.clearUTXISEL0; inline;
  42537. begin
  42538. pTDefRegMap(@Self)^.clr := $00004000;
  42539. end;
  42540. procedure TUART3B_U5STA.setUTXISEL0(thebits : TBits_1); inline;
  42541. begin
  42542. if thebits = 0 then
  42543. pTDefRegMap(@Self)^.clr := $00004000
  42544. else
  42545. pTDefRegMap(@Self)^.&set := $00004000;
  42546. end;
  42547. function TUART3B_U5STA.getUTXISEL0 : TBits_1; inline;
  42548. begin
  42549. getUTXISEL0 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  42550. end;
  42551. procedure TUART3B_U5STA.setUTXISEL1; inline;
  42552. begin
  42553. pTDefRegMap(@Self)^.&set := $00008000;
  42554. end;
  42555. procedure TUART3B_U5STA.clearUTXISEL1; inline;
  42556. begin
  42557. pTDefRegMap(@Self)^.clr := $00008000;
  42558. end;
  42559. procedure TUART3B_U5STA.setUTXISEL1(thebits : TBits_1); inline;
  42560. begin
  42561. if thebits = 0 then
  42562. pTDefRegMap(@Self)^.clr := $00008000
  42563. else
  42564. pTDefRegMap(@Self)^.&set := $00008000;
  42565. end;
  42566. function TUART3B_U5STA.getUTXISEL1 : TBits_1; inline;
  42567. begin
  42568. getUTXISEL1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42569. end;
  42570. procedure TUART3B_U5STA.setUTXSEL(thebits : TBits_2); inline;
  42571. begin
  42572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  42573. end;
  42574. function TUART3B_U5STA.getUTXSEL : TBits_2; inline;
  42575. begin
  42576. getUTXSEL := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  42577. end;
  42578. procedure TUART3B_U5STA.setw(thebits : TBits_32); inline;
  42579. begin
  42580. pTDefRegMap(@Self)^.val := thebits;
  42581. end;
  42582. function TUART3B_U5STA.getw : TBits_32; inline;
  42583. begin
  42584. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42585. end;
  42586. procedure TPMP_PMCON.setRDSP; inline;
  42587. begin
  42588. pTDefRegMap(@Self)^.&set := $00000001;
  42589. end;
  42590. procedure TPMP_PMCON.clearRDSP; inline;
  42591. begin
  42592. pTDefRegMap(@Self)^.clr := $00000001;
  42593. end;
  42594. procedure TPMP_PMCON.setRDSP(thebits : TBits_1); inline;
  42595. begin
  42596. if thebits = 0 then
  42597. pTDefRegMap(@Self)^.clr := $00000001
  42598. else
  42599. pTDefRegMap(@Self)^.&set := $00000001;
  42600. end;
  42601. function TPMP_PMCON.getRDSP : TBits_1; inline;
  42602. begin
  42603. getRDSP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  42604. end;
  42605. procedure TPMP_PMCON.setWRSP; inline;
  42606. begin
  42607. pTDefRegMap(@Self)^.&set := $00000002;
  42608. end;
  42609. procedure TPMP_PMCON.clearWRSP; inline;
  42610. begin
  42611. pTDefRegMap(@Self)^.clr := $00000002;
  42612. end;
  42613. procedure TPMP_PMCON.setWRSP(thebits : TBits_1); inline;
  42614. begin
  42615. if thebits = 0 then
  42616. pTDefRegMap(@Self)^.clr := $00000002
  42617. else
  42618. pTDefRegMap(@Self)^.&set := $00000002;
  42619. end;
  42620. function TPMP_PMCON.getWRSP : TBits_1; inline;
  42621. begin
  42622. getWRSP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  42623. end;
  42624. procedure TPMP_PMCON.setCS1P; inline;
  42625. begin
  42626. pTDefRegMap(@Self)^.&set := $00000008;
  42627. end;
  42628. procedure TPMP_PMCON.clearCS1P; inline;
  42629. begin
  42630. pTDefRegMap(@Self)^.clr := $00000008;
  42631. end;
  42632. procedure TPMP_PMCON.setCS1P(thebits : TBits_1); inline;
  42633. begin
  42634. if thebits = 0 then
  42635. pTDefRegMap(@Self)^.clr := $00000008
  42636. else
  42637. pTDefRegMap(@Self)^.&set := $00000008;
  42638. end;
  42639. function TPMP_PMCON.getCS1P : TBits_1; inline;
  42640. begin
  42641. getCS1P := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  42642. end;
  42643. procedure TPMP_PMCON.setCS2P; inline;
  42644. begin
  42645. pTDefRegMap(@Self)^.&set := $00000010;
  42646. end;
  42647. procedure TPMP_PMCON.clearCS2P; inline;
  42648. begin
  42649. pTDefRegMap(@Self)^.clr := $00000010;
  42650. end;
  42651. procedure TPMP_PMCON.setCS2P(thebits : TBits_1); inline;
  42652. begin
  42653. if thebits = 0 then
  42654. pTDefRegMap(@Self)^.clr := $00000010
  42655. else
  42656. pTDefRegMap(@Self)^.&set := $00000010;
  42657. end;
  42658. function TPMP_PMCON.getCS2P : TBits_1; inline;
  42659. begin
  42660. getCS2P := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  42661. end;
  42662. procedure TPMP_PMCON.setALP; inline;
  42663. begin
  42664. pTDefRegMap(@Self)^.&set := $00000020;
  42665. end;
  42666. procedure TPMP_PMCON.clearALP; inline;
  42667. begin
  42668. pTDefRegMap(@Self)^.clr := $00000020;
  42669. end;
  42670. procedure TPMP_PMCON.setALP(thebits : TBits_1); inline;
  42671. begin
  42672. if thebits = 0 then
  42673. pTDefRegMap(@Self)^.clr := $00000020
  42674. else
  42675. pTDefRegMap(@Self)^.&set := $00000020;
  42676. end;
  42677. function TPMP_PMCON.getALP : TBits_1; inline;
  42678. begin
  42679. getALP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  42680. end;
  42681. procedure TPMP_PMCON.setCSF(thebits : TBits_2); inline;
  42682. begin
  42683. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42684. end;
  42685. function TPMP_PMCON.getCSF : TBits_2; inline;
  42686. begin
  42687. getCSF := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42688. end;
  42689. procedure TPMP_PMCON.setPTRDEN; inline;
  42690. begin
  42691. pTDefRegMap(@Self)^.&set := $00000100;
  42692. end;
  42693. procedure TPMP_PMCON.clearPTRDEN; inline;
  42694. begin
  42695. pTDefRegMap(@Self)^.clr := $00000100;
  42696. end;
  42697. procedure TPMP_PMCON.setPTRDEN(thebits : TBits_1); inline;
  42698. begin
  42699. if thebits = 0 then
  42700. pTDefRegMap(@Self)^.clr := $00000100
  42701. else
  42702. pTDefRegMap(@Self)^.&set := $00000100;
  42703. end;
  42704. function TPMP_PMCON.getPTRDEN : TBits_1; inline;
  42705. begin
  42706. getPTRDEN := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  42707. end;
  42708. procedure TPMP_PMCON.setPTWREN; inline;
  42709. begin
  42710. pTDefRegMap(@Self)^.&set := $00000200;
  42711. end;
  42712. procedure TPMP_PMCON.clearPTWREN; inline;
  42713. begin
  42714. pTDefRegMap(@Self)^.clr := $00000200;
  42715. end;
  42716. procedure TPMP_PMCON.setPTWREN(thebits : TBits_1); inline;
  42717. begin
  42718. if thebits = 0 then
  42719. pTDefRegMap(@Self)^.clr := $00000200
  42720. else
  42721. pTDefRegMap(@Self)^.&set := $00000200;
  42722. end;
  42723. function TPMP_PMCON.getPTWREN : TBits_1; inline;
  42724. begin
  42725. getPTWREN := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  42726. end;
  42727. procedure TPMP_PMCON.setPMPTTL; inline;
  42728. begin
  42729. pTDefRegMap(@Self)^.&set := $00000400;
  42730. end;
  42731. procedure TPMP_PMCON.clearPMPTTL; inline;
  42732. begin
  42733. pTDefRegMap(@Self)^.clr := $00000400;
  42734. end;
  42735. procedure TPMP_PMCON.setPMPTTL(thebits : TBits_1); inline;
  42736. begin
  42737. if thebits = 0 then
  42738. pTDefRegMap(@Self)^.clr := $00000400
  42739. else
  42740. pTDefRegMap(@Self)^.&set := $00000400;
  42741. end;
  42742. function TPMP_PMCON.getPMPTTL : TBits_1; inline;
  42743. begin
  42744. getPMPTTL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42745. end;
  42746. procedure TPMP_PMCON.setADRMUX(thebits : TBits_2); inline;
  42747. begin
  42748. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  42749. end;
  42750. function TPMP_PMCON.getADRMUX : TBits_2; inline;
  42751. begin
  42752. getADRMUX := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  42753. end;
  42754. procedure TPMP_PMCON.setSIDL; inline;
  42755. begin
  42756. pTDefRegMap(@Self)^.&set := $00002000;
  42757. end;
  42758. procedure TPMP_PMCON.clearSIDL; inline;
  42759. begin
  42760. pTDefRegMap(@Self)^.clr := $00002000;
  42761. end;
  42762. procedure TPMP_PMCON.setSIDL(thebits : TBits_1); inline;
  42763. begin
  42764. if thebits = 0 then
  42765. pTDefRegMap(@Self)^.clr := $00002000
  42766. else
  42767. pTDefRegMap(@Self)^.&set := $00002000;
  42768. end;
  42769. function TPMP_PMCON.getSIDL : TBits_1; inline;
  42770. begin
  42771. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42772. end;
  42773. procedure TPMP_PMCON.setON; inline;
  42774. begin
  42775. pTDefRegMap(@Self)^.&set := $00008000;
  42776. end;
  42777. procedure TPMP_PMCON.clearON; inline;
  42778. begin
  42779. pTDefRegMap(@Self)^.clr := $00008000;
  42780. end;
  42781. procedure TPMP_PMCON.setON(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 TPMP_PMCON.getON : TBits_1; inline;
  42789. begin
  42790. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42791. end;
  42792. procedure TPMP_PMCON.setCSF0; inline;
  42793. begin
  42794. pTDefRegMap(@Self)^.&set := $00000040;
  42795. end;
  42796. procedure TPMP_PMCON.clearCSF0; inline;
  42797. begin
  42798. pTDefRegMap(@Self)^.clr := $00000040;
  42799. end;
  42800. procedure TPMP_PMCON.setCSF0(thebits : TBits_1); inline;
  42801. begin
  42802. if thebits = 0 then
  42803. pTDefRegMap(@Self)^.clr := $00000040
  42804. else
  42805. pTDefRegMap(@Self)^.&set := $00000040;
  42806. end;
  42807. function TPMP_PMCON.getCSF0 : TBits_1; inline;
  42808. begin
  42809. getCSF0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  42810. end;
  42811. procedure TPMP_PMCON.setCSF1; inline;
  42812. begin
  42813. pTDefRegMap(@Self)^.&set := $00000080;
  42814. end;
  42815. procedure TPMP_PMCON.clearCSF1; inline;
  42816. begin
  42817. pTDefRegMap(@Self)^.clr := $00000080;
  42818. end;
  42819. procedure TPMP_PMCON.setCSF1(thebits : TBits_1); inline;
  42820. begin
  42821. if thebits = 0 then
  42822. pTDefRegMap(@Self)^.clr := $00000080
  42823. else
  42824. pTDefRegMap(@Self)^.&set := $00000080;
  42825. end;
  42826. function TPMP_PMCON.getCSF1 : TBits_1; inline;
  42827. begin
  42828. getCSF1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  42829. end;
  42830. procedure TPMP_PMCON.setADRMUX0; inline;
  42831. begin
  42832. pTDefRegMap(@Self)^.&set := $00000800;
  42833. end;
  42834. procedure TPMP_PMCON.clearADRMUX0; inline;
  42835. begin
  42836. pTDefRegMap(@Self)^.clr := $00000800;
  42837. end;
  42838. procedure TPMP_PMCON.setADRMUX0(thebits : TBits_1); inline;
  42839. begin
  42840. if thebits = 0 then
  42841. pTDefRegMap(@Self)^.clr := $00000800
  42842. else
  42843. pTDefRegMap(@Self)^.&set := $00000800;
  42844. end;
  42845. function TPMP_PMCON.getADRMUX0 : TBits_1; inline;
  42846. begin
  42847. getADRMUX0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  42848. end;
  42849. procedure TPMP_PMCON.setADRMUX1; inline;
  42850. begin
  42851. pTDefRegMap(@Self)^.&set := $00001000;
  42852. end;
  42853. procedure TPMP_PMCON.clearADRMUX1; inline;
  42854. begin
  42855. pTDefRegMap(@Self)^.clr := $00001000;
  42856. end;
  42857. procedure TPMP_PMCON.setADRMUX1(thebits : TBits_1); inline;
  42858. begin
  42859. if thebits = 0 then
  42860. pTDefRegMap(@Self)^.clr := $00001000
  42861. else
  42862. pTDefRegMap(@Self)^.&set := $00001000;
  42863. end;
  42864. function TPMP_PMCON.getADRMUX1 : TBits_1; inline;
  42865. begin
  42866. getADRMUX1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  42867. end;
  42868. procedure TPMP_PMCON.setPSIDL; inline;
  42869. begin
  42870. pTDefRegMap(@Self)^.&set := $00002000;
  42871. end;
  42872. procedure TPMP_PMCON.clearPSIDL; inline;
  42873. begin
  42874. pTDefRegMap(@Self)^.clr := $00002000;
  42875. end;
  42876. procedure TPMP_PMCON.setPSIDL(thebits : TBits_1); inline;
  42877. begin
  42878. if thebits = 0 then
  42879. pTDefRegMap(@Self)^.clr := $00002000
  42880. else
  42881. pTDefRegMap(@Self)^.&set := $00002000;
  42882. end;
  42883. function TPMP_PMCON.getPSIDL : TBits_1; inline;
  42884. begin
  42885. getPSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  42886. end;
  42887. procedure TPMP_PMCON.setPMPEN; inline;
  42888. begin
  42889. pTDefRegMap(@Self)^.&set := $00008000;
  42890. end;
  42891. procedure TPMP_PMCON.clearPMPEN; inline;
  42892. begin
  42893. pTDefRegMap(@Self)^.clr := $00008000;
  42894. end;
  42895. procedure TPMP_PMCON.setPMPEN(thebits : TBits_1); inline;
  42896. begin
  42897. if thebits = 0 then
  42898. pTDefRegMap(@Self)^.clr := $00008000
  42899. else
  42900. pTDefRegMap(@Self)^.&set := $00008000;
  42901. end;
  42902. function TPMP_PMCON.getPMPEN : TBits_1; inline;
  42903. begin
  42904. getPMPEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42905. end;
  42906. procedure TPMP_PMCON.setw(thebits : TBits_32); inline;
  42907. begin
  42908. pTDefRegMap(@Self)^.val := thebits;
  42909. end;
  42910. function TPMP_PMCON.getw : TBits_32; inline;
  42911. begin
  42912. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  42913. end;
  42914. procedure TPMP_PMMODE.setWAITE(thebits : TBits_2); inline;
  42915. begin
  42916. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  42917. end;
  42918. function TPMP_PMMODE.getWAITE : TBits_2; inline;
  42919. begin
  42920. getWAITE := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  42921. end;
  42922. procedure TPMP_PMMODE.setWAITM(thebits : TBits_4); inline;
  42923. begin
  42924. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  42925. end;
  42926. function TPMP_PMMODE.getWAITM : TBits_4; inline;
  42927. begin
  42928. getWAITM := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  42929. end;
  42930. procedure TPMP_PMMODE.setWAITB(thebits : TBits_2); inline;
  42931. begin
  42932. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  42933. end;
  42934. function TPMP_PMMODE.getWAITB : TBits_2; inline;
  42935. begin
  42936. getWAITB := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  42937. end;
  42938. procedure TPMP_PMMODE.setMODE(thebits : TBits_2); inline;
  42939. begin
  42940. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  42941. end;
  42942. function TPMP_PMMODE.getMODE : TBits_2; inline;
  42943. begin
  42944. getMODE := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  42945. end;
  42946. procedure TPMP_PMMODE.setMODE16; inline;
  42947. begin
  42948. pTDefRegMap(@Self)^.&set := $00000400;
  42949. end;
  42950. procedure TPMP_PMMODE.clearMODE16; inline;
  42951. begin
  42952. pTDefRegMap(@Self)^.clr := $00000400;
  42953. end;
  42954. procedure TPMP_PMMODE.setMODE16(thebits : TBits_1); inline;
  42955. begin
  42956. if thebits = 0 then
  42957. pTDefRegMap(@Self)^.clr := $00000400
  42958. else
  42959. pTDefRegMap(@Self)^.&set := $00000400;
  42960. end;
  42961. function TPMP_PMMODE.getMODE16 : TBits_1; inline;
  42962. begin
  42963. getMODE16 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  42964. end;
  42965. procedure TPMP_PMMODE.setINCM(thebits : TBits_2); inline;
  42966. begin
  42967. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE7FF or ( thebits shl 11 );
  42968. end;
  42969. function TPMP_PMMODE.getINCM : TBits_2; inline;
  42970. begin
  42971. getINCM := (pTDefRegMap(@Self)^.val and $00001800) shr 11;
  42972. end;
  42973. procedure TPMP_PMMODE.setIRQM(thebits : TBits_2); inline;
  42974. begin
  42975. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  42976. end;
  42977. function TPMP_PMMODE.getIRQM : TBits_2; inline;
  42978. begin
  42979. getIRQM := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  42980. end;
  42981. procedure TPMP_PMMODE.setBUSY; inline;
  42982. begin
  42983. pTDefRegMap(@Self)^.&set := $00008000;
  42984. end;
  42985. procedure TPMP_PMMODE.clearBUSY; inline;
  42986. begin
  42987. pTDefRegMap(@Self)^.clr := $00008000;
  42988. end;
  42989. procedure TPMP_PMMODE.setBUSY(thebits : TBits_1); inline;
  42990. begin
  42991. if thebits = 0 then
  42992. pTDefRegMap(@Self)^.clr := $00008000
  42993. else
  42994. pTDefRegMap(@Self)^.&set := $00008000;
  42995. end;
  42996. function TPMP_PMMODE.getBUSY : TBits_1; inline;
  42997. begin
  42998. getBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  42999. end;
  43000. procedure TPMP_PMMODE.setWAITE0; inline;
  43001. begin
  43002. pTDefRegMap(@Self)^.&set := $00000001;
  43003. end;
  43004. procedure TPMP_PMMODE.clearWAITE0; inline;
  43005. begin
  43006. pTDefRegMap(@Self)^.clr := $00000001;
  43007. end;
  43008. procedure TPMP_PMMODE.setWAITE0(thebits : TBits_1); inline;
  43009. begin
  43010. if thebits = 0 then
  43011. pTDefRegMap(@Self)^.clr := $00000001
  43012. else
  43013. pTDefRegMap(@Self)^.&set := $00000001;
  43014. end;
  43015. function TPMP_PMMODE.getWAITE0 : TBits_1; inline;
  43016. begin
  43017. getWAITE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43018. end;
  43019. procedure TPMP_PMMODE.setWAITE1; inline;
  43020. begin
  43021. pTDefRegMap(@Self)^.&set := $00000002;
  43022. end;
  43023. procedure TPMP_PMMODE.clearWAITE1; inline;
  43024. begin
  43025. pTDefRegMap(@Self)^.clr := $00000002;
  43026. end;
  43027. procedure TPMP_PMMODE.setWAITE1(thebits : TBits_1); inline;
  43028. begin
  43029. if thebits = 0 then
  43030. pTDefRegMap(@Self)^.clr := $00000002
  43031. else
  43032. pTDefRegMap(@Self)^.&set := $00000002;
  43033. end;
  43034. function TPMP_PMMODE.getWAITE1 : TBits_1; inline;
  43035. begin
  43036. getWAITE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43037. end;
  43038. procedure TPMP_PMMODE.setWAITM0; inline;
  43039. begin
  43040. pTDefRegMap(@Self)^.&set := $00000004;
  43041. end;
  43042. procedure TPMP_PMMODE.clearWAITM0; inline;
  43043. begin
  43044. pTDefRegMap(@Self)^.clr := $00000004;
  43045. end;
  43046. procedure TPMP_PMMODE.setWAITM0(thebits : TBits_1); inline;
  43047. begin
  43048. if thebits = 0 then
  43049. pTDefRegMap(@Self)^.clr := $00000004
  43050. else
  43051. pTDefRegMap(@Self)^.&set := $00000004;
  43052. end;
  43053. function TPMP_PMMODE.getWAITM0 : TBits_1; inline;
  43054. begin
  43055. getWAITM0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43056. end;
  43057. procedure TPMP_PMMODE.setWAITM1; inline;
  43058. begin
  43059. pTDefRegMap(@Self)^.&set := $00000008;
  43060. end;
  43061. procedure TPMP_PMMODE.clearWAITM1; inline;
  43062. begin
  43063. pTDefRegMap(@Self)^.clr := $00000008;
  43064. end;
  43065. procedure TPMP_PMMODE.setWAITM1(thebits : TBits_1); inline;
  43066. begin
  43067. if thebits = 0 then
  43068. pTDefRegMap(@Self)^.clr := $00000008
  43069. else
  43070. pTDefRegMap(@Self)^.&set := $00000008;
  43071. end;
  43072. function TPMP_PMMODE.getWAITM1 : TBits_1; inline;
  43073. begin
  43074. getWAITM1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43075. end;
  43076. procedure TPMP_PMMODE.setWAITM2; inline;
  43077. begin
  43078. pTDefRegMap(@Self)^.&set := $00000010;
  43079. end;
  43080. procedure TPMP_PMMODE.clearWAITM2; inline;
  43081. begin
  43082. pTDefRegMap(@Self)^.clr := $00000010;
  43083. end;
  43084. procedure TPMP_PMMODE.setWAITM2(thebits : TBits_1); inline;
  43085. begin
  43086. if thebits = 0 then
  43087. pTDefRegMap(@Self)^.clr := $00000010
  43088. else
  43089. pTDefRegMap(@Self)^.&set := $00000010;
  43090. end;
  43091. function TPMP_PMMODE.getWAITM2 : TBits_1; inline;
  43092. begin
  43093. getWAITM2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43094. end;
  43095. procedure TPMP_PMMODE.setWAITM3; inline;
  43096. begin
  43097. pTDefRegMap(@Self)^.&set := $00000020;
  43098. end;
  43099. procedure TPMP_PMMODE.clearWAITM3; inline;
  43100. begin
  43101. pTDefRegMap(@Self)^.clr := $00000020;
  43102. end;
  43103. procedure TPMP_PMMODE.setWAITM3(thebits : TBits_1); inline;
  43104. begin
  43105. if thebits = 0 then
  43106. pTDefRegMap(@Self)^.clr := $00000020
  43107. else
  43108. pTDefRegMap(@Self)^.&set := $00000020;
  43109. end;
  43110. function TPMP_PMMODE.getWAITM3 : TBits_1; inline;
  43111. begin
  43112. getWAITM3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43113. end;
  43114. procedure TPMP_PMMODE.setWAITB0; inline;
  43115. begin
  43116. pTDefRegMap(@Self)^.&set := $00000040;
  43117. end;
  43118. procedure TPMP_PMMODE.clearWAITB0; inline;
  43119. begin
  43120. pTDefRegMap(@Self)^.clr := $00000040;
  43121. end;
  43122. procedure TPMP_PMMODE.setWAITB0(thebits : TBits_1); inline;
  43123. begin
  43124. if thebits = 0 then
  43125. pTDefRegMap(@Self)^.clr := $00000040
  43126. else
  43127. pTDefRegMap(@Self)^.&set := $00000040;
  43128. end;
  43129. function TPMP_PMMODE.getWAITB0 : TBits_1; inline;
  43130. begin
  43131. getWAITB0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43132. end;
  43133. procedure TPMP_PMMODE.setWAITB1; inline;
  43134. begin
  43135. pTDefRegMap(@Self)^.&set := $00000080;
  43136. end;
  43137. procedure TPMP_PMMODE.clearWAITB1; inline;
  43138. begin
  43139. pTDefRegMap(@Self)^.clr := $00000080;
  43140. end;
  43141. procedure TPMP_PMMODE.setWAITB1(thebits : TBits_1); inline;
  43142. begin
  43143. if thebits = 0 then
  43144. pTDefRegMap(@Self)^.clr := $00000080
  43145. else
  43146. pTDefRegMap(@Self)^.&set := $00000080;
  43147. end;
  43148. function TPMP_PMMODE.getWAITB1 : TBits_1; inline;
  43149. begin
  43150. getWAITB1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43151. end;
  43152. procedure TPMP_PMMODE.setMODE0; inline;
  43153. begin
  43154. pTDefRegMap(@Self)^.&set := $00000100;
  43155. end;
  43156. procedure TPMP_PMMODE.clearMODE0; inline;
  43157. begin
  43158. pTDefRegMap(@Self)^.clr := $00000100;
  43159. end;
  43160. procedure TPMP_PMMODE.setMODE0(thebits : TBits_1); inline;
  43161. begin
  43162. if thebits = 0 then
  43163. pTDefRegMap(@Self)^.clr := $00000100
  43164. else
  43165. pTDefRegMap(@Self)^.&set := $00000100;
  43166. end;
  43167. function TPMP_PMMODE.getMODE0 : TBits_1; inline;
  43168. begin
  43169. getMODE0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43170. end;
  43171. procedure TPMP_PMMODE.setMODE1; inline;
  43172. begin
  43173. pTDefRegMap(@Self)^.&set := $00000200;
  43174. end;
  43175. procedure TPMP_PMMODE.clearMODE1; inline;
  43176. begin
  43177. pTDefRegMap(@Self)^.clr := $00000200;
  43178. end;
  43179. procedure TPMP_PMMODE.setMODE1(thebits : TBits_1); inline;
  43180. begin
  43181. if thebits = 0 then
  43182. pTDefRegMap(@Self)^.clr := $00000200
  43183. else
  43184. pTDefRegMap(@Self)^.&set := $00000200;
  43185. end;
  43186. function TPMP_PMMODE.getMODE1 : TBits_1; inline;
  43187. begin
  43188. getMODE1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43189. end;
  43190. procedure TPMP_PMMODE.setINCM0; inline;
  43191. begin
  43192. pTDefRegMap(@Self)^.&set := $00000800;
  43193. end;
  43194. procedure TPMP_PMMODE.clearINCM0; inline;
  43195. begin
  43196. pTDefRegMap(@Self)^.clr := $00000800;
  43197. end;
  43198. procedure TPMP_PMMODE.setINCM0(thebits : TBits_1); inline;
  43199. begin
  43200. if thebits = 0 then
  43201. pTDefRegMap(@Self)^.clr := $00000800
  43202. else
  43203. pTDefRegMap(@Self)^.&set := $00000800;
  43204. end;
  43205. function TPMP_PMMODE.getINCM0 : TBits_1; inline;
  43206. begin
  43207. getINCM0 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43208. end;
  43209. procedure TPMP_PMMODE.setINCM1; inline;
  43210. begin
  43211. pTDefRegMap(@Self)^.&set := $00001000;
  43212. end;
  43213. procedure TPMP_PMMODE.clearINCM1; inline;
  43214. begin
  43215. pTDefRegMap(@Self)^.clr := $00001000;
  43216. end;
  43217. procedure TPMP_PMMODE.setINCM1(thebits : TBits_1); inline;
  43218. begin
  43219. if thebits = 0 then
  43220. pTDefRegMap(@Self)^.clr := $00001000
  43221. else
  43222. pTDefRegMap(@Self)^.&set := $00001000;
  43223. end;
  43224. function TPMP_PMMODE.getINCM1 : TBits_1; inline;
  43225. begin
  43226. getINCM1 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43227. end;
  43228. procedure TPMP_PMMODE.setIRQM0; inline;
  43229. begin
  43230. pTDefRegMap(@Self)^.&set := $00002000;
  43231. end;
  43232. procedure TPMP_PMMODE.clearIRQM0; inline;
  43233. begin
  43234. pTDefRegMap(@Self)^.clr := $00002000;
  43235. end;
  43236. procedure TPMP_PMMODE.setIRQM0(thebits : TBits_1); inline;
  43237. begin
  43238. if thebits = 0 then
  43239. pTDefRegMap(@Self)^.clr := $00002000
  43240. else
  43241. pTDefRegMap(@Self)^.&set := $00002000;
  43242. end;
  43243. function TPMP_PMMODE.getIRQM0 : TBits_1; inline;
  43244. begin
  43245. getIRQM0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43246. end;
  43247. procedure TPMP_PMMODE.setIRQM1; inline;
  43248. begin
  43249. pTDefRegMap(@Self)^.&set := $00004000;
  43250. end;
  43251. procedure TPMP_PMMODE.clearIRQM1; inline;
  43252. begin
  43253. pTDefRegMap(@Self)^.clr := $00004000;
  43254. end;
  43255. procedure TPMP_PMMODE.setIRQM1(thebits : TBits_1); inline;
  43256. begin
  43257. if thebits = 0 then
  43258. pTDefRegMap(@Self)^.clr := $00004000
  43259. else
  43260. pTDefRegMap(@Self)^.&set := $00004000;
  43261. end;
  43262. function TPMP_PMMODE.getIRQM1 : TBits_1; inline;
  43263. begin
  43264. getIRQM1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43265. end;
  43266. procedure TPMP_PMMODE.setw(thebits : TBits_32); inline;
  43267. begin
  43268. pTDefRegMap(@Self)^.val := thebits;
  43269. end;
  43270. function TPMP_PMMODE.getw : TBits_32; inline;
  43271. begin
  43272. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43273. end;
  43274. procedure TPMP_PMADDR.setADDR(thebits : TBits_14); inline;
  43275. begin
  43276. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  43277. end;
  43278. function TPMP_PMADDR.getADDR : TBits_14; inline;
  43279. begin
  43280. getADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  43281. end;
  43282. procedure TPMP_PMADDR.setCS(thebits : TBits_2); inline;
  43283. begin
  43284. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  43285. end;
  43286. function TPMP_PMADDR.getCS : TBits_2; inline;
  43287. begin
  43288. getCS := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  43289. end;
  43290. procedure TPMP_PMADDR.setPADDR(thebits : TBits_14); inline;
  43291. begin
  43292. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC000 or ( thebits shl 0 );
  43293. end;
  43294. function TPMP_PMADDR.getPADDR : TBits_14; inline;
  43295. begin
  43296. getPADDR := (pTDefRegMap(@Self)^.val and $00003FFF) shr 0;
  43297. end;
  43298. procedure TPMP_PMADDR.setCS1; inline;
  43299. begin
  43300. pTDefRegMap(@Self)^.&set := $00004000;
  43301. end;
  43302. procedure TPMP_PMADDR.clearCS1; inline;
  43303. begin
  43304. pTDefRegMap(@Self)^.clr := $00004000;
  43305. end;
  43306. procedure TPMP_PMADDR.setCS1(thebits : TBits_1); inline;
  43307. begin
  43308. if thebits = 0 then
  43309. pTDefRegMap(@Self)^.clr := $00004000
  43310. else
  43311. pTDefRegMap(@Self)^.&set := $00004000;
  43312. end;
  43313. function TPMP_PMADDR.getCS1 : TBits_1; inline;
  43314. begin
  43315. getCS1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43316. end;
  43317. procedure TPMP_PMADDR.setCS2; inline;
  43318. begin
  43319. pTDefRegMap(@Self)^.&set := $00008000;
  43320. end;
  43321. procedure TPMP_PMADDR.clearCS2; inline;
  43322. begin
  43323. pTDefRegMap(@Self)^.clr := $00008000;
  43324. end;
  43325. procedure TPMP_PMADDR.setCS2(thebits : TBits_1); inline;
  43326. begin
  43327. if thebits = 0 then
  43328. pTDefRegMap(@Self)^.clr := $00008000
  43329. else
  43330. pTDefRegMap(@Self)^.&set := $00008000;
  43331. end;
  43332. function TPMP_PMADDR.getCS2 : TBits_1; inline;
  43333. begin
  43334. getCS2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43335. end;
  43336. procedure TPMP_PMADDR.setw(thebits : TBits_32); inline;
  43337. begin
  43338. pTDefRegMap(@Self)^.val := thebits;
  43339. end;
  43340. function TPMP_PMADDR.getw : TBits_32; inline;
  43341. begin
  43342. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43343. end;
  43344. procedure TPMP_PMDOUT.setDATAOUT(thebits : TBits_32); inline;
  43345. begin
  43346. pTDefRegMap(@Self)^.val := thebits;
  43347. end;
  43348. function TPMP_PMDOUT.getDATAOUT : TBits_32; inline;
  43349. begin
  43350. getDATAOUT := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43351. end;
  43352. procedure TPMP_PMDOUT.setw(thebits : TBits_32); inline;
  43353. begin
  43354. pTDefRegMap(@Self)^.val := thebits;
  43355. end;
  43356. function TPMP_PMDOUT.getw : TBits_32; inline;
  43357. begin
  43358. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43359. end;
  43360. procedure TPMP_PMDIN.setDATAIN(thebits : TBits_32); inline;
  43361. begin
  43362. pTDefRegMap(@Self)^.val := thebits;
  43363. end;
  43364. function TPMP_PMDIN.getDATAIN : TBits_32; inline;
  43365. begin
  43366. getDATAIN := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43367. end;
  43368. procedure TPMP_PMDIN.setw(thebits : TBits_32); inline;
  43369. begin
  43370. pTDefRegMap(@Self)^.val := thebits;
  43371. end;
  43372. function TPMP_PMDIN.getw : TBits_32; inline;
  43373. begin
  43374. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43375. end;
  43376. procedure TPMP_PMAEN.setPTEN(thebits : TBits_16); inline;
  43377. begin
  43378. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  43379. end;
  43380. function TPMP_PMAEN.getPTEN : TBits_16; inline;
  43381. begin
  43382. getPTEN := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  43383. end;
  43384. procedure TPMP_PMAEN.setPTEN0; inline;
  43385. begin
  43386. pTDefRegMap(@Self)^.&set := $00000001;
  43387. end;
  43388. procedure TPMP_PMAEN.clearPTEN0; inline;
  43389. begin
  43390. pTDefRegMap(@Self)^.clr := $00000001;
  43391. end;
  43392. procedure TPMP_PMAEN.setPTEN0(thebits : TBits_1); inline;
  43393. begin
  43394. if thebits = 0 then
  43395. pTDefRegMap(@Self)^.clr := $00000001
  43396. else
  43397. pTDefRegMap(@Self)^.&set := $00000001;
  43398. end;
  43399. function TPMP_PMAEN.getPTEN0 : TBits_1; inline;
  43400. begin
  43401. getPTEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43402. end;
  43403. procedure TPMP_PMAEN.setPTEN1; inline;
  43404. begin
  43405. pTDefRegMap(@Self)^.&set := $00000002;
  43406. end;
  43407. procedure TPMP_PMAEN.clearPTEN1; inline;
  43408. begin
  43409. pTDefRegMap(@Self)^.clr := $00000002;
  43410. end;
  43411. procedure TPMP_PMAEN.setPTEN1(thebits : TBits_1); inline;
  43412. begin
  43413. if thebits = 0 then
  43414. pTDefRegMap(@Self)^.clr := $00000002
  43415. else
  43416. pTDefRegMap(@Self)^.&set := $00000002;
  43417. end;
  43418. function TPMP_PMAEN.getPTEN1 : TBits_1; inline;
  43419. begin
  43420. getPTEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43421. end;
  43422. procedure TPMP_PMAEN.setPTEN2; inline;
  43423. begin
  43424. pTDefRegMap(@Self)^.&set := $00000004;
  43425. end;
  43426. procedure TPMP_PMAEN.clearPTEN2; inline;
  43427. begin
  43428. pTDefRegMap(@Self)^.clr := $00000004;
  43429. end;
  43430. procedure TPMP_PMAEN.setPTEN2(thebits : TBits_1); inline;
  43431. begin
  43432. if thebits = 0 then
  43433. pTDefRegMap(@Self)^.clr := $00000004
  43434. else
  43435. pTDefRegMap(@Self)^.&set := $00000004;
  43436. end;
  43437. function TPMP_PMAEN.getPTEN2 : TBits_1; inline;
  43438. begin
  43439. getPTEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43440. end;
  43441. procedure TPMP_PMAEN.setPTEN3; inline;
  43442. begin
  43443. pTDefRegMap(@Self)^.&set := $00000008;
  43444. end;
  43445. procedure TPMP_PMAEN.clearPTEN3; inline;
  43446. begin
  43447. pTDefRegMap(@Self)^.clr := $00000008;
  43448. end;
  43449. procedure TPMP_PMAEN.setPTEN3(thebits : TBits_1); inline;
  43450. begin
  43451. if thebits = 0 then
  43452. pTDefRegMap(@Self)^.clr := $00000008
  43453. else
  43454. pTDefRegMap(@Self)^.&set := $00000008;
  43455. end;
  43456. function TPMP_PMAEN.getPTEN3 : TBits_1; inline;
  43457. begin
  43458. getPTEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43459. end;
  43460. procedure TPMP_PMAEN.setPTEN4; inline;
  43461. begin
  43462. pTDefRegMap(@Self)^.&set := $00000010;
  43463. end;
  43464. procedure TPMP_PMAEN.clearPTEN4; inline;
  43465. begin
  43466. pTDefRegMap(@Self)^.clr := $00000010;
  43467. end;
  43468. procedure TPMP_PMAEN.setPTEN4(thebits : TBits_1); inline;
  43469. begin
  43470. if thebits = 0 then
  43471. pTDefRegMap(@Self)^.clr := $00000010
  43472. else
  43473. pTDefRegMap(@Self)^.&set := $00000010;
  43474. end;
  43475. function TPMP_PMAEN.getPTEN4 : TBits_1; inline;
  43476. begin
  43477. getPTEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  43478. end;
  43479. procedure TPMP_PMAEN.setPTEN5; inline;
  43480. begin
  43481. pTDefRegMap(@Self)^.&set := $00000020;
  43482. end;
  43483. procedure TPMP_PMAEN.clearPTEN5; inline;
  43484. begin
  43485. pTDefRegMap(@Self)^.clr := $00000020;
  43486. end;
  43487. procedure TPMP_PMAEN.setPTEN5(thebits : TBits_1); inline;
  43488. begin
  43489. if thebits = 0 then
  43490. pTDefRegMap(@Self)^.clr := $00000020
  43491. else
  43492. pTDefRegMap(@Self)^.&set := $00000020;
  43493. end;
  43494. function TPMP_PMAEN.getPTEN5 : TBits_1; inline;
  43495. begin
  43496. getPTEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  43497. end;
  43498. procedure TPMP_PMAEN.setPTEN6; inline;
  43499. begin
  43500. pTDefRegMap(@Self)^.&set := $00000040;
  43501. end;
  43502. procedure TPMP_PMAEN.clearPTEN6; inline;
  43503. begin
  43504. pTDefRegMap(@Self)^.clr := $00000040;
  43505. end;
  43506. procedure TPMP_PMAEN.setPTEN6(thebits : TBits_1); inline;
  43507. begin
  43508. if thebits = 0 then
  43509. pTDefRegMap(@Self)^.clr := $00000040
  43510. else
  43511. pTDefRegMap(@Self)^.&set := $00000040;
  43512. end;
  43513. function TPMP_PMAEN.getPTEN6 : TBits_1; inline;
  43514. begin
  43515. getPTEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43516. end;
  43517. procedure TPMP_PMAEN.setPTEN7; inline;
  43518. begin
  43519. pTDefRegMap(@Self)^.&set := $00000080;
  43520. end;
  43521. procedure TPMP_PMAEN.clearPTEN7; inline;
  43522. begin
  43523. pTDefRegMap(@Self)^.clr := $00000080;
  43524. end;
  43525. procedure TPMP_PMAEN.setPTEN7(thebits : TBits_1); inline;
  43526. begin
  43527. if thebits = 0 then
  43528. pTDefRegMap(@Self)^.clr := $00000080
  43529. else
  43530. pTDefRegMap(@Self)^.&set := $00000080;
  43531. end;
  43532. function TPMP_PMAEN.getPTEN7 : TBits_1; inline;
  43533. begin
  43534. getPTEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43535. end;
  43536. procedure TPMP_PMAEN.setPTEN8; inline;
  43537. begin
  43538. pTDefRegMap(@Self)^.&set := $00000100;
  43539. end;
  43540. procedure TPMP_PMAEN.clearPTEN8; inline;
  43541. begin
  43542. pTDefRegMap(@Self)^.clr := $00000100;
  43543. end;
  43544. procedure TPMP_PMAEN.setPTEN8(thebits : TBits_1); inline;
  43545. begin
  43546. if thebits = 0 then
  43547. pTDefRegMap(@Self)^.clr := $00000100
  43548. else
  43549. pTDefRegMap(@Self)^.&set := $00000100;
  43550. end;
  43551. function TPMP_PMAEN.getPTEN8 : TBits_1; inline;
  43552. begin
  43553. getPTEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43554. end;
  43555. procedure TPMP_PMAEN.setPTEN9; inline;
  43556. begin
  43557. pTDefRegMap(@Self)^.&set := $00000200;
  43558. end;
  43559. procedure TPMP_PMAEN.clearPTEN9; inline;
  43560. begin
  43561. pTDefRegMap(@Self)^.clr := $00000200;
  43562. end;
  43563. procedure TPMP_PMAEN.setPTEN9(thebits : TBits_1); inline;
  43564. begin
  43565. if thebits = 0 then
  43566. pTDefRegMap(@Self)^.clr := $00000200
  43567. else
  43568. pTDefRegMap(@Self)^.&set := $00000200;
  43569. end;
  43570. function TPMP_PMAEN.getPTEN9 : TBits_1; inline;
  43571. begin
  43572. getPTEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43573. end;
  43574. procedure TPMP_PMAEN.setPTEN10; inline;
  43575. begin
  43576. pTDefRegMap(@Self)^.&set := $00000400;
  43577. end;
  43578. procedure TPMP_PMAEN.clearPTEN10; inline;
  43579. begin
  43580. pTDefRegMap(@Self)^.clr := $00000400;
  43581. end;
  43582. procedure TPMP_PMAEN.setPTEN10(thebits : TBits_1); inline;
  43583. begin
  43584. if thebits = 0 then
  43585. pTDefRegMap(@Self)^.clr := $00000400
  43586. else
  43587. pTDefRegMap(@Self)^.&set := $00000400;
  43588. end;
  43589. function TPMP_PMAEN.getPTEN10 : TBits_1; inline;
  43590. begin
  43591. getPTEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43592. end;
  43593. procedure TPMP_PMAEN.setPTEN11; inline;
  43594. begin
  43595. pTDefRegMap(@Self)^.&set := $00000800;
  43596. end;
  43597. procedure TPMP_PMAEN.clearPTEN11; inline;
  43598. begin
  43599. pTDefRegMap(@Self)^.clr := $00000800;
  43600. end;
  43601. procedure TPMP_PMAEN.setPTEN11(thebits : TBits_1); inline;
  43602. begin
  43603. if thebits = 0 then
  43604. pTDefRegMap(@Self)^.clr := $00000800
  43605. else
  43606. pTDefRegMap(@Self)^.&set := $00000800;
  43607. end;
  43608. function TPMP_PMAEN.getPTEN11 : TBits_1; inline;
  43609. begin
  43610. getPTEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43611. end;
  43612. procedure TPMP_PMAEN.setPTEN12; inline;
  43613. begin
  43614. pTDefRegMap(@Self)^.&set := $00001000;
  43615. end;
  43616. procedure TPMP_PMAEN.clearPTEN12; inline;
  43617. begin
  43618. pTDefRegMap(@Self)^.clr := $00001000;
  43619. end;
  43620. procedure TPMP_PMAEN.setPTEN12(thebits : TBits_1); inline;
  43621. begin
  43622. if thebits = 0 then
  43623. pTDefRegMap(@Self)^.clr := $00001000
  43624. else
  43625. pTDefRegMap(@Self)^.&set := $00001000;
  43626. end;
  43627. function TPMP_PMAEN.getPTEN12 : TBits_1; inline;
  43628. begin
  43629. getPTEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  43630. end;
  43631. procedure TPMP_PMAEN.setPTEN13; inline;
  43632. begin
  43633. pTDefRegMap(@Self)^.&set := $00002000;
  43634. end;
  43635. procedure TPMP_PMAEN.clearPTEN13; inline;
  43636. begin
  43637. pTDefRegMap(@Self)^.clr := $00002000;
  43638. end;
  43639. procedure TPMP_PMAEN.setPTEN13(thebits : TBits_1); inline;
  43640. begin
  43641. if thebits = 0 then
  43642. pTDefRegMap(@Self)^.clr := $00002000
  43643. else
  43644. pTDefRegMap(@Self)^.&set := $00002000;
  43645. end;
  43646. function TPMP_PMAEN.getPTEN13 : TBits_1; inline;
  43647. begin
  43648. getPTEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  43649. end;
  43650. procedure TPMP_PMAEN.setPTEN14; inline;
  43651. begin
  43652. pTDefRegMap(@Self)^.&set := $00004000;
  43653. end;
  43654. procedure TPMP_PMAEN.clearPTEN14; inline;
  43655. begin
  43656. pTDefRegMap(@Self)^.clr := $00004000;
  43657. end;
  43658. procedure TPMP_PMAEN.setPTEN14(thebits : TBits_1); inline;
  43659. begin
  43660. if thebits = 0 then
  43661. pTDefRegMap(@Self)^.clr := $00004000
  43662. else
  43663. pTDefRegMap(@Self)^.&set := $00004000;
  43664. end;
  43665. function TPMP_PMAEN.getPTEN14 : TBits_1; inline;
  43666. begin
  43667. getPTEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43668. end;
  43669. procedure TPMP_PMAEN.setPTEN15; inline;
  43670. begin
  43671. pTDefRegMap(@Self)^.&set := $00008000;
  43672. end;
  43673. procedure TPMP_PMAEN.clearPTEN15; inline;
  43674. begin
  43675. pTDefRegMap(@Self)^.clr := $00008000;
  43676. end;
  43677. procedure TPMP_PMAEN.setPTEN15(thebits : TBits_1); inline;
  43678. begin
  43679. if thebits = 0 then
  43680. pTDefRegMap(@Self)^.clr := $00008000
  43681. else
  43682. pTDefRegMap(@Self)^.&set := $00008000;
  43683. end;
  43684. function TPMP_PMAEN.getPTEN15 : TBits_1; inline;
  43685. begin
  43686. getPTEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43687. end;
  43688. procedure TPMP_PMAEN.setw(thebits : TBits_32); inline;
  43689. begin
  43690. pTDefRegMap(@Self)^.val := thebits;
  43691. end;
  43692. function TPMP_PMAEN.getw : TBits_32; inline;
  43693. begin
  43694. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43695. end;
  43696. procedure TPMP_PMSTAT.setOB0E; inline;
  43697. begin
  43698. pTDefRegMap(@Self)^.&set := $00000001;
  43699. end;
  43700. procedure TPMP_PMSTAT.clearOB0E; inline;
  43701. begin
  43702. pTDefRegMap(@Self)^.clr := $00000001;
  43703. end;
  43704. procedure TPMP_PMSTAT.setOB0E(thebits : TBits_1); inline;
  43705. begin
  43706. if thebits = 0 then
  43707. pTDefRegMap(@Self)^.clr := $00000001
  43708. else
  43709. pTDefRegMap(@Self)^.&set := $00000001;
  43710. end;
  43711. function TPMP_PMSTAT.getOB0E : TBits_1; inline;
  43712. begin
  43713. getOB0E := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43714. end;
  43715. procedure TPMP_PMSTAT.setOB1E; inline;
  43716. begin
  43717. pTDefRegMap(@Self)^.&set := $00000002;
  43718. end;
  43719. procedure TPMP_PMSTAT.clearOB1E; inline;
  43720. begin
  43721. pTDefRegMap(@Self)^.clr := $00000002;
  43722. end;
  43723. procedure TPMP_PMSTAT.setOB1E(thebits : TBits_1); inline;
  43724. begin
  43725. if thebits = 0 then
  43726. pTDefRegMap(@Self)^.clr := $00000002
  43727. else
  43728. pTDefRegMap(@Self)^.&set := $00000002;
  43729. end;
  43730. function TPMP_PMSTAT.getOB1E : TBits_1; inline;
  43731. begin
  43732. getOB1E := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43733. end;
  43734. procedure TPMP_PMSTAT.setOB2E; inline;
  43735. begin
  43736. pTDefRegMap(@Self)^.&set := $00000004;
  43737. end;
  43738. procedure TPMP_PMSTAT.clearOB2E; inline;
  43739. begin
  43740. pTDefRegMap(@Self)^.clr := $00000004;
  43741. end;
  43742. procedure TPMP_PMSTAT.setOB2E(thebits : TBits_1); inline;
  43743. begin
  43744. if thebits = 0 then
  43745. pTDefRegMap(@Self)^.clr := $00000004
  43746. else
  43747. pTDefRegMap(@Self)^.&set := $00000004;
  43748. end;
  43749. function TPMP_PMSTAT.getOB2E : TBits_1; inline;
  43750. begin
  43751. getOB2E := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43752. end;
  43753. procedure TPMP_PMSTAT.setOB3E; inline;
  43754. begin
  43755. pTDefRegMap(@Self)^.&set := $00000008;
  43756. end;
  43757. procedure TPMP_PMSTAT.clearOB3E; inline;
  43758. begin
  43759. pTDefRegMap(@Self)^.clr := $00000008;
  43760. end;
  43761. procedure TPMP_PMSTAT.setOB3E(thebits : TBits_1); inline;
  43762. begin
  43763. if thebits = 0 then
  43764. pTDefRegMap(@Self)^.clr := $00000008
  43765. else
  43766. pTDefRegMap(@Self)^.&set := $00000008;
  43767. end;
  43768. function TPMP_PMSTAT.getOB3E : TBits_1; inline;
  43769. begin
  43770. getOB3E := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  43771. end;
  43772. procedure TPMP_PMSTAT.setOBUF; inline;
  43773. begin
  43774. pTDefRegMap(@Self)^.&set := $00000040;
  43775. end;
  43776. procedure TPMP_PMSTAT.clearOBUF; inline;
  43777. begin
  43778. pTDefRegMap(@Self)^.clr := $00000040;
  43779. end;
  43780. procedure TPMP_PMSTAT.setOBUF(thebits : TBits_1); inline;
  43781. begin
  43782. if thebits = 0 then
  43783. pTDefRegMap(@Self)^.clr := $00000040
  43784. else
  43785. pTDefRegMap(@Self)^.&set := $00000040;
  43786. end;
  43787. function TPMP_PMSTAT.getOBUF : TBits_1; inline;
  43788. begin
  43789. getOBUF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  43790. end;
  43791. procedure TPMP_PMSTAT.setOBE; inline;
  43792. begin
  43793. pTDefRegMap(@Self)^.&set := $00000080;
  43794. end;
  43795. procedure TPMP_PMSTAT.clearOBE; inline;
  43796. begin
  43797. pTDefRegMap(@Self)^.clr := $00000080;
  43798. end;
  43799. procedure TPMP_PMSTAT.setOBE(thebits : TBits_1); inline;
  43800. begin
  43801. if thebits = 0 then
  43802. pTDefRegMap(@Self)^.clr := $00000080
  43803. else
  43804. pTDefRegMap(@Self)^.&set := $00000080;
  43805. end;
  43806. function TPMP_PMSTAT.getOBE : TBits_1; inline;
  43807. begin
  43808. getOBE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  43809. end;
  43810. procedure TPMP_PMSTAT.setIB0F; inline;
  43811. begin
  43812. pTDefRegMap(@Self)^.&set := $00000100;
  43813. end;
  43814. procedure TPMP_PMSTAT.clearIB0F; inline;
  43815. begin
  43816. pTDefRegMap(@Self)^.clr := $00000100;
  43817. end;
  43818. procedure TPMP_PMSTAT.setIB0F(thebits : TBits_1); inline;
  43819. begin
  43820. if thebits = 0 then
  43821. pTDefRegMap(@Self)^.clr := $00000100
  43822. else
  43823. pTDefRegMap(@Self)^.&set := $00000100;
  43824. end;
  43825. function TPMP_PMSTAT.getIB0F : TBits_1; inline;
  43826. begin
  43827. getIB0F := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  43828. end;
  43829. procedure TPMP_PMSTAT.setIB1F; inline;
  43830. begin
  43831. pTDefRegMap(@Self)^.&set := $00000200;
  43832. end;
  43833. procedure TPMP_PMSTAT.clearIB1F; inline;
  43834. begin
  43835. pTDefRegMap(@Self)^.clr := $00000200;
  43836. end;
  43837. procedure TPMP_PMSTAT.setIB1F(thebits : TBits_1); inline;
  43838. begin
  43839. if thebits = 0 then
  43840. pTDefRegMap(@Self)^.clr := $00000200
  43841. else
  43842. pTDefRegMap(@Self)^.&set := $00000200;
  43843. end;
  43844. function TPMP_PMSTAT.getIB1F : TBits_1; inline;
  43845. begin
  43846. getIB1F := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  43847. end;
  43848. procedure TPMP_PMSTAT.setIB2F; inline;
  43849. begin
  43850. pTDefRegMap(@Self)^.&set := $00000400;
  43851. end;
  43852. procedure TPMP_PMSTAT.clearIB2F; inline;
  43853. begin
  43854. pTDefRegMap(@Self)^.clr := $00000400;
  43855. end;
  43856. procedure TPMP_PMSTAT.setIB2F(thebits : TBits_1); inline;
  43857. begin
  43858. if thebits = 0 then
  43859. pTDefRegMap(@Self)^.clr := $00000400
  43860. else
  43861. pTDefRegMap(@Self)^.&set := $00000400;
  43862. end;
  43863. function TPMP_PMSTAT.getIB2F : TBits_1; inline;
  43864. begin
  43865. getIB2F := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  43866. end;
  43867. procedure TPMP_PMSTAT.setIB3F; inline;
  43868. begin
  43869. pTDefRegMap(@Self)^.&set := $00000800;
  43870. end;
  43871. procedure TPMP_PMSTAT.clearIB3F; inline;
  43872. begin
  43873. pTDefRegMap(@Self)^.clr := $00000800;
  43874. end;
  43875. procedure TPMP_PMSTAT.setIB3F(thebits : TBits_1); inline;
  43876. begin
  43877. if thebits = 0 then
  43878. pTDefRegMap(@Self)^.clr := $00000800
  43879. else
  43880. pTDefRegMap(@Self)^.&set := $00000800;
  43881. end;
  43882. function TPMP_PMSTAT.getIB3F : TBits_1; inline;
  43883. begin
  43884. getIB3F := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  43885. end;
  43886. procedure TPMP_PMSTAT.setIBOV; inline;
  43887. begin
  43888. pTDefRegMap(@Self)^.&set := $00004000;
  43889. end;
  43890. procedure TPMP_PMSTAT.clearIBOV; inline;
  43891. begin
  43892. pTDefRegMap(@Self)^.clr := $00004000;
  43893. end;
  43894. procedure TPMP_PMSTAT.setIBOV(thebits : TBits_1); inline;
  43895. begin
  43896. if thebits = 0 then
  43897. pTDefRegMap(@Self)^.clr := $00004000
  43898. else
  43899. pTDefRegMap(@Self)^.&set := $00004000;
  43900. end;
  43901. function TPMP_PMSTAT.getIBOV : TBits_1; inline;
  43902. begin
  43903. getIBOV := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  43904. end;
  43905. procedure TPMP_PMSTAT.setIBF; inline;
  43906. begin
  43907. pTDefRegMap(@Self)^.&set := $00008000;
  43908. end;
  43909. procedure TPMP_PMSTAT.clearIBF; inline;
  43910. begin
  43911. pTDefRegMap(@Self)^.clr := $00008000;
  43912. end;
  43913. procedure TPMP_PMSTAT.setIBF(thebits : TBits_1); inline;
  43914. begin
  43915. if thebits = 0 then
  43916. pTDefRegMap(@Self)^.clr := $00008000
  43917. else
  43918. pTDefRegMap(@Self)^.&set := $00008000;
  43919. end;
  43920. function TPMP_PMSTAT.getIBF : TBits_1; inline;
  43921. begin
  43922. getIBF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  43923. end;
  43924. procedure TPMP_PMSTAT.setw(thebits : TBits_32); inline;
  43925. begin
  43926. pTDefRegMap(@Self)^.val := thebits;
  43927. end;
  43928. function TPMP_PMSTAT.getw : TBits_32; inline;
  43929. begin
  43930. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  43931. end;
  43932. procedure TADC10_AD1CON1.setDONE; inline;
  43933. begin
  43934. pTDefRegMap(@Self)^.&set := $00000001;
  43935. end;
  43936. procedure TADC10_AD1CON1.clearDONE; inline;
  43937. begin
  43938. pTDefRegMap(@Self)^.clr := $00000001;
  43939. end;
  43940. procedure TADC10_AD1CON1.setDONE(thebits : TBits_1); inline;
  43941. begin
  43942. if thebits = 0 then
  43943. pTDefRegMap(@Self)^.clr := $00000001
  43944. else
  43945. pTDefRegMap(@Self)^.&set := $00000001;
  43946. end;
  43947. function TADC10_AD1CON1.getDONE : TBits_1; inline;
  43948. begin
  43949. getDONE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  43950. end;
  43951. procedure TADC10_AD1CON1.setSAMP; inline;
  43952. begin
  43953. pTDefRegMap(@Self)^.&set := $00000002;
  43954. end;
  43955. procedure TADC10_AD1CON1.clearSAMP; inline;
  43956. begin
  43957. pTDefRegMap(@Self)^.clr := $00000002;
  43958. end;
  43959. procedure TADC10_AD1CON1.setSAMP(thebits : TBits_1); inline;
  43960. begin
  43961. if thebits = 0 then
  43962. pTDefRegMap(@Self)^.clr := $00000002
  43963. else
  43964. pTDefRegMap(@Self)^.&set := $00000002;
  43965. end;
  43966. function TADC10_AD1CON1.getSAMP : TBits_1; inline;
  43967. begin
  43968. getSAMP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  43969. end;
  43970. procedure TADC10_AD1CON1.setASAM; inline;
  43971. begin
  43972. pTDefRegMap(@Self)^.&set := $00000004;
  43973. end;
  43974. procedure TADC10_AD1CON1.clearASAM; inline;
  43975. begin
  43976. pTDefRegMap(@Self)^.clr := $00000004;
  43977. end;
  43978. procedure TADC10_AD1CON1.setASAM(thebits : TBits_1); inline;
  43979. begin
  43980. if thebits = 0 then
  43981. pTDefRegMap(@Self)^.clr := $00000004
  43982. else
  43983. pTDefRegMap(@Self)^.&set := $00000004;
  43984. end;
  43985. function TADC10_AD1CON1.getASAM : TBits_1; inline;
  43986. begin
  43987. getASAM := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  43988. end;
  43989. procedure TADC10_AD1CON1.setCLRASAM; inline;
  43990. begin
  43991. pTDefRegMap(@Self)^.&set := $00000010;
  43992. end;
  43993. procedure TADC10_AD1CON1.clearCLRASAM; inline;
  43994. begin
  43995. pTDefRegMap(@Self)^.clr := $00000010;
  43996. end;
  43997. procedure TADC10_AD1CON1.setCLRASAM(thebits : TBits_1); inline;
  43998. begin
  43999. if thebits = 0 then
  44000. pTDefRegMap(@Self)^.clr := $00000010
  44001. else
  44002. pTDefRegMap(@Self)^.&set := $00000010;
  44003. end;
  44004. function TADC10_AD1CON1.getCLRASAM : TBits_1; inline;
  44005. begin
  44006. getCLRASAM := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44007. end;
  44008. procedure TADC10_AD1CON1.setSSRC(thebits : TBits_3); inline;
  44009. begin
  44010. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF1F or ( thebits shl 5 );
  44011. end;
  44012. function TADC10_AD1CON1.getSSRC : TBits_3; inline;
  44013. begin
  44014. getSSRC := (pTDefRegMap(@Self)^.val and $000000E0) shr 5;
  44015. end;
  44016. procedure TADC10_AD1CON1.setFORM(thebits : TBits_3); inline;
  44017. begin
  44018. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  44019. end;
  44020. function TADC10_AD1CON1.getFORM : TBits_3; inline;
  44021. begin
  44022. getFORM := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  44023. end;
  44024. procedure TADC10_AD1CON1.setSIDL; inline;
  44025. begin
  44026. pTDefRegMap(@Self)^.&set := $00002000;
  44027. end;
  44028. procedure TADC10_AD1CON1.clearSIDL; inline;
  44029. begin
  44030. pTDefRegMap(@Self)^.clr := $00002000;
  44031. end;
  44032. procedure TADC10_AD1CON1.setSIDL(thebits : TBits_1); inline;
  44033. begin
  44034. if thebits = 0 then
  44035. pTDefRegMap(@Self)^.clr := $00002000
  44036. else
  44037. pTDefRegMap(@Self)^.&set := $00002000;
  44038. end;
  44039. function TADC10_AD1CON1.getSIDL : TBits_1; inline;
  44040. begin
  44041. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44042. end;
  44043. procedure TADC10_AD1CON1.setON; inline;
  44044. begin
  44045. pTDefRegMap(@Self)^.&set := $00008000;
  44046. end;
  44047. procedure TADC10_AD1CON1.clearON; inline;
  44048. begin
  44049. pTDefRegMap(@Self)^.clr := $00008000;
  44050. end;
  44051. procedure TADC10_AD1CON1.setON(thebits : TBits_1); inline;
  44052. begin
  44053. if thebits = 0 then
  44054. pTDefRegMap(@Self)^.clr := $00008000
  44055. else
  44056. pTDefRegMap(@Self)^.&set := $00008000;
  44057. end;
  44058. function TADC10_AD1CON1.getON : TBits_1; inline;
  44059. begin
  44060. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44061. end;
  44062. procedure TADC10_AD1CON1.setSSRC0; inline;
  44063. begin
  44064. pTDefRegMap(@Self)^.&set := $00000020;
  44065. end;
  44066. procedure TADC10_AD1CON1.clearSSRC0; inline;
  44067. begin
  44068. pTDefRegMap(@Self)^.clr := $00000020;
  44069. end;
  44070. procedure TADC10_AD1CON1.setSSRC0(thebits : TBits_1); inline;
  44071. begin
  44072. if thebits = 0 then
  44073. pTDefRegMap(@Self)^.clr := $00000020
  44074. else
  44075. pTDefRegMap(@Self)^.&set := $00000020;
  44076. end;
  44077. function TADC10_AD1CON1.getSSRC0 : TBits_1; inline;
  44078. begin
  44079. getSSRC0 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44080. end;
  44081. procedure TADC10_AD1CON1.setSSRC1; inline;
  44082. begin
  44083. pTDefRegMap(@Self)^.&set := $00000040;
  44084. end;
  44085. procedure TADC10_AD1CON1.clearSSRC1; inline;
  44086. begin
  44087. pTDefRegMap(@Self)^.clr := $00000040;
  44088. end;
  44089. procedure TADC10_AD1CON1.setSSRC1(thebits : TBits_1); inline;
  44090. begin
  44091. if thebits = 0 then
  44092. pTDefRegMap(@Self)^.clr := $00000040
  44093. else
  44094. pTDefRegMap(@Self)^.&set := $00000040;
  44095. end;
  44096. function TADC10_AD1CON1.getSSRC1 : TBits_1; inline;
  44097. begin
  44098. getSSRC1 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44099. end;
  44100. procedure TADC10_AD1CON1.setSSRC2; inline;
  44101. begin
  44102. pTDefRegMap(@Self)^.&set := $00000080;
  44103. end;
  44104. procedure TADC10_AD1CON1.clearSSRC2; inline;
  44105. begin
  44106. pTDefRegMap(@Self)^.clr := $00000080;
  44107. end;
  44108. procedure TADC10_AD1CON1.setSSRC2(thebits : TBits_1); inline;
  44109. begin
  44110. if thebits = 0 then
  44111. pTDefRegMap(@Self)^.clr := $00000080
  44112. else
  44113. pTDefRegMap(@Self)^.&set := $00000080;
  44114. end;
  44115. function TADC10_AD1CON1.getSSRC2 : TBits_1; inline;
  44116. begin
  44117. getSSRC2 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44118. end;
  44119. procedure TADC10_AD1CON1.setFORM0; inline;
  44120. begin
  44121. pTDefRegMap(@Self)^.&set := $00000100;
  44122. end;
  44123. procedure TADC10_AD1CON1.clearFORM0; inline;
  44124. begin
  44125. pTDefRegMap(@Self)^.clr := $00000100;
  44126. end;
  44127. procedure TADC10_AD1CON1.setFORM0(thebits : TBits_1); inline;
  44128. begin
  44129. if thebits = 0 then
  44130. pTDefRegMap(@Self)^.clr := $00000100
  44131. else
  44132. pTDefRegMap(@Self)^.&set := $00000100;
  44133. end;
  44134. function TADC10_AD1CON1.getFORM0 : TBits_1; inline;
  44135. begin
  44136. getFORM0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44137. end;
  44138. procedure TADC10_AD1CON1.setFORM1; inline;
  44139. begin
  44140. pTDefRegMap(@Self)^.&set := $00000200;
  44141. end;
  44142. procedure TADC10_AD1CON1.clearFORM1; inline;
  44143. begin
  44144. pTDefRegMap(@Self)^.clr := $00000200;
  44145. end;
  44146. procedure TADC10_AD1CON1.setFORM1(thebits : TBits_1); inline;
  44147. begin
  44148. if thebits = 0 then
  44149. pTDefRegMap(@Self)^.clr := $00000200
  44150. else
  44151. pTDefRegMap(@Self)^.&set := $00000200;
  44152. end;
  44153. function TADC10_AD1CON1.getFORM1 : TBits_1; inline;
  44154. begin
  44155. getFORM1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44156. end;
  44157. procedure TADC10_AD1CON1.setFORM2; inline;
  44158. begin
  44159. pTDefRegMap(@Self)^.&set := $00000400;
  44160. end;
  44161. procedure TADC10_AD1CON1.clearFORM2; inline;
  44162. begin
  44163. pTDefRegMap(@Self)^.clr := $00000400;
  44164. end;
  44165. procedure TADC10_AD1CON1.setFORM2(thebits : TBits_1); inline;
  44166. begin
  44167. if thebits = 0 then
  44168. pTDefRegMap(@Self)^.clr := $00000400
  44169. else
  44170. pTDefRegMap(@Self)^.&set := $00000400;
  44171. end;
  44172. function TADC10_AD1CON1.getFORM2 : TBits_1; inline;
  44173. begin
  44174. getFORM2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44175. end;
  44176. procedure TADC10_AD1CON1.setADSIDL; inline;
  44177. begin
  44178. pTDefRegMap(@Self)^.&set := $00002000;
  44179. end;
  44180. procedure TADC10_AD1CON1.clearADSIDL; inline;
  44181. begin
  44182. pTDefRegMap(@Self)^.clr := $00002000;
  44183. end;
  44184. procedure TADC10_AD1CON1.setADSIDL(thebits : TBits_1); inline;
  44185. begin
  44186. if thebits = 0 then
  44187. pTDefRegMap(@Self)^.clr := $00002000
  44188. else
  44189. pTDefRegMap(@Self)^.&set := $00002000;
  44190. end;
  44191. function TADC10_AD1CON1.getADSIDL : TBits_1; inline;
  44192. begin
  44193. getADSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44194. end;
  44195. procedure TADC10_AD1CON1.setADON; inline;
  44196. begin
  44197. pTDefRegMap(@Self)^.&set := $00008000;
  44198. end;
  44199. procedure TADC10_AD1CON1.clearADON; inline;
  44200. begin
  44201. pTDefRegMap(@Self)^.clr := $00008000;
  44202. end;
  44203. procedure TADC10_AD1CON1.setADON(thebits : TBits_1); inline;
  44204. begin
  44205. if thebits = 0 then
  44206. pTDefRegMap(@Self)^.clr := $00008000
  44207. else
  44208. pTDefRegMap(@Self)^.&set := $00008000;
  44209. end;
  44210. function TADC10_AD1CON1.getADON : TBits_1; inline;
  44211. begin
  44212. getADON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44213. end;
  44214. procedure TADC10_AD1CON1.setw(thebits : TBits_32); inline;
  44215. begin
  44216. pTDefRegMap(@Self)^.val := thebits;
  44217. end;
  44218. function TADC10_AD1CON1.getw : TBits_32; inline;
  44219. begin
  44220. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44221. end;
  44222. procedure TADC10_AD1CON2.setALTS; inline;
  44223. begin
  44224. pTDefRegMap(@Self)^.&set := $00000001;
  44225. end;
  44226. procedure TADC10_AD1CON2.clearALTS; inline;
  44227. begin
  44228. pTDefRegMap(@Self)^.clr := $00000001;
  44229. end;
  44230. procedure TADC10_AD1CON2.setALTS(thebits : TBits_1); inline;
  44231. begin
  44232. if thebits = 0 then
  44233. pTDefRegMap(@Self)^.clr := $00000001
  44234. else
  44235. pTDefRegMap(@Self)^.&set := $00000001;
  44236. end;
  44237. function TADC10_AD1CON2.getALTS : TBits_1; inline;
  44238. begin
  44239. getALTS := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44240. end;
  44241. procedure TADC10_AD1CON2.setBUFM; inline;
  44242. begin
  44243. pTDefRegMap(@Self)^.&set := $00000002;
  44244. end;
  44245. procedure TADC10_AD1CON2.clearBUFM; inline;
  44246. begin
  44247. pTDefRegMap(@Self)^.clr := $00000002;
  44248. end;
  44249. procedure TADC10_AD1CON2.setBUFM(thebits : TBits_1); inline;
  44250. begin
  44251. if thebits = 0 then
  44252. pTDefRegMap(@Self)^.clr := $00000002
  44253. else
  44254. pTDefRegMap(@Self)^.&set := $00000002;
  44255. end;
  44256. function TADC10_AD1CON2.getBUFM : TBits_1; inline;
  44257. begin
  44258. getBUFM := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44259. end;
  44260. procedure TADC10_AD1CON2.setSMPI(thebits : TBits_4); inline;
  44261. begin
  44262. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC3 or ( thebits shl 2 );
  44263. end;
  44264. function TADC10_AD1CON2.getSMPI : TBits_4; inline;
  44265. begin
  44266. getSMPI := (pTDefRegMap(@Self)^.val and $0000003C) shr 2;
  44267. end;
  44268. procedure TADC10_AD1CON2.setBUFS; inline;
  44269. begin
  44270. pTDefRegMap(@Self)^.&set := $00000080;
  44271. end;
  44272. procedure TADC10_AD1CON2.clearBUFS; inline;
  44273. begin
  44274. pTDefRegMap(@Self)^.clr := $00000080;
  44275. end;
  44276. procedure TADC10_AD1CON2.setBUFS(thebits : TBits_1); inline;
  44277. begin
  44278. if thebits = 0 then
  44279. pTDefRegMap(@Self)^.clr := $00000080
  44280. else
  44281. pTDefRegMap(@Self)^.&set := $00000080;
  44282. end;
  44283. function TADC10_AD1CON2.getBUFS : TBits_1; inline;
  44284. begin
  44285. getBUFS := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44286. end;
  44287. procedure TADC10_AD1CON2.setCSCNA; inline;
  44288. begin
  44289. pTDefRegMap(@Self)^.&set := $00000400;
  44290. end;
  44291. procedure TADC10_AD1CON2.clearCSCNA; inline;
  44292. begin
  44293. pTDefRegMap(@Self)^.clr := $00000400;
  44294. end;
  44295. procedure TADC10_AD1CON2.setCSCNA(thebits : TBits_1); inline;
  44296. begin
  44297. if thebits = 0 then
  44298. pTDefRegMap(@Self)^.clr := $00000400
  44299. else
  44300. pTDefRegMap(@Self)^.&set := $00000400;
  44301. end;
  44302. function TADC10_AD1CON2.getCSCNA : TBits_1; inline;
  44303. begin
  44304. getCSCNA := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44305. end;
  44306. procedure TADC10_AD1CON2.setOFFCAL; inline;
  44307. begin
  44308. pTDefRegMap(@Self)^.&set := $00001000;
  44309. end;
  44310. procedure TADC10_AD1CON2.clearOFFCAL; inline;
  44311. begin
  44312. pTDefRegMap(@Self)^.clr := $00001000;
  44313. end;
  44314. procedure TADC10_AD1CON2.setOFFCAL(thebits : TBits_1); inline;
  44315. begin
  44316. if thebits = 0 then
  44317. pTDefRegMap(@Self)^.clr := $00001000
  44318. else
  44319. pTDefRegMap(@Self)^.&set := $00001000;
  44320. end;
  44321. function TADC10_AD1CON2.getOFFCAL : TBits_1; inline;
  44322. begin
  44323. getOFFCAL := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  44324. end;
  44325. procedure TADC10_AD1CON2.setVCFG(thebits : TBits_3); inline;
  44326. begin
  44327. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF1FFF or ( thebits shl 13 );
  44328. end;
  44329. function TADC10_AD1CON2.getVCFG : TBits_3; inline;
  44330. begin
  44331. getVCFG := (pTDefRegMap(@Self)^.val and $0000E000) shr 13;
  44332. end;
  44333. procedure TADC10_AD1CON2.setSMPI0; inline;
  44334. begin
  44335. pTDefRegMap(@Self)^.&set := $00000004;
  44336. end;
  44337. procedure TADC10_AD1CON2.clearSMPI0; inline;
  44338. begin
  44339. pTDefRegMap(@Self)^.clr := $00000004;
  44340. end;
  44341. procedure TADC10_AD1CON2.setSMPI0(thebits : TBits_1); inline;
  44342. begin
  44343. if thebits = 0 then
  44344. pTDefRegMap(@Self)^.clr := $00000004
  44345. else
  44346. pTDefRegMap(@Self)^.&set := $00000004;
  44347. end;
  44348. function TADC10_AD1CON2.getSMPI0 : TBits_1; inline;
  44349. begin
  44350. getSMPI0 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44351. end;
  44352. procedure TADC10_AD1CON2.setSMPI1; inline;
  44353. begin
  44354. pTDefRegMap(@Self)^.&set := $00000008;
  44355. end;
  44356. procedure TADC10_AD1CON2.clearSMPI1; inline;
  44357. begin
  44358. pTDefRegMap(@Self)^.clr := $00000008;
  44359. end;
  44360. procedure TADC10_AD1CON2.setSMPI1(thebits : TBits_1); inline;
  44361. begin
  44362. if thebits = 0 then
  44363. pTDefRegMap(@Self)^.clr := $00000008
  44364. else
  44365. pTDefRegMap(@Self)^.&set := $00000008;
  44366. end;
  44367. function TADC10_AD1CON2.getSMPI1 : TBits_1; inline;
  44368. begin
  44369. getSMPI1 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44370. end;
  44371. procedure TADC10_AD1CON2.setSMPI2; inline;
  44372. begin
  44373. pTDefRegMap(@Self)^.&set := $00000010;
  44374. end;
  44375. procedure TADC10_AD1CON2.clearSMPI2; inline;
  44376. begin
  44377. pTDefRegMap(@Self)^.clr := $00000010;
  44378. end;
  44379. procedure TADC10_AD1CON2.setSMPI2(thebits : TBits_1); inline;
  44380. begin
  44381. if thebits = 0 then
  44382. pTDefRegMap(@Self)^.clr := $00000010
  44383. else
  44384. pTDefRegMap(@Self)^.&set := $00000010;
  44385. end;
  44386. function TADC10_AD1CON2.getSMPI2 : TBits_1; inline;
  44387. begin
  44388. getSMPI2 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44389. end;
  44390. procedure TADC10_AD1CON2.setSMPI3; inline;
  44391. begin
  44392. pTDefRegMap(@Self)^.&set := $00000020;
  44393. end;
  44394. procedure TADC10_AD1CON2.clearSMPI3; inline;
  44395. begin
  44396. pTDefRegMap(@Self)^.clr := $00000020;
  44397. end;
  44398. procedure TADC10_AD1CON2.setSMPI3(thebits : TBits_1); inline;
  44399. begin
  44400. if thebits = 0 then
  44401. pTDefRegMap(@Self)^.clr := $00000020
  44402. else
  44403. pTDefRegMap(@Self)^.&set := $00000020;
  44404. end;
  44405. function TADC10_AD1CON2.getSMPI3 : TBits_1; inline;
  44406. begin
  44407. getSMPI3 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44408. end;
  44409. procedure TADC10_AD1CON2.setVCFG0; inline;
  44410. begin
  44411. pTDefRegMap(@Self)^.&set := $00002000;
  44412. end;
  44413. procedure TADC10_AD1CON2.clearVCFG0; inline;
  44414. begin
  44415. pTDefRegMap(@Self)^.clr := $00002000;
  44416. end;
  44417. procedure TADC10_AD1CON2.setVCFG0(thebits : TBits_1); inline;
  44418. begin
  44419. if thebits = 0 then
  44420. pTDefRegMap(@Self)^.clr := $00002000
  44421. else
  44422. pTDefRegMap(@Self)^.&set := $00002000;
  44423. end;
  44424. function TADC10_AD1CON2.getVCFG0 : TBits_1; inline;
  44425. begin
  44426. getVCFG0 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  44427. end;
  44428. procedure TADC10_AD1CON2.setVCFG1; inline;
  44429. begin
  44430. pTDefRegMap(@Self)^.&set := $00004000;
  44431. end;
  44432. procedure TADC10_AD1CON2.clearVCFG1; inline;
  44433. begin
  44434. pTDefRegMap(@Self)^.clr := $00004000;
  44435. end;
  44436. procedure TADC10_AD1CON2.setVCFG1(thebits : TBits_1); inline;
  44437. begin
  44438. if thebits = 0 then
  44439. pTDefRegMap(@Self)^.clr := $00004000
  44440. else
  44441. pTDefRegMap(@Self)^.&set := $00004000;
  44442. end;
  44443. function TADC10_AD1CON2.getVCFG1 : TBits_1; inline;
  44444. begin
  44445. getVCFG1 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  44446. end;
  44447. procedure TADC10_AD1CON2.setVCFG2; inline;
  44448. begin
  44449. pTDefRegMap(@Self)^.&set := $00008000;
  44450. end;
  44451. procedure TADC10_AD1CON2.clearVCFG2; inline;
  44452. begin
  44453. pTDefRegMap(@Self)^.clr := $00008000;
  44454. end;
  44455. procedure TADC10_AD1CON2.setVCFG2(thebits : TBits_1); inline;
  44456. begin
  44457. if thebits = 0 then
  44458. pTDefRegMap(@Self)^.clr := $00008000
  44459. else
  44460. pTDefRegMap(@Self)^.&set := $00008000;
  44461. end;
  44462. function TADC10_AD1CON2.getVCFG2 : TBits_1; inline;
  44463. begin
  44464. getVCFG2 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44465. end;
  44466. procedure TADC10_AD1CON2.setw(thebits : TBits_32); inline;
  44467. begin
  44468. pTDefRegMap(@Self)^.val := thebits;
  44469. end;
  44470. function TADC10_AD1CON2.getw : TBits_32; inline;
  44471. begin
  44472. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44473. end;
  44474. procedure TADC10_AD1CON3.setADCS(thebits : TBits_8); inline;
  44475. begin
  44476. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  44477. end;
  44478. function TADC10_AD1CON3.getADCS : TBits_8; inline;
  44479. begin
  44480. getADCS := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  44481. end;
  44482. procedure TADC10_AD1CON3.setSAMC(thebits : TBits_5); inline;
  44483. begin
  44484. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  44485. end;
  44486. function TADC10_AD1CON3.getSAMC : TBits_5; inline;
  44487. begin
  44488. getSAMC := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  44489. end;
  44490. procedure TADC10_AD1CON3.setADRC; inline;
  44491. begin
  44492. pTDefRegMap(@Self)^.&set := $00008000;
  44493. end;
  44494. procedure TADC10_AD1CON3.clearADRC; inline;
  44495. begin
  44496. pTDefRegMap(@Self)^.clr := $00008000;
  44497. end;
  44498. procedure TADC10_AD1CON3.setADRC(thebits : TBits_1); inline;
  44499. begin
  44500. if thebits = 0 then
  44501. pTDefRegMap(@Self)^.clr := $00008000
  44502. else
  44503. pTDefRegMap(@Self)^.&set := $00008000;
  44504. end;
  44505. function TADC10_AD1CON3.getADRC : TBits_1; inline;
  44506. begin
  44507. getADRC := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  44508. end;
  44509. procedure TADC10_AD1CON3.setADCS0; inline;
  44510. begin
  44511. pTDefRegMap(@Self)^.&set := $00000001;
  44512. end;
  44513. procedure TADC10_AD1CON3.clearADCS0; inline;
  44514. begin
  44515. pTDefRegMap(@Self)^.clr := $00000001;
  44516. end;
  44517. procedure TADC10_AD1CON3.setADCS0(thebits : TBits_1); inline;
  44518. begin
  44519. if thebits = 0 then
  44520. pTDefRegMap(@Self)^.clr := $00000001
  44521. else
  44522. pTDefRegMap(@Self)^.&set := $00000001;
  44523. end;
  44524. function TADC10_AD1CON3.getADCS0 : TBits_1; inline;
  44525. begin
  44526. getADCS0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  44527. end;
  44528. procedure TADC10_AD1CON3.setADCS1; inline;
  44529. begin
  44530. pTDefRegMap(@Self)^.&set := $00000002;
  44531. end;
  44532. procedure TADC10_AD1CON3.clearADCS1; inline;
  44533. begin
  44534. pTDefRegMap(@Self)^.clr := $00000002;
  44535. end;
  44536. procedure TADC10_AD1CON3.setADCS1(thebits : TBits_1); inline;
  44537. begin
  44538. if thebits = 0 then
  44539. pTDefRegMap(@Self)^.clr := $00000002
  44540. else
  44541. pTDefRegMap(@Self)^.&set := $00000002;
  44542. end;
  44543. function TADC10_AD1CON3.getADCS1 : TBits_1; inline;
  44544. begin
  44545. getADCS1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  44546. end;
  44547. procedure TADC10_AD1CON3.setADCS2; inline;
  44548. begin
  44549. pTDefRegMap(@Self)^.&set := $00000004;
  44550. end;
  44551. procedure TADC10_AD1CON3.clearADCS2; inline;
  44552. begin
  44553. pTDefRegMap(@Self)^.clr := $00000004;
  44554. end;
  44555. procedure TADC10_AD1CON3.setADCS2(thebits : TBits_1); inline;
  44556. begin
  44557. if thebits = 0 then
  44558. pTDefRegMap(@Self)^.clr := $00000004
  44559. else
  44560. pTDefRegMap(@Self)^.&set := $00000004;
  44561. end;
  44562. function TADC10_AD1CON3.getADCS2 : TBits_1; inline;
  44563. begin
  44564. getADCS2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  44565. end;
  44566. procedure TADC10_AD1CON3.setADCS3; inline;
  44567. begin
  44568. pTDefRegMap(@Self)^.&set := $00000008;
  44569. end;
  44570. procedure TADC10_AD1CON3.clearADCS3; inline;
  44571. begin
  44572. pTDefRegMap(@Self)^.clr := $00000008;
  44573. end;
  44574. procedure TADC10_AD1CON3.setADCS3(thebits : TBits_1); inline;
  44575. begin
  44576. if thebits = 0 then
  44577. pTDefRegMap(@Self)^.clr := $00000008
  44578. else
  44579. pTDefRegMap(@Self)^.&set := $00000008;
  44580. end;
  44581. function TADC10_AD1CON3.getADCS3 : TBits_1; inline;
  44582. begin
  44583. getADCS3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  44584. end;
  44585. procedure TADC10_AD1CON3.setADCS4; inline;
  44586. begin
  44587. pTDefRegMap(@Self)^.&set := $00000010;
  44588. end;
  44589. procedure TADC10_AD1CON3.clearADCS4; inline;
  44590. begin
  44591. pTDefRegMap(@Self)^.clr := $00000010;
  44592. end;
  44593. procedure TADC10_AD1CON3.setADCS4(thebits : TBits_1); inline;
  44594. begin
  44595. if thebits = 0 then
  44596. pTDefRegMap(@Self)^.clr := $00000010
  44597. else
  44598. pTDefRegMap(@Self)^.&set := $00000010;
  44599. end;
  44600. function TADC10_AD1CON3.getADCS4 : TBits_1; inline;
  44601. begin
  44602. getADCS4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  44603. end;
  44604. procedure TADC10_AD1CON3.setADCS5; inline;
  44605. begin
  44606. pTDefRegMap(@Self)^.&set := $00000020;
  44607. end;
  44608. procedure TADC10_AD1CON3.clearADCS5; inline;
  44609. begin
  44610. pTDefRegMap(@Self)^.clr := $00000020;
  44611. end;
  44612. procedure TADC10_AD1CON3.setADCS5(thebits : TBits_1); inline;
  44613. begin
  44614. if thebits = 0 then
  44615. pTDefRegMap(@Self)^.clr := $00000020
  44616. else
  44617. pTDefRegMap(@Self)^.&set := $00000020;
  44618. end;
  44619. function TADC10_AD1CON3.getADCS5 : TBits_1; inline;
  44620. begin
  44621. getADCS5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  44622. end;
  44623. procedure TADC10_AD1CON3.setADCS6; inline;
  44624. begin
  44625. pTDefRegMap(@Self)^.&set := $00000040;
  44626. end;
  44627. procedure TADC10_AD1CON3.clearADCS6; inline;
  44628. begin
  44629. pTDefRegMap(@Self)^.clr := $00000040;
  44630. end;
  44631. procedure TADC10_AD1CON3.setADCS6(thebits : TBits_1); inline;
  44632. begin
  44633. if thebits = 0 then
  44634. pTDefRegMap(@Self)^.clr := $00000040
  44635. else
  44636. pTDefRegMap(@Self)^.&set := $00000040;
  44637. end;
  44638. function TADC10_AD1CON3.getADCS6 : TBits_1; inline;
  44639. begin
  44640. getADCS6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  44641. end;
  44642. procedure TADC10_AD1CON3.setADCS7; inline;
  44643. begin
  44644. pTDefRegMap(@Self)^.&set := $00000080;
  44645. end;
  44646. procedure TADC10_AD1CON3.clearADCS7; inline;
  44647. begin
  44648. pTDefRegMap(@Self)^.clr := $00000080;
  44649. end;
  44650. procedure TADC10_AD1CON3.setADCS7(thebits : TBits_1); inline;
  44651. begin
  44652. if thebits = 0 then
  44653. pTDefRegMap(@Self)^.clr := $00000080
  44654. else
  44655. pTDefRegMap(@Self)^.&set := $00000080;
  44656. end;
  44657. function TADC10_AD1CON3.getADCS7 : TBits_1; inline;
  44658. begin
  44659. getADCS7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  44660. end;
  44661. procedure TADC10_AD1CON3.setSAMC0; inline;
  44662. begin
  44663. pTDefRegMap(@Self)^.&set := $00000100;
  44664. end;
  44665. procedure TADC10_AD1CON3.clearSAMC0; inline;
  44666. begin
  44667. pTDefRegMap(@Self)^.clr := $00000100;
  44668. end;
  44669. procedure TADC10_AD1CON3.setSAMC0(thebits : TBits_1); inline;
  44670. begin
  44671. if thebits = 0 then
  44672. pTDefRegMap(@Self)^.clr := $00000100
  44673. else
  44674. pTDefRegMap(@Self)^.&set := $00000100;
  44675. end;
  44676. function TADC10_AD1CON3.getSAMC0 : TBits_1; inline;
  44677. begin
  44678. getSAMC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  44679. end;
  44680. procedure TADC10_AD1CON3.setSAMC1; inline;
  44681. begin
  44682. pTDefRegMap(@Self)^.&set := $00000200;
  44683. end;
  44684. procedure TADC10_AD1CON3.clearSAMC1; inline;
  44685. begin
  44686. pTDefRegMap(@Self)^.clr := $00000200;
  44687. end;
  44688. procedure TADC10_AD1CON3.setSAMC1(thebits : TBits_1); inline;
  44689. begin
  44690. if thebits = 0 then
  44691. pTDefRegMap(@Self)^.clr := $00000200
  44692. else
  44693. pTDefRegMap(@Self)^.&set := $00000200;
  44694. end;
  44695. function TADC10_AD1CON3.getSAMC1 : TBits_1; inline;
  44696. begin
  44697. getSAMC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  44698. end;
  44699. procedure TADC10_AD1CON3.setSAMC2; inline;
  44700. begin
  44701. pTDefRegMap(@Self)^.&set := $00000400;
  44702. end;
  44703. procedure TADC10_AD1CON3.clearSAMC2; inline;
  44704. begin
  44705. pTDefRegMap(@Self)^.clr := $00000400;
  44706. end;
  44707. procedure TADC10_AD1CON3.setSAMC2(thebits : TBits_1); inline;
  44708. begin
  44709. if thebits = 0 then
  44710. pTDefRegMap(@Self)^.clr := $00000400
  44711. else
  44712. pTDefRegMap(@Self)^.&set := $00000400;
  44713. end;
  44714. function TADC10_AD1CON3.getSAMC2 : TBits_1; inline;
  44715. begin
  44716. getSAMC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  44717. end;
  44718. procedure TADC10_AD1CON3.setSAMC3; inline;
  44719. begin
  44720. pTDefRegMap(@Self)^.&set := $00000800;
  44721. end;
  44722. procedure TADC10_AD1CON3.clearSAMC3; inline;
  44723. begin
  44724. pTDefRegMap(@Self)^.clr := $00000800;
  44725. end;
  44726. procedure TADC10_AD1CON3.setSAMC3(thebits : TBits_1); inline;
  44727. begin
  44728. if thebits = 0 then
  44729. pTDefRegMap(@Self)^.clr := $00000800
  44730. else
  44731. pTDefRegMap(@Self)^.&set := $00000800;
  44732. end;
  44733. function TADC10_AD1CON3.getSAMC3 : TBits_1; inline;
  44734. begin
  44735. getSAMC3 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  44736. end;
  44737. procedure TADC10_AD1CON3.setSAMC4; inline;
  44738. begin
  44739. pTDefRegMap(@Self)^.&set := $00001000;
  44740. end;
  44741. procedure TADC10_AD1CON3.clearSAMC4; inline;
  44742. begin
  44743. pTDefRegMap(@Self)^.clr := $00001000;
  44744. end;
  44745. procedure TADC10_AD1CON3.setSAMC4(thebits : TBits_1); inline;
  44746. begin
  44747. if thebits = 0 then
  44748. pTDefRegMap(@Self)^.clr := $00001000
  44749. else
  44750. pTDefRegMap(@Self)^.&set := $00001000;
  44751. end;
  44752. function TADC10_AD1CON3.getSAMC4 : TBits_1; inline;
  44753. begin
  44754. getSAMC4 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  44755. end;
  44756. procedure TADC10_AD1CON3.setw(thebits : TBits_32); inline;
  44757. begin
  44758. pTDefRegMap(@Self)^.val := thebits;
  44759. end;
  44760. function TADC10_AD1CON3.getw : TBits_32; inline;
  44761. begin
  44762. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44763. end;
  44764. procedure TADC10_AD1CHS.setCH0SA(thebits : TBits_4); inline;
  44765. begin
  44766. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF0FFFF or ( thebits shl 16 );
  44767. end;
  44768. function TADC10_AD1CHS.getCH0SA : TBits_4; inline;
  44769. begin
  44770. getCH0SA := (pTDefRegMap(@Self)^.val and $000F0000) shr 16;
  44771. end;
  44772. procedure TADC10_AD1CHS.setCH0NA; inline;
  44773. begin
  44774. pTDefRegMap(@Self)^.&set := $00800000;
  44775. end;
  44776. procedure TADC10_AD1CHS.clearCH0NA; inline;
  44777. begin
  44778. pTDefRegMap(@Self)^.clr := $00800000;
  44779. end;
  44780. procedure TADC10_AD1CHS.setCH0NA(thebits : TBits_1); inline;
  44781. begin
  44782. if thebits = 0 then
  44783. pTDefRegMap(@Self)^.clr := $00800000
  44784. else
  44785. pTDefRegMap(@Self)^.&set := $00800000;
  44786. end;
  44787. function TADC10_AD1CHS.getCH0NA : TBits_1; inline;
  44788. begin
  44789. getCH0NA := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  44790. end;
  44791. procedure TADC10_AD1CHS.setCH0SB(thebits : TBits_4); inline;
  44792. begin
  44793. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F0FFFFFF or ( thebits shl 24 );
  44794. end;
  44795. function TADC10_AD1CHS.getCH0SB : TBits_4; inline;
  44796. begin
  44797. getCH0SB := (pTDefRegMap(@Self)^.val and $0F000000) shr 24;
  44798. end;
  44799. procedure TADC10_AD1CHS.setCH0NB; inline;
  44800. begin
  44801. pTDefRegMap(@Self)^.&set := $80000000;
  44802. end;
  44803. procedure TADC10_AD1CHS.clearCH0NB; inline;
  44804. begin
  44805. pTDefRegMap(@Self)^.clr := $80000000;
  44806. end;
  44807. procedure TADC10_AD1CHS.setCH0NB(thebits : TBits_1); inline;
  44808. begin
  44809. if thebits = 0 then
  44810. pTDefRegMap(@Self)^.clr := $80000000
  44811. else
  44812. pTDefRegMap(@Self)^.&set := $80000000;
  44813. end;
  44814. function TADC10_AD1CHS.getCH0NB : TBits_1; inline;
  44815. begin
  44816. getCH0NB := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  44817. end;
  44818. procedure TADC10_AD1CHS.setCH0SA0; inline;
  44819. begin
  44820. pTDefRegMap(@Self)^.&set := $00010000;
  44821. end;
  44822. procedure TADC10_AD1CHS.clearCH0SA0; inline;
  44823. begin
  44824. pTDefRegMap(@Self)^.clr := $00010000;
  44825. end;
  44826. procedure TADC10_AD1CHS.setCH0SA0(thebits : TBits_1); inline;
  44827. begin
  44828. if thebits = 0 then
  44829. pTDefRegMap(@Self)^.clr := $00010000
  44830. else
  44831. pTDefRegMap(@Self)^.&set := $00010000;
  44832. end;
  44833. function TADC10_AD1CHS.getCH0SA0 : TBits_1; inline;
  44834. begin
  44835. getCH0SA0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  44836. end;
  44837. procedure TADC10_AD1CHS.setCH0SA1; inline;
  44838. begin
  44839. pTDefRegMap(@Self)^.&set := $00020000;
  44840. end;
  44841. procedure TADC10_AD1CHS.clearCH0SA1; inline;
  44842. begin
  44843. pTDefRegMap(@Self)^.clr := $00020000;
  44844. end;
  44845. procedure TADC10_AD1CHS.setCH0SA1(thebits : TBits_1); inline;
  44846. begin
  44847. if thebits = 0 then
  44848. pTDefRegMap(@Self)^.clr := $00020000
  44849. else
  44850. pTDefRegMap(@Self)^.&set := $00020000;
  44851. end;
  44852. function TADC10_AD1CHS.getCH0SA1 : TBits_1; inline;
  44853. begin
  44854. getCH0SA1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  44855. end;
  44856. procedure TADC10_AD1CHS.setCH0SA2; inline;
  44857. begin
  44858. pTDefRegMap(@Self)^.&set := $00040000;
  44859. end;
  44860. procedure TADC10_AD1CHS.clearCH0SA2; inline;
  44861. begin
  44862. pTDefRegMap(@Self)^.clr := $00040000;
  44863. end;
  44864. procedure TADC10_AD1CHS.setCH0SA2(thebits : TBits_1); inline;
  44865. begin
  44866. if thebits = 0 then
  44867. pTDefRegMap(@Self)^.clr := $00040000
  44868. else
  44869. pTDefRegMap(@Self)^.&set := $00040000;
  44870. end;
  44871. function TADC10_AD1CHS.getCH0SA2 : TBits_1; inline;
  44872. begin
  44873. getCH0SA2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  44874. end;
  44875. procedure TADC10_AD1CHS.setCH0SA3; inline;
  44876. begin
  44877. pTDefRegMap(@Self)^.&set := $00080000;
  44878. end;
  44879. procedure TADC10_AD1CHS.clearCH0SA3; inline;
  44880. begin
  44881. pTDefRegMap(@Self)^.clr := $00080000;
  44882. end;
  44883. procedure TADC10_AD1CHS.setCH0SA3(thebits : TBits_1); inline;
  44884. begin
  44885. if thebits = 0 then
  44886. pTDefRegMap(@Self)^.clr := $00080000
  44887. else
  44888. pTDefRegMap(@Self)^.&set := $00080000;
  44889. end;
  44890. function TADC10_AD1CHS.getCH0SA3 : TBits_1; inline;
  44891. begin
  44892. getCH0SA3 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  44893. end;
  44894. procedure TADC10_AD1CHS.setCH0SB0; inline;
  44895. begin
  44896. pTDefRegMap(@Self)^.&set := $01000000;
  44897. end;
  44898. procedure TADC10_AD1CHS.clearCH0SB0; inline;
  44899. begin
  44900. pTDefRegMap(@Self)^.clr := $01000000;
  44901. end;
  44902. procedure TADC10_AD1CHS.setCH0SB0(thebits : TBits_1); inline;
  44903. begin
  44904. if thebits = 0 then
  44905. pTDefRegMap(@Self)^.clr := $01000000
  44906. else
  44907. pTDefRegMap(@Self)^.&set := $01000000;
  44908. end;
  44909. function TADC10_AD1CHS.getCH0SB0 : TBits_1; inline;
  44910. begin
  44911. getCH0SB0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  44912. end;
  44913. procedure TADC10_AD1CHS.setCH0SB1; inline;
  44914. begin
  44915. pTDefRegMap(@Self)^.&set := $02000000;
  44916. end;
  44917. procedure TADC10_AD1CHS.clearCH0SB1; inline;
  44918. begin
  44919. pTDefRegMap(@Self)^.clr := $02000000;
  44920. end;
  44921. procedure TADC10_AD1CHS.setCH0SB1(thebits : TBits_1); inline;
  44922. begin
  44923. if thebits = 0 then
  44924. pTDefRegMap(@Self)^.clr := $02000000
  44925. else
  44926. pTDefRegMap(@Self)^.&set := $02000000;
  44927. end;
  44928. function TADC10_AD1CHS.getCH0SB1 : TBits_1; inline;
  44929. begin
  44930. getCH0SB1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  44931. end;
  44932. procedure TADC10_AD1CHS.setCH0SB2; inline;
  44933. begin
  44934. pTDefRegMap(@Self)^.&set := $04000000;
  44935. end;
  44936. procedure TADC10_AD1CHS.clearCH0SB2; inline;
  44937. begin
  44938. pTDefRegMap(@Self)^.clr := $04000000;
  44939. end;
  44940. procedure TADC10_AD1CHS.setCH0SB2(thebits : TBits_1); inline;
  44941. begin
  44942. if thebits = 0 then
  44943. pTDefRegMap(@Self)^.clr := $04000000
  44944. else
  44945. pTDefRegMap(@Self)^.&set := $04000000;
  44946. end;
  44947. function TADC10_AD1CHS.getCH0SB2 : TBits_1; inline;
  44948. begin
  44949. getCH0SB2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  44950. end;
  44951. procedure TADC10_AD1CHS.setCH0SB3; inline;
  44952. begin
  44953. pTDefRegMap(@Self)^.&set := $08000000;
  44954. end;
  44955. procedure TADC10_AD1CHS.clearCH0SB3; inline;
  44956. begin
  44957. pTDefRegMap(@Self)^.clr := $08000000;
  44958. end;
  44959. procedure TADC10_AD1CHS.setCH0SB3(thebits : TBits_1); inline;
  44960. begin
  44961. if thebits = 0 then
  44962. pTDefRegMap(@Self)^.clr := $08000000
  44963. else
  44964. pTDefRegMap(@Self)^.&set := $08000000;
  44965. end;
  44966. function TADC10_AD1CHS.getCH0SB3 : TBits_1; inline;
  44967. begin
  44968. getCH0SB3 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  44969. end;
  44970. procedure TADC10_AD1CHS.setw(thebits : TBits_32); inline;
  44971. begin
  44972. pTDefRegMap(@Self)^.val := thebits;
  44973. end;
  44974. function TADC10_AD1CHS.getw : TBits_32; inline;
  44975. begin
  44976. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  44977. end;
  44978. procedure TADC10_AD1CSSL.setCSSL(thebits : TBits_16); inline;
  44979. begin
  44980. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  44981. end;
  44982. function TADC10_AD1CSSL.getCSSL : TBits_16; inline;
  44983. begin
  44984. getCSSL := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  44985. end;
  44986. procedure TADC10_AD1CSSL.setCSSL0; inline;
  44987. begin
  44988. pTDefRegMap(@Self)^.&set := $00000001;
  44989. end;
  44990. procedure TADC10_AD1CSSL.clearCSSL0; inline;
  44991. begin
  44992. pTDefRegMap(@Self)^.clr := $00000001;
  44993. end;
  44994. procedure TADC10_AD1CSSL.setCSSL0(thebits : TBits_1); inline;
  44995. begin
  44996. if thebits = 0 then
  44997. pTDefRegMap(@Self)^.clr := $00000001
  44998. else
  44999. pTDefRegMap(@Self)^.&set := $00000001;
  45000. end;
  45001. function TADC10_AD1CSSL.getCSSL0 : TBits_1; inline;
  45002. begin
  45003. getCSSL0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45004. end;
  45005. procedure TADC10_AD1CSSL.setCSSL1; inline;
  45006. begin
  45007. pTDefRegMap(@Self)^.&set := $00000002;
  45008. end;
  45009. procedure TADC10_AD1CSSL.clearCSSL1; inline;
  45010. begin
  45011. pTDefRegMap(@Self)^.clr := $00000002;
  45012. end;
  45013. procedure TADC10_AD1CSSL.setCSSL1(thebits : TBits_1); inline;
  45014. begin
  45015. if thebits = 0 then
  45016. pTDefRegMap(@Self)^.clr := $00000002
  45017. else
  45018. pTDefRegMap(@Self)^.&set := $00000002;
  45019. end;
  45020. function TADC10_AD1CSSL.getCSSL1 : TBits_1; inline;
  45021. begin
  45022. getCSSL1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45023. end;
  45024. procedure TADC10_AD1CSSL.setCSSL2; inline;
  45025. begin
  45026. pTDefRegMap(@Self)^.&set := $00000004;
  45027. end;
  45028. procedure TADC10_AD1CSSL.clearCSSL2; inline;
  45029. begin
  45030. pTDefRegMap(@Self)^.clr := $00000004;
  45031. end;
  45032. procedure TADC10_AD1CSSL.setCSSL2(thebits : TBits_1); inline;
  45033. begin
  45034. if thebits = 0 then
  45035. pTDefRegMap(@Self)^.clr := $00000004
  45036. else
  45037. pTDefRegMap(@Self)^.&set := $00000004;
  45038. end;
  45039. function TADC10_AD1CSSL.getCSSL2 : TBits_1; inline;
  45040. begin
  45041. getCSSL2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45042. end;
  45043. procedure TADC10_AD1CSSL.setCSSL3; inline;
  45044. begin
  45045. pTDefRegMap(@Self)^.&set := $00000008;
  45046. end;
  45047. procedure TADC10_AD1CSSL.clearCSSL3; inline;
  45048. begin
  45049. pTDefRegMap(@Self)^.clr := $00000008;
  45050. end;
  45051. procedure TADC10_AD1CSSL.setCSSL3(thebits : TBits_1); inline;
  45052. begin
  45053. if thebits = 0 then
  45054. pTDefRegMap(@Self)^.clr := $00000008
  45055. else
  45056. pTDefRegMap(@Self)^.&set := $00000008;
  45057. end;
  45058. function TADC10_AD1CSSL.getCSSL3 : TBits_1; inline;
  45059. begin
  45060. getCSSL3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45061. end;
  45062. procedure TADC10_AD1CSSL.setCSSL4; inline;
  45063. begin
  45064. pTDefRegMap(@Self)^.&set := $00000010;
  45065. end;
  45066. procedure TADC10_AD1CSSL.clearCSSL4; inline;
  45067. begin
  45068. pTDefRegMap(@Self)^.clr := $00000010;
  45069. end;
  45070. procedure TADC10_AD1CSSL.setCSSL4(thebits : TBits_1); inline;
  45071. begin
  45072. if thebits = 0 then
  45073. pTDefRegMap(@Self)^.clr := $00000010
  45074. else
  45075. pTDefRegMap(@Self)^.&set := $00000010;
  45076. end;
  45077. function TADC10_AD1CSSL.getCSSL4 : TBits_1; inline;
  45078. begin
  45079. getCSSL4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45080. end;
  45081. procedure TADC10_AD1CSSL.setCSSL5; inline;
  45082. begin
  45083. pTDefRegMap(@Self)^.&set := $00000020;
  45084. end;
  45085. procedure TADC10_AD1CSSL.clearCSSL5; inline;
  45086. begin
  45087. pTDefRegMap(@Self)^.clr := $00000020;
  45088. end;
  45089. procedure TADC10_AD1CSSL.setCSSL5(thebits : TBits_1); inline;
  45090. begin
  45091. if thebits = 0 then
  45092. pTDefRegMap(@Self)^.clr := $00000020
  45093. else
  45094. pTDefRegMap(@Self)^.&set := $00000020;
  45095. end;
  45096. function TADC10_AD1CSSL.getCSSL5 : TBits_1; inline;
  45097. begin
  45098. getCSSL5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45099. end;
  45100. procedure TADC10_AD1CSSL.setCSSL6; inline;
  45101. begin
  45102. pTDefRegMap(@Self)^.&set := $00000040;
  45103. end;
  45104. procedure TADC10_AD1CSSL.clearCSSL6; inline;
  45105. begin
  45106. pTDefRegMap(@Self)^.clr := $00000040;
  45107. end;
  45108. procedure TADC10_AD1CSSL.setCSSL6(thebits : TBits_1); inline;
  45109. begin
  45110. if thebits = 0 then
  45111. pTDefRegMap(@Self)^.clr := $00000040
  45112. else
  45113. pTDefRegMap(@Self)^.&set := $00000040;
  45114. end;
  45115. function TADC10_AD1CSSL.getCSSL6 : TBits_1; inline;
  45116. begin
  45117. getCSSL6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45118. end;
  45119. procedure TADC10_AD1CSSL.setCSSL7; inline;
  45120. begin
  45121. pTDefRegMap(@Self)^.&set := $00000080;
  45122. end;
  45123. procedure TADC10_AD1CSSL.clearCSSL7; inline;
  45124. begin
  45125. pTDefRegMap(@Self)^.clr := $00000080;
  45126. end;
  45127. procedure TADC10_AD1CSSL.setCSSL7(thebits : TBits_1); inline;
  45128. begin
  45129. if thebits = 0 then
  45130. pTDefRegMap(@Self)^.clr := $00000080
  45131. else
  45132. pTDefRegMap(@Self)^.&set := $00000080;
  45133. end;
  45134. function TADC10_AD1CSSL.getCSSL7 : TBits_1; inline;
  45135. begin
  45136. getCSSL7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45137. end;
  45138. procedure TADC10_AD1CSSL.setCSSL8; inline;
  45139. begin
  45140. pTDefRegMap(@Self)^.&set := $00000100;
  45141. end;
  45142. procedure TADC10_AD1CSSL.clearCSSL8; inline;
  45143. begin
  45144. pTDefRegMap(@Self)^.clr := $00000100;
  45145. end;
  45146. procedure TADC10_AD1CSSL.setCSSL8(thebits : TBits_1); inline;
  45147. begin
  45148. if thebits = 0 then
  45149. pTDefRegMap(@Self)^.clr := $00000100
  45150. else
  45151. pTDefRegMap(@Self)^.&set := $00000100;
  45152. end;
  45153. function TADC10_AD1CSSL.getCSSL8 : TBits_1; inline;
  45154. begin
  45155. getCSSL8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45156. end;
  45157. procedure TADC10_AD1CSSL.setCSSL9; inline;
  45158. begin
  45159. pTDefRegMap(@Self)^.&set := $00000200;
  45160. end;
  45161. procedure TADC10_AD1CSSL.clearCSSL9; inline;
  45162. begin
  45163. pTDefRegMap(@Self)^.clr := $00000200;
  45164. end;
  45165. procedure TADC10_AD1CSSL.setCSSL9(thebits : TBits_1); inline;
  45166. begin
  45167. if thebits = 0 then
  45168. pTDefRegMap(@Self)^.clr := $00000200
  45169. else
  45170. pTDefRegMap(@Self)^.&set := $00000200;
  45171. end;
  45172. function TADC10_AD1CSSL.getCSSL9 : TBits_1; inline;
  45173. begin
  45174. getCSSL9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45175. end;
  45176. procedure TADC10_AD1CSSL.setCSSL10; inline;
  45177. begin
  45178. pTDefRegMap(@Self)^.&set := $00000400;
  45179. end;
  45180. procedure TADC10_AD1CSSL.clearCSSL10; inline;
  45181. begin
  45182. pTDefRegMap(@Self)^.clr := $00000400;
  45183. end;
  45184. procedure TADC10_AD1CSSL.setCSSL10(thebits : TBits_1); inline;
  45185. begin
  45186. if thebits = 0 then
  45187. pTDefRegMap(@Self)^.clr := $00000400
  45188. else
  45189. pTDefRegMap(@Self)^.&set := $00000400;
  45190. end;
  45191. function TADC10_AD1CSSL.getCSSL10 : TBits_1; inline;
  45192. begin
  45193. getCSSL10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45194. end;
  45195. procedure TADC10_AD1CSSL.setCSSL11; inline;
  45196. begin
  45197. pTDefRegMap(@Self)^.&set := $00000800;
  45198. end;
  45199. procedure TADC10_AD1CSSL.clearCSSL11; inline;
  45200. begin
  45201. pTDefRegMap(@Self)^.clr := $00000800;
  45202. end;
  45203. procedure TADC10_AD1CSSL.setCSSL11(thebits : TBits_1); inline;
  45204. begin
  45205. if thebits = 0 then
  45206. pTDefRegMap(@Self)^.clr := $00000800
  45207. else
  45208. pTDefRegMap(@Self)^.&set := $00000800;
  45209. end;
  45210. function TADC10_AD1CSSL.getCSSL11 : TBits_1; inline;
  45211. begin
  45212. getCSSL11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  45213. end;
  45214. procedure TADC10_AD1CSSL.setCSSL12; inline;
  45215. begin
  45216. pTDefRegMap(@Self)^.&set := $00001000;
  45217. end;
  45218. procedure TADC10_AD1CSSL.clearCSSL12; inline;
  45219. begin
  45220. pTDefRegMap(@Self)^.clr := $00001000;
  45221. end;
  45222. procedure TADC10_AD1CSSL.setCSSL12(thebits : TBits_1); inline;
  45223. begin
  45224. if thebits = 0 then
  45225. pTDefRegMap(@Self)^.clr := $00001000
  45226. else
  45227. pTDefRegMap(@Self)^.&set := $00001000;
  45228. end;
  45229. function TADC10_AD1CSSL.getCSSL12 : TBits_1; inline;
  45230. begin
  45231. getCSSL12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  45232. end;
  45233. procedure TADC10_AD1CSSL.setCSSL13; inline;
  45234. begin
  45235. pTDefRegMap(@Self)^.&set := $00002000;
  45236. end;
  45237. procedure TADC10_AD1CSSL.clearCSSL13; inline;
  45238. begin
  45239. pTDefRegMap(@Self)^.clr := $00002000;
  45240. end;
  45241. procedure TADC10_AD1CSSL.setCSSL13(thebits : TBits_1); inline;
  45242. begin
  45243. if thebits = 0 then
  45244. pTDefRegMap(@Self)^.clr := $00002000
  45245. else
  45246. pTDefRegMap(@Self)^.&set := $00002000;
  45247. end;
  45248. function TADC10_AD1CSSL.getCSSL13 : TBits_1; inline;
  45249. begin
  45250. getCSSL13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45251. end;
  45252. procedure TADC10_AD1CSSL.setCSSL14; inline;
  45253. begin
  45254. pTDefRegMap(@Self)^.&set := $00004000;
  45255. end;
  45256. procedure TADC10_AD1CSSL.clearCSSL14; inline;
  45257. begin
  45258. pTDefRegMap(@Self)^.clr := $00004000;
  45259. end;
  45260. procedure TADC10_AD1CSSL.setCSSL14(thebits : TBits_1); inline;
  45261. begin
  45262. if thebits = 0 then
  45263. pTDefRegMap(@Self)^.clr := $00004000
  45264. else
  45265. pTDefRegMap(@Self)^.&set := $00004000;
  45266. end;
  45267. function TADC10_AD1CSSL.getCSSL14 : TBits_1; inline;
  45268. begin
  45269. getCSSL14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45270. end;
  45271. procedure TADC10_AD1CSSL.setCSSL15; inline;
  45272. begin
  45273. pTDefRegMap(@Self)^.&set := $00008000;
  45274. end;
  45275. procedure TADC10_AD1CSSL.clearCSSL15; inline;
  45276. begin
  45277. pTDefRegMap(@Self)^.clr := $00008000;
  45278. end;
  45279. procedure TADC10_AD1CSSL.setCSSL15(thebits : TBits_1); inline;
  45280. begin
  45281. if thebits = 0 then
  45282. pTDefRegMap(@Self)^.clr := $00008000
  45283. else
  45284. pTDefRegMap(@Self)^.&set := $00008000;
  45285. end;
  45286. function TADC10_AD1CSSL.getCSSL15 : TBits_1; inline;
  45287. begin
  45288. getCSSL15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45289. end;
  45290. procedure TADC10_AD1CSSL.setw(thebits : TBits_32); inline;
  45291. begin
  45292. pTDefRegMap(@Self)^.val := thebits;
  45293. end;
  45294. function TADC10_AD1CSSL.getw : TBits_32; inline;
  45295. begin
  45296. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45297. end;
  45298. procedure TADC10_AD1PCFG.setPCFG(thebits : TBits_16); inline;
  45299. begin
  45300. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  45301. end;
  45302. function TADC10_AD1PCFG.getPCFG : TBits_16; inline;
  45303. begin
  45304. getPCFG := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  45305. end;
  45306. procedure TADC10_AD1PCFG.setPCFG0; inline;
  45307. begin
  45308. pTDefRegMap(@Self)^.&set := $00000001;
  45309. end;
  45310. procedure TADC10_AD1PCFG.clearPCFG0; inline;
  45311. begin
  45312. pTDefRegMap(@Self)^.clr := $00000001;
  45313. end;
  45314. procedure TADC10_AD1PCFG.setPCFG0(thebits : TBits_1); inline;
  45315. begin
  45316. if thebits = 0 then
  45317. pTDefRegMap(@Self)^.clr := $00000001
  45318. else
  45319. pTDefRegMap(@Self)^.&set := $00000001;
  45320. end;
  45321. function TADC10_AD1PCFG.getPCFG0 : TBits_1; inline;
  45322. begin
  45323. getPCFG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45324. end;
  45325. procedure TADC10_AD1PCFG.setPCFG1; inline;
  45326. begin
  45327. pTDefRegMap(@Self)^.&set := $00000002;
  45328. end;
  45329. procedure TADC10_AD1PCFG.clearPCFG1; inline;
  45330. begin
  45331. pTDefRegMap(@Self)^.clr := $00000002;
  45332. end;
  45333. procedure TADC10_AD1PCFG.setPCFG1(thebits : TBits_1); inline;
  45334. begin
  45335. if thebits = 0 then
  45336. pTDefRegMap(@Self)^.clr := $00000002
  45337. else
  45338. pTDefRegMap(@Self)^.&set := $00000002;
  45339. end;
  45340. function TADC10_AD1PCFG.getPCFG1 : TBits_1; inline;
  45341. begin
  45342. getPCFG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45343. end;
  45344. procedure TADC10_AD1PCFG.setPCFG2; inline;
  45345. begin
  45346. pTDefRegMap(@Self)^.&set := $00000004;
  45347. end;
  45348. procedure TADC10_AD1PCFG.clearPCFG2; inline;
  45349. begin
  45350. pTDefRegMap(@Self)^.clr := $00000004;
  45351. end;
  45352. procedure TADC10_AD1PCFG.setPCFG2(thebits : TBits_1); inline;
  45353. begin
  45354. if thebits = 0 then
  45355. pTDefRegMap(@Self)^.clr := $00000004
  45356. else
  45357. pTDefRegMap(@Self)^.&set := $00000004;
  45358. end;
  45359. function TADC10_AD1PCFG.getPCFG2 : TBits_1; inline;
  45360. begin
  45361. getPCFG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45362. end;
  45363. procedure TADC10_AD1PCFG.setPCFG3; inline;
  45364. begin
  45365. pTDefRegMap(@Self)^.&set := $00000008;
  45366. end;
  45367. procedure TADC10_AD1PCFG.clearPCFG3; inline;
  45368. begin
  45369. pTDefRegMap(@Self)^.clr := $00000008;
  45370. end;
  45371. procedure TADC10_AD1PCFG.setPCFG3(thebits : TBits_1); inline;
  45372. begin
  45373. if thebits = 0 then
  45374. pTDefRegMap(@Self)^.clr := $00000008
  45375. else
  45376. pTDefRegMap(@Self)^.&set := $00000008;
  45377. end;
  45378. function TADC10_AD1PCFG.getPCFG3 : TBits_1; inline;
  45379. begin
  45380. getPCFG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45381. end;
  45382. procedure TADC10_AD1PCFG.setPCFG4; inline;
  45383. begin
  45384. pTDefRegMap(@Self)^.&set := $00000010;
  45385. end;
  45386. procedure TADC10_AD1PCFG.clearPCFG4; inline;
  45387. begin
  45388. pTDefRegMap(@Self)^.clr := $00000010;
  45389. end;
  45390. procedure TADC10_AD1PCFG.setPCFG4(thebits : TBits_1); inline;
  45391. begin
  45392. if thebits = 0 then
  45393. pTDefRegMap(@Self)^.clr := $00000010
  45394. else
  45395. pTDefRegMap(@Self)^.&set := $00000010;
  45396. end;
  45397. function TADC10_AD1PCFG.getPCFG4 : TBits_1; inline;
  45398. begin
  45399. getPCFG4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45400. end;
  45401. procedure TADC10_AD1PCFG.setPCFG5; inline;
  45402. begin
  45403. pTDefRegMap(@Self)^.&set := $00000020;
  45404. end;
  45405. procedure TADC10_AD1PCFG.clearPCFG5; inline;
  45406. begin
  45407. pTDefRegMap(@Self)^.clr := $00000020;
  45408. end;
  45409. procedure TADC10_AD1PCFG.setPCFG5(thebits : TBits_1); inline;
  45410. begin
  45411. if thebits = 0 then
  45412. pTDefRegMap(@Self)^.clr := $00000020
  45413. else
  45414. pTDefRegMap(@Self)^.&set := $00000020;
  45415. end;
  45416. function TADC10_AD1PCFG.getPCFG5 : TBits_1; inline;
  45417. begin
  45418. getPCFG5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45419. end;
  45420. procedure TADC10_AD1PCFG.setPCFG6; inline;
  45421. begin
  45422. pTDefRegMap(@Self)^.&set := $00000040;
  45423. end;
  45424. procedure TADC10_AD1PCFG.clearPCFG6; inline;
  45425. begin
  45426. pTDefRegMap(@Self)^.clr := $00000040;
  45427. end;
  45428. procedure TADC10_AD1PCFG.setPCFG6(thebits : TBits_1); inline;
  45429. begin
  45430. if thebits = 0 then
  45431. pTDefRegMap(@Self)^.clr := $00000040
  45432. else
  45433. pTDefRegMap(@Self)^.&set := $00000040;
  45434. end;
  45435. function TADC10_AD1PCFG.getPCFG6 : TBits_1; inline;
  45436. begin
  45437. getPCFG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45438. end;
  45439. procedure TADC10_AD1PCFG.setPCFG7; inline;
  45440. begin
  45441. pTDefRegMap(@Self)^.&set := $00000080;
  45442. end;
  45443. procedure TADC10_AD1PCFG.clearPCFG7; inline;
  45444. begin
  45445. pTDefRegMap(@Self)^.clr := $00000080;
  45446. end;
  45447. procedure TADC10_AD1PCFG.setPCFG7(thebits : TBits_1); inline;
  45448. begin
  45449. if thebits = 0 then
  45450. pTDefRegMap(@Self)^.clr := $00000080
  45451. else
  45452. pTDefRegMap(@Self)^.&set := $00000080;
  45453. end;
  45454. function TADC10_AD1PCFG.getPCFG7 : TBits_1; inline;
  45455. begin
  45456. getPCFG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  45457. end;
  45458. procedure TADC10_AD1PCFG.setPCFG8; inline;
  45459. begin
  45460. pTDefRegMap(@Self)^.&set := $00000100;
  45461. end;
  45462. procedure TADC10_AD1PCFG.clearPCFG8; inline;
  45463. begin
  45464. pTDefRegMap(@Self)^.clr := $00000100;
  45465. end;
  45466. procedure TADC10_AD1PCFG.setPCFG8(thebits : TBits_1); inline;
  45467. begin
  45468. if thebits = 0 then
  45469. pTDefRegMap(@Self)^.clr := $00000100
  45470. else
  45471. pTDefRegMap(@Self)^.&set := $00000100;
  45472. end;
  45473. function TADC10_AD1PCFG.getPCFG8 : TBits_1; inline;
  45474. begin
  45475. getPCFG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45476. end;
  45477. procedure TADC10_AD1PCFG.setPCFG9; inline;
  45478. begin
  45479. pTDefRegMap(@Self)^.&set := $00000200;
  45480. end;
  45481. procedure TADC10_AD1PCFG.clearPCFG9; inline;
  45482. begin
  45483. pTDefRegMap(@Self)^.clr := $00000200;
  45484. end;
  45485. procedure TADC10_AD1PCFG.setPCFG9(thebits : TBits_1); inline;
  45486. begin
  45487. if thebits = 0 then
  45488. pTDefRegMap(@Self)^.clr := $00000200
  45489. else
  45490. pTDefRegMap(@Self)^.&set := $00000200;
  45491. end;
  45492. function TADC10_AD1PCFG.getPCFG9 : TBits_1; inline;
  45493. begin
  45494. getPCFG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45495. end;
  45496. procedure TADC10_AD1PCFG.setPCFG10; inline;
  45497. begin
  45498. pTDefRegMap(@Self)^.&set := $00000400;
  45499. end;
  45500. procedure TADC10_AD1PCFG.clearPCFG10; inline;
  45501. begin
  45502. pTDefRegMap(@Self)^.clr := $00000400;
  45503. end;
  45504. procedure TADC10_AD1PCFG.setPCFG10(thebits : TBits_1); inline;
  45505. begin
  45506. if thebits = 0 then
  45507. pTDefRegMap(@Self)^.clr := $00000400
  45508. else
  45509. pTDefRegMap(@Self)^.&set := $00000400;
  45510. end;
  45511. function TADC10_AD1PCFG.getPCFG10 : TBits_1; inline;
  45512. begin
  45513. getPCFG10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45514. end;
  45515. procedure TADC10_AD1PCFG.setPCFG11; inline;
  45516. begin
  45517. pTDefRegMap(@Self)^.&set := $00000800;
  45518. end;
  45519. procedure TADC10_AD1PCFG.clearPCFG11; inline;
  45520. begin
  45521. pTDefRegMap(@Self)^.clr := $00000800;
  45522. end;
  45523. procedure TADC10_AD1PCFG.setPCFG11(thebits : TBits_1); inline;
  45524. begin
  45525. if thebits = 0 then
  45526. pTDefRegMap(@Self)^.clr := $00000800
  45527. else
  45528. pTDefRegMap(@Self)^.&set := $00000800;
  45529. end;
  45530. function TADC10_AD1PCFG.getPCFG11 : TBits_1; inline;
  45531. begin
  45532. getPCFG11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  45533. end;
  45534. procedure TADC10_AD1PCFG.setPCFG12; inline;
  45535. begin
  45536. pTDefRegMap(@Self)^.&set := $00001000;
  45537. end;
  45538. procedure TADC10_AD1PCFG.clearPCFG12; inline;
  45539. begin
  45540. pTDefRegMap(@Self)^.clr := $00001000;
  45541. end;
  45542. procedure TADC10_AD1PCFG.setPCFG12(thebits : TBits_1); inline;
  45543. begin
  45544. if thebits = 0 then
  45545. pTDefRegMap(@Self)^.clr := $00001000
  45546. else
  45547. pTDefRegMap(@Self)^.&set := $00001000;
  45548. end;
  45549. function TADC10_AD1PCFG.getPCFG12 : TBits_1; inline;
  45550. begin
  45551. getPCFG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  45552. end;
  45553. procedure TADC10_AD1PCFG.setPCFG13; inline;
  45554. begin
  45555. pTDefRegMap(@Self)^.&set := $00002000;
  45556. end;
  45557. procedure TADC10_AD1PCFG.clearPCFG13; inline;
  45558. begin
  45559. pTDefRegMap(@Self)^.clr := $00002000;
  45560. end;
  45561. procedure TADC10_AD1PCFG.setPCFG13(thebits : TBits_1); inline;
  45562. begin
  45563. if thebits = 0 then
  45564. pTDefRegMap(@Self)^.clr := $00002000
  45565. else
  45566. pTDefRegMap(@Self)^.&set := $00002000;
  45567. end;
  45568. function TADC10_AD1PCFG.getPCFG13 : TBits_1; inline;
  45569. begin
  45570. getPCFG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45571. end;
  45572. procedure TADC10_AD1PCFG.setPCFG14; inline;
  45573. begin
  45574. pTDefRegMap(@Self)^.&set := $00004000;
  45575. end;
  45576. procedure TADC10_AD1PCFG.clearPCFG14; inline;
  45577. begin
  45578. pTDefRegMap(@Self)^.clr := $00004000;
  45579. end;
  45580. procedure TADC10_AD1PCFG.setPCFG14(thebits : TBits_1); inline;
  45581. begin
  45582. if thebits = 0 then
  45583. pTDefRegMap(@Self)^.clr := $00004000
  45584. else
  45585. pTDefRegMap(@Self)^.&set := $00004000;
  45586. end;
  45587. function TADC10_AD1PCFG.getPCFG14 : TBits_1; inline;
  45588. begin
  45589. getPCFG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45590. end;
  45591. procedure TADC10_AD1PCFG.setPCFG15; inline;
  45592. begin
  45593. pTDefRegMap(@Self)^.&set := $00008000;
  45594. end;
  45595. procedure TADC10_AD1PCFG.clearPCFG15; inline;
  45596. begin
  45597. pTDefRegMap(@Self)^.clr := $00008000;
  45598. end;
  45599. procedure TADC10_AD1PCFG.setPCFG15(thebits : TBits_1); inline;
  45600. begin
  45601. if thebits = 0 then
  45602. pTDefRegMap(@Self)^.clr := $00008000
  45603. else
  45604. pTDefRegMap(@Self)^.&set := $00008000;
  45605. end;
  45606. function TADC10_AD1PCFG.getPCFG15 : TBits_1; inline;
  45607. begin
  45608. getPCFG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45609. end;
  45610. procedure TADC10_AD1PCFG.setw(thebits : TBits_32); inline;
  45611. begin
  45612. pTDefRegMap(@Self)^.val := thebits;
  45613. end;
  45614. function TADC10_AD1PCFG.getw : TBits_32; inline;
  45615. begin
  45616. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45617. end;
  45618. procedure TCVR_CVRCON.setCVR(thebits : TBits_4); inline;
  45619. begin
  45620. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  45621. end;
  45622. function TCVR_CVRCON.getCVR : TBits_4; inline;
  45623. begin
  45624. getCVR := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  45625. end;
  45626. procedure TCVR_CVRCON.setCVRSS; inline;
  45627. begin
  45628. pTDefRegMap(@Self)^.&set := $00000010;
  45629. end;
  45630. procedure TCVR_CVRCON.clearCVRSS; inline;
  45631. begin
  45632. pTDefRegMap(@Self)^.clr := $00000010;
  45633. end;
  45634. procedure TCVR_CVRCON.setCVRSS(thebits : TBits_1); inline;
  45635. begin
  45636. if thebits = 0 then
  45637. pTDefRegMap(@Self)^.clr := $00000010
  45638. else
  45639. pTDefRegMap(@Self)^.&set := $00000010;
  45640. end;
  45641. function TCVR_CVRCON.getCVRSS : TBits_1; inline;
  45642. begin
  45643. getCVRSS := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45644. end;
  45645. procedure TCVR_CVRCON.setCVRR; inline;
  45646. begin
  45647. pTDefRegMap(@Self)^.&set := $00000020;
  45648. end;
  45649. procedure TCVR_CVRCON.clearCVRR; inline;
  45650. begin
  45651. pTDefRegMap(@Self)^.clr := $00000020;
  45652. end;
  45653. procedure TCVR_CVRCON.setCVRR(thebits : TBits_1); inline;
  45654. begin
  45655. if thebits = 0 then
  45656. pTDefRegMap(@Self)^.clr := $00000020
  45657. else
  45658. pTDefRegMap(@Self)^.&set := $00000020;
  45659. end;
  45660. function TCVR_CVRCON.getCVRR : TBits_1; inline;
  45661. begin
  45662. getCVRR := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  45663. end;
  45664. procedure TCVR_CVRCON.setCVROE; inline;
  45665. begin
  45666. pTDefRegMap(@Self)^.&set := $00000040;
  45667. end;
  45668. procedure TCVR_CVRCON.clearCVROE; inline;
  45669. begin
  45670. pTDefRegMap(@Self)^.clr := $00000040;
  45671. end;
  45672. procedure TCVR_CVRCON.setCVROE(thebits : TBits_1); inline;
  45673. begin
  45674. if thebits = 0 then
  45675. pTDefRegMap(@Self)^.clr := $00000040
  45676. else
  45677. pTDefRegMap(@Self)^.&set := $00000040;
  45678. end;
  45679. function TCVR_CVRCON.getCVROE : TBits_1; inline;
  45680. begin
  45681. getCVROE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  45682. end;
  45683. procedure TCVR_CVRCON.setBGSEL(thebits : TBits_2); inline;
  45684. begin
  45685. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  45686. end;
  45687. function TCVR_CVRCON.getBGSEL : TBits_2; inline;
  45688. begin
  45689. getBGSEL := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  45690. end;
  45691. procedure TCVR_CVRCON.setVREFSEL; inline;
  45692. begin
  45693. pTDefRegMap(@Self)^.&set := $00000400;
  45694. end;
  45695. procedure TCVR_CVRCON.clearVREFSEL; inline;
  45696. begin
  45697. pTDefRegMap(@Self)^.clr := $00000400;
  45698. end;
  45699. procedure TCVR_CVRCON.setVREFSEL(thebits : TBits_1); inline;
  45700. begin
  45701. if thebits = 0 then
  45702. pTDefRegMap(@Self)^.clr := $00000400
  45703. else
  45704. pTDefRegMap(@Self)^.&set := $00000400;
  45705. end;
  45706. function TCVR_CVRCON.getVREFSEL : TBits_1; inline;
  45707. begin
  45708. getVREFSEL := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  45709. end;
  45710. procedure TCVR_CVRCON.setON; inline;
  45711. begin
  45712. pTDefRegMap(@Self)^.&set := $00008000;
  45713. end;
  45714. procedure TCVR_CVRCON.clearON; inline;
  45715. begin
  45716. pTDefRegMap(@Self)^.clr := $00008000;
  45717. end;
  45718. procedure TCVR_CVRCON.setON(thebits : TBits_1); inline;
  45719. begin
  45720. if thebits = 0 then
  45721. pTDefRegMap(@Self)^.clr := $00008000
  45722. else
  45723. pTDefRegMap(@Self)^.&set := $00008000;
  45724. end;
  45725. function TCVR_CVRCON.getON : TBits_1; inline;
  45726. begin
  45727. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45728. end;
  45729. procedure TCVR_CVRCON.setCVR0; inline;
  45730. begin
  45731. pTDefRegMap(@Self)^.&set := $00000001;
  45732. end;
  45733. procedure TCVR_CVRCON.clearCVR0; inline;
  45734. begin
  45735. pTDefRegMap(@Self)^.clr := $00000001;
  45736. end;
  45737. procedure TCVR_CVRCON.setCVR0(thebits : TBits_1); inline;
  45738. begin
  45739. if thebits = 0 then
  45740. pTDefRegMap(@Self)^.clr := $00000001
  45741. else
  45742. pTDefRegMap(@Self)^.&set := $00000001;
  45743. end;
  45744. function TCVR_CVRCON.getCVR0 : TBits_1; inline;
  45745. begin
  45746. getCVR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45747. end;
  45748. procedure TCVR_CVRCON.setCVR1; inline;
  45749. begin
  45750. pTDefRegMap(@Self)^.&set := $00000002;
  45751. end;
  45752. procedure TCVR_CVRCON.clearCVR1; inline;
  45753. begin
  45754. pTDefRegMap(@Self)^.clr := $00000002;
  45755. end;
  45756. procedure TCVR_CVRCON.setCVR1(thebits : TBits_1); inline;
  45757. begin
  45758. if thebits = 0 then
  45759. pTDefRegMap(@Self)^.clr := $00000002
  45760. else
  45761. pTDefRegMap(@Self)^.&set := $00000002;
  45762. end;
  45763. function TCVR_CVRCON.getCVR1 : TBits_1; inline;
  45764. begin
  45765. getCVR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45766. end;
  45767. procedure TCVR_CVRCON.setCVR2; inline;
  45768. begin
  45769. pTDefRegMap(@Self)^.&set := $00000004;
  45770. end;
  45771. procedure TCVR_CVRCON.clearCVR2; inline;
  45772. begin
  45773. pTDefRegMap(@Self)^.clr := $00000004;
  45774. end;
  45775. procedure TCVR_CVRCON.setCVR2(thebits : TBits_1); inline;
  45776. begin
  45777. if thebits = 0 then
  45778. pTDefRegMap(@Self)^.clr := $00000004
  45779. else
  45780. pTDefRegMap(@Self)^.&set := $00000004;
  45781. end;
  45782. function TCVR_CVRCON.getCVR2 : TBits_1; inline;
  45783. begin
  45784. getCVR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  45785. end;
  45786. procedure TCVR_CVRCON.setCVR3; inline;
  45787. begin
  45788. pTDefRegMap(@Self)^.&set := $00000008;
  45789. end;
  45790. procedure TCVR_CVRCON.clearCVR3; inline;
  45791. begin
  45792. pTDefRegMap(@Self)^.clr := $00000008;
  45793. end;
  45794. procedure TCVR_CVRCON.setCVR3(thebits : TBits_1); inline;
  45795. begin
  45796. if thebits = 0 then
  45797. pTDefRegMap(@Self)^.clr := $00000008
  45798. else
  45799. pTDefRegMap(@Self)^.&set := $00000008;
  45800. end;
  45801. function TCVR_CVRCON.getCVR3 : TBits_1; inline;
  45802. begin
  45803. getCVR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  45804. end;
  45805. procedure TCVR_CVRCON.setBGSEL0; inline;
  45806. begin
  45807. pTDefRegMap(@Self)^.&set := $00000100;
  45808. end;
  45809. procedure TCVR_CVRCON.clearBGSEL0; inline;
  45810. begin
  45811. pTDefRegMap(@Self)^.clr := $00000100;
  45812. end;
  45813. procedure TCVR_CVRCON.setBGSEL0(thebits : TBits_1); inline;
  45814. begin
  45815. if thebits = 0 then
  45816. pTDefRegMap(@Self)^.clr := $00000100
  45817. else
  45818. pTDefRegMap(@Self)^.&set := $00000100;
  45819. end;
  45820. function TCVR_CVRCON.getBGSEL0 : TBits_1; inline;
  45821. begin
  45822. getBGSEL0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45823. end;
  45824. procedure TCVR_CVRCON.setBGSEL1; inline;
  45825. begin
  45826. pTDefRegMap(@Self)^.&set := $00000200;
  45827. end;
  45828. procedure TCVR_CVRCON.clearBGSEL1; inline;
  45829. begin
  45830. pTDefRegMap(@Self)^.clr := $00000200;
  45831. end;
  45832. procedure TCVR_CVRCON.setBGSEL1(thebits : TBits_1); inline;
  45833. begin
  45834. if thebits = 0 then
  45835. pTDefRegMap(@Self)^.clr := $00000200
  45836. else
  45837. pTDefRegMap(@Self)^.&set := $00000200;
  45838. end;
  45839. function TCVR_CVRCON.getBGSEL1 : TBits_1; inline;
  45840. begin
  45841. getBGSEL1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  45842. end;
  45843. procedure TCVR_CVRCON.setw(thebits : TBits_32); inline;
  45844. begin
  45845. pTDefRegMap(@Self)^.val := thebits;
  45846. end;
  45847. function TCVR_CVRCON.getw : TBits_32; inline;
  45848. begin
  45849. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  45850. end;
  45851. procedure TCMP_CM1CON.setCCH(thebits : TBits_2); inline;
  45852. begin
  45853. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  45854. end;
  45855. function TCMP_CM1CON.getCCH : TBits_2; inline;
  45856. begin
  45857. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  45858. end;
  45859. procedure TCMP_CM1CON.setCREF; inline;
  45860. begin
  45861. pTDefRegMap(@Self)^.&set := $00000010;
  45862. end;
  45863. procedure TCMP_CM1CON.clearCREF; inline;
  45864. begin
  45865. pTDefRegMap(@Self)^.clr := $00000010;
  45866. end;
  45867. procedure TCMP_CM1CON.setCREF(thebits : TBits_1); inline;
  45868. begin
  45869. if thebits = 0 then
  45870. pTDefRegMap(@Self)^.clr := $00000010
  45871. else
  45872. pTDefRegMap(@Self)^.&set := $00000010;
  45873. end;
  45874. function TCMP_CM1CON.getCREF : TBits_1; inline;
  45875. begin
  45876. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  45877. end;
  45878. procedure TCMP_CM1CON.setEVPOL(thebits : TBits_2); inline;
  45879. begin
  45880. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  45881. end;
  45882. function TCMP_CM1CON.getEVPOL : TBits_2; inline;
  45883. begin
  45884. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  45885. end;
  45886. procedure TCMP_CM1CON.setCOUT; inline;
  45887. begin
  45888. pTDefRegMap(@Self)^.&set := $00000100;
  45889. end;
  45890. procedure TCMP_CM1CON.clearCOUT; inline;
  45891. begin
  45892. pTDefRegMap(@Self)^.clr := $00000100;
  45893. end;
  45894. procedure TCMP_CM1CON.setCOUT(thebits : TBits_1); inline;
  45895. begin
  45896. if thebits = 0 then
  45897. pTDefRegMap(@Self)^.clr := $00000100
  45898. else
  45899. pTDefRegMap(@Self)^.&set := $00000100;
  45900. end;
  45901. function TCMP_CM1CON.getCOUT : TBits_1; inline;
  45902. begin
  45903. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  45904. end;
  45905. procedure TCMP_CM1CON.setCPOL; inline;
  45906. begin
  45907. pTDefRegMap(@Self)^.&set := $00002000;
  45908. end;
  45909. procedure TCMP_CM1CON.clearCPOL; inline;
  45910. begin
  45911. pTDefRegMap(@Self)^.clr := $00002000;
  45912. end;
  45913. procedure TCMP_CM1CON.setCPOL(thebits : TBits_1); inline;
  45914. begin
  45915. if thebits = 0 then
  45916. pTDefRegMap(@Self)^.clr := $00002000
  45917. else
  45918. pTDefRegMap(@Self)^.&set := $00002000;
  45919. end;
  45920. function TCMP_CM1CON.getCPOL : TBits_1; inline;
  45921. begin
  45922. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  45923. end;
  45924. procedure TCMP_CM1CON.setCOE; inline;
  45925. begin
  45926. pTDefRegMap(@Self)^.&set := $00004000;
  45927. end;
  45928. procedure TCMP_CM1CON.clearCOE; inline;
  45929. begin
  45930. pTDefRegMap(@Self)^.clr := $00004000;
  45931. end;
  45932. procedure TCMP_CM1CON.setCOE(thebits : TBits_1); inline;
  45933. begin
  45934. if thebits = 0 then
  45935. pTDefRegMap(@Self)^.clr := $00004000
  45936. else
  45937. pTDefRegMap(@Self)^.&set := $00004000;
  45938. end;
  45939. function TCMP_CM1CON.getCOE : TBits_1; inline;
  45940. begin
  45941. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  45942. end;
  45943. procedure TCMP_CM1CON.setON; inline;
  45944. begin
  45945. pTDefRegMap(@Self)^.&set := $00008000;
  45946. end;
  45947. procedure TCMP_CM1CON.clearON; inline;
  45948. begin
  45949. pTDefRegMap(@Self)^.clr := $00008000;
  45950. end;
  45951. procedure TCMP_CM1CON.setON(thebits : TBits_1); inline;
  45952. begin
  45953. if thebits = 0 then
  45954. pTDefRegMap(@Self)^.clr := $00008000
  45955. else
  45956. pTDefRegMap(@Self)^.&set := $00008000;
  45957. end;
  45958. function TCMP_CM1CON.getON : TBits_1; inline;
  45959. begin
  45960. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  45961. end;
  45962. procedure TCMP_CM1CON.setCCH0; inline;
  45963. begin
  45964. pTDefRegMap(@Self)^.&set := $00000001;
  45965. end;
  45966. procedure TCMP_CM1CON.clearCCH0; inline;
  45967. begin
  45968. pTDefRegMap(@Self)^.clr := $00000001;
  45969. end;
  45970. procedure TCMP_CM1CON.setCCH0(thebits : TBits_1); inline;
  45971. begin
  45972. if thebits = 0 then
  45973. pTDefRegMap(@Self)^.clr := $00000001
  45974. else
  45975. pTDefRegMap(@Self)^.&set := $00000001;
  45976. end;
  45977. function TCMP_CM1CON.getCCH0 : TBits_1; inline;
  45978. begin
  45979. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  45980. end;
  45981. procedure TCMP_CM1CON.setCCH1; inline;
  45982. begin
  45983. pTDefRegMap(@Self)^.&set := $00000002;
  45984. end;
  45985. procedure TCMP_CM1CON.clearCCH1; inline;
  45986. begin
  45987. pTDefRegMap(@Self)^.clr := $00000002;
  45988. end;
  45989. procedure TCMP_CM1CON.setCCH1(thebits : TBits_1); inline;
  45990. begin
  45991. if thebits = 0 then
  45992. pTDefRegMap(@Self)^.clr := $00000002
  45993. else
  45994. pTDefRegMap(@Self)^.&set := $00000002;
  45995. end;
  45996. function TCMP_CM1CON.getCCH1 : TBits_1; inline;
  45997. begin
  45998. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  45999. end;
  46000. procedure TCMP_CM1CON.setEVPOL0; inline;
  46001. begin
  46002. pTDefRegMap(@Self)^.&set := $00000040;
  46003. end;
  46004. procedure TCMP_CM1CON.clearEVPOL0; inline;
  46005. begin
  46006. pTDefRegMap(@Self)^.clr := $00000040;
  46007. end;
  46008. procedure TCMP_CM1CON.setEVPOL0(thebits : TBits_1); inline;
  46009. begin
  46010. if thebits = 0 then
  46011. pTDefRegMap(@Self)^.clr := $00000040
  46012. else
  46013. pTDefRegMap(@Self)^.&set := $00000040;
  46014. end;
  46015. function TCMP_CM1CON.getEVPOL0 : TBits_1; inline;
  46016. begin
  46017. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46018. end;
  46019. procedure TCMP_CM1CON.setEVPOL1; inline;
  46020. begin
  46021. pTDefRegMap(@Self)^.&set := $00000080;
  46022. end;
  46023. procedure TCMP_CM1CON.clearEVPOL1; inline;
  46024. begin
  46025. pTDefRegMap(@Self)^.clr := $00000080;
  46026. end;
  46027. procedure TCMP_CM1CON.setEVPOL1(thebits : TBits_1); inline;
  46028. begin
  46029. if thebits = 0 then
  46030. pTDefRegMap(@Self)^.clr := $00000080
  46031. else
  46032. pTDefRegMap(@Self)^.&set := $00000080;
  46033. end;
  46034. function TCMP_CM1CON.getEVPOL1 : TBits_1; inline;
  46035. begin
  46036. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46037. end;
  46038. procedure TCMP_CM1CON.setw(thebits : TBits_32); inline;
  46039. begin
  46040. pTDefRegMap(@Self)^.val := thebits;
  46041. end;
  46042. function TCMP_CM1CON.getw : TBits_32; inline;
  46043. begin
  46044. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46045. end;
  46046. procedure TCMP_CM2CON.setCCH(thebits : TBits_2); inline;
  46047. begin
  46048. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  46049. end;
  46050. function TCMP_CM2CON.getCCH : TBits_2; inline;
  46051. begin
  46052. getCCH := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  46053. end;
  46054. procedure TCMP_CM2CON.setCREF; inline;
  46055. begin
  46056. pTDefRegMap(@Self)^.&set := $00000010;
  46057. end;
  46058. procedure TCMP_CM2CON.clearCREF; inline;
  46059. begin
  46060. pTDefRegMap(@Self)^.clr := $00000010;
  46061. end;
  46062. procedure TCMP_CM2CON.setCREF(thebits : TBits_1); inline;
  46063. begin
  46064. if thebits = 0 then
  46065. pTDefRegMap(@Self)^.clr := $00000010
  46066. else
  46067. pTDefRegMap(@Self)^.&set := $00000010;
  46068. end;
  46069. function TCMP_CM2CON.getCREF : TBits_1; inline;
  46070. begin
  46071. getCREF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46072. end;
  46073. procedure TCMP_CM2CON.setEVPOL(thebits : TBits_2); inline;
  46074. begin
  46075. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  46076. end;
  46077. function TCMP_CM2CON.getEVPOL : TBits_2; inline;
  46078. begin
  46079. getEVPOL := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  46080. end;
  46081. procedure TCMP_CM2CON.setCOUT; inline;
  46082. begin
  46083. pTDefRegMap(@Self)^.&set := $00000100;
  46084. end;
  46085. procedure TCMP_CM2CON.clearCOUT; inline;
  46086. begin
  46087. pTDefRegMap(@Self)^.clr := $00000100;
  46088. end;
  46089. procedure TCMP_CM2CON.setCOUT(thebits : TBits_1); inline;
  46090. begin
  46091. if thebits = 0 then
  46092. pTDefRegMap(@Self)^.clr := $00000100
  46093. else
  46094. pTDefRegMap(@Self)^.&set := $00000100;
  46095. end;
  46096. function TCMP_CM2CON.getCOUT : TBits_1; inline;
  46097. begin
  46098. getCOUT := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46099. end;
  46100. procedure TCMP_CM2CON.setCPOL; inline;
  46101. begin
  46102. pTDefRegMap(@Self)^.&set := $00002000;
  46103. end;
  46104. procedure TCMP_CM2CON.clearCPOL; inline;
  46105. begin
  46106. pTDefRegMap(@Self)^.clr := $00002000;
  46107. end;
  46108. procedure TCMP_CM2CON.setCPOL(thebits : TBits_1); inline;
  46109. begin
  46110. if thebits = 0 then
  46111. pTDefRegMap(@Self)^.clr := $00002000
  46112. else
  46113. pTDefRegMap(@Self)^.&set := $00002000;
  46114. end;
  46115. function TCMP_CM2CON.getCPOL : TBits_1; inline;
  46116. begin
  46117. getCPOL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46118. end;
  46119. procedure TCMP_CM2CON.setCOE; inline;
  46120. begin
  46121. pTDefRegMap(@Self)^.&set := $00004000;
  46122. end;
  46123. procedure TCMP_CM2CON.clearCOE; inline;
  46124. begin
  46125. pTDefRegMap(@Self)^.clr := $00004000;
  46126. end;
  46127. procedure TCMP_CM2CON.setCOE(thebits : TBits_1); inline;
  46128. begin
  46129. if thebits = 0 then
  46130. pTDefRegMap(@Self)^.clr := $00004000
  46131. else
  46132. pTDefRegMap(@Self)^.&set := $00004000;
  46133. end;
  46134. function TCMP_CM2CON.getCOE : TBits_1; inline;
  46135. begin
  46136. getCOE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  46137. end;
  46138. procedure TCMP_CM2CON.setON; inline;
  46139. begin
  46140. pTDefRegMap(@Self)^.&set := $00008000;
  46141. end;
  46142. procedure TCMP_CM2CON.clearON; inline;
  46143. begin
  46144. pTDefRegMap(@Self)^.clr := $00008000;
  46145. end;
  46146. procedure TCMP_CM2CON.setON(thebits : TBits_1); inline;
  46147. begin
  46148. if thebits = 0 then
  46149. pTDefRegMap(@Self)^.clr := $00008000
  46150. else
  46151. pTDefRegMap(@Self)^.&set := $00008000;
  46152. end;
  46153. function TCMP_CM2CON.getON : TBits_1; inline;
  46154. begin
  46155. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  46156. end;
  46157. procedure TCMP_CM2CON.setCCH0; inline;
  46158. begin
  46159. pTDefRegMap(@Self)^.&set := $00000001;
  46160. end;
  46161. procedure TCMP_CM2CON.clearCCH0; inline;
  46162. begin
  46163. pTDefRegMap(@Self)^.clr := $00000001;
  46164. end;
  46165. procedure TCMP_CM2CON.setCCH0(thebits : TBits_1); inline;
  46166. begin
  46167. if thebits = 0 then
  46168. pTDefRegMap(@Self)^.clr := $00000001
  46169. else
  46170. pTDefRegMap(@Self)^.&set := $00000001;
  46171. end;
  46172. function TCMP_CM2CON.getCCH0 : TBits_1; inline;
  46173. begin
  46174. getCCH0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46175. end;
  46176. procedure TCMP_CM2CON.setCCH1; inline;
  46177. begin
  46178. pTDefRegMap(@Self)^.&set := $00000002;
  46179. end;
  46180. procedure TCMP_CM2CON.clearCCH1; inline;
  46181. begin
  46182. pTDefRegMap(@Self)^.clr := $00000002;
  46183. end;
  46184. procedure TCMP_CM2CON.setCCH1(thebits : TBits_1); inline;
  46185. begin
  46186. if thebits = 0 then
  46187. pTDefRegMap(@Self)^.clr := $00000002
  46188. else
  46189. pTDefRegMap(@Self)^.&set := $00000002;
  46190. end;
  46191. function TCMP_CM2CON.getCCH1 : TBits_1; inline;
  46192. begin
  46193. getCCH1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46194. end;
  46195. procedure TCMP_CM2CON.setEVPOL0; inline;
  46196. begin
  46197. pTDefRegMap(@Self)^.&set := $00000040;
  46198. end;
  46199. procedure TCMP_CM2CON.clearEVPOL0; inline;
  46200. begin
  46201. pTDefRegMap(@Self)^.clr := $00000040;
  46202. end;
  46203. procedure TCMP_CM2CON.setEVPOL0(thebits : TBits_1); inline;
  46204. begin
  46205. if thebits = 0 then
  46206. pTDefRegMap(@Self)^.clr := $00000040
  46207. else
  46208. pTDefRegMap(@Self)^.&set := $00000040;
  46209. end;
  46210. function TCMP_CM2CON.getEVPOL0 : TBits_1; inline;
  46211. begin
  46212. getEVPOL0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46213. end;
  46214. procedure TCMP_CM2CON.setEVPOL1; inline;
  46215. begin
  46216. pTDefRegMap(@Self)^.&set := $00000080;
  46217. end;
  46218. procedure TCMP_CM2CON.clearEVPOL1; inline;
  46219. begin
  46220. pTDefRegMap(@Self)^.clr := $00000080;
  46221. end;
  46222. procedure TCMP_CM2CON.setEVPOL1(thebits : TBits_1); inline;
  46223. begin
  46224. if thebits = 0 then
  46225. pTDefRegMap(@Self)^.clr := $00000080
  46226. else
  46227. pTDefRegMap(@Self)^.&set := $00000080;
  46228. end;
  46229. function TCMP_CM2CON.getEVPOL1 : TBits_1; inline;
  46230. begin
  46231. getEVPOL1 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46232. end;
  46233. procedure TCMP_CM2CON.setw(thebits : TBits_32); inline;
  46234. begin
  46235. pTDefRegMap(@Self)^.val := thebits;
  46236. end;
  46237. function TCMP_CM2CON.getw : TBits_32; inline;
  46238. begin
  46239. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46240. end;
  46241. procedure TCMP_CMSTAT.setC1OUT; inline;
  46242. begin
  46243. pTDefRegMap(@Self)^.&set := $00000001;
  46244. end;
  46245. procedure TCMP_CMSTAT.clearC1OUT; inline;
  46246. begin
  46247. pTDefRegMap(@Self)^.clr := $00000001;
  46248. end;
  46249. procedure TCMP_CMSTAT.setC1OUT(thebits : TBits_1); inline;
  46250. begin
  46251. if thebits = 0 then
  46252. pTDefRegMap(@Self)^.clr := $00000001
  46253. else
  46254. pTDefRegMap(@Self)^.&set := $00000001;
  46255. end;
  46256. function TCMP_CMSTAT.getC1OUT : TBits_1; inline;
  46257. begin
  46258. getC1OUT := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46259. end;
  46260. procedure TCMP_CMSTAT.setC2OUT; inline;
  46261. begin
  46262. pTDefRegMap(@Self)^.&set := $00000002;
  46263. end;
  46264. procedure TCMP_CMSTAT.clearC2OUT; inline;
  46265. begin
  46266. pTDefRegMap(@Self)^.clr := $00000002;
  46267. end;
  46268. procedure TCMP_CMSTAT.setC2OUT(thebits : TBits_1); inline;
  46269. begin
  46270. if thebits = 0 then
  46271. pTDefRegMap(@Self)^.clr := $00000002
  46272. else
  46273. pTDefRegMap(@Self)^.&set := $00000002;
  46274. end;
  46275. function TCMP_CMSTAT.getC2OUT : TBits_1; inline;
  46276. begin
  46277. getC2OUT := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46278. end;
  46279. procedure TCMP_CMSTAT.setSIDL; inline;
  46280. begin
  46281. pTDefRegMap(@Self)^.&set := $00002000;
  46282. end;
  46283. procedure TCMP_CMSTAT.clearSIDL; inline;
  46284. begin
  46285. pTDefRegMap(@Self)^.clr := $00002000;
  46286. end;
  46287. procedure TCMP_CMSTAT.setSIDL(thebits : TBits_1); inline;
  46288. begin
  46289. if thebits = 0 then
  46290. pTDefRegMap(@Self)^.clr := $00002000
  46291. else
  46292. pTDefRegMap(@Self)^.&set := $00002000;
  46293. end;
  46294. function TCMP_CMSTAT.getSIDL : TBits_1; inline;
  46295. begin
  46296. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46297. end;
  46298. procedure TCMP_CMSTAT.setw(thebits : TBits_32); inline;
  46299. begin
  46300. pTDefRegMap(@Self)^.val := thebits;
  46301. end;
  46302. function TCMP_CMSTAT.getw : TBits_32; inline;
  46303. begin
  46304. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46305. end;
  46306. procedure TOSC_OSCCON.setOSWEN; inline;
  46307. begin
  46308. pTDefRegMap(@Self)^.&set := $00000001;
  46309. end;
  46310. procedure TOSC_OSCCON.clearOSWEN; inline;
  46311. begin
  46312. pTDefRegMap(@Self)^.clr := $00000001;
  46313. end;
  46314. procedure TOSC_OSCCON.setOSWEN(thebits : TBits_1); inline;
  46315. begin
  46316. if thebits = 0 then
  46317. pTDefRegMap(@Self)^.clr := $00000001
  46318. else
  46319. pTDefRegMap(@Self)^.&set := $00000001;
  46320. end;
  46321. function TOSC_OSCCON.getOSWEN : TBits_1; inline;
  46322. begin
  46323. getOSWEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46324. end;
  46325. procedure TOSC_OSCCON.setSOSCEN; inline;
  46326. begin
  46327. pTDefRegMap(@Self)^.&set := $00000002;
  46328. end;
  46329. procedure TOSC_OSCCON.clearSOSCEN; inline;
  46330. begin
  46331. pTDefRegMap(@Self)^.clr := $00000002;
  46332. end;
  46333. procedure TOSC_OSCCON.setSOSCEN(thebits : TBits_1); inline;
  46334. begin
  46335. if thebits = 0 then
  46336. pTDefRegMap(@Self)^.clr := $00000002
  46337. else
  46338. pTDefRegMap(@Self)^.&set := $00000002;
  46339. end;
  46340. function TOSC_OSCCON.getSOSCEN : TBits_1; inline;
  46341. begin
  46342. getSOSCEN := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46343. end;
  46344. procedure TOSC_OSCCON.setUFRCEN; inline;
  46345. begin
  46346. pTDefRegMap(@Self)^.&set := $00000004;
  46347. end;
  46348. procedure TOSC_OSCCON.clearUFRCEN; inline;
  46349. begin
  46350. pTDefRegMap(@Self)^.clr := $00000004;
  46351. end;
  46352. procedure TOSC_OSCCON.setUFRCEN(thebits : TBits_1); inline;
  46353. begin
  46354. if thebits = 0 then
  46355. pTDefRegMap(@Self)^.clr := $00000004
  46356. else
  46357. pTDefRegMap(@Self)^.&set := $00000004;
  46358. end;
  46359. function TOSC_OSCCON.getUFRCEN : TBits_1; inline;
  46360. begin
  46361. getUFRCEN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46362. end;
  46363. procedure TOSC_OSCCON.setCF; inline;
  46364. begin
  46365. pTDefRegMap(@Self)^.&set := $00000008;
  46366. end;
  46367. procedure TOSC_OSCCON.clearCF; inline;
  46368. begin
  46369. pTDefRegMap(@Self)^.clr := $00000008;
  46370. end;
  46371. procedure TOSC_OSCCON.setCF(thebits : TBits_1); inline;
  46372. begin
  46373. if thebits = 0 then
  46374. pTDefRegMap(@Self)^.clr := $00000008
  46375. else
  46376. pTDefRegMap(@Self)^.&set := $00000008;
  46377. end;
  46378. function TOSC_OSCCON.getCF : TBits_1; inline;
  46379. begin
  46380. getCF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46381. end;
  46382. procedure TOSC_OSCCON.setSLPEN; inline;
  46383. begin
  46384. pTDefRegMap(@Self)^.&set := $00000010;
  46385. end;
  46386. procedure TOSC_OSCCON.clearSLPEN; inline;
  46387. begin
  46388. pTDefRegMap(@Self)^.clr := $00000010;
  46389. end;
  46390. procedure TOSC_OSCCON.setSLPEN(thebits : TBits_1); inline;
  46391. begin
  46392. if thebits = 0 then
  46393. pTDefRegMap(@Self)^.clr := $00000010
  46394. else
  46395. pTDefRegMap(@Self)^.&set := $00000010;
  46396. end;
  46397. function TOSC_OSCCON.getSLPEN : TBits_1; inline;
  46398. begin
  46399. getSLPEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46400. end;
  46401. procedure TOSC_OSCCON.setSLOCK; inline;
  46402. begin
  46403. pTDefRegMap(@Self)^.&set := $00000020;
  46404. end;
  46405. procedure TOSC_OSCCON.clearSLOCK; inline;
  46406. begin
  46407. pTDefRegMap(@Self)^.clr := $00000020;
  46408. end;
  46409. procedure TOSC_OSCCON.setSLOCK(thebits : TBits_1); inline;
  46410. begin
  46411. if thebits = 0 then
  46412. pTDefRegMap(@Self)^.clr := $00000020
  46413. else
  46414. pTDefRegMap(@Self)^.&set := $00000020;
  46415. end;
  46416. function TOSC_OSCCON.getSLOCK : TBits_1; inline;
  46417. begin
  46418. getSLOCK := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46419. end;
  46420. procedure TOSC_OSCCON.setULOCK; inline;
  46421. begin
  46422. pTDefRegMap(@Self)^.&set := $00000040;
  46423. end;
  46424. procedure TOSC_OSCCON.clearULOCK; inline;
  46425. begin
  46426. pTDefRegMap(@Self)^.clr := $00000040;
  46427. end;
  46428. procedure TOSC_OSCCON.setULOCK(thebits : TBits_1); inline;
  46429. begin
  46430. if thebits = 0 then
  46431. pTDefRegMap(@Self)^.clr := $00000040
  46432. else
  46433. pTDefRegMap(@Self)^.&set := $00000040;
  46434. end;
  46435. function TOSC_OSCCON.getULOCK : TBits_1; inline;
  46436. begin
  46437. getULOCK := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  46438. end;
  46439. procedure TOSC_OSCCON.setCLKLOCK; inline;
  46440. begin
  46441. pTDefRegMap(@Self)^.&set := $00000080;
  46442. end;
  46443. procedure TOSC_OSCCON.clearCLKLOCK; inline;
  46444. begin
  46445. pTDefRegMap(@Self)^.clr := $00000080;
  46446. end;
  46447. procedure TOSC_OSCCON.setCLKLOCK(thebits : TBits_1); inline;
  46448. begin
  46449. if thebits = 0 then
  46450. pTDefRegMap(@Self)^.clr := $00000080
  46451. else
  46452. pTDefRegMap(@Self)^.&set := $00000080;
  46453. end;
  46454. function TOSC_OSCCON.getCLKLOCK : TBits_1; inline;
  46455. begin
  46456. getCLKLOCK := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  46457. end;
  46458. procedure TOSC_OSCCON.setNOSC(thebits : TBits_3); inline;
  46459. begin
  46460. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  46461. end;
  46462. function TOSC_OSCCON.getNOSC : TBits_3; inline;
  46463. begin
  46464. getNOSC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  46465. end;
  46466. procedure TOSC_OSCCON.setCOSC(thebits : TBits_3); inline;
  46467. begin
  46468. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF8FFF or ( thebits shl 12 );
  46469. end;
  46470. function TOSC_OSCCON.getCOSC : TBits_3; inline;
  46471. begin
  46472. getCOSC := (pTDefRegMap(@Self)^.val and $00007000) shr 12;
  46473. end;
  46474. procedure TOSC_OSCCON.setPLLMULT(thebits : TBits_3); inline;
  46475. begin
  46476. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  46477. end;
  46478. function TOSC_OSCCON.getPLLMULT : TBits_3; inline;
  46479. begin
  46480. getPLLMULT := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  46481. end;
  46482. procedure TOSC_OSCCON.setPBDIV(thebits : TBits_2); inline;
  46483. begin
  46484. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE7FFFF or ( thebits shl 19 );
  46485. end;
  46486. function TOSC_OSCCON.getPBDIV : TBits_2; inline;
  46487. begin
  46488. getPBDIV := (pTDefRegMap(@Self)^.val and $00180000) shr 19;
  46489. end;
  46490. procedure TOSC_OSCCON.setSOSCRDY; inline;
  46491. begin
  46492. pTDefRegMap(@Self)^.&set := $00400000;
  46493. end;
  46494. procedure TOSC_OSCCON.clearSOSCRDY; inline;
  46495. begin
  46496. pTDefRegMap(@Self)^.clr := $00400000;
  46497. end;
  46498. procedure TOSC_OSCCON.setSOSCRDY(thebits : TBits_1); inline;
  46499. begin
  46500. if thebits = 0 then
  46501. pTDefRegMap(@Self)^.clr := $00400000
  46502. else
  46503. pTDefRegMap(@Self)^.&set := $00400000;
  46504. end;
  46505. function TOSC_OSCCON.getSOSCRDY : TBits_1; inline;
  46506. begin
  46507. getSOSCRDY := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  46508. end;
  46509. procedure TOSC_OSCCON.setFRCDIV(thebits : TBits_3); inline;
  46510. begin
  46511. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  46512. end;
  46513. function TOSC_OSCCON.getFRCDIV : TBits_3; inline;
  46514. begin
  46515. getFRCDIV := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  46516. end;
  46517. procedure TOSC_OSCCON.setPLLODIV(thebits : TBits_3); inline;
  46518. begin
  46519. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $C7FFFFFF or ( thebits shl 27 );
  46520. end;
  46521. function TOSC_OSCCON.getPLLODIV : TBits_3; inline;
  46522. begin
  46523. getPLLODIV := (pTDefRegMap(@Self)^.val and $38000000) shr 27;
  46524. end;
  46525. procedure TOSC_OSCCON.setNOSC0; inline;
  46526. begin
  46527. pTDefRegMap(@Self)^.&set := $00000100;
  46528. end;
  46529. procedure TOSC_OSCCON.clearNOSC0; inline;
  46530. begin
  46531. pTDefRegMap(@Self)^.clr := $00000100;
  46532. end;
  46533. procedure TOSC_OSCCON.setNOSC0(thebits : TBits_1); inline;
  46534. begin
  46535. if thebits = 0 then
  46536. pTDefRegMap(@Self)^.clr := $00000100
  46537. else
  46538. pTDefRegMap(@Self)^.&set := $00000100;
  46539. end;
  46540. function TOSC_OSCCON.getNOSC0 : TBits_1; inline;
  46541. begin
  46542. getNOSC0 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  46543. end;
  46544. procedure TOSC_OSCCON.setNOSC1; inline;
  46545. begin
  46546. pTDefRegMap(@Self)^.&set := $00000200;
  46547. end;
  46548. procedure TOSC_OSCCON.clearNOSC1; inline;
  46549. begin
  46550. pTDefRegMap(@Self)^.clr := $00000200;
  46551. end;
  46552. procedure TOSC_OSCCON.setNOSC1(thebits : TBits_1); inline;
  46553. begin
  46554. if thebits = 0 then
  46555. pTDefRegMap(@Self)^.clr := $00000200
  46556. else
  46557. pTDefRegMap(@Self)^.&set := $00000200;
  46558. end;
  46559. function TOSC_OSCCON.getNOSC1 : TBits_1; inline;
  46560. begin
  46561. getNOSC1 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  46562. end;
  46563. procedure TOSC_OSCCON.setNOSC2; inline;
  46564. begin
  46565. pTDefRegMap(@Self)^.&set := $00000400;
  46566. end;
  46567. procedure TOSC_OSCCON.clearNOSC2; inline;
  46568. begin
  46569. pTDefRegMap(@Self)^.clr := $00000400;
  46570. end;
  46571. procedure TOSC_OSCCON.setNOSC2(thebits : TBits_1); inline;
  46572. begin
  46573. if thebits = 0 then
  46574. pTDefRegMap(@Self)^.clr := $00000400
  46575. else
  46576. pTDefRegMap(@Self)^.&set := $00000400;
  46577. end;
  46578. function TOSC_OSCCON.getNOSC2 : TBits_1; inline;
  46579. begin
  46580. getNOSC2 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  46581. end;
  46582. procedure TOSC_OSCCON.setCOSC0; inline;
  46583. begin
  46584. pTDefRegMap(@Self)^.&set := $00001000;
  46585. end;
  46586. procedure TOSC_OSCCON.clearCOSC0; inline;
  46587. begin
  46588. pTDefRegMap(@Self)^.clr := $00001000;
  46589. end;
  46590. procedure TOSC_OSCCON.setCOSC0(thebits : TBits_1); inline;
  46591. begin
  46592. if thebits = 0 then
  46593. pTDefRegMap(@Self)^.clr := $00001000
  46594. else
  46595. pTDefRegMap(@Self)^.&set := $00001000;
  46596. end;
  46597. function TOSC_OSCCON.getCOSC0 : TBits_1; inline;
  46598. begin
  46599. getCOSC0 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  46600. end;
  46601. procedure TOSC_OSCCON.setCOSC1; inline;
  46602. begin
  46603. pTDefRegMap(@Self)^.&set := $00002000;
  46604. end;
  46605. procedure TOSC_OSCCON.clearCOSC1; inline;
  46606. begin
  46607. pTDefRegMap(@Self)^.clr := $00002000;
  46608. end;
  46609. procedure TOSC_OSCCON.setCOSC1(thebits : TBits_1); inline;
  46610. begin
  46611. if thebits = 0 then
  46612. pTDefRegMap(@Self)^.clr := $00002000
  46613. else
  46614. pTDefRegMap(@Self)^.&set := $00002000;
  46615. end;
  46616. function TOSC_OSCCON.getCOSC1 : TBits_1; inline;
  46617. begin
  46618. getCOSC1 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  46619. end;
  46620. procedure TOSC_OSCCON.setCOSC2; inline;
  46621. begin
  46622. pTDefRegMap(@Self)^.&set := $00004000;
  46623. end;
  46624. procedure TOSC_OSCCON.clearCOSC2; inline;
  46625. begin
  46626. pTDefRegMap(@Self)^.clr := $00004000;
  46627. end;
  46628. procedure TOSC_OSCCON.setCOSC2(thebits : TBits_1); inline;
  46629. begin
  46630. if thebits = 0 then
  46631. pTDefRegMap(@Self)^.clr := $00004000
  46632. else
  46633. pTDefRegMap(@Self)^.&set := $00004000;
  46634. end;
  46635. function TOSC_OSCCON.getCOSC2 : TBits_1; inline;
  46636. begin
  46637. getCOSC2 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  46638. end;
  46639. procedure TOSC_OSCCON.setPLLMULT0; inline;
  46640. begin
  46641. pTDefRegMap(@Self)^.&set := $00010000;
  46642. end;
  46643. procedure TOSC_OSCCON.clearPLLMULT0; inline;
  46644. begin
  46645. pTDefRegMap(@Self)^.clr := $00010000;
  46646. end;
  46647. procedure TOSC_OSCCON.setPLLMULT0(thebits : TBits_1); inline;
  46648. begin
  46649. if thebits = 0 then
  46650. pTDefRegMap(@Self)^.clr := $00010000
  46651. else
  46652. pTDefRegMap(@Self)^.&set := $00010000;
  46653. end;
  46654. function TOSC_OSCCON.getPLLMULT0 : TBits_1; inline;
  46655. begin
  46656. getPLLMULT0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  46657. end;
  46658. procedure TOSC_OSCCON.setPLLMULT1; inline;
  46659. begin
  46660. pTDefRegMap(@Self)^.&set := $00020000;
  46661. end;
  46662. procedure TOSC_OSCCON.clearPLLMULT1; inline;
  46663. begin
  46664. pTDefRegMap(@Self)^.clr := $00020000;
  46665. end;
  46666. procedure TOSC_OSCCON.setPLLMULT1(thebits : TBits_1); inline;
  46667. begin
  46668. if thebits = 0 then
  46669. pTDefRegMap(@Self)^.clr := $00020000
  46670. else
  46671. pTDefRegMap(@Self)^.&set := $00020000;
  46672. end;
  46673. function TOSC_OSCCON.getPLLMULT1 : TBits_1; inline;
  46674. begin
  46675. getPLLMULT1 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  46676. end;
  46677. procedure TOSC_OSCCON.setPLLMULT2; inline;
  46678. begin
  46679. pTDefRegMap(@Self)^.&set := $00040000;
  46680. end;
  46681. procedure TOSC_OSCCON.clearPLLMULT2; inline;
  46682. begin
  46683. pTDefRegMap(@Self)^.clr := $00040000;
  46684. end;
  46685. procedure TOSC_OSCCON.setPLLMULT2(thebits : TBits_1); inline;
  46686. begin
  46687. if thebits = 0 then
  46688. pTDefRegMap(@Self)^.clr := $00040000
  46689. else
  46690. pTDefRegMap(@Self)^.&set := $00040000;
  46691. end;
  46692. function TOSC_OSCCON.getPLLMULT2 : TBits_1; inline;
  46693. begin
  46694. getPLLMULT2 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  46695. end;
  46696. procedure TOSC_OSCCON.setPBDIV0; inline;
  46697. begin
  46698. pTDefRegMap(@Self)^.&set := $00080000;
  46699. end;
  46700. procedure TOSC_OSCCON.clearPBDIV0; inline;
  46701. begin
  46702. pTDefRegMap(@Self)^.clr := $00080000;
  46703. end;
  46704. procedure TOSC_OSCCON.setPBDIV0(thebits : TBits_1); inline;
  46705. begin
  46706. if thebits = 0 then
  46707. pTDefRegMap(@Self)^.clr := $00080000
  46708. else
  46709. pTDefRegMap(@Self)^.&set := $00080000;
  46710. end;
  46711. function TOSC_OSCCON.getPBDIV0 : TBits_1; inline;
  46712. begin
  46713. getPBDIV0 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  46714. end;
  46715. procedure TOSC_OSCCON.setPBDIV1; inline;
  46716. begin
  46717. pTDefRegMap(@Self)^.&set := $00100000;
  46718. end;
  46719. procedure TOSC_OSCCON.clearPBDIV1; inline;
  46720. begin
  46721. pTDefRegMap(@Self)^.clr := $00100000;
  46722. end;
  46723. procedure TOSC_OSCCON.setPBDIV1(thebits : TBits_1); inline;
  46724. begin
  46725. if thebits = 0 then
  46726. pTDefRegMap(@Self)^.clr := $00100000
  46727. else
  46728. pTDefRegMap(@Self)^.&set := $00100000;
  46729. end;
  46730. function TOSC_OSCCON.getPBDIV1 : TBits_1; inline;
  46731. begin
  46732. getPBDIV1 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  46733. end;
  46734. procedure TOSC_OSCCON.setFRCDIV0; inline;
  46735. begin
  46736. pTDefRegMap(@Self)^.&set := $01000000;
  46737. end;
  46738. procedure TOSC_OSCCON.clearFRCDIV0; inline;
  46739. begin
  46740. pTDefRegMap(@Self)^.clr := $01000000;
  46741. end;
  46742. procedure TOSC_OSCCON.setFRCDIV0(thebits : TBits_1); inline;
  46743. begin
  46744. if thebits = 0 then
  46745. pTDefRegMap(@Self)^.clr := $01000000
  46746. else
  46747. pTDefRegMap(@Self)^.&set := $01000000;
  46748. end;
  46749. function TOSC_OSCCON.getFRCDIV0 : TBits_1; inline;
  46750. begin
  46751. getFRCDIV0 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  46752. end;
  46753. procedure TOSC_OSCCON.setFRCDIV1; inline;
  46754. begin
  46755. pTDefRegMap(@Self)^.&set := $02000000;
  46756. end;
  46757. procedure TOSC_OSCCON.clearFRCDIV1; inline;
  46758. begin
  46759. pTDefRegMap(@Self)^.clr := $02000000;
  46760. end;
  46761. procedure TOSC_OSCCON.setFRCDIV1(thebits : TBits_1); inline;
  46762. begin
  46763. if thebits = 0 then
  46764. pTDefRegMap(@Self)^.clr := $02000000
  46765. else
  46766. pTDefRegMap(@Self)^.&set := $02000000;
  46767. end;
  46768. function TOSC_OSCCON.getFRCDIV1 : TBits_1; inline;
  46769. begin
  46770. getFRCDIV1 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  46771. end;
  46772. procedure TOSC_OSCCON.setFRCDIV2; inline;
  46773. begin
  46774. pTDefRegMap(@Self)^.&set := $04000000;
  46775. end;
  46776. procedure TOSC_OSCCON.clearFRCDIV2; inline;
  46777. begin
  46778. pTDefRegMap(@Self)^.clr := $04000000;
  46779. end;
  46780. procedure TOSC_OSCCON.setFRCDIV2(thebits : TBits_1); inline;
  46781. begin
  46782. if thebits = 0 then
  46783. pTDefRegMap(@Self)^.clr := $04000000
  46784. else
  46785. pTDefRegMap(@Self)^.&set := $04000000;
  46786. end;
  46787. function TOSC_OSCCON.getFRCDIV2 : TBits_1; inline;
  46788. begin
  46789. getFRCDIV2 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  46790. end;
  46791. procedure TOSC_OSCCON.setPLLODIV0; inline;
  46792. begin
  46793. pTDefRegMap(@Self)^.&set := $08000000;
  46794. end;
  46795. procedure TOSC_OSCCON.clearPLLODIV0; inline;
  46796. begin
  46797. pTDefRegMap(@Self)^.clr := $08000000;
  46798. end;
  46799. procedure TOSC_OSCCON.setPLLODIV0(thebits : TBits_1); inline;
  46800. begin
  46801. if thebits = 0 then
  46802. pTDefRegMap(@Self)^.clr := $08000000
  46803. else
  46804. pTDefRegMap(@Self)^.&set := $08000000;
  46805. end;
  46806. function TOSC_OSCCON.getPLLODIV0 : TBits_1; inline;
  46807. begin
  46808. getPLLODIV0 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  46809. end;
  46810. procedure TOSC_OSCCON.setPLLODIV1; inline;
  46811. begin
  46812. pTDefRegMap(@Self)^.&set := $10000000;
  46813. end;
  46814. procedure TOSC_OSCCON.clearPLLODIV1; inline;
  46815. begin
  46816. pTDefRegMap(@Self)^.clr := $10000000;
  46817. end;
  46818. procedure TOSC_OSCCON.setPLLODIV1(thebits : TBits_1); inline;
  46819. begin
  46820. if thebits = 0 then
  46821. pTDefRegMap(@Self)^.clr := $10000000
  46822. else
  46823. pTDefRegMap(@Self)^.&set := $10000000;
  46824. end;
  46825. function TOSC_OSCCON.getPLLODIV1 : TBits_1; inline;
  46826. begin
  46827. getPLLODIV1 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  46828. end;
  46829. procedure TOSC_OSCCON.setPLLODIV2; inline;
  46830. begin
  46831. pTDefRegMap(@Self)^.&set := $20000000;
  46832. end;
  46833. procedure TOSC_OSCCON.clearPLLODIV2; inline;
  46834. begin
  46835. pTDefRegMap(@Self)^.clr := $20000000;
  46836. end;
  46837. procedure TOSC_OSCCON.setPLLODIV2(thebits : TBits_1); inline;
  46838. begin
  46839. if thebits = 0 then
  46840. pTDefRegMap(@Self)^.clr := $20000000
  46841. else
  46842. pTDefRegMap(@Self)^.&set := $20000000;
  46843. end;
  46844. function TOSC_OSCCON.getPLLODIV2 : TBits_1; inline;
  46845. begin
  46846. getPLLODIV2 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  46847. end;
  46848. procedure TOSC_OSCCON.setw(thebits : TBits_32); inline;
  46849. begin
  46850. pTDefRegMap(@Self)^.val := thebits;
  46851. end;
  46852. function TOSC_OSCCON.getw : TBits_32; inline;
  46853. begin
  46854. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46855. end;
  46856. procedure TOSC_OSCTUN.setTUN(thebits : TBits_6); inline;
  46857. begin
  46858. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  46859. end;
  46860. function TOSC_OSCTUN.getTUN : TBits_6; inline;
  46861. begin
  46862. getTUN := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  46863. end;
  46864. procedure TOSC_OSCTUN.setTUN0; inline;
  46865. begin
  46866. pTDefRegMap(@Self)^.&set := $00000001;
  46867. end;
  46868. procedure TOSC_OSCTUN.clearTUN0; inline;
  46869. begin
  46870. pTDefRegMap(@Self)^.clr := $00000001;
  46871. end;
  46872. procedure TOSC_OSCTUN.setTUN0(thebits : TBits_1); inline;
  46873. begin
  46874. if thebits = 0 then
  46875. pTDefRegMap(@Self)^.clr := $00000001
  46876. else
  46877. pTDefRegMap(@Self)^.&set := $00000001;
  46878. end;
  46879. function TOSC_OSCTUN.getTUN0 : TBits_1; inline;
  46880. begin
  46881. getTUN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  46882. end;
  46883. procedure TOSC_OSCTUN.setTUN1; inline;
  46884. begin
  46885. pTDefRegMap(@Self)^.&set := $00000002;
  46886. end;
  46887. procedure TOSC_OSCTUN.clearTUN1; inline;
  46888. begin
  46889. pTDefRegMap(@Self)^.clr := $00000002;
  46890. end;
  46891. procedure TOSC_OSCTUN.setTUN1(thebits : TBits_1); inline;
  46892. begin
  46893. if thebits = 0 then
  46894. pTDefRegMap(@Self)^.clr := $00000002
  46895. else
  46896. pTDefRegMap(@Self)^.&set := $00000002;
  46897. end;
  46898. function TOSC_OSCTUN.getTUN1 : TBits_1; inline;
  46899. begin
  46900. getTUN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  46901. end;
  46902. procedure TOSC_OSCTUN.setTUN2; inline;
  46903. begin
  46904. pTDefRegMap(@Self)^.&set := $00000004;
  46905. end;
  46906. procedure TOSC_OSCTUN.clearTUN2; inline;
  46907. begin
  46908. pTDefRegMap(@Self)^.clr := $00000004;
  46909. end;
  46910. procedure TOSC_OSCTUN.setTUN2(thebits : TBits_1); inline;
  46911. begin
  46912. if thebits = 0 then
  46913. pTDefRegMap(@Self)^.clr := $00000004
  46914. else
  46915. pTDefRegMap(@Self)^.&set := $00000004;
  46916. end;
  46917. function TOSC_OSCTUN.getTUN2 : TBits_1; inline;
  46918. begin
  46919. getTUN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  46920. end;
  46921. procedure TOSC_OSCTUN.setTUN3; inline;
  46922. begin
  46923. pTDefRegMap(@Self)^.&set := $00000008;
  46924. end;
  46925. procedure TOSC_OSCTUN.clearTUN3; inline;
  46926. begin
  46927. pTDefRegMap(@Self)^.clr := $00000008;
  46928. end;
  46929. procedure TOSC_OSCTUN.setTUN3(thebits : TBits_1); inline;
  46930. begin
  46931. if thebits = 0 then
  46932. pTDefRegMap(@Self)^.clr := $00000008
  46933. else
  46934. pTDefRegMap(@Self)^.&set := $00000008;
  46935. end;
  46936. function TOSC_OSCTUN.getTUN3 : TBits_1; inline;
  46937. begin
  46938. getTUN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  46939. end;
  46940. procedure TOSC_OSCTUN.setTUN4; inline;
  46941. begin
  46942. pTDefRegMap(@Self)^.&set := $00000010;
  46943. end;
  46944. procedure TOSC_OSCTUN.clearTUN4; inline;
  46945. begin
  46946. pTDefRegMap(@Self)^.clr := $00000010;
  46947. end;
  46948. procedure TOSC_OSCTUN.setTUN4(thebits : TBits_1); inline;
  46949. begin
  46950. if thebits = 0 then
  46951. pTDefRegMap(@Self)^.clr := $00000010
  46952. else
  46953. pTDefRegMap(@Self)^.&set := $00000010;
  46954. end;
  46955. function TOSC_OSCTUN.getTUN4 : TBits_1; inline;
  46956. begin
  46957. getTUN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  46958. end;
  46959. procedure TOSC_OSCTUN.setTUN5; inline;
  46960. begin
  46961. pTDefRegMap(@Self)^.&set := $00000020;
  46962. end;
  46963. procedure TOSC_OSCTUN.clearTUN5; inline;
  46964. begin
  46965. pTDefRegMap(@Self)^.clr := $00000020;
  46966. end;
  46967. procedure TOSC_OSCTUN.setTUN5(thebits : TBits_1); inline;
  46968. begin
  46969. if thebits = 0 then
  46970. pTDefRegMap(@Self)^.clr := $00000020
  46971. else
  46972. pTDefRegMap(@Self)^.&set := $00000020;
  46973. end;
  46974. function TOSC_OSCTUN.getTUN5 : TBits_1; inline;
  46975. begin
  46976. getTUN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  46977. end;
  46978. procedure TOSC_OSCTUN.setw(thebits : TBits_32); inline;
  46979. begin
  46980. pTDefRegMap(@Self)^.val := thebits;
  46981. end;
  46982. function TOSC_OSCTUN.getw : TBits_32; inline;
  46983. begin
  46984. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  46985. end;
  46986. procedure TNVM_NVMCON.setNVMOP(thebits : TBits_4); inline;
  46987. begin
  46988. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  46989. end;
  46990. function TNVM_NVMCON.getNVMOP : TBits_4; inline;
  46991. begin
  46992. getNVMOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  46993. end;
  46994. procedure TNVM_NVMCON.setLVDSTAT; inline;
  46995. begin
  46996. pTDefRegMap(@Self)^.&set := $00000800;
  46997. end;
  46998. procedure TNVM_NVMCON.clearLVDSTAT; inline;
  46999. begin
  47000. pTDefRegMap(@Self)^.clr := $00000800;
  47001. end;
  47002. procedure TNVM_NVMCON.setLVDSTAT(thebits : TBits_1); inline;
  47003. begin
  47004. if thebits = 0 then
  47005. pTDefRegMap(@Self)^.clr := $00000800
  47006. else
  47007. pTDefRegMap(@Self)^.&set := $00000800;
  47008. end;
  47009. function TNVM_NVMCON.getLVDSTAT : TBits_1; inline;
  47010. begin
  47011. getLVDSTAT := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  47012. end;
  47013. procedure TNVM_NVMCON.setLVDERR; inline;
  47014. begin
  47015. pTDefRegMap(@Self)^.&set := $00001000;
  47016. end;
  47017. procedure TNVM_NVMCON.clearLVDERR; inline;
  47018. begin
  47019. pTDefRegMap(@Self)^.clr := $00001000;
  47020. end;
  47021. procedure TNVM_NVMCON.setLVDERR(thebits : TBits_1); inline;
  47022. begin
  47023. if thebits = 0 then
  47024. pTDefRegMap(@Self)^.clr := $00001000
  47025. else
  47026. pTDefRegMap(@Self)^.&set := $00001000;
  47027. end;
  47028. function TNVM_NVMCON.getLVDERR : TBits_1; inline;
  47029. begin
  47030. getLVDERR := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  47031. end;
  47032. procedure TNVM_NVMCON.setWRERR; inline;
  47033. begin
  47034. pTDefRegMap(@Self)^.&set := $00002000;
  47035. end;
  47036. procedure TNVM_NVMCON.clearWRERR; inline;
  47037. begin
  47038. pTDefRegMap(@Self)^.clr := $00002000;
  47039. end;
  47040. procedure TNVM_NVMCON.setWRERR(thebits : TBits_1); inline;
  47041. begin
  47042. if thebits = 0 then
  47043. pTDefRegMap(@Self)^.clr := $00002000
  47044. else
  47045. pTDefRegMap(@Self)^.&set := $00002000;
  47046. end;
  47047. function TNVM_NVMCON.getWRERR : TBits_1; inline;
  47048. begin
  47049. getWRERR := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47050. end;
  47051. procedure TNVM_NVMCON.setWREN; inline;
  47052. begin
  47053. pTDefRegMap(@Self)^.&set := $00004000;
  47054. end;
  47055. procedure TNVM_NVMCON.clearWREN; inline;
  47056. begin
  47057. pTDefRegMap(@Self)^.clr := $00004000;
  47058. end;
  47059. procedure TNVM_NVMCON.setWREN(thebits : TBits_1); inline;
  47060. begin
  47061. if thebits = 0 then
  47062. pTDefRegMap(@Self)^.clr := $00004000
  47063. else
  47064. pTDefRegMap(@Self)^.&set := $00004000;
  47065. end;
  47066. function TNVM_NVMCON.getWREN : TBits_1; inline;
  47067. begin
  47068. getWREN := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47069. end;
  47070. procedure TNVM_NVMCON.setWR; inline;
  47071. begin
  47072. pTDefRegMap(@Self)^.&set := $00008000;
  47073. end;
  47074. procedure TNVM_NVMCON.clearWR; inline;
  47075. begin
  47076. pTDefRegMap(@Self)^.clr := $00008000;
  47077. end;
  47078. procedure TNVM_NVMCON.setWR(thebits : TBits_1); inline;
  47079. begin
  47080. if thebits = 0 then
  47081. pTDefRegMap(@Self)^.clr := $00008000
  47082. else
  47083. pTDefRegMap(@Self)^.&set := $00008000;
  47084. end;
  47085. function TNVM_NVMCON.getWR : TBits_1; inline;
  47086. begin
  47087. getWR := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47088. end;
  47089. procedure TNVM_NVMCON.setNVMOP0; inline;
  47090. begin
  47091. pTDefRegMap(@Self)^.&set := $00000001;
  47092. end;
  47093. procedure TNVM_NVMCON.clearNVMOP0; inline;
  47094. begin
  47095. pTDefRegMap(@Self)^.clr := $00000001;
  47096. end;
  47097. procedure TNVM_NVMCON.setNVMOP0(thebits : TBits_1); inline;
  47098. begin
  47099. if thebits = 0 then
  47100. pTDefRegMap(@Self)^.clr := $00000001
  47101. else
  47102. pTDefRegMap(@Self)^.&set := $00000001;
  47103. end;
  47104. function TNVM_NVMCON.getNVMOP0 : TBits_1; inline;
  47105. begin
  47106. getNVMOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47107. end;
  47108. procedure TNVM_NVMCON.setNVMOP1; inline;
  47109. begin
  47110. pTDefRegMap(@Self)^.&set := $00000002;
  47111. end;
  47112. procedure TNVM_NVMCON.clearNVMOP1; inline;
  47113. begin
  47114. pTDefRegMap(@Self)^.clr := $00000002;
  47115. end;
  47116. procedure TNVM_NVMCON.setNVMOP1(thebits : TBits_1); inline;
  47117. begin
  47118. if thebits = 0 then
  47119. pTDefRegMap(@Self)^.clr := $00000002
  47120. else
  47121. pTDefRegMap(@Self)^.&set := $00000002;
  47122. end;
  47123. function TNVM_NVMCON.getNVMOP1 : TBits_1; inline;
  47124. begin
  47125. getNVMOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47126. end;
  47127. procedure TNVM_NVMCON.setNVMOP2; inline;
  47128. begin
  47129. pTDefRegMap(@Self)^.&set := $00000004;
  47130. end;
  47131. procedure TNVM_NVMCON.clearNVMOP2; inline;
  47132. begin
  47133. pTDefRegMap(@Self)^.clr := $00000004;
  47134. end;
  47135. procedure TNVM_NVMCON.setNVMOP2(thebits : TBits_1); inline;
  47136. begin
  47137. if thebits = 0 then
  47138. pTDefRegMap(@Self)^.clr := $00000004
  47139. else
  47140. pTDefRegMap(@Self)^.&set := $00000004;
  47141. end;
  47142. function TNVM_NVMCON.getNVMOP2 : TBits_1; inline;
  47143. begin
  47144. getNVMOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47145. end;
  47146. procedure TNVM_NVMCON.setNVMOP3; inline;
  47147. begin
  47148. pTDefRegMap(@Self)^.&set := $00000008;
  47149. end;
  47150. procedure TNVM_NVMCON.clearNVMOP3; inline;
  47151. begin
  47152. pTDefRegMap(@Self)^.clr := $00000008;
  47153. end;
  47154. procedure TNVM_NVMCON.setNVMOP3(thebits : TBits_1); inline;
  47155. begin
  47156. if thebits = 0 then
  47157. pTDefRegMap(@Self)^.clr := $00000008
  47158. else
  47159. pTDefRegMap(@Self)^.&set := $00000008;
  47160. end;
  47161. function TNVM_NVMCON.getNVMOP3 : TBits_1; inline;
  47162. begin
  47163. getNVMOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47164. end;
  47165. procedure TNVM_NVMCON.setPROGOP(thebits : TBits_4); inline;
  47166. begin
  47167. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  47168. end;
  47169. function TNVM_NVMCON.getPROGOP : TBits_4; inline;
  47170. begin
  47171. getPROGOP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  47172. end;
  47173. procedure TNVM_NVMCON.setPROGOP0; inline;
  47174. begin
  47175. pTDefRegMap(@Self)^.&set := $00000001;
  47176. end;
  47177. procedure TNVM_NVMCON.clearPROGOP0; inline;
  47178. begin
  47179. pTDefRegMap(@Self)^.clr := $00000001;
  47180. end;
  47181. procedure TNVM_NVMCON.setPROGOP0(thebits : TBits_1); inline;
  47182. begin
  47183. if thebits = 0 then
  47184. pTDefRegMap(@Self)^.clr := $00000001
  47185. else
  47186. pTDefRegMap(@Self)^.&set := $00000001;
  47187. end;
  47188. function TNVM_NVMCON.getPROGOP0 : TBits_1; inline;
  47189. begin
  47190. getPROGOP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47191. end;
  47192. procedure TNVM_NVMCON.setPROGOP1; inline;
  47193. begin
  47194. pTDefRegMap(@Self)^.&set := $00000002;
  47195. end;
  47196. procedure TNVM_NVMCON.clearPROGOP1; inline;
  47197. begin
  47198. pTDefRegMap(@Self)^.clr := $00000002;
  47199. end;
  47200. procedure TNVM_NVMCON.setPROGOP1(thebits : TBits_1); inline;
  47201. begin
  47202. if thebits = 0 then
  47203. pTDefRegMap(@Self)^.clr := $00000002
  47204. else
  47205. pTDefRegMap(@Self)^.&set := $00000002;
  47206. end;
  47207. function TNVM_NVMCON.getPROGOP1 : TBits_1; inline;
  47208. begin
  47209. getPROGOP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47210. end;
  47211. procedure TNVM_NVMCON.setPROGOP2; inline;
  47212. begin
  47213. pTDefRegMap(@Self)^.&set := $00000004;
  47214. end;
  47215. procedure TNVM_NVMCON.clearPROGOP2; inline;
  47216. begin
  47217. pTDefRegMap(@Self)^.clr := $00000004;
  47218. end;
  47219. procedure TNVM_NVMCON.setPROGOP2(thebits : TBits_1); inline;
  47220. begin
  47221. if thebits = 0 then
  47222. pTDefRegMap(@Self)^.clr := $00000004
  47223. else
  47224. pTDefRegMap(@Self)^.&set := $00000004;
  47225. end;
  47226. function TNVM_NVMCON.getPROGOP2 : TBits_1; inline;
  47227. begin
  47228. getPROGOP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47229. end;
  47230. procedure TNVM_NVMCON.setPROGOP3; inline;
  47231. begin
  47232. pTDefRegMap(@Self)^.&set := $00000008;
  47233. end;
  47234. procedure TNVM_NVMCON.clearPROGOP3; inline;
  47235. begin
  47236. pTDefRegMap(@Self)^.clr := $00000008;
  47237. end;
  47238. procedure TNVM_NVMCON.setPROGOP3(thebits : TBits_1); inline;
  47239. begin
  47240. if thebits = 0 then
  47241. pTDefRegMap(@Self)^.clr := $00000008
  47242. else
  47243. pTDefRegMap(@Self)^.&set := $00000008;
  47244. end;
  47245. function TNVM_NVMCON.getPROGOP3 : TBits_1; inline;
  47246. begin
  47247. getPROGOP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47248. end;
  47249. procedure TNVM_NVMCON.setw(thebits : TBits_32); inline;
  47250. begin
  47251. pTDefRegMap(@Self)^.val := thebits;
  47252. end;
  47253. function TNVM_NVMCON.getw : TBits_32; inline;
  47254. begin
  47255. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47256. end;
  47257. procedure TRCON_RCON.setPOR; inline;
  47258. begin
  47259. pTDefRegMap(@Self)^.&set := $00000001;
  47260. end;
  47261. procedure TRCON_RCON.clearPOR; inline;
  47262. begin
  47263. pTDefRegMap(@Self)^.clr := $00000001;
  47264. end;
  47265. procedure TRCON_RCON.setPOR(thebits : TBits_1); inline;
  47266. begin
  47267. if thebits = 0 then
  47268. pTDefRegMap(@Self)^.clr := $00000001
  47269. else
  47270. pTDefRegMap(@Self)^.&set := $00000001;
  47271. end;
  47272. function TRCON_RCON.getPOR : TBits_1; inline;
  47273. begin
  47274. getPOR := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47275. end;
  47276. procedure TRCON_RCON.setBOR; inline;
  47277. begin
  47278. pTDefRegMap(@Self)^.&set := $00000002;
  47279. end;
  47280. procedure TRCON_RCON.clearBOR; inline;
  47281. begin
  47282. pTDefRegMap(@Self)^.clr := $00000002;
  47283. end;
  47284. procedure TRCON_RCON.setBOR(thebits : TBits_1); inline;
  47285. begin
  47286. if thebits = 0 then
  47287. pTDefRegMap(@Self)^.clr := $00000002
  47288. else
  47289. pTDefRegMap(@Self)^.&set := $00000002;
  47290. end;
  47291. function TRCON_RCON.getBOR : TBits_1; inline;
  47292. begin
  47293. getBOR := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47294. end;
  47295. procedure TRCON_RCON.setIDLE; inline;
  47296. begin
  47297. pTDefRegMap(@Self)^.&set := $00000004;
  47298. end;
  47299. procedure TRCON_RCON.clearIDLE; inline;
  47300. begin
  47301. pTDefRegMap(@Self)^.clr := $00000004;
  47302. end;
  47303. procedure TRCON_RCON.setIDLE(thebits : TBits_1); inline;
  47304. begin
  47305. if thebits = 0 then
  47306. pTDefRegMap(@Self)^.clr := $00000004
  47307. else
  47308. pTDefRegMap(@Self)^.&set := $00000004;
  47309. end;
  47310. function TRCON_RCON.getIDLE : TBits_1; inline;
  47311. begin
  47312. getIDLE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47313. end;
  47314. procedure TRCON_RCON.setSLEEP; inline;
  47315. begin
  47316. pTDefRegMap(@Self)^.&set := $00000008;
  47317. end;
  47318. procedure TRCON_RCON.clearSLEEP; inline;
  47319. begin
  47320. pTDefRegMap(@Self)^.clr := $00000008;
  47321. end;
  47322. procedure TRCON_RCON.setSLEEP(thebits : TBits_1); inline;
  47323. begin
  47324. if thebits = 0 then
  47325. pTDefRegMap(@Self)^.clr := $00000008
  47326. else
  47327. pTDefRegMap(@Self)^.&set := $00000008;
  47328. end;
  47329. function TRCON_RCON.getSLEEP : TBits_1; inline;
  47330. begin
  47331. getSLEEP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47332. end;
  47333. procedure TRCON_RCON.setWDTO; inline;
  47334. begin
  47335. pTDefRegMap(@Self)^.&set := $00000010;
  47336. end;
  47337. procedure TRCON_RCON.clearWDTO; inline;
  47338. begin
  47339. pTDefRegMap(@Self)^.clr := $00000010;
  47340. end;
  47341. procedure TRCON_RCON.setWDTO(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 TRCON_RCON.getWDTO : TBits_1; inline;
  47349. begin
  47350. getWDTO := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47351. end;
  47352. procedure TRCON_RCON.setSWR; inline;
  47353. begin
  47354. pTDefRegMap(@Self)^.&set := $00000040;
  47355. end;
  47356. procedure TRCON_RCON.clearSWR; inline;
  47357. begin
  47358. pTDefRegMap(@Self)^.clr := $00000040;
  47359. end;
  47360. procedure TRCON_RCON.setSWR(thebits : TBits_1); inline;
  47361. begin
  47362. if thebits = 0 then
  47363. pTDefRegMap(@Self)^.clr := $00000040
  47364. else
  47365. pTDefRegMap(@Self)^.&set := $00000040;
  47366. end;
  47367. function TRCON_RCON.getSWR : TBits_1; inline;
  47368. begin
  47369. getSWR := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47370. end;
  47371. procedure TRCON_RCON.setEXTR; inline;
  47372. begin
  47373. pTDefRegMap(@Self)^.&set := $00000080;
  47374. end;
  47375. procedure TRCON_RCON.clearEXTR; inline;
  47376. begin
  47377. pTDefRegMap(@Self)^.clr := $00000080;
  47378. end;
  47379. procedure TRCON_RCON.setEXTR(thebits : TBits_1); inline;
  47380. begin
  47381. if thebits = 0 then
  47382. pTDefRegMap(@Self)^.clr := $00000080
  47383. else
  47384. pTDefRegMap(@Self)^.&set := $00000080;
  47385. end;
  47386. function TRCON_RCON.getEXTR : TBits_1; inline;
  47387. begin
  47388. getEXTR := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47389. end;
  47390. procedure TRCON_RCON.setVREGS; inline;
  47391. begin
  47392. pTDefRegMap(@Self)^.&set := $00000100;
  47393. end;
  47394. procedure TRCON_RCON.clearVREGS; inline;
  47395. begin
  47396. pTDefRegMap(@Self)^.clr := $00000100;
  47397. end;
  47398. procedure TRCON_RCON.setVREGS(thebits : TBits_1); inline;
  47399. begin
  47400. if thebits = 0 then
  47401. pTDefRegMap(@Self)^.clr := $00000100
  47402. else
  47403. pTDefRegMap(@Self)^.&set := $00000100;
  47404. end;
  47405. function TRCON_RCON.getVREGS : TBits_1; inline;
  47406. begin
  47407. getVREGS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47408. end;
  47409. procedure TRCON_RCON.setCMR; inline;
  47410. begin
  47411. pTDefRegMap(@Self)^.&set := $00000200;
  47412. end;
  47413. procedure TRCON_RCON.clearCMR; inline;
  47414. begin
  47415. pTDefRegMap(@Self)^.clr := $00000200;
  47416. end;
  47417. procedure TRCON_RCON.setCMR(thebits : TBits_1); inline;
  47418. begin
  47419. if thebits = 0 then
  47420. pTDefRegMap(@Self)^.clr := $00000200
  47421. else
  47422. pTDefRegMap(@Self)^.&set := $00000200;
  47423. end;
  47424. function TRCON_RCON.getCMR : TBits_1; inline;
  47425. begin
  47426. getCMR := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  47427. end;
  47428. procedure TRCON_RCON.setw(thebits : TBits_32); inline;
  47429. begin
  47430. pTDefRegMap(@Self)^.val := thebits;
  47431. end;
  47432. function TRCON_RCON.getw : TBits_32; inline;
  47433. begin
  47434. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47435. end;
  47436. procedure TRCON_RSWRST.setSWRST; inline;
  47437. begin
  47438. pTDefRegMap(@Self)^.&set := $00000001;
  47439. end;
  47440. procedure TRCON_RSWRST.clearSWRST; inline;
  47441. begin
  47442. pTDefRegMap(@Self)^.clr := $00000001;
  47443. end;
  47444. procedure TRCON_RSWRST.setSWRST(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 TRCON_RSWRST.getSWRST : TBits_1; inline;
  47452. begin
  47453. getSWRST := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47454. end;
  47455. procedure TRCON_RSWRST.setw(thebits : TBits_32); inline;
  47456. begin
  47457. pTDefRegMap(@Self)^.val := thebits;
  47458. end;
  47459. function TRCON_RSWRST.getw : TBits_32; inline;
  47460. begin
  47461. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47462. end;
  47463. procedure TINT_INTCON.setINT0EP; inline;
  47464. begin
  47465. pTDefRegMap(@Self)^.&set := $00000001;
  47466. end;
  47467. procedure TINT_INTCON.clearINT0EP; inline;
  47468. begin
  47469. pTDefRegMap(@Self)^.clr := $00000001;
  47470. end;
  47471. procedure TINT_INTCON.setINT0EP(thebits : TBits_1); inline;
  47472. begin
  47473. if thebits = 0 then
  47474. pTDefRegMap(@Self)^.clr := $00000001
  47475. else
  47476. pTDefRegMap(@Self)^.&set := $00000001;
  47477. end;
  47478. function TINT_INTCON.getINT0EP : TBits_1; inline;
  47479. begin
  47480. getINT0EP := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47481. end;
  47482. procedure TINT_INTCON.setINT1EP; inline;
  47483. begin
  47484. pTDefRegMap(@Self)^.&set := $00000002;
  47485. end;
  47486. procedure TINT_INTCON.clearINT1EP; inline;
  47487. begin
  47488. pTDefRegMap(@Self)^.clr := $00000002;
  47489. end;
  47490. procedure TINT_INTCON.setINT1EP(thebits : TBits_1); inline;
  47491. begin
  47492. if thebits = 0 then
  47493. pTDefRegMap(@Self)^.clr := $00000002
  47494. else
  47495. pTDefRegMap(@Self)^.&set := $00000002;
  47496. end;
  47497. function TINT_INTCON.getINT1EP : TBits_1; inline;
  47498. begin
  47499. getINT1EP := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47500. end;
  47501. procedure TINT_INTCON.setINT2EP; inline;
  47502. begin
  47503. pTDefRegMap(@Self)^.&set := $00000004;
  47504. end;
  47505. procedure TINT_INTCON.clearINT2EP; inline;
  47506. begin
  47507. pTDefRegMap(@Self)^.clr := $00000004;
  47508. end;
  47509. procedure TINT_INTCON.setINT2EP(thebits : TBits_1); inline;
  47510. begin
  47511. if thebits = 0 then
  47512. pTDefRegMap(@Self)^.clr := $00000004
  47513. else
  47514. pTDefRegMap(@Self)^.&set := $00000004;
  47515. end;
  47516. function TINT_INTCON.getINT2EP : TBits_1; inline;
  47517. begin
  47518. getINT2EP := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47519. end;
  47520. procedure TINT_INTCON.setINT3EP; inline;
  47521. begin
  47522. pTDefRegMap(@Self)^.&set := $00000008;
  47523. end;
  47524. procedure TINT_INTCON.clearINT3EP; inline;
  47525. begin
  47526. pTDefRegMap(@Self)^.clr := $00000008;
  47527. end;
  47528. procedure TINT_INTCON.setINT3EP(thebits : TBits_1); inline;
  47529. begin
  47530. if thebits = 0 then
  47531. pTDefRegMap(@Self)^.clr := $00000008
  47532. else
  47533. pTDefRegMap(@Self)^.&set := $00000008;
  47534. end;
  47535. function TINT_INTCON.getINT3EP : TBits_1; inline;
  47536. begin
  47537. getINT3EP := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47538. end;
  47539. procedure TINT_INTCON.setINT4EP; inline;
  47540. begin
  47541. pTDefRegMap(@Self)^.&set := $00000010;
  47542. end;
  47543. procedure TINT_INTCON.clearINT4EP; inline;
  47544. begin
  47545. pTDefRegMap(@Self)^.clr := $00000010;
  47546. end;
  47547. procedure TINT_INTCON.setINT4EP(thebits : TBits_1); inline;
  47548. begin
  47549. if thebits = 0 then
  47550. pTDefRegMap(@Self)^.clr := $00000010
  47551. else
  47552. pTDefRegMap(@Self)^.&set := $00000010;
  47553. end;
  47554. function TINT_INTCON.getINT4EP : TBits_1; inline;
  47555. begin
  47556. getINT4EP := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47557. end;
  47558. procedure TINT_INTCON.setTPC(thebits : TBits_3); inline;
  47559. begin
  47560. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  47561. end;
  47562. function TINT_INTCON.getTPC : TBits_3; inline;
  47563. begin
  47564. getTPC := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  47565. end;
  47566. procedure TINT_INTCON.setMVEC; inline;
  47567. begin
  47568. pTDefRegMap(@Self)^.&set := $00001000;
  47569. end;
  47570. procedure TINT_INTCON.clearMVEC; inline;
  47571. begin
  47572. pTDefRegMap(@Self)^.clr := $00001000;
  47573. end;
  47574. procedure TINT_INTCON.setMVEC(thebits : TBits_1); inline;
  47575. begin
  47576. if thebits = 0 then
  47577. pTDefRegMap(@Self)^.clr := $00001000
  47578. else
  47579. pTDefRegMap(@Self)^.&set := $00001000;
  47580. end;
  47581. function TINT_INTCON.getMVEC : TBits_1; inline;
  47582. begin
  47583. getMVEC := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  47584. end;
  47585. procedure TINT_INTCON.setFRZ; inline;
  47586. begin
  47587. pTDefRegMap(@Self)^.&set := $00004000;
  47588. end;
  47589. procedure TINT_INTCON.clearFRZ; inline;
  47590. begin
  47591. pTDefRegMap(@Self)^.clr := $00004000;
  47592. end;
  47593. procedure TINT_INTCON.setFRZ(thebits : TBits_1); inline;
  47594. begin
  47595. if thebits = 0 then
  47596. pTDefRegMap(@Self)^.clr := $00004000
  47597. else
  47598. pTDefRegMap(@Self)^.&set := $00004000;
  47599. end;
  47600. function TINT_INTCON.getFRZ : TBits_1; inline;
  47601. begin
  47602. getFRZ := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47603. end;
  47604. procedure TINT_INTCON.setSS0; inline;
  47605. begin
  47606. pTDefRegMap(@Self)^.&set := $00010000;
  47607. end;
  47608. procedure TINT_INTCON.clearSS0; inline;
  47609. begin
  47610. pTDefRegMap(@Self)^.clr := $00010000;
  47611. end;
  47612. procedure TINT_INTCON.setSS0(thebits : TBits_1); inline;
  47613. begin
  47614. if thebits = 0 then
  47615. pTDefRegMap(@Self)^.clr := $00010000
  47616. else
  47617. pTDefRegMap(@Self)^.&set := $00010000;
  47618. end;
  47619. function TINT_INTCON.getSS0 : TBits_1; inline;
  47620. begin
  47621. getSS0 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  47622. end;
  47623. procedure TINT_INTCON.setw(thebits : TBits_32); inline;
  47624. begin
  47625. pTDefRegMap(@Self)^.val := thebits;
  47626. end;
  47627. function TINT_INTCON.getw : TBits_32; inline;
  47628. begin
  47629. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  47630. end;
  47631. procedure TINT_IFS0.setCTIF; inline;
  47632. begin
  47633. pTDefRegMap(@Self)^.&set := $00000001;
  47634. end;
  47635. procedure TINT_IFS0.clearCTIF; inline;
  47636. begin
  47637. pTDefRegMap(@Self)^.clr := $00000001;
  47638. end;
  47639. procedure TINT_IFS0.setCTIF(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 TINT_IFS0.getCTIF : TBits_1; inline;
  47647. begin
  47648. getCTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  47649. end;
  47650. procedure TINT_IFS0.setCS0IF; inline;
  47651. begin
  47652. pTDefRegMap(@Self)^.&set := $00000002;
  47653. end;
  47654. procedure TINT_IFS0.clearCS0IF; inline;
  47655. begin
  47656. pTDefRegMap(@Self)^.clr := $00000002;
  47657. end;
  47658. procedure TINT_IFS0.setCS0IF(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 TINT_IFS0.getCS0IF : TBits_1; inline;
  47666. begin
  47667. getCS0IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  47668. end;
  47669. procedure TINT_IFS0.setCS1IF; inline;
  47670. begin
  47671. pTDefRegMap(@Self)^.&set := $00000004;
  47672. end;
  47673. procedure TINT_IFS0.clearCS1IF; inline;
  47674. begin
  47675. pTDefRegMap(@Self)^.clr := $00000004;
  47676. end;
  47677. procedure TINT_IFS0.setCS1IF(thebits : TBits_1); inline;
  47678. begin
  47679. if thebits = 0 then
  47680. pTDefRegMap(@Self)^.clr := $00000004
  47681. else
  47682. pTDefRegMap(@Self)^.&set := $00000004;
  47683. end;
  47684. function TINT_IFS0.getCS1IF : TBits_1; inline;
  47685. begin
  47686. getCS1IF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  47687. end;
  47688. procedure TINT_IFS0.setINT0IF; inline;
  47689. begin
  47690. pTDefRegMap(@Self)^.&set := $00000008;
  47691. end;
  47692. procedure TINT_IFS0.clearINT0IF; inline;
  47693. begin
  47694. pTDefRegMap(@Self)^.clr := $00000008;
  47695. end;
  47696. procedure TINT_IFS0.setINT0IF(thebits : TBits_1); inline;
  47697. begin
  47698. if thebits = 0 then
  47699. pTDefRegMap(@Self)^.clr := $00000008
  47700. else
  47701. pTDefRegMap(@Self)^.&set := $00000008;
  47702. end;
  47703. function TINT_IFS0.getINT0IF : TBits_1; inline;
  47704. begin
  47705. getINT0IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  47706. end;
  47707. procedure TINT_IFS0.setT1IF; inline;
  47708. begin
  47709. pTDefRegMap(@Self)^.&set := $00000010;
  47710. end;
  47711. procedure TINT_IFS0.clearT1IF; inline;
  47712. begin
  47713. pTDefRegMap(@Self)^.clr := $00000010;
  47714. end;
  47715. procedure TINT_IFS0.setT1IF(thebits : TBits_1); inline;
  47716. begin
  47717. if thebits = 0 then
  47718. pTDefRegMap(@Self)^.clr := $00000010
  47719. else
  47720. pTDefRegMap(@Self)^.&set := $00000010;
  47721. end;
  47722. function TINT_IFS0.getT1IF : TBits_1; inline;
  47723. begin
  47724. getT1IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  47725. end;
  47726. procedure TINT_IFS0.setIC1IF; inline;
  47727. begin
  47728. pTDefRegMap(@Self)^.&set := $00000020;
  47729. end;
  47730. procedure TINT_IFS0.clearIC1IF; inline;
  47731. begin
  47732. pTDefRegMap(@Self)^.clr := $00000020;
  47733. end;
  47734. procedure TINT_IFS0.setIC1IF(thebits : TBits_1); inline;
  47735. begin
  47736. if thebits = 0 then
  47737. pTDefRegMap(@Self)^.clr := $00000020
  47738. else
  47739. pTDefRegMap(@Self)^.&set := $00000020;
  47740. end;
  47741. function TINT_IFS0.getIC1IF : TBits_1; inline;
  47742. begin
  47743. getIC1IF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  47744. end;
  47745. procedure TINT_IFS0.setOC1IF; inline;
  47746. begin
  47747. pTDefRegMap(@Self)^.&set := $00000040;
  47748. end;
  47749. procedure TINT_IFS0.clearOC1IF; inline;
  47750. begin
  47751. pTDefRegMap(@Self)^.clr := $00000040;
  47752. end;
  47753. procedure TINT_IFS0.setOC1IF(thebits : TBits_1); inline;
  47754. begin
  47755. if thebits = 0 then
  47756. pTDefRegMap(@Self)^.clr := $00000040
  47757. else
  47758. pTDefRegMap(@Self)^.&set := $00000040;
  47759. end;
  47760. function TINT_IFS0.getOC1IF : TBits_1; inline;
  47761. begin
  47762. getOC1IF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  47763. end;
  47764. procedure TINT_IFS0.setINT1IF; inline;
  47765. begin
  47766. pTDefRegMap(@Self)^.&set := $00000080;
  47767. end;
  47768. procedure TINT_IFS0.clearINT1IF; inline;
  47769. begin
  47770. pTDefRegMap(@Self)^.clr := $00000080;
  47771. end;
  47772. procedure TINT_IFS0.setINT1IF(thebits : TBits_1); inline;
  47773. begin
  47774. if thebits = 0 then
  47775. pTDefRegMap(@Self)^.clr := $00000080
  47776. else
  47777. pTDefRegMap(@Self)^.&set := $00000080;
  47778. end;
  47779. function TINT_IFS0.getINT1IF : TBits_1; inline;
  47780. begin
  47781. getINT1IF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  47782. end;
  47783. procedure TINT_IFS0.setT2IF; inline;
  47784. begin
  47785. pTDefRegMap(@Self)^.&set := $00000100;
  47786. end;
  47787. procedure TINT_IFS0.clearT2IF; inline;
  47788. begin
  47789. pTDefRegMap(@Self)^.clr := $00000100;
  47790. end;
  47791. procedure TINT_IFS0.setT2IF(thebits : TBits_1); inline;
  47792. begin
  47793. if thebits = 0 then
  47794. pTDefRegMap(@Self)^.clr := $00000100
  47795. else
  47796. pTDefRegMap(@Self)^.&set := $00000100;
  47797. end;
  47798. function TINT_IFS0.getT2IF : TBits_1; inline;
  47799. begin
  47800. getT2IF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  47801. end;
  47802. procedure TINT_IFS0.setIC2IF; inline;
  47803. begin
  47804. pTDefRegMap(@Self)^.&set := $00000200;
  47805. end;
  47806. procedure TINT_IFS0.clearIC2IF; inline;
  47807. begin
  47808. pTDefRegMap(@Self)^.clr := $00000200;
  47809. end;
  47810. procedure TINT_IFS0.setIC2IF(thebits : TBits_1); inline;
  47811. begin
  47812. if thebits = 0 then
  47813. pTDefRegMap(@Self)^.clr := $00000200
  47814. else
  47815. pTDefRegMap(@Self)^.&set := $00000200;
  47816. end;
  47817. function TINT_IFS0.getIC2IF : TBits_1; inline;
  47818. begin
  47819. getIC2IF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  47820. end;
  47821. procedure TINT_IFS0.setOC2IF; inline;
  47822. begin
  47823. pTDefRegMap(@Self)^.&set := $00000400;
  47824. end;
  47825. procedure TINT_IFS0.clearOC2IF; inline;
  47826. begin
  47827. pTDefRegMap(@Self)^.clr := $00000400;
  47828. end;
  47829. procedure TINT_IFS0.setOC2IF(thebits : TBits_1); inline;
  47830. begin
  47831. if thebits = 0 then
  47832. pTDefRegMap(@Self)^.clr := $00000400
  47833. else
  47834. pTDefRegMap(@Self)^.&set := $00000400;
  47835. end;
  47836. function TINT_IFS0.getOC2IF : TBits_1; inline;
  47837. begin
  47838. getOC2IF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  47839. end;
  47840. procedure TINT_IFS0.setINT2IF; inline;
  47841. begin
  47842. pTDefRegMap(@Self)^.&set := $00000800;
  47843. end;
  47844. procedure TINT_IFS0.clearINT2IF; inline;
  47845. begin
  47846. pTDefRegMap(@Self)^.clr := $00000800;
  47847. end;
  47848. procedure TINT_IFS0.setINT2IF(thebits : TBits_1); inline;
  47849. begin
  47850. if thebits = 0 then
  47851. pTDefRegMap(@Self)^.clr := $00000800
  47852. else
  47853. pTDefRegMap(@Self)^.&set := $00000800;
  47854. end;
  47855. function TINT_IFS0.getINT2IF : TBits_1; inline;
  47856. begin
  47857. getINT2IF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  47858. end;
  47859. procedure TINT_IFS0.setT3IF; inline;
  47860. begin
  47861. pTDefRegMap(@Self)^.&set := $00001000;
  47862. end;
  47863. procedure TINT_IFS0.clearT3IF; inline;
  47864. begin
  47865. pTDefRegMap(@Self)^.clr := $00001000;
  47866. end;
  47867. procedure TINT_IFS0.setT3IF(thebits : TBits_1); inline;
  47868. begin
  47869. if thebits = 0 then
  47870. pTDefRegMap(@Self)^.clr := $00001000
  47871. else
  47872. pTDefRegMap(@Self)^.&set := $00001000;
  47873. end;
  47874. function TINT_IFS0.getT3IF : TBits_1; inline;
  47875. begin
  47876. getT3IF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  47877. end;
  47878. procedure TINT_IFS0.setIC3IF; inline;
  47879. begin
  47880. pTDefRegMap(@Self)^.&set := $00002000;
  47881. end;
  47882. procedure TINT_IFS0.clearIC3IF; inline;
  47883. begin
  47884. pTDefRegMap(@Self)^.clr := $00002000;
  47885. end;
  47886. procedure TINT_IFS0.setIC3IF(thebits : TBits_1); inline;
  47887. begin
  47888. if thebits = 0 then
  47889. pTDefRegMap(@Self)^.clr := $00002000
  47890. else
  47891. pTDefRegMap(@Self)^.&set := $00002000;
  47892. end;
  47893. function TINT_IFS0.getIC3IF : TBits_1; inline;
  47894. begin
  47895. getIC3IF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  47896. end;
  47897. procedure TINT_IFS0.setOC3IF; inline;
  47898. begin
  47899. pTDefRegMap(@Self)^.&set := $00004000;
  47900. end;
  47901. procedure TINT_IFS0.clearOC3IF; inline;
  47902. begin
  47903. pTDefRegMap(@Self)^.clr := $00004000;
  47904. end;
  47905. procedure TINT_IFS0.setOC3IF(thebits : TBits_1); inline;
  47906. begin
  47907. if thebits = 0 then
  47908. pTDefRegMap(@Self)^.clr := $00004000
  47909. else
  47910. pTDefRegMap(@Self)^.&set := $00004000;
  47911. end;
  47912. function TINT_IFS0.getOC3IF : TBits_1; inline;
  47913. begin
  47914. getOC3IF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  47915. end;
  47916. procedure TINT_IFS0.setINT3IF; inline;
  47917. begin
  47918. pTDefRegMap(@Self)^.&set := $00008000;
  47919. end;
  47920. procedure TINT_IFS0.clearINT3IF; inline;
  47921. begin
  47922. pTDefRegMap(@Self)^.clr := $00008000;
  47923. end;
  47924. procedure TINT_IFS0.setINT3IF(thebits : TBits_1); inline;
  47925. begin
  47926. if thebits = 0 then
  47927. pTDefRegMap(@Self)^.clr := $00008000
  47928. else
  47929. pTDefRegMap(@Self)^.&set := $00008000;
  47930. end;
  47931. function TINT_IFS0.getINT3IF : TBits_1; inline;
  47932. begin
  47933. getINT3IF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  47934. end;
  47935. procedure TINT_IFS0.setT4IF; inline;
  47936. begin
  47937. pTDefRegMap(@Self)^.&set := $00010000;
  47938. end;
  47939. procedure TINT_IFS0.clearT4IF; inline;
  47940. begin
  47941. pTDefRegMap(@Self)^.clr := $00010000;
  47942. end;
  47943. procedure TINT_IFS0.setT4IF(thebits : TBits_1); inline;
  47944. begin
  47945. if thebits = 0 then
  47946. pTDefRegMap(@Self)^.clr := $00010000
  47947. else
  47948. pTDefRegMap(@Self)^.&set := $00010000;
  47949. end;
  47950. function TINT_IFS0.getT4IF : TBits_1; inline;
  47951. begin
  47952. getT4IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  47953. end;
  47954. procedure TINT_IFS0.setIC4IF; inline;
  47955. begin
  47956. pTDefRegMap(@Self)^.&set := $00020000;
  47957. end;
  47958. procedure TINT_IFS0.clearIC4IF; inline;
  47959. begin
  47960. pTDefRegMap(@Self)^.clr := $00020000;
  47961. end;
  47962. procedure TINT_IFS0.setIC4IF(thebits : TBits_1); inline;
  47963. begin
  47964. if thebits = 0 then
  47965. pTDefRegMap(@Self)^.clr := $00020000
  47966. else
  47967. pTDefRegMap(@Self)^.&set := $00020000;
  47968. end;
  47969. function TINT_IFS0.getIC4IF : TBits_1; inline;
  47970. begin
  47971. getIC4IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  47972. end;
  47973. procedure TINT_IFS0.setOC4IF; inline;
  47974. begin
  47975. pTDefRegMap(@Self)^.&set := $00040000;
  47976. end;
  47977. procedure TINT_IFS0.clearOC4IF; inline;
  47978. begin
  47979. pTDefRegMap(@Self)^.clr := $00040000;
  47980. end;
  47981. procedure TINT_IFS0.setOC4IF(thebits : TBits_1); inline;
  47982. begin
  47983. if thebits = 0 then
  47984. pTDefRegMap(@Self)^.clr := $00040000
  47985. else
  47986. pTDefRegMap(@Self)^.&set := $00040000;
  47987. end;
  47988. function TINT_IFS0.getOC4IF : TBits_1; inline;
  47989. begin
  47990. getOC4IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  47991. end;
  47992. procedure TINT_IFS0.setINT4IF; inline;
  47993. begin
  47994. pTDefRegMap(@Self)^.&set := $00080000;
  47995. end;
  47996. procedure TINT_IFS0.clearINT4IF; inline;
  47997. begin
  47998. pTDefRegMap(@Self)^.clr := $00080000;
  47999. end;
  48000. procedure TINT_IFS0.setINT4IF(thebits : TBits_1); inline;
  48001. begin
  48002. if thebits = 0 then
  48003. pTDefRegMap(@Self)^.clr := $00080000
  48004. else
  48005. pTDefRegMap(@Self)^.&set := $00080000;
  48006. end;
  48007. function TINT_IFS0.getINT4IF : TBits_1; inline;
  48008. begin
  48009. getINT4IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  48010. end;
  48011. procedure TINT_IFS0.setT5IF; inline;
  48012. begin
  48013. pTDefRegMap(@Self)^.&set := $00100000;
  48014. end;
  48015. procedure TINT_IFS0.clearT5IF; inline;
  48016. begin
  48017. pTDefRegMap(@Self)^.clr := $00100000;
  48018. end;
  48019. procedure TINT_IFS0.setT5IF(thebits : TBits_1); inline;
  48020. begin
  48021. if thebits = 0 then
  48022. pTDefRegMap(@Self)^.clr := $00100000
  48023. else
  48024. pTDefRegMap(@Self)^.&set := $00100000;
  48025. end;
  48026. function TINT_IFS0.getT5IF : TBits_1; inline;
  48027. begin
  48028. getT5IF := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  48029. end;
  48030. procedure TINT_IFS0.setIC5IF; inline;
  48031. begin
  48032. pTDefRegMap(@Self)^.&set := $00200000;
  48033. end;
  48034. procedure TINT_IFS0.clearIC5IF; inline;
  48035. begin
  48036. pTDefRegMap(@Self)^.clr := $00200000;
  48037. end;
  48038. procedure TINT_IFS0.setIC5IF(thebits : TBits_1); inline;
  48039. begin
  48040. if thebits = 0 then
  48041. pTDefRegMap(@Self)^.clr := $00200000
  48042. else
  48043. pTDefRegMap(@Self)^.&set := $00200000;
  48044. end;
  48045. function TINT_IFS0.getIC5IF : TBits_1; inline;
  48046. begin
  48047. getIC5IF := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  48048. end;
  48049. procedure TINT_IFS0.setOC5IF; inline;
  48050. begin
  48051. pTDefRegMap(@Self)^.&set := $00400000;
  48052. end;
  48053. procedure TINT_IFS0.clearOC5IF; inline;
  48054. begin
  48055. pTDefRegMap(@Self)^.clr := $00400000;
  48056. end;
  48057. procedure TINT_IFS0.setOC5IF(thebits : TBits_1); inline;
  48058. begin
  48059. if thebits = 0 then
  48060. pTDefRegMap(@Self)^.clr := $00400000
  48061. else
  48062. pTDefRegMap(@Self)^.&set := $00400000;
  48063. end;
  48064. function TINT_IFS0.getOC5IF : TBits_1; inline;
  48065. begin
  48066. getOC5IF := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  48067. end;
  48068. procedure TINT_IFS0.setSPI1EIF; inline;
  48069. begin
  48070. pTDefRegMap(@Self)^.&set := $00800000;
  48071. end;
  48072. procedure TINT_IFS0.clearSPI1EIF; inline;
  48073. begin
  48074. pTDefRegMap(@Self)^.clr := $00800000;
  48075. end;
  48076. procedure TINT_IFS0.setSPI1EIF(thebits : TBits_1); inline;
  48077. begin
  48078. if thebits = 0 then
  48079. pTDefRegMap(@Self)^.clr := $00800000
  48080. else
  48081. pTDefRegMap(@Self)^.&set := $00800000;
  48082. end;
  48083. function TINT_IFS0.getSPI1EIF : TBits_1; inline;
  48084. begin
  48085. getSPI1EIF := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  48086. end;
  48087. procedure TINT_IFS0.setSPI1RXIF; inline;
  48088. begin
  48089. pTDefRegMap(@Self)^.&set := $01000000;
  48090. end;
  48091. procedure TINT_IFS0.clearSPI1RXIF; inline;
  48092. begin
  48093. pTDefRegMap(@Self)^.clr := $01000000;
  48094. end;
  48095. procedure TINT_IFS0.setSPI1RXIF(thebits : TBits_1); inline;
  48096. begin
  48097. if thebits = 0 then
  48098. pTDefRegMap(@Self)^.clr := $01000000
  48099. else
  48100. pTDefRegMap(@Self)^.&set := $01000000;
  48101. end;
  48102. function TINT_IFS0.getSPI1RXIF : TBits_1; inline;
  48103. begin
  48104. getSPI1RXIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  48105. end;
  48106. procedure TINT_IFS0.setSPI1TXIF; inline;
  48107. begin
  48108. pTDefRegMap(@Self)^.&set := $02000000;
  48109. end;
  48110. procedure TINT_IFS0.clearSPI1TXIF; inline;
  48111. begin
  48112. pTDefRegMap(@Self)^.clr := $02000000;
  48113. end;
  48114. procedure TINT_IFS0.setSPI1TXIF(thebits : TBits_1); inline;
  48115. begin
  48116. if thebits = 0 then
  48117. pTDefRegMap(@Self)^.clr := $02000000
  48118. else
  48119. pTDefRegMap(@Self)^.&set := $02000000;
  48120. end;
  48121. function TINT_IFS0.getSPI1TXIF : TBits_1; inline;
  48122. begin
  48123. getSPI1TXIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  48124. end;
  48125. procedure TINT_IFS0.setU1EIF; inline;
  48126. begin
  48127. pTDefRegMap(@Self)^.&set := $04000000;
  48128. end;
  48129. procedure TINT_IFS0.clearU1EIF; inline;
  48130. begin
  48131. pTDefRegMap(@Self)^.clr := $04000000;
  48132. end;
  48133. procedure TINT_IFS0.setU1EIF(thebits : TBits_1); inline;
  48134. begin
  48135. if thebits = 0 then
  48136. pTDefRegMap(@Self)^.clr := $04000000
  48137. else
  48138. pTDefRegMap(@Self)^.&set := $04000000;
  48139. end;
  48140. function TINT_IFS0.getU1EIF : TBits_1; inline;
  48141. begin
  48142. getU1EIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48143. end;
  48144. procedure TINT_IFS0.setU1RXIF; inline;
  48145. begin
  48146. pTDefRegMap(@Self)^.&set := $08000000;
  48147. end;
  48148. procedure TINT_IFS0.clearU1RXIF; inline;
  48149. begin
  48150. pTDefRegMap(@Self)^.clr := $08000000;
  48151. end;
  48152. procedure TINT_IFS0.setU1RXIF(thebits : TBits_1); inline;
  48153. begin
  48154. if thebits = 0 then
  48155. pTDefRegMap(@Self)^.clr := $08000000
  48156. else
  48157. pTDefRegMap(@Self)^.&set := $08000000;
  48158. end;
  48159. function TINT_IFS0.getU1RXIF : TBits_1; inline;
  48160. begin
  48161. getU1RXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48162. end;
  48163. procedure TINT_IFS0.setU1TXIF; inline;
  48164. begin
  48165. pTDefRegMap(@Self)^.&set := $10000000;
  48166. end;
  48167. procedure TINT_IFS0.clearU1TXIF; inline;
  48168. begin
  48169. pTDefRegMap(@Self)^.clr := $10000000;
  48170. end;
  48171. procedure TINT_IFS0.setU1TXIF(thebits : TBits_1); inline;
  48172. begin
  48173. if thebits = 0 then
  48174. pTDefRegMap(@Self)^.clr := $10000000
  48175. else
  48176. pTDefRegMap(@Self)^.&set := $10000000;
  48177. end;
  48178. function TINT_IFS0.getU1TXIF : TBits_1; inline;
  48179. begin
  48180. getU1TXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48181. end;
  48182. procedure TINT_IFS0.setI2C1BIF; inline;
  48183. begin
  48184. pTDefRegMap(@Self)^.&set := $20000000;
  48185. end;
  48186. procedure TINT_IFS0.clearI2C1BIF; inline;
  48187. begin
  48188. pTDefRegMap(@Self)^.clr := $20000000;
  48189. end;
  48190. procedure TINT_IFS0.setI2C1BIF(thebits : TBits_1); inline;
  48191. begin
  48192. if thebits = 0 then
  48193. pTDefRegMap(@Self)^.clr := $20000000
  48194. else
  48195. pTDefRegMap(@Self)^.&set := $20000000;
  48196. end;
  48197. function TINT_IFS0.getI2C1BIF : TBits_1; inline;
  48198. begin
  48199. getI2C1BIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  48200. end;
  48201. procedure TINT_IFS0.setI2C1SIF; inline;
  48202. begin
  48203. pTDefRegMap(@Self)^.&set := $40000000;
  48204. end;
  48205. procedure TINT_IFS0.clearI2C1SIF; inline;
  48206. begin
  48207. pTDefRegMap(@Self)^.clr := $40000000;
  48208. end;
  48209. procedure TINT_IFS0.setI2C1SIF(thebits : TBits_1); inline;
  48210. begin
  48211. if thebits = 0 then
  48212. pTDefRegMap(@Self)^.clr := $40000000
  48213. else
  48214. pTDefRegMap(@Self)^.&set := $40000000;
  48215. end;
  48216. function TINT_IFS0.getI2C1SIF : TBits_1; inline;
  48217. begin
  48218. getI2C1SIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  48219. end;
  48220. procedure TINT_IFS0.setI2C1MIF; inline;
  48221. begin
  48222. pTDefRegMap(@Self)^.&set := $80000000;
  48223. end;
  48224. procedure TINT_IFS0.clearI2C1MIF; inline;
  48225. begin
  48226. pTDefRegMap(@Self)^.clr := $80000000;
  48227. end;
  48228. procedure TINT_IFS0.setI2C1MIF(thebits : TBits_1); inline;
  48229. begin
  48230. if thebits = 0 then
  48231. pTDefRegMap(@Self)^.clr := $80000000
  48232. else
  48233. pTDefRegMap(@Self)^.&set := $80000000;
  48234. end;
  48235. function TINT_IFS0.getI2C1MIF : TBits_1; inline;
  48236. begin
  48237. getI2C1MIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  48238. end;
  48239. procedure TINT_IFS0.setU1AEIF; inline;
  48240. begin
  48241. pTDefRegMap(@Self)^.&set := $04000000;
  48242. end;
  48243. procedure TINT_IFS0.clearU1AEIF; inline;
  48244. begin
  48245. pTDefRegMap(@Self)^.clr := $04000000;
  48246. end;
  48247. procedure TINT_IFS0.setU1AEIF(thebits : TBits_1); inline;
  48248. begin
  48249. if thebits = 0 then
  48250. pTDefRegMap(@Self)^.clr := $04000000
  48251. else
  48252. pTDefRegMap(@Self)^.&set := $04000000;
  48253. end;
  48254. function TINT_IFS0.getU1AEIF : TBits_1; inline;
  48255. begin
  48256. getU1AEIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48257. end;
  48258. procedure TINT_IFS0.setU1ARXIF; inline;
  48259. begin
  48260. pTDefRegMap(@Self)^.&set := $08000000;
  48261. end;
  48262. procedure TINT_IFS0.clearU1ARXIF; inline;
  48263. begin
  48264. pTDefRegMap(@Self)^.clr := $08000000;
  48265. end;
  48266. procedure TINT_IFS0.setU1ARXIF(thebits : TBits_1); inline;
  48267. begin
  48268. if thebits = 0 then
  48269. pTDefRegMap(@Self)^.clr := $08000000
  48270. else
  48271. pTDefRegMap(@Self)^.&set := $08000000;
  48272. end;
  48273. function TINT_IFS0.getU1ARXIF : TBits_1; inline;
  48274. begin
  48275. getU1ARXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48276. end;
  48277. procedure TINT_IFS0.setU1ATXIF; inline;
  48278. begin
  48279. pTDefRegMap(@Self)^.&set := $10000000;
  48280. end;
  48281. procedure TINT_IFS0.clearU1ATXIF; inline;
  48282. begin
  48283. pTDefRegMap(@Self)^.clr := $10000000;
  48284. end;
  48285. procedure TINT_IFS0.setU1ATXIF(thebits : TBits_1); inline;
  48286. begin
  48287. if thebits = 0 then
  48288. pTDefRegMap(@Self)^.clr := $10000000
  48289. else
  48290. pTDefRegMap(@Self)^.&set := $10000000;
  48291. end;
  48292. function TINT_IFS0.getU1ATXIF : TBits_1; inline;
  48293. begin
  48294. getU1ATXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48295. end;
  48296. procedure TINT_IFS0.setSPI3EIF; inline;
  48297. begin
  48298. pTDefRegMap(@Self)^.&set := $04000000;
  48299. end;
  48300. procedure TINT_IFS0.clearSPI3EIF; inline;
  48301. begin
  48302. pTDefRegMap(@Self)^.clr := $04000000;
  48303. end;
  48304. procedure TINT_IFS0.setSPI3EIF(thebits : TBits_1); inline;
  48305. begin
  48306. if thebits = 0 then
  48307. pTDefRegMap(@Self)^.clr := $04000000
  48308. else
  48309. pTDefRegMap(@Self)^.&set := $04000000;
  48310. end;
  48311. function TINT_IFS0.getSPI3EIF : TBits_1; inline;
  48312. begin
  48313. getSPI3EIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48314. end;
  48315. procedure TINT_IFS0.setSPI3RXIF; inline;
  48316. begin
  48317. pTDefRegMap(@Self)^.&set := $08000000;
  48318. end;
  48319. procedure TINT_IFS0.clearSPI3RXIF; inline;
  48320. begin
  48321. pTDefRegMap(@Self)^.clr := $08000000;
  48322. end;
  48323. procedure TINT_IFS0.setSPI3RXIF(thebits : TBits_1); inline;
  48324. begin
  48325. if thebits = 0 then
  48326. pTDefRegMap(@Self)^.clr := $08000000
  48327. else
  48328. pTDefRegMap(@Self)^.&set := $08000000;
  48329. end;
  48330. function TINT_IFS0.getSPI3RXIF : TBits_1; inline;
  48331. begin
  48332. getSPI3RXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48333. end;
  48334. procedure TINT_IFS0.setSPI3TXIF; inline;
  48335. begin
  48336. pTDefRegMap(@Self)^.&set := $10000000;
  48337. end;
  48338. procedure TINT_IFS0.clearSPI3TXIF; inline;
  48339. begin
  48340. pTDefRegMap(@Self)^.clr := $10000000;
  48341. end;
  48342. procedure TINT_IFS0.setSPI3TXIF(thebits : TBits_1); inline;
  48343. begin
  48344. if thebits = 0 then
  48345. pTDefRegMap(@Self)^.clr := $10000000
  48346. else
  48347. pTDefRegMap(@Self)^.&set := $10000000;
  48348. end;
  48349. function TINT_IFS0.getSPI3TXIF : TBits_1; inline;
  48350. begin
  48351. getSPI3TXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48352. end;
  48353. procedure TINT_IFS0.setSPI1AEIF; inline;
  48354. begin
  48355. pTDefRegMap(@Self)^.&set := $04000000;
  48356. end;
  48357. procedure TINT_IFS0.clearSPI1AEIF; inline;
  48358. begin
  48359. pTDefRegMap(@Self)^.clr := $04000000;
  48360. end;
  48361. procedure TINT_IFS0.setSPI1AEIF(thebits : TBits_1); inline;
  48362. begin
  48363. if thebits = 0 then
  48364. pTDefRegMap(@Self)^.clr := $04000000
  48365. else
  48366. pTDefRegMap(@Self)^.&set := $04000000;
  48367. end;
  48368. function TINT_IFS0.getSPI1AEIF : TBits_1; inline;
  48369. begin
  48370. getSPI1AEIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48371. end;
  48372. procedure TINT_IFS0.setSPI1ARXIF; inline;
  48373. begin
  48374. pTDefRegMap(@Self)^.&set := $08000000;
  48375. end;
  48376. procedure TINT_IFS0.clearSPI1ARXIF; inline;
  48377. begin
  48378. pTDefRegMap(@Self)^.clr := $08000000;
  48379. end;
  48380. procedure TINT_IFS0.setSPI1ARXIF(thebits : TBits_1); inline;
  48381. begin
  48382. if thebits = 0 then
  48383. pTDefRegMap(@Self)^.clr := $08000000
  48384. else
  48385. pTDefRegMap(@Self)^.&set := $08000000;
  48386. end;
  48387. function TINT_IFS0.getSPI1ARXIF : TBits_1; inline;
  48388. begin
  48389. getSPI1ARXIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48390. end;
  48391. procedure TINT_IFS0.setSPI1ATXIF; inline;
  48392. begin
  48393. pTDefRegMap(@Self)^.&set := $10000000;
  48394. end;
  48395. procedure TINT_IFS0.clearSPI1ATXIF; inline;
  48396. begin
  48397. pTDefRegMap(@Self)^.clr := $10000000;
  48398. end;
  48399. procedure TINT_IFS0.setSPI1ATXIF(thebits : TBits_1); inline;
  48400. begin
  48401. if thebits = 0 then
  48402. pTDefRegMap(@Self)^.clr := $10000000
  48403. else
  48404. pTDefRegMap(@Self)^.&set := $10000000;
  48405. end;
  48406. function TINT_IFS0.getSPI1ATXIF : TBits_1; inline;
  48407. begin
  48408. getSPI1ATXIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48409. end;
  48410. procedure TINT_IFS0.setI2C3BIF; inline;
  48411. begin
  48412. pTDefRegMap(@Self)^.&set := $04000000;
  48413. end;
  48414. procedure TINT_IFS0.clearI2C3BIF; inline;
  48415. begin
  48416. pTDefRegMap(@Self)^.clr := $04000000;
  48417. end;
  48418. procedure TINT_IFS0.setI2C3BIF(thebits : TBits_1); inline;
  48419. begin
  48420. if thebits = 0 then
  48421. pTDefRegMap(@Self)^.clr := $04000000
  48422. else
  48423. pTDefRegMap(@Self)^.&set := $04000000;
  48424. end;
  48425. function TINT_IFS0.getI2C3BIF : TBits_1; inline;
  48426. begin
  48427. getI2C3BIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48428. end;
  48429. procedure TINT_IFS0.setI2C3SIF; inline;
  48430. begin
  48431. pTDefRegMap(@Self)^.&set := $08000000;
  48432. end;
  48433. procedure TINT_IFS0.clearI2C3SIF; inline;
  48434. begin
  48435. pTDefRegMap(@Self)^.clr := $08000000;
  48436. end;
  48437. procedure TINT_IFS0.setI2C3SIF(thebits : TBits_1); inline;
  48438. begin
  48439. if thebits = 0 then
  48440. pTDefRegMap(@Self)^.clr := $08000000
  48441. else
  48442. pTDefRegMap(@Self)^.&set := $08000000;
  48443. end;
  48444. function TINT_IFS0.getI2C3SIF : TBits_1; inline;
  48445. begin
  48446. getI2C3SIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48447. end;
  48448. procedure TINT_IFS0.setI2C3MIF; inline;
  48449. begin
  48450. pTDefRegMap(@Self)^.&set := $10000000;
  48451. end;
  48452. procedure TINT_IFS0.clearI2C3MIF; inline;
  48453. begin
  48454. pTDefRegMap(@Self)^.clr := $10000000;
  48455. end;
  48456. procedure TINT_IFS0.setI2C3MIF(thebits : TBits_1); inline;
  48457. begin
  48458. if thebits = 0 then
  48459. pTDefRegMap(@Self)^.clr := $10000000
  48460. else
  48461. pTDefRegMap(@Self)^.&set := $10000000;
  48462. end;
  48463. function TINT_IFS0.getI2C3MIF : TBits_1; inline;
  48464. begin
  48465. getI2C3MIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48466. end;
  48467. procedure TINT_IFS0.setI2C1ABIF; inline;
  48468. begin
  48469. pTDefRegMap(@Self)^.&set := $04000000;
  48470. end;
  48471. procedure TINT_IFS0.clearI2C1ABIF; inline;
  48472. begin
  48473. pTDefRegMap(@Self)^.clr := $04000000;
  48474. end;
  48475. procedure TINT_IFS0.setI2C1ABIF(thebits : TBits_1); inline;
  48476. begin
  48477. if thebits = 0 then
  48478. pTDefRegMap(@Self)^.clr := $04000000
  48479. else
  48480. pTDefRegMap(@Self)^.&set := $04000000;
  48481. end;
  48482. function TINT_IFS0.getI2C1ABIF : TBits_1; inline;
  48483. begin
  48484. getI2C1ABIF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48485. end;
  48486. procedure TINT_IFS0.setI2C1ASIF; inline;
  48487. begin
  48488. pTDefRegMap(@Self)^.&set := $08000000;
  48489. end;
  48490. procedure TINT_IFS0.clearI2C1ASIF; inline;
  48491. begin
  48492. pTDefRegMap(@Self)^.clr := $08000000;
  48493. end;
  48494. procedure TINT_IFS0.setI2C1ASIF(thebits : TBits_1); inline;
  48495. begin
  48496. if thebits = 0 then
  48497. pTDefRegMap(@Self)^.clr := $08000000
  48498. else
  48499. pTDefRegMap(@Self)^.&set := $08000000;
  48500. end;
  48501. function TINT_IFS0.getI2C1ASIF : TBits_1; inline;
  48502. begin
  48503. getI2C1ASIF := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  48504. end;
  48505. procedure TINT_IFS0.setI2C1AMIF; inline;
  48506. begin
  48507. pTDefRegMap(@Self)^.&set := $10000000;
  48508. end;
  48509. procedure TINT_IFS0.clearI2C1AMIF; inline;
  48510. begin
  48511. pTDefRegMap(@Self)^.clr := $10000000;
  48512. end;
  48513. procedure TINT_IFS0.setI2C1AMIF(thebits : TBits_1); inline;
  48514. begin
  48515. if thebits = 0 then
  48516. pTDefRegMap(@Self)^.clr := $10000000
  48517. else
  48518. pTDefRegMap(@Self)^.&set := $10000000;
  48519. end;
  48520. function TINT_IFS0.getI2C1AMIF : TBits_1; inline;
  48521. begin
  48522. getI2C1AMIF := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  48523. end;
  48524. procedure TINT_IFS0.setw(thebits : TBits_32); inline;
  48525. begin
  48526. pTDefRegMap(@Self)^.val := thebits;
  48527. end;
  48528. function TINT_IFS0.getw : TBits_32; inline;
  48529. begin
  48530. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  48531. end;
  48532. procedure TINT_IFS1.setCNIF; inline;
  48533. begin
  48534. pTDefRegMap(@Self)^.&set := $00000001;
  48535. end;
  48536. procedure TINT_IFS1.clearCNIF; inline;
  48537. begin
  48538. pTDefRegMap(@Self)^.clr := $00000001;
  48539. end;
  48540. procedure TINT_IFS1.setCNIF(thebits : TBits_1); inline;
  48541. begin
  48542. if thebits = 0 then
  48543. pTDefRegMap(@Self)^.clr := $00000001
  48544. else
  48545. pTDefRegMap(@Self)^.&set := $00000001;
  48546. end;
  48547. function TINT_IFS1.getCNIF : TBits_1; inline;
  48548. begin
  48549. getCNIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  48550. end;
  48551. procedure TINT_IFS1.setAD1IF; inline;
  48552. begin
  48553. pTDefRegMap(@Self)^.&set := $00000002;
  48554. end;
  48555. procedure TINT_IFS1.clearAD1IF; inline;
  48556. begin
  48557. pTDefRegMap(@Self)^.clr := $00000002;
  48558. end;
  48559. procedure TINT_IFS1.setAD1IF(thebits : TBits_1); inline;
  48560. begin
  48561. if thebits = 0 then
  48562. pTDefRegMap(@Self)^.clr := $00000002
  48563. else
  48564. pTDefRegMap(@Self)^.&set := $00000002;
  48565. end;
  48566. function TINT_IFS1.getAD1IF : TBits_1; inline;
  48567. begin
  48568. getAD1IF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  48569. end;
  48570. procedure TINT_IFS1.setPMPIF; inline;
  48571. begin
  48572. pTDefRegMap(@Self)^.&set := $00000004;
  48573. end;
  48574. procedure TINT_IFS1.clearPMPIF; inline;
  48575. begin
  48576. pTDefRegMap(@Self)^.clr := $00000004;
  48577. end;
  48578. procedure TINT_IFS1.setPMPIF(thebits : TBits_1); inline;
  48579. begin
  48580. if thebits = 0 then
  48581. pTDefRegMap(@Self)^.clr := $00000004
  48582. else
  48583. pTDefRegMap(@Self)^.&set := $00000004;
  48584. end;
  48585. function TINT_IFS1.getPMPIF : TBits_1; inline;
  48586. begin
  48587. getPMPIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  48588. end;
  48589. procedure TINT_IFS1.setCMP1IF; inline;
  48590. begin
  48591. pTDefRegMap(@Self)^.&set := $00000008;
  48592. end;
  48593. procedure TINT_IFS1.clearCMP1IF; inline;
  48594. begin
  48595. pTDefRegMap(@Self)^.clr := $00000008;
  48596. end;
  48597. procedure TINT_IFS1.setCMP1IF(thebits : TBits_1); inline;
  48598. begin
  48599. if thebits = 0 then
  48600. pTDefRegMap(@Self)^.clr := $00000008
  48601. else
  48602. pTDefRegMap(@Self)^.&set := $00000008;
  48603. end;
  48604. function TINT_IFS1.getCMP1IF : TBits_1; inline;
  48605. begin
  48606. getCMP1IF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  48607. end;
  48608. procedure TINT_IFS1.setCMP2IF; inline;
  48609. begin
  48610. pTDefRegMap(@Self)^.&set := $00000010;
  48611. end;
  48612. procedure TINT_IFS1.clearCMP2IF; inline;
  48613. begin
  48614. pTDefRegMap(@Self)^.clr := $00000010;
  48615. end;
  48616. procedure TINT_IFS1.setCMP2IF(thebits : TBits_1); inline;
  48617. begin
  48618. if thebits = 0 then
  48619. pTDefRegMap(@Self)^.clr := $00000010
  48620. else
  48621. pTDefRegMap(@Self)^.&set := $00000010;
  48622. end;
  48623. function TINT_IFS1.getCMP2IF : TBits_1; inline;
  48624. begin
  48625. getCMP2IF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  48626. end;
  48627. procedure TINT_IFS1.setU3EIF; inline;
  48628. begin
  48629. pTDefRegMap(@Self)^.&set := $00000020;
  48630. end;
  48631. procedure TINT_IFS1.clearU3EIF; inline;
  48632. begin
  48633. pTDefRegMap(@Self)^.clr := $00000020;
  48634. end;
  48635. procedure TINT_IFS1.setU3EIF(thebits : TBits_1); inline;
  48636. begin
  48637. if thebits = 0 then
  48638. pTDefRegMap(@Self)^.clr := $00000020
  48639. else
  48640. pTDefRegMap(@Self)^.&set := $00000020;
  48641. end;
  48642. function TINT_IFS1.getU3EIF : TBits_1; inline;
  48643. begin
  48644. getU3EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  48645. end;
  48646. procedure TINT_IFS1.setU3RXIF; inline;
  48647. begin
  48648. pTDefRegMap(@Self)^.&set := $00000040;
  48649. end;
  48650. procedure TINT_IFS1.clearU3RXIF; inline;
  48651. begin
  48652. pTDefRegMap(@Self)^.clr := $00000040;
  48653. end;
  48654. procedure TINT_IFS1.setU3RXIF(thebits : TBits_1); inline;
  48655. begin
  48656. if thebits = 0 then
  48657. pTDefRegMap(@Self)^.clr := $00000040
  48658. else
  48659. pTDefRegMap(@Self)^.&set := $00000040;
  48660. end;
  48661. function TINT_IFS1.getU3RXIF : TBits_1; inline;
  48662. begin
  48663. getU3RXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  48664. end;
  48665. procedure TINT_IFS1.setU3TXIF; inline;
  48666. begin
  48667. pTDefRegMap(@Self)^.&set := $00000080;
  48668. end;
  48669. procedure TINT_IFS1.clearU3TXIF; inline;
  48670. begin
  48671. pTDefRegMap(@Self)^.clr := $00000080;
  48672. end;
  48673. procedure TINT_IFS1.setU3TXIF(thebits : TBits_1); inline;
  48674. begin
  48675. if thebits = 0 then
  48676. pTDefRegMap(@Self)^.clr := $00000080
  48677. else
  48678. pTDefRegMap(@Self)^.&set := $00000080;
  48679. end;
  48680. function TINT_IFS1.getU3TXIF : TBits_1; inline;
  48681. begin
  48682. getU3TXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  48683. end;
  48684. procedure TINT_IFS1.setU2EIF; inline;
  48685. begin
  48686. pTDefRegMap(@Self)^.&set := $00000100;
  48687. end;
  48688. procedure TINT_IFS1.clearU2EIF; inline;
  48689. begin
  48690. pTDefRegMap(@Self)^.clr := $00000100;
  48691. end;
  48692. procedure TINT_IFS1.setU2EIF(thebits : TBits_1); inline;
  48693. begin
  48694. if thebits = 0 then
  48695. pTDefRegMap(@Self)^.clr := $00000100
  48696. else
  48697. pTDefRegMap(@Self)^.&set := $00000100;
  48698. end;
  48699. function TINT_IFS1.getU2EIF : TBits_1; inline;
  48700. begin
  48701. getU2EIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  48702. end;
  48703. procedure TINT_IFS1.setU2RXIF; inline;
  48704. begin
  48705. pTDefRegMap(@Self)^.&set := $00000200;
  48706. end;
  48707. procedure TINT_IFS1.clearU2RXIF; inline;
  48708. begin
  48709. pTDefRegMap(@Self)^.clr := $00000200;
  48710. end;
  48711. procedure TINT_IFS1.setU2RXIF(thebits : TBits_1); inline;
  48712. begin
  48713. if thebits = 0 then
  48714. pTDefRegMap(@Self)^.clr := $00000200
  48715. else
  48716. pTDefRegMap(@Self)^.&set := $00000200;
  48717. end;
  48718. function TINT_IFS1.getU2RXIF : TBits_1; inline;
  48719. begin
  48720. getU2RXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  48721. end;
  48722. procedure TINT_IFS1.setU2TXIF; inline;
  48723. begin
  48724. pTDefRegMap(@Self)^.&set := $00000400;
  48725. end;
  48726. procedure TINT_IFS1.clearU2TXIF; inline;
  48727. begin
  48728. pTDefRegMap(@Self)^.clr := $00000400;
  48729. end;
  48730. procedure TINT_IFS1.setU2TXIF(thebits : TBits_1); inline;
  48731. begin
  48732. if thebits = 0 then
  48733. pTDefRegMap(@Self)^.clr := $00000400
  48734. else
  48735. pTDefRegMap(@Self)^.&set := $00000400;
  48736. end;
  48737. function TINT_IFS1.getU2TXIF : TBits_1; inline;
  48738. begin
  48739. getU2TXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  48740. end;
  48741. procedure TINT_IFS1.setI2C2BIF; inline;
  48742. begin
  48743. pTDefRegMap(@Self)^.&set := $00000800;
  48744. end;
  48745. procedure TINT_IFS1.clearI2C2BIF; inline;
  48746. begin
  48747. pTDefRegMap(@Self)^.clr := $00000800;
  48748. end;
  48749. procedure TINT_IFS1.setI2C2BIF(thebits : TBits_1); inline;
  48750. begin
  48751. if thebits = 0 then
  48752. pTDefRegMap(@Self)^.clr := $00000800
  48753. else
  48754. pTDefRegMap(@Self)^.&set := $00000800;
  48755. end;
  48756. function TINT_IFS1.getI2C2BIF : TBits_1; inline;
  48757. begin
  48758. getI2C2BIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  48759. end;
  48760. procedure TINT_IFS1.setI2C2SIF; inline;
  48761. begin
  48762. pTDefRegMap(@Self)^.&set := $00001000;
  48763. end;
  48764. procedure TINT_IFS1.clearI2C2SIF; inline;
  48765. begin
  48766. pTDefRegMap(@Self)^.clr := $00001000;
  48767. end;
  48768. procedure TINT_IFS1.setI2C2SIF(thebits : TBits_1); inline;
  48769. begin
  48770. if thebits = 0 then
  48771. pTDefRegMap(@Self)^.clr := $00001000
  48772. else
  48773. pTDefRegMap(@Self)^.&set := $00001000;
  48774. end;
  48775. function TINT_IFS1.getI2C2SIF : TBits_1; inline;
  48776. begin
  48777. getI2C2SIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  48778. end;
  48779. procedure TINT_IFS1.setI2C2MIF; inline;
  48780. begin
  48781. pTDefRegMap(@Self)^.&set := $00002000;
  48782. end;
  48783. procedure TINT_IFS1.clearI2C2MIF; inline;
  48784. begin
  48785. pTDefRegMap(@Self)^.clr := $00002000;
  48786. end;
  48787. procedure TINT_IFS1.setI2C2MIF(thebits : TBits_1); inline;
  48788. begin
  48789. if thebits = 0 then
  48790. pTDefRegMap(@Self)^.clr := $00002000
  48791. else
  48792. pTDefRegMap(@Self)^.&set := $00002000;
  48793. end;
  48794. function TINT_IFS1.getI2C2MIF : TBits_1; inline;
  48795. begin
  48796. getI2C2MIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  48797. end;
  48798. procedure TINT_IFS1.setFSCMIF; inline;
  48799. begin
  48800. pTDefRegMap(@Self)^.&set := $00004000;
  48801. end;
  48802. procedure TINT_IFS1.clearFSCMIF; inline;
  48803. begin
  48804. pTDefRegMap(@Self)^.clr := $00004000;
  48805. end;
  48806. procedure TINT_IFS1.setFSCMIF(thebits : TBits_1); inline;
  48807. begin
  48808. if thebits = 0 then
  48809. pTDefRegMap(@Self)^.clr := $00004000
  48810. else
  48811. pTDefRegMap(@Self)^.&set := $00004000;
  48812. end;
  48813. function TINT_IFS1.getFSCMIF : TBits_1; inline;
  48814. begin
  48815. getFSCMIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  48816. end;
  48817. procedure TINT_IFS1.setRTCCIF; inline;
  48818. begin
  48819. pTDefRegMap(@Self)^.&set := $00008000;
  48820. end;
  48821. procedure TINT_IFS1.clearRTCCIF; inline;
  48822. begin
  48823. pTDefRegMap(@Self)^.clr := $00008000;
  48824. end;
  48825. procedure TINT_IFS1.setRTCCIF(thebits : TBits_1); inline;
  48826. begin
  48827. if thebits = 0 then
  48828. pTDefRegMap(@Self)^.clr := $00008000
  48829. else
  48830. pTDefRegMap(@Self)^.&set := $00008000;
  48831. end;
  48832. function TINT_IFS1.getRTCCIF : TBits_1; inline;
  48833. begin
  48834. getRTCCIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  48835. end;
  48836. procedure TINT_IFS1.setDMA0IF; inline;
  48837. begin
  48838. pTDefRegMap(@Self)^.&set := $00010000;
  48839. end;
  48840. procedure TINT_IFS1.clearDMA0IF; inline;
  48841. begin
  48842. pTDefRegMap(@Self)^.clr := $00010000;
  48843. end;
  48844. procedure TINT_IFS1.setDMA0IF(thebits : TBits_1); inline;
  48845. begin
  48846. if thebits = 0 then
  48847. pTDefRegMap(@Self)^.clr := $00010000
  48848. else
  48849. pTDefRegMap(@Self)^.&set := $00010000;
  48850. end;
  48851. function TINT_IFS1.getDMA0IF : TBits_1; inline;
  48852. begin
  48853. getDMA0IF := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  48854. end;
  48855. procedure TINT_IFS1.setDMA1IF; inline;
  48856. begin
  48857. pTDefRegMap(@Self)^.&set := $00020000;
  48858. end;
  48859. procedure TINT_IFS1.clearDMA1IF; inline;
  48860. begin
  48861. pTDefRegMap(@Self)^.clr := $00020000;
  48862. end;
  48863. procedure TINT_IFS1.setDMA1IF(thebits : TBits_1); inline;
  48864. begin
  48865. if thebits = 0 then
  48866. pTDefRegMap(@Self)^.clr := $00020000
  48867. else
  48868. pTDefRegMap(@Self)^.&set := $00020000;
  48869. end;
  48870. function TINT_IFS1.getDMA1IF : TBits_1; inline;
  48871. begin
  48872. getDMA1IF := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  48873. end;
  48874. procedure TINT_IFS1.setDMA2IF; inline;
  48875. begin
  48876. pTDefRegMap(@Self)^.&set := $00040000;
  48877. end;
  48878. procedure TINT_IFS1.clearDMA2IF; inline;
  48879. begin
  48880. pTDefRegMap(@Self)^.clr := $00040000;
  48881. end;
  48882. procedure TINT_IFS1.setDMA2IF(thebits : TBits_1); inline;
  48883. begin
  48884. if thebits = 0 then
  48885. pTDefRegMap(@Self)^.clr := $00040000
  48886. else
  48887. pTDefRegMap(@Self)^.&set := $00040000;
  48888. end;
  48889. function TINT_IFS1.getDMA2IF : TBits_1; inline;
  48890. begin
  48891. getDMA2IF := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  48892. end;
  48893. procedure TINT_IFS1.setDMA3IF; inline;
  48894. begin
  48895. pTDefRegMap(@Self)^.&set := $00080000;
  48896. end;
  48897. procedure TINT_IFS1.clearDMA3IF; inline;
  48898. begin
  48899. pTDefRegMap(@Self)^.clr := $00080000;
  48900. end;
  48901. procedure TINT_IFS1.setDMA3IF(thebits : TBits_1); inline;
  48902. begin
  48903. if thebits = 0 then
  48904. pTDefRegMap(@Self)^.clr := $00080000
  48905. else
  48906. pTDefRegMap(@Self)^.&set := $00080000;
  48907. end;
  48908. function TINT_IFS1.getDMA3IF : TBits_1; inline;
  48909. begin
  48910. getDMA3IF := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  48911. end;
  48912. procedure TINT_IFS1.setFCEIF; inline;
  48913. begin
  48914. pTDefRegMap(@Self)^.&set := $01000000;
  48915. end;
  48916. procedure TINT_IFS1.clearFCEIF; inline;
  48917. begin
  48918. pTDefRegMap(@Self)^.clr := $01000000;
  48919. end;
  48920. procedure TINT_IFS1.setFCEIF(thebits : TBits_1); inline;
  48921. begin
  48922. if thebits = 0 then
  48923. pTDefRegMap(@Self)^.clr := $01000000
  48924. else
  48925. pTDefRegMap(@Self)^.&set := $01000000;
  48926. end;
  48927. function TINT_IFS1.getFCEIF : TBits_1; inline;
  48928. begin
  48929. getFCEIF := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  48930. end;
  48931. procedure TINT_IFS1.setUSBIF; inline;
  48932. begin
  48933. pTDefRegMap(@Self)^.&set := $02000000;
  48934. end;
  48935. procedure TINT_IFS1.clearUSBIF; inline;
  48936. begin
  48937. pTDefRegMap(@Self)^.clr := $02000000;
  48938. end;
  48939. procedure TINT_IFS1.setUSBIF(thebits : TBits_1); inline;
  48940. begin
  48941. if thebits = 0 then
  48942. pTDefRegMap(@Self)^.clr := $02000000
  48943. else
  48944. pTDefRegMap(@Self)^.&set := $02000000;
  48945. end;
  48946. function TINT_IFS1.getUSBIF : TBits_1; inline;
  48947. begin
  48948. getUSBIF := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  48949. end;
  48950. procedure TINT_IFS1.setCAN1IF; inline;
  48951. begin
  48952. pTDefRegMap(@Self)^.&set := $04000000;
  48953. end;
  48954. procedure TINT_IFS1.clearCAN1IF; inline;
  48955. begin
  48956. pTDefRegMap(@Self)^.clr := $04000000;
  48957. end;
  48958. procedure TINT_IFS1.setCAN1IF(thebits : TBits_1); inline;
  48959. begin
  48960. if thebits = 0 then
  48961. pTDefRegMap(@Self)^.clr := $04000000
  48962. else
  48963. pTDefRegMap(@Self)^.&set := $04000000;
  48964. end;
  48965. function TINT_IFS1.getCAN1IF : TBits_1; inline;
  48966. begin
  48967. getCAN1IF := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  48968. end;
  48969. procedure TINT_IFS1.setIC1EIF; inline;
  48970. begin
  48971. pTDefRegMap(@Self)^.&set := $20000000;
  48972. end;
  48973. procedure TINT_IFS1.clearIC1EIF; inline;
  48974. begin
  48975. pTDefRegMap(@Self)^.clr := $20000000;
  48976. end;
  48977. procedure TINT_IFS1.setIC1EIF(thebits : TBits_1); inline;
  48978. begin
  48979. if thebits = 0 then
  48980. pTDefRegMap(@Self)^.clr := $20000000
  48981. else
  48982. pTDefRegMap(@Self)^.&set := $20000000;
  48983. end;
  48984. function TINT_IFS1.getIC1EIF : TBits_1; inline;
  48985. begin
  48986. getIC1EIF := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  48987. end;
  48988. procedure TINT_IFS1.setIC2EIF; inline;
  48989. begin
  48990. pTDefRegMap(@Self)^.&set := $40000000;
  48991. end;
  48992. procedure TINT_IFS1.clearIC2EIF; inline;
  48993. begin
  48994. pTDefRegMap(@Self)^.clr := $40000000;
  48995. end;
  48996. procedure TINT_IFS1.setIC2EIF(thebits : TBits_1); inline;
  48997. begin
  48998. if thebits = 0 then
  48999. pTDefRegMap(@Self)^.clr := $40000000
  49000. else
  49001. pTDefRegMap(@Self)^.&set := $40000000;
  49002. end;
  49003. function TINT_IFS1.getIC2EIF : TBits_1; inline;
  49004. begin
  49005. getIC2EIF := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  49006. end;
  49007. procedure TINT_IFS1.setIC3EIF; inline;
  49008. begin
  49009. pTDefRegMap(@Self)^.&set := $80000000;
  49010. end;
  49011. procedure TINT_IFS1.clearIC3EIF; inline;
  49012. begin
  49013. pTDefRegMap(@Self)^.clr := $80000000;
  49014. end;
  49015. procedure TINT_IFS1.setIC3EIF(thebits : TBits_1); inline;
  49016. begin
  49017. if thebits = 0 then
  49018. pTDefRegMap(@Self)^.clr := $80000000
  49019. else
  49020. pTDefRegMap(@Self)^.&set := $80000000;
  49021. end;
  49022. function TINT_IFS1.getIC3EIF : TBits_1; inline;
  49023. begin
  49024. getIC3EIF := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  49025. end;
  49026. procedure TINT_IFS1.setU2AEIF; inline;
  49027. begin
  49028. pTDefRegMap(@Self)^.&set := $00000020;
  49029. end;
  49030. procedure TINT_IFS1.clearU2AEIF; inline;
  49031. begin
  49032. pTDefRegMap(@Self)^.clr := $00000020;
  49033. end;
  49034. procedure TINT_IFS1.setU2AEIF(thebits : TBits_1); inline;
  49035. begin
  49036. if thebits = 0 then
  49037. pTDefRegMap(@Self)^.clr := $00000020
  49038. else
  49039. pTDefRegMap(@Self)^.&set := $00000020;
  49040. end;
  49041. function TINT_IFS1.getU2AEIF : TBits_1; inline;
  49042. begin
  49043. getU2AEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49044. end;
  49045. procedure TINT_IFS1.setU2ARXIF; inline;
  49046. begin
  49047. pTDefRegMap(@Self)^.&set := $00000040;
  49048. end;
  49049. procedure TINT_IFS1.clearU2ARXIF; inline;
  49050. begin
  49051. pTDefRegMap(@Self)^.clr := $00000040;
  49052. end;
  49053. procedure TINT_IFS1.setU2ARXIF(thebits : TBits_1); inline;
  49054. begin
  49055. if thebits = 0 then
  49056. pTDefRegMap(@Self)^.clr := $00000040
  49057. else
  49058. pTDefRegMap(@Self)^.&set := $00000040;
  49059. end;
  49060. function TINT_IFS1.getU2ARXIF : TBits_1; inline;
  49061. begin
  49062. getU2ARXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49063. end;
  49064. procedure TINT_IFS1.setU2ATXIF; inline;
  49065. begin
  49066. pTDefRegMap(@Self)^.&set := $00000080;
  49067. end;
  49068. procedure TINT_IFS1.clearU2ATXIF; inline;
  49069. begin
  49070. pTDefRegMap(@Self)^.clr := $00000080;
  49071. end;
  49072. procedure TINT_IFS1.setU2ATXIF(thebits : TBits_1); inline;
  49073. begin
  49074. if thebits = 0 then
  49075. pTDefRegMap(@Self)^.clr := $00000080
  49076. else
  49077. pTDefRegMap(@Self)^.&set := $00000080;
  49078. end;
  49079. function TINT_IFS1.getU2ATXIF : TBits_1; inline;
  49080. begin
  49081. getU2ATXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49082. end;
  49083. procedure TINT_IFS1.setU3AEIF; inline;
  49084. begin
  49085. pTDefRegMap(@Self)^.&set := $00000100;
  49086. end;
  49087. procedure TINT_IFS1.clearU3AEIF; inline;
  49088. begin
  49089. pTDefRegMap(@Self)^.clr := $00000100;
  49090. end;
  49091. procedure TINT_IFS1.setU3AEIF(thebits : TBits_1); inline;
  49092. begin
  49093. if thebits = 0 then
  49094. pTDefRegMap(@Self)^.clr := $00000100
  49095. else
  49096. pTDefRegMap(@Self)^.&set := $00000100;
  49097. end;
  49098. function TINT_IFS1.getU3AEIF : TBits_1; inline;
  49099. begin
  49100. getU3AEIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49101. end;
  49102. procedure TINT_IFS1.setU3ARXIF; inline;
  49103. begin
  49104. pTDefRegMap(@Self)^.&set := $00000200;
  49105. end;
  49106. procedure TINT_IFS1.clearU3ARXIF; inline;
  49107. begin
  49108. pTDefRegMap(@Self)^.clr := $00000200;
  49109. end;
  49110. procedure TINT_IFS1.setU3ARXIF(thebits : TBits_1); inline;
  49111. begin
  49112. if thebits = 0 then
  49113. pTDefRegMap(@Self)^.clr := $00000200
  49114. else
  49115. pTDefRegMap(@Self)^.&set := $00000200;
  49116. end;
  49117. function TINT_IFS1.getU3ARXIF : TBits_1; inline;
  49118. begin
  49119. getU3ARXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49120. end;
  49121. procedure TINT_IFS1.setU3ATXIF; inline;
  49122. begin
  49123. pTDefRegMap(@Self)^.&set := $00000400;
  49124. end;
  49125. procedure TINT_IFS1.clearU3ATXIF; inline;
  49126. begin
  49127. pTDefRegMap(@Self)^.clr := $00000400;
  49128. end;
  49129. procedure TINT_IFS1.setU3ATXIF(thebits : TBits_1); inline;
  49130. begin
  49131. if thebits = 0 then
  49132. pTDefRegMap(@Self)^.clr := $00000400
  49133. else
  49134. pTDefRegMap(@Self)^.&set := $00000400;
  49135. end;
  49136. function TINT_IFS1.getU3ATXIF : TBits_1; inline;
  49137. begin
  49138. getU3ATXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49139. end;
  49140. procedure TINT_IFS1.setSPI2EIF; inline;
  49141. begin
  49142. pTDefRegMap(@Self)^.&set := $00000020;
  49143. end;
  49144. procedure TINT_IFS1.clearSPI2EIF; inline;
  49145. begin
  49146. pTDefRegMap(@Self)^.clr := $00000020;
  49147. end;
  49148. procedure TINT_IFS1.setSPI2EIF(thebits : TBits_1); inline;
  49149. begin
  49150. if thebits = 0 then
  49151. pTDefRegMap(@Self)^.clr := $00000020
  49152. else
  49153. pTDefRegMap(@Self)^.&set := $00000020;
  49154. end;
  49155. function TINT_IFS1.getSPI2EIF : TBits_1; inline;
  49156. begin
  49157. getSPI2EIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49158. end;
  49159. procedure TINT_IFS1.setSPI2RXIF; inline;
  49160. begin
  49161. pTDefRegMap(@Self)^.&set := $00000040;
  49162. end;
  49163. procedure TINT_IFS1.clearSPI2RXIF; inline;
  49164. begin
  49165. pTDefRegMap(@Self)^.clr := $00000040;
  49166. end;
  49167. procedure TINT_IFS1.setSPI2RXIF(thebits : TBits_1); inline;
  49168. begin
  49169. if thebits = 0 then
  49170. pTDefRegMap(@Self)^.clr := $00000040
  49171. else
  49172. pTDefRegMap(@Self)^.&set := $00000040;
  49173. end;
  49174. function TINT_IFS1.getSPI2RXIF : TBits_1; inline;
  49175. begin
  49176. getSPI2RXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49177. end;
  49178. procedure TINT_IFS1.setSPI2TXIF; inline;
  49179. begin
  49180. pTDefRegMap(@Self)^.&set := $00000080;
  49181. end;
  49182. procedure TINT_IFS1.clearSPI2TXIF; inline;
  49183. begin
  49184. pTDefRegMap(@Self)^.clr := $00000080;
  49185. end;
  49186. procedure TINT_IFS1.setSPI2TXIF(thebits : TBits_1); inline;
  49187. begin
  49188. if thebits = 0 then
  49189. pTDefRegMap(@Self)^.clr := $00000080
  49190. else
  49191. pTDefRegMap(@Self)^.&set := $00000080;
  49192. end;
  49193. function TINT_IFS1.getSPI2TXIF : TBits_1; inline;
  49194. begin
  49195. getSPI2TXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49196. end;
  49197. procedure TINT_IFS1.setSPI4EIF; inline;
  49198. begin
  49199. pTDefRegMap(@Self)^.&set := $00000100;
  49200. end;
  49201. procedure TINT_IFS1.clearSPI4EIF; inline;
  49202. begin
  49203. pTDefRegMap(@Self)^.clr := $00000100;
  49204. end;
  49205. procedure TINT_IFS1.setSPI4EIF(thebits : TBits_1); inline;
  49206. begin
  49207. if thebits = 0 then
  49208. pTDefRegMap(@Self)^.clr := $00000100
  49209. else
  49210. pTDefRegMap(@Self)^.&set := $00000100;
  49211. end;
  49212. function TINT_IFS1.getSPI4EIF : TBits_1; inline;
  49213. begin
  49214. getSPI4EIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49215. end;
  49216. procedure TINT_IFS1.setSPI4RXIF; inline;
  49217. begin
  49218. pTDefRegMap(@Self)^.&set := $00000200;
  49219. end;
  49220. procedure TINT_IFS1.clearSPI4RXIF; inline;
  49221. begin
  49222. pTDefRegMap(@Self)^.clr := $00000200;
  49223. end;
  49224. procedure TINT_IFS1.setSPI4RXIF(thebits : TBits_1); inline;
  49225. begin
  49226. if thebits = 0 then
  49227. pTDefRegMap(@Self)^.clr := $00000200
  49228. else
  49229. pTDefRegMap(@Self)^.&set := $00000200;
  49230. end;
  49231. function TINT_IFS1.getSPI4RXIF : TBits_1; inline;
  49232. begin
  49233. getSPI4RXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49234. end;
  49235. procedure TINT_IFS1.setSPI4TXIF; inline;
  49236. begin
  49237. pTDefRegMap(@Self)^.&set := $00000400;
  49238. end;
  49239. procedure TINT_IFS1.clearSPI4TXIF; inline;
  49240. begin
  49241. pTDefRegMap(@Self)^.clr := $00000400;
  49242. end;
  49243. procedure TINT_IFS1.setSPI4TXIF(thebits : TBits_1); inline;
  49244. begin
  49245. if thebits = 0 then
  49246. pTDefRegMap(@Self)^.clr := $00000400
  49247. else
  49248. pTDefRegMap(@Self)^.&set := $00000400;
  49249. end;
  49250. function TINT_IFS1.getSPI4TXIF : TBits_1; inline;
  49251. begin
  49252. getSPI4TXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49253. end;
  49254. procedure TINT_IFS1.setSPI2AEIF; inline;
  49255. begin
  49256. pTDefRegMap(@Self)^.&set := $00000020;
  49257. end;
  49258. procedure TINT_IFS1.clearSPI2AEIF; inline;
  49259. begin
  49260. pTDefRegMap(@Self)^.clr := $00000020;
  49261. end;
  49262. procedure TINT_IFS1.setSPI2AEIF(thebits : TBits_1); inline;
  49263. begin
  49264. if thebits = 0 then
  49265. pTDefRegMap(@Self)^.clr := $00000020
  49266. else
  49267. pTDefRegMap(@Self)^.&set := $00000020;
  49268. end;
  49269. function TINT_IFS1.getSPI2AEIF : TBits_1; inline;
  49270. begin
  49271. getSPI2AEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49272. end;
  49273. procedure TINT_IFS1.setSPI2ARXIF; inline;
  49274. begin
  49275. pTDefRegMap(@Self)^.&set := $00000040;
  49276. end;
  49277. procedure TINT_IFS1.clearSPI2ARXIF; inline;
  49278. begin
  49279. pTDefRegMap(@Self)^.clr := $00000040;
  49280. end;
  49281. procedure TINT_IFS1.setSPI2ARXIF(thebits : TBits_1); inline;
  49282. begin
  49283. if thebits = 0 then
  49284. pTDefRegMap(@Self)^.clr := $00000040
  49285. else
  49286. pTDefRegMap(@Self)^.&set := $00000040;
  49287. end;
  49288. function TINT_IFS1.getSPI2ARXIF : TBits_1; inline;
  49289. begin
  49290. getSPI2ARXIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49291. end;
  49292. procedure TINT_IFS1.setSPI2ATXIF; inline;
  49293. begin
  49294. pTDefRegMap(@Self)^.&set := $00000080;
  49295. end;
  49296. procedure TINT_IFS1.clearSPI2ATXIF; inline;
  49297. begin
  49298. pTDefRegMap(@Self)^.clr := $00000080;
  49299. end;
  49300. procedure TINT_IFS1.setSPI2ATXIF(thebits : TBits_1); inline;
  49301. begin
  49302. if thebits = 0 then
  49303. pTDefRegMap(@Self)^.clr := $00000080
  49304. else
  49305. pTDefRegMap(@Self)^.&set := $00000080;
  49306. end;
  49307. function TINT_IFS1.getSPI2ATXIF : TBits_1; inline;
  49308. begin
  49309. getSPI2ATXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49310. end;
  49311. procedure TINT_IFS1.setSPI3AEIF; inline;
  49312. begin
  49313. pTDefRegMap(@Self)^.&set := $00000100;
  49314. end;
  49315. procedure TINT_IFS1.clearSPI3AEIF; inline;
  49316. begin
  49317. pTDefRegMap(@Self)^.clr := $00000100;
  49318. end;
  49319. procedure TINT_IFS1.setSPI3AEIF(thebits : TBits_1); inline;
  49320. begin
  49321. if thebits = 0 then
  49322. pTDefRegMap(@Self)^.clr := $00000100
  49323. else
  49324. pTDefRegMap(@Self)^.&set := $00000100;
  49325. end;
  49326. function TINT_IFS1.getSPI3AEIF : TBits_1; inline;
  49327. begin
  49328. getSPI3AEIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49329. end;
  49330. procedure TINT_IFS1.setSPI3ARXIF; inline;
  49331. begin
  49332. pTDefRegMap(@Self)^.&set := $00000200;
  49333. end;
  49334. procedure TINT_IFS1.clearSPI3ARXIF; inline;
  49335. begin
  49336. pTDefRegMap(@Self)^.clr := $00000200;
  49337. end;
  49338. procedure TINT_IFS1.setSPI3ARXIF(thebits : TBits_1); inline;
  49339. begin
  49340. if thebits = 0 then
  49341. pTDefRegMap(@Self)^.clr := $00000200
  49342. else
  49343. pTDefRegMap(@Self)^.&set := $00000200;
  49344. end;
  49345. function TINT_IFS1.getSPI3ARXIF : TBits_1; inline;
  49346. begin
  49347. getSPI3ARXIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49348. end;
  49349. procedure TINT_IFS1.setSPI3ATXIF; inline;
  49350. begin
  49351. pTDefRegMap(@Self)^.&set := $00000400;
  49352. end;
  49353. procedure TINT_IFS1.clearSPI3ATXIF; inline;
  49354. begin
  49355. pTDefRegMap(@Self)^.clr := $00000400;
  49356. end;
  49357. procedure TINT_IFS1.setSPI3ATXIF(thebits : TBits_1); inline;
  49358. begin
  49359. if thebits = 0 then
  49360. pTDefRegMap(@Self)^.clr := $00000400
  49361. else
  49362. pTDefRegMap(@Self)^.&set := $00000400;
  49363. end;
  49364. function TINT_IFS1.getSPI3ATXIF : TBits_1; inline;
  49365. begin
  49366. getSPI3ATXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49367. end;
  49368. procedure TINT_IFS1.setI2C4BIF; inline;
  49369. begin
  49370. pTDefRegMap(@Self)^.&set := $00000020;
  49371. end;
  49372. procedure TINT_IFS1.clearI2C4BIF; inline;
  49373. begin
  49374. pTDefRegMap(@Self)^.clr := $00000020;
  49375. end;
  49376. procedure TINT_IFS1.setI2C4BIF(thebits : TBits_1); inline;
  49377. begin
  49378. if thebits = 0 then
  49379. pTDefRegMap(@Self)^.clr := $00000020
  49380. else
  49381. pTDefRegMap(@Self)^.&set := $00000020;
  49382. end;
  49383. function TINT_IFS1.getI2C4BIF : TBits_1; inline;
  49384. begin
  49385. getI2C4BIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49386. end;
  49387. procedure TINT_IFS1.setI2C4SIF; inline;
  49388. begin
  49389. pTDefRegMap(@Self)^.&set := $00000040;
  49390. end;
  49391. procedure TINT_IFS1.clearI2C4SIF; inline;
  49392. begin
  49393. pTDefRegMap(@Self)^.clr := $00000040;
  49394. end;
  49395. procedure TINT_IFS1.setI2C4SIF(thebits : TBits_1); inline;
  49396. begin
  49397. if thebits = 0 then
  49398. pTDefRegMap(@Self)^.clr := $00000040
  49399. else
  49400. pTDefRegMap(@Self)^.&set := $00000040;
  49401. end;
  49402. function TINT_IFS1.getI2C4SIF : TBits_1; inline;
  49403. begin
  49404. getI2C4SIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49405. end;
  49406. procedure TINT_IFS1.setI2C4MIF; inline;
  49407. begin
  49408. pTDefRegMap(@Self)^.&set := $00000080;
  49409. end;
  49410. procedure TINT_IFS1.clearI2C4MIF; inline;
  49411. begin
  49412. pTDefRegMap(@Self)^.clr := $00000080;
  49413. end;
  49414. procedure TINT_IFS1.setI2C4MIF(thebits : TBits_1); inline;
  49415. begin
  49416. if thebits = 0 then
  49417. pTDefRegMap(@Self)^.clr := $00000080
  49418. else
  49419. pTDefRegMap(@Self)^.&set := $00000080;
  49420. end;
  49421. function TINT_IFS1.getI2C4MIF : TBits_1; inline;
  49422. begin
  49423. getI2C4MIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49424. end;
  49425. procedure TINT_IFS1.setI2C5BIF; inline;
  49426. begin
  49427. pTDefRegMap(@Self)^.&set := $00000100;
  49428. end;
  49429. procedure TINT_IFS1.clearI2C5BIF; inline;
  49430. begin
  49431. pTDefRegMap(@Self)^.clr := $00000100;
  49432. end;
  49433. procedure TINT_IFS1.setI2C5BIF(thebits : TBits_1); inline;
  49434. begin
  49435. if thebits = 0 then
  49436. pTDefRegMap(@Self)^.clr := $00000100
  49437. else
  49438. pTDefRegMap(@Self)^.&set := $00000100;
  49439. end;
  49440. function TINT_IFS1.getI2C5BIF : TBits_1; inline;
  49441. begin
  49442. getI2C5BIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49443. end;
  49444. procedure TINT_IFS1.setI2C5SIF; inline;
  49445. begin
  49446. pTDefRegMap(@Self)^.&set := $00000200;
  49447. end;
  49448. procedure TINT_IFS1.clearI2C5SIF; inline;
  49449. begin
  49450. pTDefRegMap(@Self)^.clr := $00000200;
  49451. end;
  49452. procedure TINT_IFS1.setI2C5SIF(thebits : TBits_1); inline;
  49453. begin
  49454. if thebits = 0 then
  49455. pTDefRegMap(@Self)^.clr := $00000200
  49456. else
  49457. pTDefRegMap(@Self)^.&set := $00000200;
  49458. end;
  49459. function TINT_IFS1.getI2C5SIF : TBits_1; inline;
  49460. begin
  49461. getI2C5SIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49462. end;
  49463. procedure TINT_IFS1.setI2C5MIF; inline;
  49464. begin
  49465. pTDefRegMap(@Self)^.&set := $00000400;
  49466. end;
  49467. procedure TINT_IFS1.clearI2C5MIF; inline;
  49468. begin
  49469. pTDefRegMap(@Self)^.clr := $00000400;
  49470. end;
  49471. procedure TINT_IFS1.setI2C5MIF(thebits : TBits_1); inline;
  49472. begin
  49473. if thebits = 0 then
  49474. pTDefRegMap(@Self)^.clr := $00000400
  49475. else
  49476. pTDefRegMap(@Self)^.&set := $00000400;
  49477. end;
  49478. function TINT_IFS1.getI2C5MIF : TBits_1; inline;
  49479. begin
  49480. getI2C5MIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49481. end;
  49482. procedure TINT_IFS1.setI2C2ABIF; inline;
  49483. begin
  49484. pTDefRegMap(@Self)^.&set := $00000020;
  49485. end;
  49486. procedure TINT_IFS1.clearI2C2ABIF; inline;
  49487. begin
  49488. pTDefRegMap(@Self)^.clr := $00000020;
  49489. end;
  49490. procedure TINT_IFS1.setI2C2ABIF(thebits : TBits_1); inline;
  49491. begin
  49492. if thebits = 0 then
  49493. pTDefRegMap(@Self)^.clr := $00000020
  49494. else
  49495. pTDefRegMap(@Self)^.&set := $00000020;
  49496. end;
  49497. function TINT_IFS1.getI2C2ABIF : TBits_1; inline;
  49498. begin
  49499. getI2C2ABIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49500. end;
  49501. procedure TINT_IFS1.setI2C2ASIF; inline;
  49502. begin
  49503. pTDefRegMap(@Self)^.&set := $00000040;
  49504. end;
  49505. procedure TINT_IFS1.clearI2C2ASIF; inline;
  49506. begin
  49507. pTDefRegMap(@Self)^.clr := $00000040;
  49508. end;
  49509. procedure TINT_IFS1.setI2C2ASIF(thebits : TBits_1); inline;
  49510. begin
  49511. if thebits = 0 then
  49512. pTDefRegMap(@Self)^.clr := $00000040
  49513. else
  49514. pTDefRegMap(@Self)^.&set := $00000040;
  49515. end;
  49516. function TINT_IFS1.getI2C2ASIF : TBits_1; inline;
  49517. begin
  49518. getI2C2ASIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49519. end;
  49520. procedure TINT_IFS1.setI2C2AMIF; inline;
  49521. begin
  49522. pTDefRegMap(@Self)^.&set := $00000080;
  49523. end;
  49524. procedure TINT_IFS1.clearI2C2AMIF; inline;
  49525. begin
  49526. pTDefRegMap(@Self)^.clr := $00000080;
  49527. end;
  49528. procedure TINT_IFS1.setI2C2AMIF(thebits : TBits_1); inline;
  49529. begin
  49530. if thebits = 0 then
  49531. pTDefRegMap(@Self)^.clr := $00000080
  49532. else
  49533. pTDefRegMap(@Self)^.&set := $00000080;
  49534. end;
  49535. function TINT_IFS1.getI2C2AMIF : TBits_1; inline;
  49536. begin
  49537. getI2C2AMIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49538. end;
  49539. procedure TINT_IFS1.setI2C3ABIF; inline;
  49540. begin
  49541. pTDefRegMap(@Self)^.&set := $00000100;
  49542. end;
  49543. procedure TINT_IFS1.clearI2C3ABIF; inline;
  49544. begin
  49545. pTDefRegMap(@Self)^.clr := $00000100;
  49546. end;
  49547. procedure TINT_IFS1.setI2C3ABIF(thebits : TBits_1); inline;
  49548. begin
  49549. if thebits = 0 then
  49550. pTDefRegMap(@Self)^.clr := $00000100
  49551. else
  49552. pTDefRegMap(@Self)^.&set := $00000100;
  49553. end;
  49554. function TINT_IFS1.getI2C3ABIF : TBits_1; inline;
  49555. begin
  49556. getI2C3ABIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49557. end;
  49558. procedure TINT_IFS1.setI2C3ASIF; inline;
  49559. begin
  49560. pTDefRegMap(@Self)^.&set := $00000200;
  49561. end;
  49562. procedure TINT_IFS1.clearI2C3ASIF; inline;
  49563. begin
  49564. pTDefRegMap(@Self)^.clr := $00000200;
  49565. end;
  49566. procedure TINT_IFS1.setI2C3ASIF(thebits : TBits_1); inline;
  49567. begin
  49568. if thebits = 0 then
  49569. pTDefRegMap(@Self)^.clr := $00000200
  49570. else
  49571. pTDefRegMap(@Self)^.&set := $00000200;
  49572. end;
  49573. function TINT_IFS1.getI2C3ASIF : TBits_1; inline;
  49574. begin
  49575. getI2C3ASIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49576. end;
  49577. procedure TINT_IFS1.setI2C3AMIF; inline;
  49578. begin
  49579. pTDefRegMap(@Self)^.&set := $00000400;
  49580. end;
  49581. procedure TINT_IFS1.clearI2C3AMIF; inline;
  49582. begin
  49583. pTDefRegMap(@Self)^.clr := $00000400;
  49584. end;
  49585. procedure TINT_IFS1.setI2C3AMIF(thebits : TBits_1); inline;
  49586. begin
  49587. if thebits = 0 then
  49588. pTDefRegMap(@Self)^.clr := $00000400
  49589. else
  49590. pTDefRegMap(@Self)^.&set := $00000400;
  49591. end;
  49592. function TINT_IFS1.getI2C3AMIF : TBits_1; inline;
  49593. begin
  49594. getI2C3AMIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49595. end;
  49596. procedure TINT_IFS1.setw(thebits : TBits_32); inline;
  49597. begin
  49598. pTDefRegMap(@Self)^.val := thebits;
  49599. end;
  49600. function TINT_IFS1.getw : TBits_32; inline;
  49601. begin
  49602. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  49603. end;
  49604. procedure TINT_IFS2.setIC4EIF; inline;
  49605. begin
  49606. pTDefRegMap(@Self)^.&set := $00000001;
  49607. end;
  49608. procedure TINT_IFS2.clearIC4EIF; inline;
  49609. begin
  49610. pTDefRegMap(@Self)^.clr := $00000001;
  49611. end;
  49612. procedure TINT_IFS2.setIC4EIF(thebits : TBits_1); inline;
  49613. begin
  49614. if thebits = 0 then
  49615. pTDefRegMap(@Self)^.clr := $00000001
  49616. else
  49617. pTDefRegMap(@Self)^.&set := $00000001;
  49618. end;
  49619. function TINT_IFS2.getIC4EIF : TBits_1; inline;
  49620. begin
  49621. getIC4EIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  49622. end;
  49623. procedure TINT_IFS2.setIC5EIF; inline;
  49624. begin
  49625. pTDefRegMap(@Self)^.&set := $00000002;
  49626. end;
  49627. procedure TINT_IFS2.clearIC5EIF; inline;
  49628. begin
  49629. pTDefRegMap(@Self)^.clr := $00000002;
  49630. end;
  49631. procedure TINT_IFS2.setIC5EIF(thebits : TBits_1); inline;
  49632. begin
  49633. if thebits = 0 then
  49634. pTDefRegMap(@Self)^.clr := $00000002
  49635. else
  49636. pTDefRegMap(@Self)^.&set := $00000002;
  49637. end;
  49638. function TINT_IFS2.getIC5EIF : TBits_1; inline;
  49639. begin
  49640. getIC5EIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  49641. end;
  49642. procedure TINT_IFS2.setPMPEIF; inline;
  49643. begin
  49644. pTDefRegMap(@Self)^.&set := $00000004;
  49645. end;
  49646. procedure TINT_IFS2.clearPMPEIF; inline;
  49647. begin
  49648. pTDefRegMap(@Self)^.clr := $00000004;
  49649. end;
  49650. procedure TINT_IFS2.setPMPEIF(thebits : TBits_1); inline;
  49651. begin
  49652. if thebits = 0 then
  49653. pTDefRegMap(@Self)^.clr := $00000004
  49654. else
  49655. pTDefRegMap(@Self)^.&set := $00000004;
  49656. end;
  49657. function TINT_IFS2.getPMPEIF : TBits_1; inline;
  49658. begin
  49659. getPMPEIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  49660. end;
  49661. procedure TINT_IFS2.setU1BEIF; inline;
  49662. begin
  49663. pTDefRegMap(@Self)^.&set := $00000008;
  49664. end;
  49665. procedure TINT_IFS2.clearU1BEIF; inline;
  49666. begin
  49667. pTDefRegMap(@Self)^.clr := $00000008;
  49668. end;
  49669. procedure TINT_IFS2.setU1BEIF(thebits : TBits_1); inline;
  49670. begin
  49671. if thebits = 0 then
  49672. pTDefRegMap(@Self)^.clr := $00000008
  49673. else
  49674. pTDefRegMap(@Self)^.&set := $00000008;
  49675. end;
  49676. function TINT_IFS2.getU1BEIF : TBits_1; inline;
  49677. begin
  49678. getU1BEIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  49679. end;
  49680. procedure TINT_IFS2.setU1BRXIF; inline;
  49681. begin
  49682. pTDefRegMap(@Self)^.&set := $00000010;
  49683. end;
  49684. procedure TINT_IFS2.clearU1BRXIF; inline;
  49685. begin
  49686. pTDefRegMap(@Self)^.clr := $00000010;
  49687. end;
  49688. procedure TINT_IFS2.setU1BRXIF(thebits : TBits_1); inline;
  49689. begin
  49690. if thebits = 0 then
  49691. pTDefRegMap(@Self)^.clr := $00000010
  49692. else
  49693. pTDefRegMap(@Self)^.&set := $00000010;
  49694. end;
  49695. function TINT_IFS2.getU1BRXIF : TBits_1; inline;
  49696. begin
  49697. getU1BRXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  49698. end;
  49699. procedure TINT_IFS2.setU1BTXIF; inline;
  49700. begin
  49701. pTDefRegMap(@Self)^.&set := $00000020;
  49702. end;
  49703. procedure TINT_IFS2.clearU1BTXIF; inline;
  49704. begin
  49705. pTDefRegMap(@Self)^.clr := $00000020;
  49706. end;
  49707. procedure TINT_IFS2.setU1BTXIF(thebits : TBits_1); inline;
  49708. begin
  49709. if thebits = 0 then
  49710. pTDefRegMap(@Self)^.clr := $00000020
  49711. else
  49712. pTDefRegMap(@Self)^.&set := $00000020;
  49713. end;
  49714. function TINT_IFS2.getU1BTXIF : TBits_1; inline;
  49715. begin
  49716. getU1BTXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49717. end;
  49718. procedure TINT_IFS2.setU2BEIF; inline;
  49719. begin
  49720. pTDefRegMap(@Self)^.&set := $00000040;
  49721. end;
  49722. procedure TINT_IFS2.clearU2BEIF; inline;
  49723. begin
  49724. pTDefRegMap(@Self)^.clr := $00000040;
  49725. end;
  49726. procedure TINT_IFS2.setU2BEIF(thebits : TBits_1); inline;
  49727. begin
  49728. if thebits = 0 then
  49729. pTDefRegMap(@Self)^.clr := $00000040
  49730. else
  49731. pTDefRegMap(@Self)^.&set := $00000040;
  49732. end;
  49733. function TINT_IFS2.getU2BEIF : TBits_1; inline;
  49734. begin
  49735. getU2BEIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49736. end;
  49737. procedure TINT_IFS2.setU2BRXIF; inline;
  49738. begin
  49739. pTDefRegMap(@Self)^.&set := $00000080;
  49740. end;
  49741. procedure TINT_IFS2.clearU2BRXIF; inline;
  49742. begin
  49743. pTDefRegMap(@Self)^.clr := $00000080;
  49744. end;
  49745. procedure TINT_IFS2.setU2BRXIF(thebits : TBits_1); inline;
  49746. begin
  49747. if thebits = 0 then
  49748. pTDefRegMap(@Self)^.clr := $00000080
  49749. else
  49750. pTDefRegMap(@Self)^.&set := $00000080;
  49751. end;
  49752. function TINT_IFS2.getU2BRXIF : TBits_1; inline;
  49753. begin
  49754. getU2BRXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49755. end;
  49756. procedure TINT_IFS2.setU2BTXIF; inline;
  49757. begin
  49758. pTDefRegMap(@Self)^.&set := $00000100;
  49759. end;
  49760. procedure TINT_IFS2.clearU2BTXIF; inline;
  49761. begin
  49762. pTDefRegMap(@Self)^.clr := $00000100;
  49763. end;
  49764. procedure TINT_IFS2.setU2BTXIF(thebits : TBits_1); inline;
  49765. begin
  49766. if thebits = 0 then
  49767. pTDefRegMap(@Self)^.clr := $00000100
  49768. else
  49769. pTDefRegMap(@Self)^.&set := $00000100;
  49770. end;
  49771. function TINT_IFS2.getU2BTXIF : TBits_1; inline;
  49772. begin
  49773. getU2BTXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49774. end;
  49775. procedure TINT_IFS2.setU3BEIF; inline;
  49776. begin
  49777. pTDefRegMap(@Self)^.&set := $00000200;
  49778. end;
  49779. procedure TINT_IFS2.clearU3BEIF; inline;
  49780. begin
  49781. pTDefRegMap(@Self)^.clr := $00000200;
  49782. end;
  49783. procedure TINT_IFS2.setU3BEIF(thebits : TBits_1); inline;
  49784. begin
  49785. if thebits = 0 then
  49786. pTDefRegMap(@Self)^.clr := $00000200
  49787. else
  49788. pTDefRegMap(@Self)^.&set := $00000200;
  49789. end;
  49790. function TINT_IFS2.getU3BEIF : TBits_1; inline;
  49791. begin
  49792. getU3BEIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49793. end;
  49794. procedure TINT_IFS2.setU3BRXIF; inline;
  49795. begin
  49796. pTDefRegMap(@Self)^.&set := $00000400;
  49797. end;
  49798. procedure TINT_IFS2.clearU3BRXIF; inline;
  49799. begin
  49800. pTDefRegMap(@Self)^.clr := $00000400;
  49801. end;
  49802. procedure TINT_IFS2.setU3BRXIF(thebits : TBits_1); inline;
  49803. begin
  49804. if thebits = 0 then
  49805. pTDefRegMap(@Self)^.clr := $00000400
  49806. else
  49807. pTDefRegMap(@Self)^.&set := $00000400;
  49808. end;
  49809. function TINT_IFS2.getU3BRXIF : TBits_1; inline;
  49810. begin
  49811. getU3BRXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49812. end;
  49813. procedure TINT_IFS2.setU3BTXIF; inline;
  49814. begin
  49815. pTDefRegMap(@Self)^.&set := $00000800;
  49816. end;
  49817. procedure TINT_IFS2.clearU3BTXIF; inline;
  49818. begin
  49819. pTDefRegMap(@Self)^.clr := $00000800;
  49820. end;
  49821. procedure TINT_IFS2.setU3BTXIF(thebits : TBits_1); inline;
  49822. begin
  49823. if thebits = 0 then
  49824. pTDefRegMap(@Self)^.clr := $00000800
  49825. else
  49826. pTDefRegMap(@Self)^.&set := $00000800;
  49827. end;
  49828. function TINT_IFS2.getU3BTXIF : TBits_1; inline;
  49829. begin
  49830. getU3BTXIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  49831. end;
  49832. procedure TINT_IFS2.setU4EIF; inline;
  49833. begin
  49834. pTDefRegMap(@Self)^.&set := $00000008;
  49835. end;
  49836. procedure TINT_IFS2.clearU4EIF; inline;
  49837. begin
  49838. pTDefRegMap(@Self)^.clr := $00000008;
  49839. end;
  49840. procedure TINT_IFS2.setU4EIF(thebits : TBits_1); inline;
  49841. begin
  49842. if thebits = 0 then
  49843. pTDefRegMap(@Self)^.clr := $00000008
  49844. else
  49845. pTDefRegMap(@Self)^.&set := $00000008;
  49846. end;
  49847. function TINT_IFS2.getU4EIF : TBits_1; inline;
  49848. begin
  49849. getU4EIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  49850. end;
  49851. procedure TINT_IFS2.setU4RXIF; inline;
  49852. begin
  49853. pTDefRegMap(@Self)^.&set := $00000010;
  49854. end;
  49855. procedure TINT_IFS2.clearU4RXIF; inline;
  49856. begin
  49857. pTDefRegMap(@Self)^.clr := $00000010;
  49858. end;
  49859. procedure TINT_IFS2.setU4RXIF(thebits : TBits_1); inline;
  49860. begin
  49861. if thebits = 0 then
  49862. pTDefRegMap(@Self)^.clr := $00000010
  49863. else
  49864. pTDefRegMap(@Self)^.&set := $00000010;
  49865. end;
  49866. function TINT_IFS2.getU4RXIF : TBits_1; inline;
  49867. begin
  49868. getU4RXIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  49869. end;
  49870. procedure TINT_IFS2.setU4TXIF; inline;
  49871. begin
  49872. pTDefRegMap(@Self)^.&set := $00000020;
  49873. end;
  49874. procedure TINT_IFS2.clearU4TXIF; inline;
  49875. begin
  49876. pTDefRegMap(@Self)^.clr := $00000020;
  49877. end;
  49878. procedure TINT_IFS2.setU4TXIF(thebits : TBits_1); inline;
  49879. begin
  49880. if thebits = 0 then
  49881. pTDefRegMap(@Self)^.clr := $00000020
  49882. else
  49883. pTDefRegMap(@Self)^.&set := $00000020;
  49884. end;
  49885. function TINT_IFS2.getU4TXIF : TBits_1; inline;
  49886. begin
  49887. getU4TXIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  49888. end;
  49889. procedure TINT_IFS2.setU6EIF; inline;
  49890. begin
  49891. pTDefRegMap(@Self)^.&set := $00000040;
  49892. end;
  49893. procedure TINT_IFS2.clearU6EIF; inline;
  49894. begin
  49895. pTDefRegMap(@Self)^.clr := $00000040;
  49896. end;
  49897. procedure TINT_IFS2.setU6EIF(thebits : TBits_1); inline;
  49898. begin
  49899. if thebits = 0 then
  49900. pTDefRegMap(@Self)^.clr := $00000040
  49901. else
  49902. pTDefRegMap(@Self)^.&set := $00000040;
  49903. end;
  49904. function TINT_IFS2.getU6EIF : TBits_1; inline;
  49905. begin
  49906. getU6EIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  49907. end;
  49908. procedure TINT_IFS2.setU6RXIF; inline;
  49909. begin
  49910. pTDefRegMap(@Self)^.&set := $00000080;
  49911. end;
  49912. procedure TINT_IFS2.clearU6RXIF; inline;
  49913. begin
  49914. pTDefRegMap(@Self)^.clr := $00000080;
  49915. end;
  49916. procedure TINT_IFS2.setU6RXIF(thebits : TBits_1); inline;
  49917. begin
  49918. if thebits = 0 then
  49919. pTDefRegMap(@Self)^.clr := $00000080
  49920. else
  49921. pTDefRegMap(@Self)^.&set := $00000080;
  49922. end;
  49923. function TINT_IFS2.getU6RXIF : TBits_1; inline;
  49924. begin
  49925. getU6RXIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  49926. end;
  49927. procedure TINT_IFS2.setU6TXIF; inline;
  49928. begin
  49929. pTDefRegMap(@Self)^.&set := $00000100;
  49930. end;
  49931. procedure TINT_IFS2.clearU6TXIF; inline;
  49932. begin
  49933. pTDefRegMap(@Self)^.clr := $00000100;
  49934. end;
  49935. procedure TINT_IFS2.setU6TXIF(thebits : TBits_1); inline;
  49936. begin
  49937. if thebits = 0 then
  49938. pTDefRegMap(@Self)^.clr := $00000100
  49939. else
  49940. pTDefRegMap(@Self)^.&set := $00000100;
  49941. end;
  49942. function TINT_IFS2.getU6TXIF : TBits_1; inline;
  49943. begin
  49944. getU6TXIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  49945. end;
  49946. procedure TINT_IFS2.setU5EIF; inline;
  49947. begin
  49948. pTDefRegMap(@Self)^.&set := $00000200;
  49949. end;
  49950. procedure TINT_IFS2.clearU5EIF; inline;
  49951. begin
  49952. pTDefRegMap(@Self)^.clr := $00000200;
  49953. end;
  49954. procedure TINT_IFS2.setU5EIF(thebits : TBits_1); inline;
  49955. begin
  49956. if thebits = 0 then
  49957. pTDefRegMap(@Self)^.clr := $00000200
  49958. else
  49959. pTDefRegMap(@Self)^.&set := $00000200;
  49960. end;
  49961. function TINT_IFS2.getU5EIF : TBits_1; inline;
  49962. begin
  49963. getU5EIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  49964. end;
  49965. procedure TINT_IFS2.setU5RXIF; inline;
  49966. begin
  49967. pTDefRegMap(@Self)^.&set := $00000400;
  49968. end;
  49969. procedure TINT_IFS2.clearU5RXIF; inline;
  49970. begin
  49971. pTDefRegMap(@Self)^.clr := $00000400;
  49972. end;
  49973. procedure TINT_IFS2.setU5RXIF(thebits : TBits_1); inline;
  49974. begin
  49975. if thebits = 0 then
  49976. pTDefRegMap(@Self)^.clr := $00000400
  49977. else
  49978. pTDefRegMap(@Self)^.&set := $00000400;
  49979. end;
  49980. function TINT_IFS2.getU5RXIF : TBits_1; inline;
  49981. begin
  49982. getU5RXIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  49983. end;
  49984. procedure TINT_IFS2.setU5TXIF; inline;
  49985. begin
  49986. pTDefRegMap(@Self)^.&set := $00000800;
  49987. end;
  49988. procedure TINT_IFS2.clearU5TXIF; inline;
  49989. begin
  49990. pTDefRegMap(@Self)^.clr := $00000800;
  49991. end;
  49992. procedure TINT_IFS2.setU5TXIF(thebits : TBits_1); inline;
  49993. begin
  49994. if thebits = 0 then
  49995. pTDefRegMap(@Self)^.clr := $00000800
  49996. else
  49997. pTDefRegMap(@Self)^.&set := $00000800;
  49998. end;
  49999. function TINT_IFS2.getU5TXIF : TBits_1; inline;
  50000. begin
  50001. getU5TXIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  50002. end;
  50003. procedure TINT_IFS2.setw(thebits : TBits_32); inline;
  50004. begin
  50005. pTDefRegMap(@Self)^.val := thebits;
  50006. end;
  50007. function TINT_IFS2.getw : TBits_32; inline;
  50008. begin
  50009. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  50010. end;
  50011. procedure TINT_IEC0.setCTIE; inline;
  50012. begin
  50013. pTDefRegMap(@Self)^.&set := $00000001;
  50014. end;
  50015. procedure TINT_IEC0.clearCTIE; inline;
  50016. begin
  50017. pTDefRegMap(@Self)^.clr := $00000001;
  50018. end;
  50019. procedure TINT_IEC0.setCTIE(thebits : TBits_1); inline;
  50020. begin
  50021. if thebits = 0 then
  50022. pTDefRegMap(@Self)^.clr := $00000001
  50023. else
  50024. pTDefRegMap(@Self)^.&set := $00000001;
  50025. end;
  50026. function TINT_IEC0.getCTIE : TBits_1; inline;
  50027. begin
  50028. getCTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  50029. end;
  50030. procedure TINT_IEC0.setCS0IE; inline;
  50031. begin
  50032. pTDefRegMap(@Self)^.&set := $00000002;
  50033. end;
  50034. procedure TINT_IEC0.clearCS0IE; inline;
  50035. begin
  50036. pTDefRegMap(@Self)^.clr := $00000002;
  50037. end;
  50038. procedure TINT_IEC0.setCS0IE(thebits : TBits_1); inline;
  50039. begin
  50040. if thebits = 0 then
  50041. pTDefRegMap(@Self)^.clr := $00000002
  50042. else
  50043. pTDefRegMap(@Self)^.&set := $00000002;
  50044. end;
  50045. function TINT_IEC0.getCS0IE : TBits_1; inline;
  50046. begin
  50047. getCS0IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  50048. end;
  50049. procedure TINT_IEC0.setCS1IE; inline;
  50050. begin
  50051. pTDefRegMap(@Self)^.&set := $00000004;
  50052. end;
  50053. procedure TINT_IEC0.clearCS1IE; inline;
  50054. begin
  50055. pTDefRegMap(@Self)^.clr := $00000004;
  50056. end;
  50057. procedure TINT_IEC0.setCS1IE(thebits : TBits_1); inline;
  50058. begin
  50059. if thebits = 0 then
  50060. pTDefRegMap(@Self)^.clr := $00000004
  50061. else
  50062. pTDefRegMap(@Self)^.&set := $00000004;
  50063. end;
  50064. function TINT_IEC0.getCS1IE : TBits_1; inline;
  50065. begin
  50066. getCS1IE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  50067. end;
  50068. procedure TINT_IEC0.setINT0IE; inline;
  50069. begin
  50070. pTDefRegMap(@Self)^.&set := $00000008;
  50071. end;
  50072. procedure TINT_IEC0.clearINT0IE; inline;
  50073. begin
  50074. pTDefRegMap(@Self)^.clr := $00000008;
  50075. end;
  50076. procedure TINT_IEC0.setINT0IE(thebits : TBits_1); inline;
  50077. begin
  50078. if thebits = 0 then
  50079. pTDefRegMap(@Self)^.clr := $00000008
  50080. else
  50081. pTDefRegMap(@Self)^.&set := $00000008;
  50082. end;
  50083. function TINT_IEC0.getINT0IE : TBits_1; inline;
  50084. begin
  50085. getINT0IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  50086. end;
  50087. procedure TINT_IEC0.setT1IE; inline;
  50088. begin
  50089. pTDefRegMap(@Self)^.&set := $00000010;
  50090. end;
  50091. procedure TINT_IEC0.clearT1IE; inline;
  50092. begin
  50093. pTDefRegMap(@Self)^.clr := $00000010;
  50094. end;
  50095. procedure TINT_IEC0.setT1IE(thebits : TBits_1); inline;
  50096. begin
  50097. if thebits = 0 then
  50098. pTDefRegMap(@Self)^.clr := $00000010
  50099. else
  50100. pTDefRegMap(@Self)^.&set := $00000010;
  50101. end;
  50102. function TINT_IEC0.getT1IE : TBits_1; inline;
  50103. begin
  50104. getT1IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  50105. end;
  50106. procedure TINT_IEC0.setIC1IE; inline;
  50107. begin
  50108. pTDefRegMap(@Self)^.&set := $00000020;
  50109. end;
  50110. procedure TINT_IEC0.clearIC1IE; inline;
  50111. begin
  50112. pTDefRegMap(@Self)^.clr := $00000020;
  50113. end;
  50114. procedure TINT_IEC0.setIC1IE(thebits : TBits_1); inline;
  50115. begin
  50116. if thebits = 0 then
  50117. pTDefRegMap(@Self)^.clr := $00000020
  50118. else
  50119. pTDefRegMap(@Self)^.&set := $00000020;
  50120. end;
  50121. function TINT_IEC0.getIC1IE : TBits_1; inline;
  50122. begin
  50123. getIC1IE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  50124. end;
  50125. procedure TINT_IEC0.setOC1IE; inline;
  50126. begin
  50127. pTDefRegMap(@Self)^.&set := $00000040;
  50128. end;
  50129. procedure TINT_IEC0.clearOC1IE; inline;
  50130. begin
  50131. pTDefRegMap(@Self)^.clr := $00000040;
  50132. end;
  50133. procedure TINT_IEC0.setOC1IE(thebits : TBits_1); inline;
  50134. begin
  50135. if thebits = 0 then
  50136. pTDefRegMap(@Self)^.clr := $00000040
  50137. else
  50138. pTDefRegMap(@Self)^.&set := $00000040;
  50139. end;
  50140. function TINT_IEC0.getOC1IE : TBits_1; inline;
  50141. begin
  50142. getOC1IE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  50143. end;
  50144. procedure TINT_IEC0.setINT1IE; inline;
  50145. begin
  50146. pTDefRegMap(@Self)^.&set := $00000080;
  50147. end;
  50148. procedure TINT_IEC0.clearINT1IE; inline;
  50149. begin
  50150. pTDefRegMap(@Self)^.clr := $00000080;
  50151. end;
  50152. procedure TINT_IEC0.setINT1IE(thebits : TBits_1); inline;
  50153. begin
  50154. if thebits = 0 then
  50155. pTDefRegMap(@Self)^.clr := $00000080
  50156. else
  50157. pTDefRegMap(@Self)^.&set := $00000080;
  50158. end;
  50159. function TINT_IEC0.getINT1IE : TBits_1; inline;
  50160. begin
  50161. getINT1IE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  50162. end;
  50163. procedure TINT_IEC0.setT2IE; inline;
  50164. begin
  50165. pTDefRegMap(@Self)^.&set := $00000100;
  50166. end;
  50167. procedure TINT_IEC0.clearT2IE; inline;
  50168. begin
  50169. pTDefRegMap(@Self)^.clr := $00000100;
  50170. end;
  50171. procedure TINT_IEC0.setT2IE(thebits : TBits_1); inline;
  50172. begin
  50173. if thebits = 0 then
  50174. pTDefRegMap(@Self)^.clr := $00000100
  50175. else
  50176. pTDefRegMap(@Self)^.&set := $00000100;
  50177. end;
  50178. function TINT_IEC0.getT2IE : TBits_1; inline;
  50179. begin
  50180. getT2IE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  50181. end;
  50182. procedure TINT_IEC0.setIC2IE; inline;
  50183. begin
  50184. pTDefRegMap(@Self)^.&set := $00000200;
  50185. end;
  50186. procedure TINT_IEC0.clearIC2IE; inline;
  50187. begin
  50188. pTDefRegMap(@Self)^.clr := $00000200;
  50189. end;
  50190. procedure TINT_IEC0.setIC2IE(thebits : TBits_1); inline;
  50191. begin
  50192. if thebits = 0 then
  50193. pTDefRegMap(@Self)^.clr := $00000200
  50194. else
  50195. pTDefRegMap(@Self)^.&set := $00000200;
  50196. end;
  50197. function TINT_IEC0.getIC2IE : TBits_1; inline;
  50198. begin
  50199. getIC2IE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  50200. end;
  50201. procedure TINT_IEC0.setOC2IE; inline;
  50202. begin
  50203. pTDefRegMap(@Self)^.&set := $00000400;
  50204. end;
  50205. procedure TINT_IEC0.clearOC2IE; inline;
  50206. begin
  50207. pTDefRegMap(@Self)^.clr := $00000400;
  50208. end;
  50209. procedure TINT_IEC0.setOC2IE(thebits : TBits_1); inline;
  50210. begin
  50211. if thebits = 0 then
  50212. pTDefRegMap(@Self)^.clr := $00000400
  50213. else
  50214. pTDefRegMap(@Self)^.&set := $00000400;
  50215. end;
  50216. function TINT_IEC0.getOC2IE : TBits_1; inline;
  50217. begin
  50218. getOC2IE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  50219. end;
  50220. procedure TINT_IEC0.setINT2IE; inline;
  50221. begin
  50222. pTDefRegMap(@Self)^.&set := $00000800;
  50223. end;
  50224. procedure TINT_IEC0.clearINT2IE; inline;
  50225. begin
  50226. pTDefRegMap(@Self)^.clr := $00000800;
  50227. end;
  50228. procedure TINT_IEC0.setINT2IE(thebits : TBits_1); inline;
  50229. begin
  50230. if thebits = 0 then
  50231. pTDefRegMap(@Self)^.clr := $00000800
  50232. else
  50233. pTDefRegMap(@Self)^.&set := $00000800;
  50234. end;
  50235. function TINT_IEC0.getINT2IE : TBits_1; inline;
  50236. begin
  50237. getINT2IE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  50238. end;
  50239. procedure TINT_IEC0.setT3IE; inline;
  50240. begin
  50241. pTDefRegMap(@Self)^.&set := $00001000;
  50242. end;
  50243. procedure TINT_IEC0.clearT3IE; inline;
  50244. begin
  50245. pTDefRegMap(@Self)^.clr := $00001000;
  50246. end;
  50247. procedure TINT_IEC0.setT3IE(thebits : TBits_1); inline;
  50248. begin
  50249. if thebits = 0 then
  50250. pTDefRegMap(@Self)^.clr := $00001000
  50251. else
  50252. pTDefRegMap(@Self)^.&set := $00001000;
  50253. end;
  50254. function TINT_IEC0.getT3IE : TBits_1; inline;
  50255. begin
  50256. getT3IE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  50257. end;
  50258. procedure TINT_IEC0.setIC3IE; inline;
  50259. begin
  50260. pTDefRegMap(@Self)^.&set := $00002000;
  50261. end;
  50262. procedure TINT_IEC0.clearIC3IE; inline;
  50263. begin
  50264. pTDefRegMap(@Self)^.clr := $00002000;
  50265. end;
  50266. procedure TINT_IEC0.setIC3IE(thebits : TBits_1); inline;
  50267. begin
  50268. if thebits = 0 then
  50269. pTDefRegMap(@Self)^.clr := $00002000
  50270. else
  50271. pTDefRegMap(@Self)^.&set := $00002000;
  50272. end;
  50273. function TINT_IEC0.getIC3IE : TBits_1; inline;
  50274. begin
  50275. getIC3IE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  50276. end;
  50277. procedure TINT_IEC0.setOC3IE; inline;
  50278. begin
  50279. pTDefRegMap(@Self)^.&set := $00004000;
  50280. end;
  50281. procedure TINT_IEC0.clearOC3IE; inline;
  50282. begin
  50283. pTDefRegMap(@Self)^.clr := $00004000;
  50284. end;
  50285. procedure TINT_IEC0.setOC3IE(thebits : TBits_1); inline;
  50286. begin
  50287. if thebits = 0 then
  50288. pTDefRegMap(@Self)^.clr := $00004000
  50289. else
  50290. pTDefRegMap(@Self)^.&set := $00004000;
  50291. end;
  50292. function TINT_IEC0.getOC3IE : TBits_1; inline;
  50293. begin
  50294. getOC3IE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  50295. end;
  50296. procedure TINT_IEC0.setINT3IE; inline;
  50297. begin
  50298. pTDefRegMap(@Self)^.&set := $00008000;
  50299. end;
  50300. procedure TINT_IEC0.clearINT3IE; inline;
  50301. begin
  50302. pTDefRegMap(@Self)^.clr := $00008000;
  50303. end;
  50304. procedure TINT_IEC0.setINT3IE(thebits : TBits_1); inline;
  50305. begin
  50306. if thebits = 0 then
  50307. pTDefRegMap(@Self)^.clr := $00008000
  50308. else
  50309. pTDefRegMap(@Self)^.&set := $00008000;
  50310. end;
  50311. function TINT_IEC0.getINT3IE : TBits_1; inline;
  50312. begin
  50313. getINT3IE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  50314. end;
  50315. procedure TINT_IEC0.setT4IE; inline;
  50316. begin
  50317. pTDefRegMap(@Self)^.&set := $00010000;
  50318. end;
  50319. procedure TINT_IEC0.clearT4IE; inline;
  50320. begin
  50321. pTDefRegMap(@Self)^.clr := $00010000;
  50322. end;
  50323. procedure TINT_IEC0.setT4IE(thebits : TBits_1); inline;
  50324. begin
  50325. if thebits = 0 then
  50326. pTDefRegMap(@Self)^.clr := $00010000
  50327. else
  50328. pTDefRegMap(@Self)^.&set := $00010000;
  50329. end;
  50330. function TINT_IEC0.getT4IE : TBits_1; inline;
  50331. begin
  50332. getT4IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  50333. end;
  50334. procedure TINT_IEC0.setIC4IE; inline;
  50335. begin
  50336. pTDefRegMap(@Self)^.&set := $00020000;
  50337. end;
  50338. procedure TINT_IEC0.clearIC4IE; inline;
  50339. begin
  50340. pTDefRegMap(@Self)^.clr := $00020000;
  50341. end;
  50342. procedure TINT_IEC0.setIC4IE(thebits : TBits_1); inline;
  50343. begin
  50344. if thebits = 0 then
  50345. pTDefRegMap(@Self)^.clr := $00020000
  50346. else
  50347. pTDefRegMap(@Self)^.&set := $00020000;
  50348. end;
  50349. function TINT_IEC0.getIC4IE : TBits_1; inline;
  50350. begin
  50351. getIC4IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  50352. end;
  50353. procedure TINT_IEC0.setOC4IE; inline;
  50354. begin
  50355. pTDefRegMap(@Self)^.&set := $00040000;
  50356. end;
  50357. procedure TINT_IEC0.clearOC4IE; inline;
  50358. begin
  50359. pTDefRegMap(@Self)^.clr := $00040000;
  50360. end;
  50361. procedure TINT_IEC0.setOC4IE(thebits : TBits_1); inline;
  50362. begin
  50363. if thebits = 0 then
  50364. pTDefRegMap(@Self)^.clr := $00040000
  50365. else
  50366. pTDefRegMap(@Self)^.&set := $00040000;
  50367. end;
  50368. function TINT_IEC0.getOC4IE : TBits_1; inline;
  50369. begin
  50370. getOC4IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  50371. end;
  50372. procedure TINT_IEC0.setINT4IE; inline;
  50373. begin
  50374. pTDefRegMap(@Self)^.&set := $00080000;
  50375. end;
  50376. procedure TINT_IEC0.clearINT4IE; inline;
  50377. begin
  50378. pTDefRegMap(@Self)^.clr := $00080000;
  50379. end;
  50380. procedure TINT_IEC0.setINT4IE(thebits : TBits_1); inline;
  50381. begin
  50382. if thebits = 0 then
  50383. pTDefRegMap(@Self)^.clr := $00080000
  50384. else
  50385. pTDefRegMap(@Self)^.&set := $00080000;
  50386. end;
  50387. function TINT_IEC0.getINT4IE : TBits_1; inline;
  50388. begin
  50389. getINT4IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  50390. end;
  50391. procedure TINT_IEC0.setT5IE; inline;
  50392. begin
  50393. pTDefRegMap(@Self)^.&set := $00100000;
  50394. end;
  50395. procedure TINT_IEC0.clearT5IE; inline;
  50396. begin
  50397. pTDefRegMap(@Self)^.clr := $00100000;
  50398. end;
  50399. procedure TINT_IEC0.setT5IE(thebits : TBits_1); inline;
  50400. begin
  50401. if thebits = 0 then
  50402. pTDefRegMap(@Self)^.clr := $00100000
  50403. else
  50404. pTDefRegMap(@Self)^.&set := $00100000;
  50405. end;
  50406. function TINT_IEC0.getT5IE : TBits_1; inline;
  50407. begin
  50408. getT5IE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  50409. end;
  50410. procedure TINT_IEC0.setIC5IE; inline;
  50411. begin
  50412. pTDefRegMap(@Self)^.&set := $00200000;
  50413. end;
  50414. procedure TINT_IEC0.clearIC5IE; inline;
  50415. begin
  50416. pTDefRegMap(@Self)^.clr := $00200000;
  50417. end;
  50418. procedure TINT_IEC0.setIC5IE(thebits : TBits_1); inline;
  50419. begin
  50420. if thebits = 0 then
  50421. pTDefRegMap(@Self)^.clr := $00200000
  50422. else
  50423. pTDefRegMap(@Self)^.&set := $00200000;
  50424. end;
  50425. function TINT_IEC0.getIC5IE : TBits_1; inline;
  50426. begin
  50427. getIC5IE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  50428. end;
  50429. procedure TINT_IEC0.setOC5IE; inline;
  50430. begin
  50431. pTDefRegMap(@Self)^.&set := $00400000;
  50432. end;
  50433. procedure TINT_IEC0.clearOC5IE; inline;
  50434. begin
  50435. pTDefRegMap(@Self)^.clr := $00400000;
  50436. end;
  50437. procedure TINT_IEC0.setOC5IE(thebits : TBits_1); inline;
  50438. begin
  50439. if thebits = 0 then
  50440. pTDefRegMap(@Self)^.clr := $00400000
  50441. else
  50442. pTDefRegMap(@Self)^.&set := $00400000;
  50443. end;
  50444. function TINT_IEC0.getOC5IE : TBits_1; inline;
  50445. begin
  50446. getOC5IE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  50447. end;
  50448. procedure TINT_IEC0.setSPI1EIE; inline;
  50449. begin
  50450. pTDefRegMap(@Self)^.&set := $00800000;
  50451. end;
  50452. procedure TINT_IEC0.clearSPI1EIE; inline;
  50453. begin
  50454. pTDefRegMap(@Self)^.clr := $00800000;
  50455. end;
  50456. procedure TINT_IEC0.setSPI1EIE(thebits : TBits_1); inline;
  50457. begin
  50458. if thebits = 0 then
  50459. pTDefRegMap(@Self)^.clr := $00800000
  50460. else
  50461. pTDefRegMap(@Self)^.&set := $00800000;
  50462. end;
  50463. function TINT_IEC0.getSPI1EIE : TBits_1; inline;
  50464. begin
  50465. getSPI1EIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  50466. end;
  50467. procedure TINT_IEC0.setSPI1RXIE; inline;
  50468. begin
  50469. pTDefRegMap(@Self)^.&set := $01000000;
  50470. end;
  50471. procedure TINT_IEC0.clearSPI1RXIE; inline;
  50472. begin
  50473. pTDefRegMap(@Self)^.clr := $01000000;
  50474. end;
  50475. procedure TINT_IEC0.setSPI1RXIE(thebits : TBits_1); inline;
  50476. begin
  50477. if thebits = 0 then
  50478. pTDefRegMap(@Self)^.clr := $01000000
  50479. else
  50480. pTDefRegMap(@Self)^.&set := $01000000;
  50481. end;
  50482. function TINT_IEC0.getSPI1RXIE : TBits_1; inline;
  50483. begin
  50484. getSPI1RXIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  50485. end;
  50486. procedure TINT_IEC0.setSPI1TXIE; inline;
  50487. begin
  50488. pTDefRegMap(@Self)^.&set := $02000000;
  50489. end;
  50490. procedure TINT_IEC0.clearSPI1TXIE; inline;
  50491. begin
  50492. pTDefRegMap(@Self)^.clr := $02000000;
  50493. end;
  50494. procedure TINT_IEC0.setSPI1TXIE(thebits : TBits_1); inline;
  50495. begin
  50496. if thebits = 0 then
  50497. pTDefRegMap(@Self)^.clr := $02000000
  50498. else
  50499. pTDefRegMap(@Self)^.&set := $02000000;
  50500. end;
  50501. function TINT_IEC0.getSPI1TXIE : TBits_1; inline;
  50502. begin
  50503. getSPI1TXIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  50504. end;
  50505. procedure TINT_IEC0.setU1EIE; inline;
  50506. begin
  50507. pTDefRegMap(@Self)^.&set := $04000000;
  50508. end;
  50509. procedure TINT_IEC0.clearU1EIE; inline;
  50510. begin
  50511. pTDefRegMap(@Self)^.clr := $04000000;
  50512. end;
  50513. procedure TINT_IEC0.setU1EIE(thebits : TBits_1); inline;
  50514. begin
  50515. if thebits = 0 then
  50516. pTDefRegMap(@Self)^.clr := $04000000
  50517. else
  50518. pTDefRegMap(@Self)^.&set := $04000000;
  50519. end;
  50520. function TINT_IEC0.getU1EIE : TBits_1; inline;
  50521. begin
  50522. getU1EIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50523. end;
  50524. procedure TINT_IEC0.setU1RXIE; inline;
  50525. begin
  50526. pTDefRegMap(@Self)^.&set := $08000000;
  50527. end;
  50528. procedure TINT_IEC0.clearU1RXIE; inline;
  50529. begin
  50530. pTDefRegMap(@Self)^.clr := $08000000;
  50531. end;
  50532. procedure TINT_IEC0.setU1RXIE(thebits : TBits_1); inline;
  50533. begin
  50534. if thebits = 0 then
  50535. pTDefRegMap(@Self)^.clr := $08000000
  50536. else
  50537. pTDefRegMap(@Self)^.&set := $08000000;
  50538. end;
  50539. function TINT_IEC0.getU1RXIE : TBits_1; inline;
  50540. begin
  50541. getU1RXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  50542. end;
  50543. procedure TINT_IEC0.setU1TXIE; inline;
  50544. begin
  50545. pTDefRegMap(@Self)^.&set := $10000000;
  50546. end;
  50547. procedure TINT_IEC0.clearU1TXIE; inline;
  50548. begin
  50549. pTDefRegMap(@Self)^.clr := $10000000;
  50550. end;
  50551. procedure TINT_IEC0.setU1TXIE(thebits : TBits_1); inline;
  50552. begin
  50553. if thebits = 0 then
  50554. pTDefRegMap(@Self)^.clr := $10000000
  50555. else
  50556. pTDefRegMap(@Self)^.&set := $10000000;
  50557. end;
  50558. function TINT_IEC0.getU1TXIE : TBits_1; inline;
  50559. begin
  50560. getU1TXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50561. end;
  50562. procedure TINT_IEC0.setI2C1BIE; inline;
  50563. begin
  50564. pTDefRegMap(@Self)^.&set := $20000000;
  50565. end;
  50566. procedure TINT_IEC0.clearI2C1BIE; inline;
  50567. begin
  50568. pTDefRegMap(@Self)^.clr := $20000000;
  50569. end;
  50570. procedure TINT_IEC0.setI2C1BIE(thebits : TBits_1); inline;
  50571. begin
  50572. if thebits = 0 then
  50573. pTDefRegMap(@Self)^.clr := $20000000
  50574. else
  50575. pTDefRegMap(@Self)^.&set := $20000000;
  50576. end;
  50577. function TINT_IEC0.getI2C1BIE : TBits_1; inline;
  50578. begin
  50579. getI2C1BIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  50580. end;
  50581. procedure TINT_IEC0.setI2C1SIE; inline;
  50582. begin
  50583. pTDefRegMap(@Self)^.&set := $40000000;
  50584. end;
  50585. procedure TINT_IEC0.clearI2C1SIE; inline;
  50586. begin
  50587. pTDefRegMap(@Self)^.clr := $40000000;
  50588. end;
  50589. procedure TINT_IEC0.setI2C1SIE(thebits : TBits_1); inline;
  50590. begin
  50591. if thebits = 0 then
  50592. pTDefRegMap(@Self)^.clr := $40000000
  50593. else
  50594. pTDefRegMap(@Self)^.&set := $40000000;
  50595. end;
  50596. function TINT_IEC0.getI2C1SIE : TBits_1; inline;
  50597. begin
  50598. getI2C1SIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  50599. end;
  50600. procedure TINT_IEC0.setI2C1MIE; inline;
  50601. begin
  50602. pTDefRegMap(@Self)^.&set := $80000000;
  50603. end;
  50604. procedure TINT_IEC0.clearI2C1MIE; inline;
  50605. begin
  50606. pTDefRegMap(@Self)^.clr := $80000000;
  50607. end;
  50608. procedure TINT_IEC0.setI2C1MIE(thebits : TBits_1); inline;
  50609. begin
  50610. if thebits = 0 then
  50611. pTDefRegMap(@Self)^.clr := $80000000
  50612. else
  50613. pTDefRegMap(@Self)^.&set := $80000000;
  50614. end;
  50615. function TINT_IEC0.getI2C1MIE : TBits_1; inline;
  50616. begin
  50617. getI2C1MIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  50618. end;
  50619. procedure TINT_IEC0.setU1AEIE; inline;
  50620. begin
  50621. pTDefRegMap(@Self)^.&set := $04000000;
  50622. end;
  50623. procedure TINT_IEC0.clearU1AEIE; inline;
  50624. begin
  50625. pTDefRegMap(@Self)^.clr := $04000000;
  50626. end;
  50627. procedure TINT_IEC0.setU1AEIE(thebits : TBits_1); inline;
  50628. begin
  50629. if thebits = 0 then
  50630. pTDefRegMap(@Self)^.clr := $04000000
  50631. else
  50632. pTDefRegMap(@Self)^.&set := $04000000;
  50633. end;
  50634. function TINT_IEC0.getU1AEIE : TBits_1; inline;
  50635. begin
  50636. getU1AEIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50637. end;
  50638. procedure TINT_IEC0.setU1ARXIE; inline;
  50639. begin
  50640. pTDefRegMap(@Self)^.&set := $08000000;
  50641. end;
  50642. procedure TINT_IEC0.clearU1ARXIE; inline;
  50643. begin
  50644. pTDefRegMap(@Self)^.clr := $08000000;
  50645. end;
  50646. procedure TINT_IEC0.setU1ARXIE(thebits : TBits_1); inline;
  50647. begin
  50648. if thebits = 0 then
  50649. pTDefRegMap(@Self)^.clr := $08000000
  50650. else
  50651. pTDefRegMap(@Self)^.&set := $08000000;
  50652. end;
  50653. function TINT_IEC0.getU1ARXIE : TBits_1; inline;
  50654. begin
  50655. getU1ARXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  50656. end;
  50657. procedure TINT_IEC0.setU1ATXIE; inline;
  50658. begin
  50659. pTDefRegMap(@Self)^.&set := $10000000;
  50660. end;
  50661. procedure TINT_IEC0.clearU1ATXIE; inline;
  50662. begin
  50663. pTDefRegMap(@Self)^.clr := $10000000;
  50664. end;
  50665. procedure TINT_IEC0.setU1ATXIE(thebits : TBits_1); inline;
  50666. begin
  50667. if thebits = 0 then
  50668. pTDefRegMap(@Self)^.clr := $10000000
  50669. else
  50670. pTDefRegMap(@Self)^.&set := $10000000;
  50671. end;
  50672. function TINT_IEC0.getU1ATXIE : TBits_1; inline;
  50673. begin
  50674. getU1ATXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50675. end;
  50676. procedure TINT_IEC0.setSPI3EIE; inline;
  50677. begin
  50678. pTDefRegMap(@Self)^.&set := $04000000;
  50679. end;
  50680. procedure TINT_IEC0.clearSPI3EIE; inline;
  50681. begin
  50682. pTDefRegMap(@Self)^.clr := $04000000;
  50683. end;
  50684. procedure TINT_IEC0.setSPI3EIE(thebits : TBits_1); inline;
  50685. begin
  50686. if thebits = 0 then
  50687. pTDefRegMap(@Self)^.clr := $04000000
  50688. else
  50689. pTDefRegMap(@Self)^.&set := $04000000;
  50690. end;
  50691. function TINT_IEC0.getSPI3EIE : TBits_1; inline;
  50692. begin
  50693. getSPI3EIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50694. end;
  50695. procedure TINT_IEC0.setSPI3RXIE; inline;
  50696. begin
  50697. pTDefRegMap(@Self)^.&set := $08000000;
  50698. end;
  50699. procedure TINT_IEC0.clearSPI3RXIE; inline;
  50700. begin
  50701. pTDefRegMap(@Self)^.clr := $08000000;
  50702. end;
  50703. procedure TINT_IEC0.setSPI3RXIE(thebits : TBits_1); inline;
  50704. begin
  50705. if thebits = 0 then
  50706. pTDefRegMap(@Self)^.clr := $08000000
  50707. else
  50708. pTDefRegMap(@Self)^.&set := $08000000;
  50709. end;
  50710. function TINT_IEC0.getSPI3RXIE : TBits_1; inline;
  50711. begin
  50712. getSPI3RXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  50713. end;
  50714. procedure TINT_IEC0.setSPI3TXIE; inline;
  50715. begin
  50716. pTDefRegMap(@Self)^.&set := $10000000;
  50717. end;
  50718. procedure TINT_IEC0.clearSPI3TXIE; inline;
  50719. begin
  50720. pTDefRegMap(@Self)^.clr := $10000000;
  50721. end;
  50722. procedure TINT_IEC0.setSPI3TXIE(thebits : TBits_1); inline;
  50723. begin
  50724. if thebits = 0 then
  50725. pTDefRegMap(@Self)^.clr := $10000000
  50726. else
  50727. pTDefRegMap(@Self)^.&set := $10000000;
  50728. end;
  50729. function TINT_IEC0.getSPI3TXIE : TBits_1; inline;
  50730. begin
  50731. getSPI3TXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50732. end;
  50733. procedure TINT_IEC0.setSPI1AEIE; inline;
  50734. begin
  50735. pTDefRegMap(@Self)^.&set := $04000000;
  50736. end;
  50737. procedure TINT_IEC0.clearSPI1AEIE; inline;
  50738. begin
  50739. pTDefRegMap(@Self)^.clr := $04000000;
  50740. end;
  50741. procedure TINT_IEC0.setSPI1AEIE(thebits : TBits_1); inline;
  50742. begin
  50743. if thebits = 0 then
  50744. pTDefRegMap(@Self)^.clr := $04000000
  50745. else
  50746. pTDefRegMap(@Self)^.&set := $04000000;
  50747. end;
  50748. function TINT_IEC0.getSPI1AEIE : TBits_1; inline;
  50749. begin
  50750. getSPI1AEIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50751. end;
  50752. procedure TINT_IEC0.setSPI1ARXIE; inline;
  50753. begin
  50754. pTDefRegMap(@Self)^.&set := $08000000;
  50755. end;
  50756. procedure TINT_IEC0.clearSPI1ARXIE; inline;
  50757. begin
  50758. pTDefRegMap(@Self)^.clr := $08000000;
  50759. end;
  50760. procedure TINT_IEC0.setSPI1ARXIE(thebits : TBits_1); inline;
  50761. begin
  50762. if thebits = 0 then
  50763. pTDefRegMap(@Self)^.clr := $08000000
  50764. else
  50765. pTDefRegMap(@Self)^.&set := $08000000;
  50766. end;
  50767. function TINT_IEC0.getSPI1ARXIE : TBits_1; inline;
  50768. begin
  50769. getSPI1ARXIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  50770. end;
  50771. procedure TINT_IEC0.setSPI1ATXIE; inline;
  50772. begin
  50773. pTDefRegMap(@Self)^.&set := $10000000;
  50774. end;
  50775. procedure TINT_IEC0.clearSPI1ATXIE; inline;
  50776. begin
  50777. pTDefRegMap(@Self)^.clr := $10000000;
  50778. end;
  50779. procedure TINT_IEC0.setSPI1ATXIE(thebits : TBits_1); inline;
  50780. begin
  50781. if thebits = 0 then
  50782. pTDefRegMap(@Self)^.clr := $10000000
  50783. else
  50784. pTDefRegMap(@Self)^.&set := $10000000;
  50785. end;
  50786. function TINT_IEC0.getSPI1ATXIE : TBits_1; inline;
  50787. begin
  50788. getSPI1ATXIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50789. end;
  50790. procedure TINT_IEC0.setI2C3BIE; inline;
  50791. begin
  50792. pTDefRegMap(@Self)^.&set := $04000000;
  50793. end;
  50794. procedure TINT_IEC0.clearI2C3BIE; inline;
  50795. begin
  50796. pTDefRegMap(@Self)^.clr := $04000000;
  50797. end;
  50798. procedure TINT_IEC0.setI2C3BIE(thebits : TBits_1); inline;
  50799. begin
  50800. if thebits = 0 then
  50801. pTDefRegMap(@Self)^.clr := $04000000
  50802. else
  50803. pTDefRegMap(@Self)^.&set := $04000000;
  50804. end;
  50805. function TINT_IEC0.getI2C3BIE : TBits_1; inline;
  50806. begin
  50807. getI2C3BIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50808. end;
  50809. procedure TINT_IEC0.setI2C3SIE; inline;
  50810. begin
  50811. pTDefRegMap(@Self)^.&set := $08000000;
  50812. end;
  50813. procedure TINT_IEC0.clearI2C3SIE; inline;
  50814. begin
  50815. pTDefRegMap(@Self)^.clr := $08000000;
  50816. end;
  50817. procedure TINT_IEC0.setI2C3SIE(thebits : TBits_1); inline;
  50818. begin
  50819. if thebits = 0 then
  50820. pTDefRegMap(@Self)^.clr := $08000000
  50821. else
  50822. pTDefRegMap(@Self)^.&set := $08000000;
  50823. end;
  50824. function TINT_IEC0.getI2C3SIE : TBits_1; inline;
  50825. begin
  50826. getI2C3SIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  50827. end;
  50828. procedure TINT_IEC0.setI2C3MIE; inline;
  50829. begin
  50830. pTDefRegMap(@Self)^.&set := $10000000;
  50831. end;
  50832. procedure TINT_IEC0.clearI2C3MIE; inline;
  50833. begin
  50834. pTDefRegMap(@Self)^.clr := $10000000;
  50835. end;
  50836. procedure TINT_IEC0.setI2C3MIE(thebits : TBits_1); inline;
  50837. begin
  50838. if thebits = 0 then
  50839. pTDefRegMap(@Self)^.clr := $10000000
  50840. else
  50841. pTDefRegMap(@Self)^.&set := $10000000;
  50842. end;
  50843. function TINT_IEC0.getI2C3MIE : TBits_1; inline;
  50844. begin
  50845. getI2C3MIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50846. end;
  50847. procedure TINT_IEC0.setI2C1ABIE; inline;
  50848. begin
  50849. pTDefRegMap(@Self)^.&set := $04000000;
  50850. end;
  50851. procedure TINT_IEC0.clearI2C1ABIE; inline;
  50852. begin
  50853. pTDefRegMap(@Self)^.clr := $04000000;
  50854. end;
  50855. procedure TINT_IEC0.setI2C1ABIE(thebits : TBits_1); inline;
  50856. begin
  50857. if thebits = 0 then
  50858. pTDefRegMap(@Self)^.clr := $04000000
  50859. else
  50860. pTDefRegMap(@Self)^.&set := $04000000;
  50861. end;
  50862. function TINT_IEC0.getI2C1ABIE : TBits_1; inline;
  50863. begin
  50864. getI2C1ABIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  50865. end;
  50866. procedure TINT_IEC0.setI2C1ASIE; inline;
  50867. begin
  50868. pTDefRegMap(@Self)^.&set := $08000000;
  50869. end;
  50870. procedure TINT_IEC0.clearI2C1ASIE; inline;
  50871. begin
  50872. pTDefRegMap(@Self)^.clr := $08000000;
  50873. end;
  50874. procedure TINT_IEC0.setI2C1ASIE(thebits : TBits_1); inline;
  50875. begin
  50876. if thebits = 0 then
  50877. pTDefRegMap(@Self)^.clr := $08000000
  50878. else
  50879. pTDefRegMap(@Self)^.&set := $08000000;
  50880. end;
  50881. function TINT_IEC0.getI2C1ASIE : TBits_1; inline;
  50882. begin
  50883. getI2C1ASIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  50884. end;
  50885. procedure TINT_IEC0.setI2C1AMIE; inline;
  50886. begin
  50887. pTDefRegMap(@Self)^.&set := $10000000;
  50888. end;
  50889. procedure TINT_IEC0.clearI2C1AMIE; inline;
  50890. begin
  50891. pTDefRegMap(@Self)^.clr := $10000000;
  50892. end;
  50893. procedure TINT_IEC0.setI2C1AMIE(thebits : TBits_1); inline;
  50894. begin
  50895. if thebits = 0 then
  50896. pTDefRegMap(@Self)^.clr := $10000000
  50897. else
  50898. pTDefRegMap(@Self)^.&set := $10000000;
  50899. end;
  50900. function TINT_IEC0.getI2C1AMIE : TBits_1; inline;
  50901. begin
  50902. getI2C1AMIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  50903. end;
  50904. procedure TINT_IEC0.setw(thebits : TBits_32); inline;
  50905. begin
  50906. pTDefRegMap(@Self)^.val := thebits;
  50907. end;
  50908. function TINT_IEC0.getw : TBits_32; inline;
  50909. begin
  50910. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  50911. end;
  50912. procedure TINT_IEC1.setCNIE; inline;
  50913. begin
  50914. pTDefRegMap(@Self)^.&set := $00000001;
  50915. end;
  50916. procedure TINT_IEC1.clearCNIE; inline;
  50917. begin
  50918. pTDefRegMap(@Self)^.clr := $00000001;
  50919. end;
  50920. procedure TINT_IEC1.setCNIE(thebits : TBits_1); inline;
  50921. begin
  50922. if thebits = 0 then
  50923. pTDefRegMap(@Self)^.clr := $00000001
  50924. else
  50925. pTDefRegMap(@Self)^.&set := $00000001;
  50926. end;
  50927. function TINT_IEC1.getCNIE : TBits_1; inline;
  50928. begin
  50929. getCNIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  50930. end;
  50931. procedure TINT_IEC1.setAD1IE; inline;
  50932. begin
  50933. pTDefRegMap(@Self)^.&set := $00000002;
  50934. end;
  50935. procedure TINT_IEC1.clearAD1IE; inline;
  50936. begin
  50937. pTDefRegMap(@Self)^.clr := $00000002;
  50938. end;
  50939. procedure TINT_IEC1.setAD1IE(thebits : TBits_1); inline;
  50940. begin
  50941. if thebits = 0 then
  50942. pTDefRegMap(@Self)^.clr := $00000002
  50943. else
  50944. pTDefRegMap(@Self)^.&set := $00000002;
  50945. end;
  50946. function TINT_IEC1.getAD1IE : TBits_1; inline;
  50947. begin
  50948. getAD1IE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  50949. end;
  50950. procedure TINT_IEC1.setPMPIE; inline;
  50951. begin
  50952. pTDefRegMap(@Self)^.&set := $00000004;
  50953. end;
  50954. procedure TINT_IEC1.clearPMPIE; inline;
  50955. begin
  50956. pTDefRegMap(@Self)^.clr := $00000004;
  50957. end;
  50958. procedure TINT_IEC1.setPMPIE(thebits : TBits_1); inline;
  50959. begin
  50960. if thebits = 0 then
  50961. pTDefRegMap(@Self)^.clr := $00000004
  50962. else
  50963. pTDefRegMap(@Self)^.&set := $00000004;
  50964. end;
  50965. function TINT_IEC1.getPMPIE : TBits_1; inline;
  50966. begin
  50967. getPMPIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  50968. end;
  50969. procedure TINT_IEC1.setCMP1IE; inline;
  50970. begin
  50971. pTDefRegMap(@Self)^.&set := $00000008;
  50972. end;
  50973. procedure TINT_IEC1.clearCMP1IE; inline;
  50974. begin
  50975. pTDefRegMap(@Self)^.clr := $00000008;
  50976. end;
  50977. procedure TINT_IEC1.setCMP1IE(thebits : TBits_1); inline;
  50978. begin
  50979. if thebits = 0 then
  50980. pTDefRegMap(@Self)^.clr := $00000008
  50981. else
  50982. pTDefRegMap(@Self)^.&set := $00000008;
  50983. end;
  50984. function TINT_IEC1.getCMP1IE : TBits_1; inline;
  50985. begin
  50986. getCMP1IE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  50987. end;
  50988. procedure TINT_IEC1.setCMP2IE; inline;
  50989. begin
  50990. pTDefRegMap(@Self)^.&set := $00000010;
  50991. end;
  50992. procedure TINT_IEC1.clearCMP2IE; inline;
  50993. begin
  50994. pTDefRegMap(@Self)^.clr := $00000010;
  50995. end;
  50996. procedure TINT_IEC1.setCMP2IE(thebits : TBits_1); inline;
  50997. begin
  50998. if thebits = 0 then
  50999. pTDefRegMap(@Self)^.clr := $00000010
  51000. else
  51001. pTDefRegMap(@Self)^.&set := $00000010;
  51002. end;
  51003. function TINT_IEC1.getCMP2IE : TBits_1; inline;
  51004. begin
  51005. getCMP2IE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  51006. end;
  51007. procedure TINT_IEC1.setU3EIE; inline;
  51008. begin
  51009. pTDefRegMap(@Self)^.&set := $00000020;
  51010. end;
  51011. procedure TINT_IEC1.clearU3EIE; inline;
  51012. begin
  51013. pTDefRegMap(@Self)^.clr := $00000020;
  51014. end;
  51015. procedure TINT_IEC1.setU3EIE(thebits : TBits_1); inline;
  51016. begin
  51017. if thebits = 0 then
  51018. pTDefRegMap(@Self)^.clr := $00000020
  51019. else
  51020. pTDefRegMap(@Self)^.&set := $00000020;
  51021. end;
  51022. function TINT_IEC1.getU3EIE : TBits_1; inline;
  51023. begin
  51024. getU3EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51025. end;
  51026. procedure TINT_IEC1.setU3RXIE; inline;
  51027. begin
  51028. pTDefRegMap(@Self)^.&set := $00000040;
  51029. end;
  51030. procedure TINT_IEC1.clearU3RXIE; inline;
  51031. begin
  51032. pTDefRegMap(@Self)^.clr := $00000040;
  51033. end;
  51034. procedure TINT_IEC1.setU3RXIE(thebits : TBits_1); inline;
  51035. begin
  51036. if thebits = 0 then
  51037. pTDefRegMap(@Self)^.clr := $00000040
  51038. else
  51039. pTDefRegMap(@Self)^.&set := $00000040;
  51040. end;
  51041. function TINT_IEC1.getU3RXIE : TBits_1; inline;
  51042. begin
  51043. getU3RXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51044. end;
  51045. procedure TINT_IEC1.setU3TXIE; inline;
  51046. begin
  51047. pTDefRegMap(@Self)^.&set := $00000080;
  51048. end;
  51049. procedure TINT_IEC1.clearU3TXIE; inline;
  51050. begin
  51051. pTDefRegMap(@Self)^.clr := $00000080;
  51052. end;
  51053. procedure TINT_IEC1.setU3TXIE(thebits : TBits_1); inline;
  51054. begin
  51055. if thebits = 0 then
  51056. pTDefRegMap(@Self)^.clr := $00000080
  51057. else
  51058. pTDefRegMap(@Self)^.&set := $00000080;
  51059. end;
  51060. function TINT_IEC1.getU3TXIE : TBits_1; inline;
  51061. begin
  51062. getU3TXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51063. end;
  51064. procedure TINT_IEC1.setU2EIE; inline;
  51065. begin
  51066. pTDefRegMap(@Self)^.&set := $00000100;
  51067. end;
  51068. procedure TINT_IEC1.clearU2EIE; inline;
  51069. begin
  51070. pTDefRegMap(@Self)^.clr := $00000100;
  51071. end;
  51072. procedure TINT_IEC1.setU2EIE(thebits : TBits_1); inline;
  51073. begin
  51074. if thebits = 0 then
  51075. pTDefRegMap(@Self)^.clr := $00000100
  51076. else
  51077. pTDefRegMap(@Self)^.&set := $00000100;
  51078. end;
  51079. function TINT_IEC1.getU2EIE : TBits_1; inline;
  51080. begin
  51081. getU2EIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51082. end;
  51083. procedure TINT_IEC1.setU2RXIE; inline;
  51084. begin
  51085. pTDefRegMap(@Self)^.&set := $00000200;
  51086. end;
  51087. procedure TINT_IEC1.clearU2RXIE; inline;
  51088. begin
  51089. pTDefRegMap(@Self)^.clr := $00000200;
  51090. end;
  51091. procedure TINT_IEC1.setU2RXIE(thebits : TBits_1); inline;
  51092. begin
  51093. if thebits = 0 then
  51094. pTDefRegMap(@Self)^.clr := $00000200
  51095. else
  51096. pTDefRegMap(@Self)^.&set := $00000200;
  51097. end;
  51098. function TINT_IEC1.getU2RXIE : TBits_1; inline;
  51099. begin
  51100. getU2RXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51101. end;
  51102. procedure TINT_IEC1.setU2TXIE; inline;
  51103. begin
  51104. pTDefRegMap(@Self)^.&set := $00000400;
  51105. end;
  51106. procedure TINT_IEC1.clearU2TXIE; inline;
  51107. begin
  51108. pTDefRegMap(@Self)^.clr := $00000400;
  51109. end;
  51110. procedure TINT_IEC1.setU2TXIE(thebits : TBits_1); inline;
  51111. begin
  51112. if thebits = 0 then
  51113. pTDefRegMap(@Self)^.clr := $00000400
  51114. else
  51115. pTDefRegMap(@Self)^.&set := $00000400;
  51116. end;
  51117. function TINT_IEC1.getU2TXIE : TBits_1; inline;
  51118. begin
  51119. getU2TXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51120. end;
  51121. procedure TINT_IEC1.setI2C2BIE; inline;
  51122. begin
  51123. pTDefRegMap(@Self)^.&set := $00000800;
  51124. end;
  51125. procedure TINT_IEC1.clearI2C2BIE; inline;
  51126. begin
  51127. pTDefRegMap(@Self)^.clr := $00000800;
  51128. end;
  51129. procedure TINT_IEC1.setI2C2BIE(thebits : TBits_1); inline;
  51130. begin
  51131. if thebits = 0 then
  51132. pTDefRegMap(@Self)^.clr := $00000800
  51133. else
  51134. pTDefRegMap(@Self)^.&set := $00000800;
  51135. end;
  51136. function TINT_IEC1.getI2C2BIE : TBits_1; inline;
  51137. begin
  51138. getI2C2BIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  51139. end;
  51140. procedure TINT_IEC1.setI2C2SIE; inline;
  51141. begin
  51142. pTDefRegMap(@Self)^.&set := $00001000;
  51143. end;
  51144. procedure TINT_IEC1.clearI2C2SIE; inline;
  51145. begin
  51146. pTDefRegMap(@Self)^.clr := $00001000;
  51147. end;
  51148. procedure TINT_IEC1.setI2C2SIE(thebits : TBits_1); inline;
  51149. begin
  51150. if thebits = 0 then
  51151. pTDefRegMap(@Self)^.clr := $00001000
  51152. else
  51153. pTDefRegMap(@Self)^.&set := $00001000;
  51154. end;
  51155. function TINT_IEC1.getI2C2SIE : TBits_1; inline;
  51156. begin
  51157. getI2C2SIE := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  51158. end;
  51159. procedure TINT_IEC1.setI2C2MIE; inline;
  51160. begin
  51161. pTDefRegMap(@Self)^.&set := $00002000;
  51162. end;
  51163. procedure TINT_IEC1.clearI2C2MIE; inline;
  51164. begin
  51165. pTDefRegMap(@Self)^.clr := $00002000;
  51166. end;
  51167. procedure TINT_IEC1.setI2C2MIE(thebits : TBits_1); inline;
  51168. begin
  51169. if thebits = 0 then
  51170. pTDefRegMap(@Self)^.clr := $00002000
  51171. else
  51172. pTDefRegMap(@Self)^.&set := $00002000;
  51173. end;
  51174. function TINT_IEC1.getI2C2MIE : TBits_1; inline;
  51175. begin
  51176. getI2C2MIE := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  51177. end;
  51178. procedure TINT_IEC1.setFSCMIE; inline;
  51179. begin
  51180. pTDefRegMap(@Self)^.&set := $00004000;
  51181. end;
  51182. procedure TINT_IEC1.clearFSCMIE; inline;
  51183. begin
  51184. pTDefRegMap(@Self)^.clr := $00004000;
  51185. end;
  51186. procedure TINT_IEC1.setFSCMIE(thebits : TBits_1); inline;
  51187. begin
  51188. if thebits = 0 then
  51189. pTDefRegMap(@Self)^.clr := $00004000
  51190. else
  51191. pTDefRegMap(@Self)^.&set := $00004000;
  51192. end;
  51193. function TINT_IEC1.getFSCMIE : TBits_1; inline;
  51194. begin
  51195. getFSCMIE := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  51196. end;
  51197. procedure TINT_IEC1.setRTCCIE; inline;
  51198. begin
  51199. pTDefRegMap(@Self)^.&set := $00008000;
  51200. end;
  51201. procedure TINT_IEC1.clearRTCCIE; inline;
  51202. begin
  51203. pTDefRegMap(@Self)^.clr := $00008000;
  51204. end;
  51205. procedure TINT_IEC1.setRTCCIE(thebits : TBits_1); inline;
  51206. begin
  51207. if thebits = 0 then
  51208. pTDefRegMap(@Self)^.clr := $00008000
  51209. else
  51210. pTDefRegMap(@Self)^.&set := $00008000;
  51211. end;
  51212. function TINT_IEC1.getRTCCIE : TBits_1; inline;
  51213. begin
  51214. getRTCCIE := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  51215. end;
  51216. procedure TINT_IEC1.setDMA0IE; inline;
  51217. begin
  51218. pTDefRegMap(@Self)^.&set := $00010000;
  51219. end;
  51220. procedure TINT_IEC1.clearDMA0IE; inline;
  51221. begin
  51222. pTDefRegMap(@Self)^.clr := $00010000;
  51223. end;
  51224. procedure TINT_IEC1.setDMA0IE(thebits : TBits_1); inline;
  51225. begin
  51226. if thebits = 0 then
  51227. pTDefRegMap(@Self)^.clr := $00010000
  51228. else
  51229. pTDefRegMap(@Self)^.&set := $00010000;
  51230. end;
  51231. function TINT_IEC1.getDMA0IE : TBits_1; inline;
  51232. begin
  51233. getDMA0IE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  51234. end;
  51235. procedure TINT_IEC1.setDMA1IE; inline;
  51236. begin
  51237. pTDefRegMap(@Self)^.&set := $00020000;
  51238. end;
  51239. procedure TINT_IEC1.clearDMA1IE; inline;
  51240. begin
  51241. pTDefRegMap(@Self)^.clr := $00020000;
  51242. end;
  51243. procedure TINT_IEC1.setDMA1IE(thebits : TBits_1); inline;
  51244. begin
  51245. if thebits = 0 then
  51246. pTDefRegMap(@Self)^.clr := $00020000
  51247. else
  51248. pTDefRegMap(@Self)^.&set := $00020000;
  51249. end;
  51250. function TINT_IEC1.getDMA1IE : TBits_1; inline;
  51251. begin
  51252. getDMA1IE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  51253. end;
  51254. procedure TINT_IEC1.setDMA2IE; inline;
  51255. begin
  51256. pTDefRegMap(@Self)^.&set := $00040000;
  51257. end;
  51258. procedure TINT_IEC1.clearDMA2IE; inline;
  51259. begin
  51260. pTDefRegMap(@Self)^.clr := $00040000;
  51261. end;
  51262. procedure TINT_IEC1.setDMA2IE(thebits : TBits_1); inline;
  51263. begin
  51264. if thebits = 0 then
  51265. pTDefRegMap(@Self)^.clr := $00040000
  51266. else
  51267. pTDefRegMap(@Self)^.&set := $00040000;
  51268. end;
  51269. function TINT_IEC1.getDMA2IE : TBits_1; inline;
  51270. begin
  51271. getDMA2IE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  51272. end;
  51273. procedure TINT_IEC1.setDMA3IE; inline;
  51274. begin
  51275. pTDefRegMap(@Self)^.&set := $00080000;
  51276. end;
  51277. procedure TINT_IEC1.clearDMA3IE; inline;
  51278. begin
  51279. pTDefRegMap(@Self)^.clr := $00080000;
  51280. end;
  51281. procedure TINT_IEC1.setDMA3IE(thebits : TBits_1); inline;
  51282. begin
  51283. if thebits = 0 then
  51284. pTDefRegMap(@Self)^.clr := $00080000
  51285. else
  51286. pTDefRegMap(@Self)^.&set := $00080000;
  51287. end;
  51288. function TINT_IEC1.getDMA3IE : TBits_1; inline;
  51289. begin
  51290. getDMA3IE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  51291. end;
  51292. procedure TINT_IEC1.setFCEIE; inline;
  51293. begin
  51294. pTDefRegMap(@Self)^.&set := $01000000;
  51295. end;
  51296. procedure TINT_IEC1.clearFCEIE; inline;
  51297. begin
  51298. pTDefRegMap(@Self)^.clr := $01000000;
  51299. end;
  51300. procedure TINT_IEC1.setFCEIE(thebits : TBits_1); inline;
  51301. begin
  51302. if thebits = 0 then
  51303. pTDefRegMap(@Self)^.clr := $01000000
  51304. else
  51305. pTDefRegMap(@Self)^.&set := $01000000;
  51306. end;
  51307. function TINT_IEC1.getFCEIE : TBits_1; inline;
  51308. begin
  51309. getFCEIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  51310. end;
  51311. procedure TINT_IEC1.setUSBIE; inline;
  51312. begin
  51313. pTDefRegMap(@Self)^.&set := $02000000;
  51314. end;
  51315. procedure TINT_IEC1.clearUSBIE; inline;
  51316. begin
  51317. pTDefRegMap(@Self)^.clr := $02000000;
  51318. end;
  51319. procedure TINT_IEC1.setUSBIE(thebits : TBits_1); inline;
  51320. begin
  51321. if thebits = 0 then
  51322. pTDefRegMap(@Self)^.clr := $02000000
  51323. else
  51324. pTDefRegMap(@Self)^.&set := $02000000;
  51325. end;
  51326. function TINT_IEC1.getUSBIE : TBits_1; inline;
  51327. begin
  51328. getUSBIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  51329. end;
  51330. procedure TINT_IEC1.setCAN1IE; inline;
  51331. begin
  51332. pTDefRegMap(@Self)^.&set := $04000000;
  51333. end;
  51334. procedure TINT_IEC1.clearCAN1IE; inline;
  51335. begin
  51336. pTDefRegMap(@Self)^.clr := $04000000;
  51337. end;
  51338. procedure TINT_IEC1.setCAN1IE(thebits : TBits_1); inline;
  51339. begin
  51340. if thebits = 0 then
  51341. pTDefRegMap(@Self)^.clr := $04000000
  51342. else
  51343. pTDefRegMap(@Self)^.&set := $04000000;
  51344. end;
  51345. function TINT_IEC1.getCAN1IE : TBits_1; inline;
  51346. begin
  51347. getCAN1IE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  51348. end;
  51349. procedure TINT_IEC1.setIC1EIE; inline;
  51350. begin
  51351. pTDefRegMap(@Self)^.&set := $20000000;
  51352. end;
  51353. procedure TINT_IEC1.clearIC1EIE; inline;
  51354. begin
  51355. pTDefRegMap(@Self)^.clr := $20000000;
  51356. end;
  51357. procedure TINT_IEC1.setIC1EIE(thebits : TBits_1); inline;
  51358. begin
  51359. if thebits = 0 then
  51360. pTDefRegMap(@Self)^.clr := $20000000
  51361. else
  51362. pTDefRegMap(@Self)^.&set := $20000000;
  51363. end;
  51364. function TINT_IEC1.getIC1EIE : TBits_1; inline;
  51365. begin
  51366. getIC1EIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  51367. end;
  51368. procedure TINT_IEC1.setIC2EIE; inline;
  51369. begin
  51370. pTDefRegMap(@Self)^.&set := $40000000;
  51371. end;
  51372. procedure TINT_IEC1.clearIC2EIE; inline;
  51373. begin
  51374. pTDefRegMap(@Self)^.clr := $40000000;
  51375. end;
  51376. procedure TINT_IEC1.setIC2EIE(thebits : TBits_1); inline;
  51377. begin
  51378. if thebits = 0 then
  51379. pTDefRegMap(@Self)^.clr := $40000000
  51380. else
  51381. pTDefRegMap(@Self)^.&set := $40000000;
  51382. end;
  51383. function TINT_IEC1.getIC2EIE : TBits_1; inline;
  51384. begin
  51385. getIC2EIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  51386. end;
  51387. procedure TINT_IEC1.setIC3EIE; inline;
  51388. begin
  51389. pTDefRegMap(@Self)^.&set := $80000000;
  51390. end;
  51391. procedure TINT_IEC1.clearIC3EIE; inline;
  51392. begin
  51393. pTDefRegMap(@Self)^.clr := $80000000;
  51394. end;
  51395. procedure TINT_IEC1.setIC3EIE(thebits : TBits_1); inline;
  51396. begin
  51397. if thebits = 0 then
  51398. pTDefRegMap(@Self)^.clr := $80000000
  51399. else
  51400. pTDefRegMap(@Self)^.&set := $80000000;
  51401. end;
  51402. function TINT_IEC1.getIC3EIE : TBits_1; inline;
  51403. begin
  51404. getIC3EIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  51405. end;
  51406. procedure TINT_IEC1.setU2AEIE; inline;
  51407. begin
  51408. pTDefRegMap(@Self)^.&set := $00000020;
  51409. end;
  51410. procedure TINT_IEC1.clearU2AEIE; inline;
  51411. begin
  51412. pTDefRegMap(@Self)^.clr := $00000020;
  51413. end;
  51414. procedure TINT_IEC1.setU2AEIE(thebits : TBits_1); inline;
  51415. begin
  51416. if thebits = 0 then
  51417. pTDefRegMap(@Self)^.clr := $00000020
  51418. else
  51419. pTDefRegMap(@Self)^.&set := $00000020;
  51420. end;
  51421. function TINT_IEC1.getU2AEIE : TBits_1; inline;
  51422. begin
  51423. getU2AEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51424. end;
  51425. procedure TINT_IEC1.setU2ARXIE; inline;
  51426. begin
  51427. pTDefRegMap(@Self)^.&set := $00000040;
  51428. end;
  51429. procedure TINT_IEC1.clearU2ARXIE; inline;
  51430. begin
  51431. pTDefRegMap(@Self)^.clr := $00000040;
  51432. end;
  51433. procedure TINT_IEC1.setU2ARXIE(thebits : TBits_1); inline;
  51434. begin
  51435. if thebits = 0 then
  51436. pTDefRegMap(@Self)^.clr := $00000040
  51437. else
  51438. pTDefRegMap(@Self)^.&set := $00000040;
  51439. end;
  51440. function TINT_IEC1.getU2ARXIE : TBits_1; inline;
  51441. begin
  51442. getU2ARXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51443. end;
  51444. procedure TINT_IEC1.setU2ATXIE; inline;
  51445. begin
  51446. pTDefRegMap(@Self)^.&set := $00000080;
  51447. end;
  51448. procedure TINT_IEC1.clearU2ATXIE; inline;
  51449. begin
  51450. pTDefRegMap(@Self)^.clr := $00000080;
  51451. end;
  51452. procedure TINT_IEC1.setU2ATXIE(thebits : TBits_1); inline;
  51453. begin
  51454. if thebits = 0 then
  51455. pTDefRegMap(@Self)^.clr := $00000080
  51456. else
  51457. pTDefRegMap(@Self)^.&set := $00000080;
  51458. end;
  51459. function TINT_IEC1.getU2ATXIE : TBits_1; inline;
  51460. begin
  51461. getU2ATXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51462. end;
  51463. procedure TINT_IEC1.setU3AEIE; inline;
  51464. begin
  51465. pTDefRegMap(@Self)^.&set := $00000100;
  51466. end;
  51467. procedure TINT_IEC1.clearU3AEIE; inline;
  51468. begin
  51469. pTDefRegMap(@Self)^.clr := $00000100;
  51470. end;
  51471. procedure TINT_IEC1.setU3AEIE(thebits : TBits_1); inline;
  51472. begin
  51473. if thebits = 0 then
  51474. pTDefRegMap(@Self)^.clr := $00000100
  51475. else
  51476. pTDefRegMap(@Self)^.&set := $00000100;
  51477. end;
  51478. function TINT_IEC1.getU3AEIE : TBits_1; inline;
  51479. begin
  51480. getU3AEIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51481. end;
  51482. procedure TINT_IEC1.setU3ARXIE; inline;
  51483. begin
  51484. pTDefRegMap(@Self)^.&set := $00000200;
  51485. end;
  51486. procedure TINT_IEC1.clearU3ARXIE; inline;
  51487. begin
  51488. pTDefRegMap(@Self)^.clr := $00000200;
  51489. end;
  51490. procedure TINT_IEC1.setU3ARXIE(thebits : TBits_1); inline;
  51491. begin
  51492. if thebits = 0 then
  51493. pTDefRegMap(@Self)^.clr := $00000200
  51494. else
  51495. pTDefRegMap(@Self)^.&set := $00000200;
  51496. end;
  51497. function TINT_IEC1.getU3ARXIE : TBits_1; inline;
  51498. begin
  51499. getU3ARXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51500. end;
  51501. procedure TINT_IEC1.setU3ATXIE; inline;
  51502. begin
  51503. pTDefRegMap(@Self)^.&set := $00000400;
  51504. end;
  51505. procedure TINT_IEC1.clearU3ATXIE; inline;
  51506. begin
  51507. pTDefRegMap(@Self)^.clr := $00000400;
  51508. end;
  51509. procedure TINT_IEC1.setU3ATXIE(thebits : TBits_1); inline;
  51510. begin
  51511. if thebits = 0 then
  51512. pTDefRegMap(@Self)^.clr := $00000400
  51513. else
  51514. pTDefRegMap(@Self)^.&set := $00000400;
  51515. end;
  51516. function TINT_IEC1.getU3ATXIE : TBits_1; inline;
  51517. begin
  51518. getU3ATXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51519. end;
  51520. procedure TINT_IEC1.setSPI2EIE; inline;
  51521. begin
  51522. pTDefRegMap(@Self)^.&set := $00000020;
  51523. end;
  51524. procedure TINT_IEC1.clearSPI2EIE; inline;
  51525. begin
  51526. pTDefRegMap(@Self)^.clr := $00000020;
  51527. end;
  51528. procedure TINT_IEC1.setSPI2EIE(thebits : TBits_1); inline;
  51529. begin
  51530. if thebits = 0 then
  51531. pTDefRegMap(@Self)^.clr := $00000020
  51532. else
  51533. pTDefRegMap(@Self)^.&set := $00000020;
  51534. end;
  51535. function TINT_IEC1.getSPI2EIE : TBits_1; inline;
  51536. begin
  51537. getSPI2EIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51538. end;
  51539. procedure TINT_IEC1.setSPI2RXIE; inline;
  51540. begin
  51541. pTDefRegMap(@Self)^.&set := $00000040;
  51542. end;
  51543. procedure TINT_IEC1.clearSPI2RXIE; inline;
  51544. begin
  51545. pTDefRegMap(@Self)^.clr := $00000040;
  51546. end;
  51547. procedure TINT_IEC1.setSPI2RXIE(thebits : TBits_1); inline;
  51548. begin
  51549. if thebits = 0 then
  51550. pTDefRegMap(@Self)^.clr := $00000040
  51551. else
  51552. pTDefRegMap(@Self)^.&set := $00000040;
  51553. end;
  51554. function TINT_IEC1.getSPI2RXIE : TBits_1; inline;
  51555. begin
  51556. getSPI2RXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51557. end;
  51558. procedure TINT_IEC1.setSPI2TXIE; inline;
  51559. begin
  51560. pTDefRegMap(@Self)^.&set := $00000080;
  51561. end;
  51562. procedure TINT_IEC1.clearSPI2TXIE; inline;
  51563. begin
  51564. pTDefRegMap(@Self)^.clr := $00000080;
  51565. end;
  51566. procedure TINT_IEC1.setSPI2TXIE(thebits : TBits_1); inline;
  51567. begin
  51568. if thebits = 0 then
  51569. pTDefRegMap(@Self)^.clr := $00000080
  51570. else
  51571. pTDefRegMap(@Self)^.&set := $00000080;
  51572. end;
  51573. function TINT_IEC1.getSPI2TXIE : TBits_1; inline;
  51574. begin
  51575. getSPI2TXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51576. end;
  51577. procedure TINT_IEC1.setSPI4EIE; inline;
  51578. begin
  51579. pTDefRegMap(@Self)^.&set := $00000100;
  51580. end;
  51581. procedure TINT_IEC1.clearSPI4EIE; inline;
  51582. begin
  51583. pTDefRegMap(@Self)^.clr := $00000100;
  51584. end;
  51585. procedure TINT_IEC1.setSPI4EIE(thebits : TBits_1); inline;
  51586. begin
  51587. if thebits = 0 then
  51588. pTDefRegMap(@Self)^.clr := $00000100
  51589. else
  51590. pTDefRegMap(@Self)^.&set := $00000100;
  51591. end;
  51592. function TINT_IEC1.getSPI4EIE : TBits_1; inline;
  51593. begin
  51594. getSPI4EIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51595. end;
  51596. procedure TINT_IEC1.setSPI4RXIE; inline;
  51597. begin
  51598. pTDefRegMap(@Self)^.&set := $00000200;
  51599. end;
  51600. procedure TINT_IEC1.clearSPI4RXIE; inline;
  51601. begin
  51602. pTDefRegMap(@Self)^.clr := $00000200;
  51603. end;
  51604. procedure TINT_IEC1.setSPI4RXIE(thebits : TBits_1); inline;
  51605. begin
  51606. if thebits = 0 then
  51607. pTDefRegMap(@Self)^.clr := $00000200
  51608. else
  51609. pTDefRegMap(@Self)^.&set := $00000200;
  51610. end;
  51611. function TINT_IEC1.getSPI4RXIE : TBits_1; inline;
  51612. begin
  51613. getSPI4RXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51614. end;
  51615. procedure TINT_IEC1.setSPI4TXIE; inline;
  51616. begin
  51617. pTDefRegMap(@Self)^.&set := $00000400;
  51618. end;
  51619. procedure TINT_IEC1.clearSPI4TXIE; inline;
  51620. begin
  51621. pTDefRegMap(@Self)^.clr := $00000400;
  51622. end;
  51623. procedure TINT_IEC1.setSPI4TXIE(thebits : TBits_1); inline;
  51624. begin
  51625. if thebits = 0 then
  51626. pTDefRegMap(@Self)^.clr := $00000400
  51627. else
  51628. pTDefRegMap(@Self)^.&set := $00000400;
  51629. end;
  51630. function TINT_IEC1.getSPI4TXIE : TBits_1; inline;
  51631. begin
  51632. getSPI4TXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51633. end;
  51634. procedure TINT_IEC1.setSPI2AEIE; inline;
  51635. begin
  51636. pTDefRegMap(@Self)^.&set := $00000020;
  51637. end;
  51638. procedure TINT_IEC1.clearSPI2AEIE; inline;
  51639. begin
  51640. pTDefRegMap(@Self)^.clr := $00000020;
  51641. end;
  51642. procedure TINT_IEC1.setSPI2AEIE(thebits : TBits_1); inline;
  51643. begin
  51644. if thebits = 0 then
  51645. pTDefRegMap(@Self)^.clr := $00000020
  51646. else
  51647. pTDefRegMap(@Self)^.&set := $00000020;
  51648. end;
  51649. function TINT_IEC1.getSPI2AEIE : TBits_1; inline;
  51650. begin
  51651. getSPI2AEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51652. end;
  51653. procedure TINT_IEC1.setSPI2ARXIE; inline;
  51654. begin
  51655. pTDefRegMap(@Self)^.&set := $00000040;
  51656. end;
  51657. procedure TINT_IEC1.clearSPI2ARXIE; inline;
  51658. begin
  51659. pTDefRegMap(@Self)^.clr := $00000040;
  51660. end;
  51661. procedure TINT_IEC1.setSPI2ARXIE(thebits : TBits_1); inline;
  51662. begin
  51663. if thebits = 0 then
  51664. pTDefRegMap(@Self)^.clr := $00000040
  51665. else
  51666. pTDefRegMap(@Self)^.&set := $00000040;
  51667. end;
  51668. function TINT_IEC1.getSPI2ARXIE : TBits_1; inline;
  51669. begin
  51670. getSPI2ARXIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51671. end;
  51672. procedure TINT_IEC1.setSPI2ATXIE; inline;
  51673. begin
  51674. pTDefRegMap(@Self)^.&set := $00000080;
  51675. end;
  51676. procedure TINT_IEC1.clearSPI2ATXIE; inline;
  51677. begin
  51678. pTDefRegMap(@Self)^.clr := $00000080;
  51679. end;
  51680. procedure TINT_IEC1.setSPI2ATXIE(thebits : TBits_1); inline;
  51681. begin
  51682. if thebits = 0 then
  51683. pTDefRegMap(@Self)^.clr := $00000080
  51684. else
  51685. pTDefRegMap(@Self)^.&set := $00000080;
  51686. end;
  51687. function TINT_IEC1.getSPI2ATXIE : TBits_1; inline;
  51688. begin
  51689. getSPI2ATXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51690. end;
  51691. procedure TINT_IEC1.setSPI3AEIE; inline;
  51692. begin
  51693. pTDefRegMap(@Self)^.&set := $00000100;
  51694. end;
  51695. procedure TINT_IEC1.clearSPI3AEIE; inline;
  51696. begin
  51697. pTDefRegMap(@Self)^.clr := $00000100;
  51698. end;
  51699. procedure TINT_IEC1.setSPI3AEIE(thebits : TBits_1); inline;
  51700. begin
  51701. if thebits = 0 then
  51702. pTDefRegMap(@Self)^.clr := $00000100
  51703. else
  51704. pTDefRegMap(@Self)^.&set := $00000100;
  51705. end;
  51706. function TINT_IEC1.getSPI3AEIE : TBits_1; inline;
  51707. begin
  51708. getSPI3AEIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51709. end;
  51710. procedure TINT_IEC1.setSPI3ARXIE; inline;
  51711. begin
  51712. pTDefRegMap(@Self)^.&set := $00000200;
  51713. end;
  51714. procedure TINT_IEC1.clearSPI3ARXIE; inline;
  51715. begin
  51716. pTDefRegMap(@Self)^.clr := $00000200;
  51717. end;
  51718. procedure TINT_IEC1.setSPI3ARXIE(thebits : TBits_1); inline;
  51719. begin
  51720. if thebits = 0 then
  51721. pTDefRegMap(@Self)^.clr := $00000200
  51722. else
  51723. pTDefRegMap(@Self)^.&set := $00000200;
  51724. end;
  51725. function TINT_IEC1.getSPI3ARXIE : TBits_1; inline;
  51726. begin
  51727. getSPI3ARXIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51728. end;
  51729. procedure TINT_IEC1.setSPI3ATXIE; inline;
  51730. begin
  51731. pTDefRegMap(@Self)^.&set := $00000400;
  51732. end;
  51733. procedure TINT_IEC1.clearSPI3ATXIE; inline;
  51734. begin
  51735. pTDefRegMap(@Self)^.clr := $00000400;
  51736. end;
  51737. procedure TINT_IEC1.setSPI3ATXIE(thebits : TBits_1); inline;
  51738. begin
  51739. if thebits = 0 then
  51740. pTDefRegMap(@Self)^.clr := $00000400
  51741. else
  51742. pTDefRegMap(@Self)^.&set := $00000400;
  51743. end;
  51744. function TINT_IEC1.getSPI3ATXIE : TBits_1; inline;
  51745. begin
  51746. getSPI3ATXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51747. end;
  51748. procedure TINT_IEC1.setI2C4BIE; inline;
  51749. begin
  51750. pTDefRegMap(@Self)^.&set := $00000020;
  51751. end;
  51752. procedure TINT_IEC1.clearI2C4BIE; inline;
  51753. begin
  51754. pTDefRegMap(@Self)^.clr := $00000020;
  51755. end;
  51756. procedure TINT_IEC1.setI2C4BIE(thebits : TBits_1); inline;
  51757. begin
  51758. if thebits = 0 then
  51759. pTDefRegMap(@Self)^.clr := $00000020
  51760. else
  51761. pTDefRegMap(@Self)^.&set := $00000020;
  51762. end;
  51763. function TINT_IEC1.getI2C4BIE : TBits_1; inline;
  51764. begin
  51765. getI2C4BIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51766. end;
  51767. procedure TINT_IEC1.setI2C4SIE; inline;
  51768. begin
  51769. pTDefRegMap(@Self)^.&set := $00000040;
  51770. end;
  51771. procedure TINT_IEC1.clearI2C4SIE; inline;
  51772. begin
  51773. pTDefRegMap(@Self)^.clr := $00000040;
  51774. end;
  51775. procedure TINT_IEC1.setI2C4SIE(thebits : TBits_1); inline;
  51776. begin
  51777. if thebits = 0 then
  51778. pTDefRegMap(@Self)^.clr := $00000040
  51779. else
  51780. pTDefRegMap(@Self)^.&set := $00000040;
  51781. end;
  51782. function TINT_IEC1.getI2C4SIE : TBits_1; inline;
  51783. begin
  51784. getI2C4SIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51785. end;
  51786. procedure TINT_IEC1.setI2C4MIE; inline;
  51787. begin
  51788. pTDefRegMap(@Self)^.&set := $00000080;
  51789. end;
  51790. procedure TINT_IEC1.clearI2C4MIE; inline;
  51791. begin
  51792. pTDefRegMap(@Self)^.clr := $00000080;
  51793. end;
  51794. procedure TINT_IEC1.setI2C4MIE(thebits : TBits_1); inline;
  51795. begin
  51796. if thebits = 0 then
  51797. pTDefRegMap(@Self)^.clr := $00000080
  51798. else
  51799. pTDefRegMap(@Self)^.&set := $00000080;
  51800. end;
  51801. function TINT_IEC1.getI2C4MIE : TBits_1; inline;
  51802. begin
  51803. getI2C4MIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51804. end;
  51805. procedure TINT_IEC1.setI2C5BIE; inline;
  51806. begin
  51807. pTDefRegMap(@Self)^.&set := $00000100;
  51808. end;
  51809. procedure TINT_IEC1.clearI2C5BIE; inline;
  51810. begin
  51811. pTDefRegMap(@Self)^.clr := $00000100;
  51812. end;
  51813. procedure TINT_IEC1.setI2C5BIE(thebits : TBits_1); inline;
  51814. begin
  51815. if thebits = 0 then
  51816. pTDefRegMap(@Self)^.clr := $00000100
  51817. else
  51818. pTDefRegMap(@Self)^.&set := $00000100;
  51819. end;
  51820. function TINT_IEC1.getI2C5BIE : TBits_1; inline;
  51821. begin
  51822. getI2C5BIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51823. end;
  51824. procedure TINT_IEC1.setI2C5SIE; inline;
  51825. begin
  51826. pTDefRegMap(@Self)^.&set := $00000200;
  51827. end;
  51828. procedure TINT_IEC1.clearI2C5SIE; inline;
  51829. begin
  51830. pTDefRegMap(@Self)^.clr := $00000200;
  51831. end;
  51832. procedure TINT_IEC1.setI2C5SIE(thebits : TBits_1); inline;
  51833. begin
  51834. if thebits = 0 then
  51835. pTDefRegMap(@Self)^.clr := $00000200
  51836. else
  51837. pTDefRegMap(@Self)^.&set := $00000200;
  51838. end;
  51839. function TINT_IEC1.getI2C5SIE : TBits_1; inline;
  51840. begin
  51841. getI2C5SIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51842. end;
  51843. procedure TINT_IEC1.setI2C5MIE; inline;
  51844. begin
  51845. pTDefRegMap(@Self)^.&set := $00000400;
  51846. end;
  51847. procedure TINT_IEC1.clearI2C5MIE; inline;
  51848. begin
  51849. pTDefRegMap(@Self)^.clr := $00000400;
  51850. end;
  51851. procedure TINT_IEC1.setI2C5MIE(thebits : TBits_1); inline;
  51852. begin
  51853. if thebits = 0 then
  51854. pTDefRegMap(@Self)^.clr := $00000400
  51855. else
  51856. pTDefRegMap(@Self)^.&set := $00000400;
  51857. end;
  51858. function TINT_IEC1.getI2C5MIE : TBits_1; inline;
  51859. begin
  51860. getI2C5MIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51861. end;
  51862. procedure TINT_IEC1.setI2C2ABIE; inline;
  51863. begin
  51864. pTDefRegMap(@Self)^.&set := $00000020;
  51865. end;
  51866. procedure TINT_IEC1.clearI2C2ABIE; inline;
  51867. begin
  51868. pTDefRegMap(@Self)^.clr := $00000020;
  51869. end;
  51870. procedure TINT_IEC1.setI2C2ABIE(thebits : TBits_1); inline;
  51871. begin
  51872. if thebits = 0 then
  51873. pTDefRegMap(@Self)^.clr := $00000020
  51874. else
  51875. pTDefRegMap(@Self)^.&set := $00000020;
  51876. end;
  51877. function TINT_IEC1.getI2C2ABIE : TBits_1; inline;
  51878. begin
  51879. getI2C2ABIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  51880. end;
  51881. procedure TINT_IEC1.setI2C2ASIE; inline;
  51882. begin
  51883. pTDefRegMap(@Self)^.&set := $00000040;
  51884. end;
  51885. procedure TINT_IEC1.clearI2C2ASIE; inline;
  51886. begin
  51887. pTDefRegMap(@Self)^.clr := $00000040;
  51888. end;
  51889. procedure TINT_IEC1.setI2C2ASIE(thebits : TBits_1); inline;
  51890. begin
  51891. if thebits = 0 then
  51892. pTDefRegMap(@Self)^.clr := $00000040
  51893. else
  51894. pTDefRegMap(@Self)^.&set := $00000040;
  51895. end;
  51896. function TINT_IEC1.getI2C2ASIE : TBits_1; inline;
  51897. begin
  51898. getI2C2ASIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  51899. end;
  51900. procedure TINT_IEC1.setI2C2AMIE; inline;
  51901. begin
  51902. pTDefRegMap(@Self)^.&set := $00000080;
  51903. end;
  51904. procedure TINT_IEC1.clearI2C2AMIE; inline;
  51905. begin
  51906. pTDefRegMap(@Self)^.clr := $00000080;
  51907. end;
  51908. procedure TINT_IEC1.setI2C2AMIE(thebits : TBits_1); inline;
  51909. begin
  51910. if thebits = 0 then
  51911. pTDefRegMap(@Self)^.clr := $00000080
  51912. else
  51913. pTDefRegMap(@Self)^.&set := $00000080;
  51914. end;
  51915. function TINT_IEC1.getI2C2AMIE : TBits_1; inline;
  51916. begin
  51917. getI2C2AMIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  51918. end;
  51919. procedure TINT_IEC1.setI2C3ABIE; inline;
  51920. begin
  51921. pTDefRegMap(@Self)^.&set := $00000100;
  51922. end;
  51923. procedure TINT_IEC1.clearI2C3ABIE; inline;
  51924. begin
  51925. pTDefRegMap(@Self)^.clr := $00000100;
  51926. end;
  51927. procedure TINT_IEC1.setI2C3ABIE(thebits : TBits_1); inline;
  51928. begin
  51929. if thebits = 0 then
  51930. pTDefRegMap(@Self)^.clr := $00000100
  51931. else
  51932. pTDefRegMap(@Self)^.&set := $00000100;
  51933. end;
  51934. function TINT_IEC1.getI2C3ABIE : TBits_1; inline;
  51935. begin
  51936. getI2C3ABIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  51937. end;
  51938. procedure TINT_IEC1.setI2C3ASIE; inline;
  51939. begin
  51940. pTDefRegMap(@Self)^.&set := $00000200;
  51941. end;
  51942. procedure TINT_IEC1.clearI2C3ASIE; inline;
  51943. begin
  51944. pTDefRegMap(@Self)^.clr := $00000200;
  51945. end;
  51946. procedure TINT_IEC1.setI2C3ASIE(thebits : TBits_1); inline;
  51947. begin
  51948. if thebits = 0 then
  51949. pTDefRegMap(@Self)^.clr := $00000200
  51950. else
  51951. pTDefRegMap(@Self)^.&set := $00000200;
  51952. end;
  51953. function TINT_IEC1.getI2C3ASIE : TBits_1; inline;
  51954. begin
  51955. getI2C3ASIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  51956. end;
  51957. procedure TINT_IEC1.setI2C3AMIE; inline;
  51958. begin
  51959. pTDefRegMap(@Self)^.&set := $00000400;
  51960. end;
  51961. procedure TINT_IEC1.clearI2C3AMIE; inline;
  51962. begin
  51963. pTDefRegMap(@Self)^.clr := $00000400;
  51964. end;
  51965. procedure TINT_IEC1.setI2C3AMIE(thebits : TBits_1); inline;
  51966. begin
  51967. if thebits = 0 then
  51968. pTDefRegMap(@Self)^.clr := $00000400
  51969. else
  51970. pTDefRegMap(@Self)^.&set := $00000400;
  51971. end;
  51972. function TINT_IEC1.getI2C3AMIE : TBits_1; inline;
  51973. begin
  51974. getI2C3AMIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  51975. end;
  51976. procedure TINT_IEC1.setw(thebits : TBits_32); inline;
  51977. begin
  51978. pTDefRegMap(@Self)^.val := thebits;
  51979. end;
  51980. function TINT_IEC1.getw : TBits_32; inline;
  51981. begin
  51982. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  51983. end;
  51984. procedure TINT_IEC2.setIC4EIE; inline;
  51985. begin
  51986. pTDefRegMap(@Self)^.&set := $00000001;
  51987. end;
  51988. procedure TINT_IEC2.clearIC4EIE; inline;
  51989. begin
  51990. pTDefRegMap(@Self)^.clr := $00000001;
  51991. end;
  51992. procedure TINT_IEC2.setIC4EIE(thebits : TBits_1); inline;
  51993. begin
  51994. if thebits = 0 then
  51995. pTDefRegMap(@Self)^.clr := $00000001
  51996. else
  51997. pTDefRegMap(@Self)^.&set := $00000001;
  51998. end;
  51999. function TINT_IEC2.getIC4EIE : TBits_1; inline;
  52000. begin
  52001. getIC4EIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  52002. end;
  52003. procedure TINT_IEC2.setIC5EIE; inline;
  52004. begin
  52005. pTDefRegMap(@Self)^.&set := $00000002;
  52006. end;
  52007. procedure TINT_IEC2.clearIC5EIE; inline;
  52008. begin
  52009. pTDefRegMap(@Self)^.clr := $00000002;
  52010. end;
  52011. procedure TINT_IEC2.setIC5EIE(thebits : TBits_1); inline;
  52012. begin
  52013. if thebits = 0 then
  52014. pTDefRegMap(@Self)^.clr := $00000002
  52015. else
  52016. pTDefRegMap(@Self)^.&set := $00000002;
  52017. end;
  52018. function TINT_IEC2.getIC5EIE : TBits_1; inline;
  52019. begin
  52020. getIC5EIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  52021. end;
  52022. procedure TINT_IEC2.setPMPEIE; inline;
  52023. begin
  52024. pTDefRegMap(@Self)^.&set := $00000004;
  52025. end;
  52026. procedure TINT_IEC2.clearPMPEIE; inline;
  52027. begin
  52028. pTDefRegMap(@Self)^.clr := $00000004;
  52029. end;
  52030. procedure TINT_IEC2.setPMPEIE(thebits : TBits_1); inline;
  52031. begin
  52032. if thebits = 0 then
  52033. pTDefRegMap(@Self)^.clr := $00000004
  52034. else
  52035. pTDefRegMap(@Self)^.&set := $00000004;
  52036. end;
  52037. function TINT_IEC2.getPMPEIE : TBits_1; inline;
  52038. begin
  52039. getPMPEIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  52040. end;
  52041. procedure TINT_IEC2.setU1BEIE; inline;
  52042. begin
  52043. pTDefRegMap(@Self)^.&set := $00000008;
  52044. end;
  52045. procedure TINT_IEC2.clearU1BEIE; inline;
  52046. begin
  52047. pTDefRegMap(@Self)^.clr := $00000008;
  52048. end;
  52049. procedure TINT_IEC2.setU1BEIE(thebits : TBits_1); inline;
  52050. begin
  52051. if thebits = 0 then
  52052. pTDefRegMap(@Self)^.clr := $00000008
  52053. else
  52054. pTDefRegMap(@Self)^.&set := $00000008;
  52055. end;
  52056. function TINT_IEC2.getU1BEIE : TBits_1; inline;
  52057. begin
  52058. getU1BEIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  52059. end;
  52060. procedure TINT_IEC2.setU1BRXIE; inline;
  52061. begin
  52062. pTDefRegMap(@Self)^.&set := $00000010;
  52063. end;
  52064. procedure TINT_IEC2.clearU1BRXIE; inline;
  52065. begin
  52066. pTDefRegMap(@Self)^.clr := $00000010;
  52067. end;
  52068. procedure TINT_IEC2.setU1BRXIE(thebits : TBits_1); inline;
  52069. begin
  52070. if thebits = 0 then
  52071. pTDefRegMap(@Self)^.clr := $00000010
  52072. else
  52073. pTDefRegMap(@Self)^.&set := $00000010;
  52074. end;
  52075. function TINT_IEC2.getU1BRXIE : TBits_1; inline;
  52076. begin
  52077. getU1BRXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  52078. end;
  52079. procedure TINT_IEC2.setU1BTXIE; inline;
  52080. begin
  52081. pTDefRegMap(@Self)^.&set := $00000020;
  52082. end;
  52083. procedure TINT_IEC2.clearU1BTXIE; inline;
  52084. begin
  52085. pTDefRegMap(@Self)^.clr := $00000020;
  52086. end;
  52087. procedure TINT_IEC2.setU1BTXIE(thebits : TBits_1); inline;
  52088. begin
  52089. if thebits = 0 then
  52090. pTDefRegMap(@Self)^.clr := $00000020
  52091. else
  52092. pTDefRegMap(@Self)^.&set := $00000020;
  52093. end;
  52094. function TINT_IEC2.getU1BTXIE : TBits_1; inline;
  52095. begin
  52096. getU1BTXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52097. end;
  52098. procedure TINT_IEC2.setU2BEIE; inline;
  52099. begin
  52100. pTDefRegMap(@Self)^.&set := $00000040;
  52101. end;
  52102. procedure TINT_IEC2.clearU2BEIE; inline;
  52103. begin
  52104. pTDefRegMap(@Self)^.clr := $00000040;
  52105. end;
  52106. procedure TINT_IEC2.setU2BEIE(thebits : TBits_1); inline;
  52107. begin
  52108. if thebits = 0 then
  52109. pTDefRegMap(@Self)^.clr := $00000040
  52110. else
  52111. pTDefRegMap(@Self)^.&set := $00000040;
  52112. end;
  52113. function TINT_IEC2.getU2BEIE : TBits_1; inline;
  52114. begin
  52115. getU2BEIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52116. end;
  52117. procedure TINT_IEC2.setU2BRXIE; inline;
  52118. begin
  52119. pTDefRegMap(@Self)^.&set := $00000080;
  52120. end;
  52121. procedure TINT_IEC2.clearU2BRXIE; inline;
  52122. begin
  52123. pTDefRegMap(@Self)^.clr := $00000080;
  52124. end;
  52125. procedure TINT_IEC2.setU2BRXIE(thebits : TBits_1); inline;
  52126. begin
  52127. if thebits = 0 then
  52128. pTDefRegMap(@Self)^.clr := $00000080
  52129. else
  52130. pTDefRegMap(@Self)^.&set := $00000080;
  52131. end;
  52132. function TINT_IEC2.getU2BRXIE : TBits_1; inline;
  52133. begin
  52134. getU2BRXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52135. end;
  52136. procedure TINT_IEC2.setU2BTXIE; inline;
  52137. begin
  52138. pTDefRegMap(@Self)^.&set := $00000100;
  52139. end;
  52140. procedure TINT_IEC2.clearU2BTXIE; inline;
  52141. begin
  52142. pTDefRegMap(@Self)^.clr := $00000100;
  52143. end;
  52144. procedure TINT_IEC2.setU2BTXIE(thebits : TBits_1); inline;
  52145. begin
  52146. if thebits = 0 then
  52147. pTDefRegMap(@Self)^.clr := $00000100
  52148. else
  52149. pTDefRegMap(@Self)^.&set := $00000100;
  52150. end;
  52151. function TINT_IEC2.getU2BTXIE : TBits_1; inline;
  52152. begin
  52153. getU2BTXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52154. end;
  52155. procedure TINT_IEC2.setU3BEIE; inline;
  52156. begin
  52157. pTDefRegMap(@Self)^.&set := $00000200;
  52158. end;
  52159. procedure TINT_IEC2.clearU3BEIE; inline;
  52160. begin
  52161. pTDefRegMap(@Self)^.clr := $00000200;
  52162. end;
  52163. procedure TINT_IEC2.setU3BEIE(thebits : TBits_1); inline;
  52164. begin
  52165. if thebits = 0 then
  52166. pTDefRegMap(@Self)^.clr := $00000200
  52167. else
  52168. pTDefRegMap(@Self)^.&set := $00000200;
  52169. end;
  52170. function TINT_IEC2.getU3BEIE : TBits_1; inline;
  52171. begin
  52172. getU3BEIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52173. end;
  52174. procedure TINT_IEC2.setU3BRXIE; inline;
  52175. begin
  52176. pTDefRegMap(@Self)^.&set := $00000400;
  52177. end;
  52178. procedure TINT_IEC2.clearU3BRXIE; inline;
  52179. begin
  52180. pTDefRegMap(@Self)^.clr := $00000400;
  52181. end;
  52182. procedure TINT_IEC2.setU3BRXIE(thebits : TBits_1); inline;
  52183. begin
  52184. if thebits = 0 then
  52185. pTDefRegMap(@Self)^.clr := $00000400
  52186. else
  52187. pTDefRegMap(@Self)^.&set := $00000400;
  52188. end;
  52189. function TINT_IEC2.getU3BRXIE : TBits_1; inline;
  52190. begin
  52191. getU3BRXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52192. end;
  52193. procedure TINT_IEC2.setU3BTXIE; inline;
  52194. begin
  52195. pTDefRegMap(@Self)^.&set := $00000800;
  52196. end;
  52197. procedure TINT_IEC2.clearU3BTXIE; inline;
  52198. begin
  52199. pTDefRegMap(@Self)^.clr := $00000800;
  52200. end;
  52201. procedure TINT_IEC2.setU3BTXIE(thebits : TBits_1); inline;
  52202. begin
  52203. if thebits = 0 then
  52204. pTDefRegMap(@Self)^.clr := $00000800
  52205. else
  52206. pTDefRegMap(@Self)^.&set := $00000800;
  52207. end;
  52208. function TINT_IEC2.getU3BTXIE : TBits_1; inline;
  52209. begin
  52210. getU3BTXIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  52211. end;
  52212. procedure TINT_IEC2.setU4EIE; inline;
  52213. begin
  52214. pTDefRegMap(@Self)^.&set := $00000008;
  52215. end;
  52216. procedure TINT_IEC2.clearU4EIE; inline;
  52217. begin
  52218. pTDefRegMap(@Self)^.clr := $00000008;
  52219. end;
  52220. procedure TINT_IEC2.setU4EIE(thebits : TBits_1); inline;
  52221. begin
  52222. if thebits = 0 then
  52223. pTDefRegMap(@Self)^.clr := $00000008
  52224. else
  52225. pTDefRegMap(@Self)^.&set := $00000008;
  52226. end;
  52227. function TINT_IEC2.getU4EIE : TBits_1; inline;
  52228. begin
  52229. getU4EIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  52230. end;
  52231. procedure TINT_IEC2.setU4RXIE; inline;
  52232. begin
  52233. pTDefRegMap(@Self)^.&set := $00000010;
  52234. end;
  52235. procedure TINT_IEC2.clearU4RXIE; inline;
  52236. begin
  52237. pTDefRegMap(@Self)^.clr := $00000010;
  52238. end;
  52239. procedure TINT_IEC2.setU4RXIE(thebits : TBits_1); inline;
  52240. begin
  52241. if thebits = 0 then
  52242. pTDefRegMap(@Self)^.clr := $00000010
  52243. else
  52244. pTDefRegMap(@Self)^.&set := $00000010;
  52245. end;
  52246. function TINT_IEC2.getU4RXIE : TBits_1; inline;
  52247. begin
  52248. getU4RXIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  52249. end;
  52250. procedure TINT_IEC2.setU4TXIE; inline;
  52251. begin
  52252. pTDefRegMap(@Self)^.&set := $00000020;
  52253. end;
  52254. procedure TINT_IEC2.clearU4TXIE; inline;
  52255. begin
  52256. pTDefRegMap(@Self)^.clr := $00000020;
  52257. end;
  52258. procedure TINT_IEC2.setU4TXIE(thebits : TBits_1); inline;
  52259. begin
  52260. if thebits = 0 then
  52261. pTDefRegMap(@Self)^.clr := $00000020
  52262. else
  52263. pTDefRegMap(@Self)^.&set := $00000020;
  52264. end;
  52265. function TINT_IEC2.getU4TXIE : TBits_1; inline;
  52266. begin
  52267. getU4TXIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  52268. end;
  52269. procedure TINT_IEC2.setU6EIE; inline;
  52270. begin
  52271. pTDefRegMap(@Self)^.&set := $00000040;
  52272. end;
  52273. procedure TINT_IEC2.clearU6EIE; inline;
  52274. begin
  52275. pTDefRegMap(@Self)^.clr := $00000040;
  52276. end;
  52277. procedure TINT_IEC2.setU6EIE(thebits : TBits_1); inline;
  52278. begin
  52279. if thebits = 0 then
  52280. pTDefRegMap(@Self)^.clr := $00000040
  52281. else
  52282. pTDefRegMap(@Self)^.&set := $00000040;
  52283. end;
  52284. function TINT_IEC2.getU6EIE : TBits_1; inline;
  52285. begin
  52286. getU6EIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  52287. end;
  52288. procedure TINT_IEC2.setU6RXIE; inline;
  52289. begin
  52290. pTDefRegMap(@Self)^.&set := $00000080;
  52291. end;
  52292. procedure TINT_IEC2.clearU6RXIE; inline;
  52293. begin
  52294. pTDefRegMap(@Self)^.clr := $00000080;
  52295. end;
  52296. procedure TINT_IEC2.setU6RXIE(thebits : TBits_1); inline;
  52297. begin
  52298. if thebits = 0 then
  52299. pTDefRegMap(@Self)^.clr := $00000080
  52300. else
  52301. pTDefRegMap(@Self)^.&set := $00000080;
  52302. end;
  52303. function TINT_IEC2.getU6RXIE : TBits_1; inline;
  52304. begin
  52305. getU6RXIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  52306. end;
  52307. procedure TINT_IEC2.setU6TXIE; inline;
  52308. begin
  52309. pTDefRegMap(@Self)^.&set := $00000100;
  52310. end;
  52311. procedure TINT_IEC2.clearU6TXIE; inline;
  52312. begin
  52313. pTDefRegMap(@Self)^.clr := $00000100;
  52314. end;
  52315. procedure TINT_IEC2.setU6TXIE(thebits : TBits_1); inline;
  52316. begin
  52317. if thebits = 0 then
  52318. pTDefRegMap(@Self)^.clr := $00000100
  52319. else
  52320. pTDefRegMap(@Self)^.&set := $00000100;
  52321. end;
  52322. function TINT_IEC2.getU6TXIE : TBits_1; inline;
  52323. begin
  52324. getU6TXIE := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  52325. end;
  52326. procedure TINT_IEC2.setU5EIE; inline;
  52327. begin
  52328. pTDefRegMap(@Self)^.&set := $00000200;
  52329. end;
  52330. procedure TINT_IEC2.clearU5EIE; inline;
  52331. begin
  52332. pTDefRegMap(@Self)^.clr := $00000200;
  52333. end;
  52334. procedure TINT_IEC2.setU5EIE(thebits : TBits_1); inline;
  52335. begin
  52336. if thebits = 0 then
  52337. pTDefRegMap(@Self)^.clr := $00000200
  52338. else
  52339. pTDefRegMap(@Self)^.&set := $00000200;
  52340. end;
  52341. function TINT_IEC2.getU5EIE : TBits_1; inline;
  52342. begin
  52343. getU5EIE := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  52344. end;
  52345. procedure TINT_IEC2.setU5RXIE; inline;
  52346. begin
  52347. pTDefRegMap(@Self)^.&set := $00000400;
  52348. end;
  52349. procedure TINT_IEC2.clearU5RXIE; inline;
  52350. begin
  52351. pTDefRegMap(@Self)^.clr := $00000400;
  52352. end;
  52353. procedure TINT_IEC2.setU5RXIE(thebits : TBits_1); inline;
  52354. begin
  52355. if thebits = 0 then
  52356. pTDefRegMap(@Self)^.clr := $00000400
  52357. else
  52358. pTDefRegMap(@Self)^.&set := $00000400;
  52359. end;
  52360. function TINT_IEC2.getU5RXIE : TBits_1; inline;
  52361. begin
  52362. getU5RXIE := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  52363. end;
  52364. procedure TINT_IEC2.setU5TXIE; inline;
  52365. begin
  52366. pTDefRegMap(@Self)^.&set := $00000800;
  52367. end;
  52368. procedure TINT_IEC2.clearU5TXIE; inline;
  52369. begin
  52370. pTDefRegMap(@Self)^.clr := $00000800;
  52371. end;
  52372. procedure TINT_IEC2.setU5TXIE(thebits : TBits_1); inline;
  52373. begin
  52374. if thebits = 0 then
  52375. pTDefRegMap(@Self)^.clr := $00000800
  52376. else
  52377. pTDefRegMap(@Self)^.&set := $00000800;
  52378. end;
  52379. function TINT_IEC2.getU5TXIE : TBits_1; inline;
  52380. begin
  52381. getU5TXIE := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  52382. end;
  52383. procedure TINT_IEC2.setw(thebits : TBits_32); inline;
  52384. begin
  52385. pTDefRegMap(@Self)^.val := thebits;
  52386. end;
  52387. function TINT_IEC2.getw : TBits_32; inline;
  52388. begin
  52389. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52390. end;
  52391. procedure TINT_IPC0.setCTIS(thebits : TBits_2); inline;
  52392. begin
  52393. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52394. end;
  52395. function TINT_IPC0.getCTIS : TBits_2; inline;
  52396. begin
  52397. getCTIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52398. end;
  52399. procedure TINT_IPC0.setCTIP(thebits : TBits_3); inline;
  52400. begin
  52401. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52402. end;
  52403. function TINT_IPC0.getCTIP : TBits_3; inline;
  52404. begin
  52405. getCTIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52406. end;
  52407. procedure TINT_IPC0.setCS0IS(thebits : TBits_2); inline;
  52408. begin
  52409. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52410. end;
  52411. function TINT_IPC0.getCS0IS : TBits_2; inline;
  52412. begin
  52413. getCS0IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52414. end;
  52415. procedure TINT_IPC0.setCS0IP(thebits : TBits_3); inline;
  52416. begin
  52417. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52418. end;
  52419. function TINT_IPC0.getCS0IP : TBits_3; inline;
  52420. begin
  52421. getCS0IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52422. end;
  52423. procedure TINT_IPC0.setCS1IS(thebits : TBits_2); inline;
  52424. begin
  52425. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52426. end;
  52427. function TINT_IPC0.getCS1IS : TBits_2; inline;
  52428. begin
  52429. getCS1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52430. end;
  52431. procedure TINT_IPC0.setCS1IP(thebits : TBits_3); inline;
  52432. begin
  52433. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52434. end;
  52435. function TINT_IPC0.getCS1IP : TBits_3; inline;
  52436. begin
  52437. getCS1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52438. end;
  52439. procedure TINT_IPC0.setINT0IS(thebits : TBits_2); inline;
  52440. begin
  52441. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52442. end;
  52443. function TINT_IPC0.getINT0IS : TBits_2; inline;
  52444. begin
  52445. getINT0IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52446. end;
  52447. procedure TINT_IPC0.setINT0IP(thebits : TBits_3); inline;
  52448. begin
  52449. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52450. end;
  52451. function TINT_IPC0.getINT0IP : TBits_3; inline;
  52452. begin
  52453. getINT0IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52454. end;
  52455. procedure TINT_IPC0.setw(thebits : TBits_32); inline;
  52456. begin
  52457. pTDefRegMap(@Self)^.val := thebits;
  52458. end;
  52459. function TINT_IPC0.getw : TBits_32; inline;
  52460. begin
  52461. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52462. end;
  52463. procedure TINT_IPC1.setT1IS(thebits : TBits_2); inline;
  52464. begin
  52465. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52466. end;
  52467. function TINT_IPC1.getT1IS : TBits_2; inline;
  52468. begin
  52469. getT1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52470. end;
  52471. procedure TINT_IPC1.setT1IP(thebits : TBits_3); inline;
  52472. begin
  52473. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52474. end;
  52475. function TINT_IPC1.getT1IP : TBits_3; inline;
  52476. begin
  52477. getT1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52478. end;
  52479. procedure TINT_IPC1.setIC1IS(thebits : TBits_2); inline;
  52480. begin
  52481. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52482. end;
  52483. function TINT_IPC1.getIC1IS : TBits_2; inline;
  52484. begin
  52485. getIC1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52486. end;
  52487. procedure TINT_IPC1.setIC1IP(thebits : TBits_3); inline;
  52488. begin
  52489. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52490. end;
  52491. function TINT_IPC1.getIC1IP : TBits_3; inline;
  52492. begin
  52493. getIC1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52494. end;
  52495. procedure TINT_IPC1.setOC1IS(thebits : TBits_2); inline;
  52496. begin
  52497. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52498. end;
  52499. function TINT_IPC1.getOC1IS : TBits_2; inline;
  52500. begin
  52501. getOC1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52502. end;
  52503. procedure TINT_IPC1.setOC1IP(thebits : TBits_3); inline;
  52504. begin
  52505. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52506. end;
  52507. function TINT_IPC1.getOC1IP : TBits_3; inline;
  52508. begin
  52509. getOC1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52510. end;
  52511. procedure TINT_IPC1.setINT1IS(thebits : TBits_2); inline;
  52512. begin
  52513. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52514. end;
  52515. function TINT_IPC1.getINT1IS : TBits_2; inline;
  52516. begin
  52517. getINT1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52518. end;
  52519. procedure TINT_IPC1.setINT1IP(thebits : TBits_3); inline;
  52520. begin
  52521. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52522. end;
  52523. function TINT_IPC1.getINT1IP : TBits_3; inline;
  52524. begin
  52525. getINT1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52526. end;
  52527. procedure TINT_IPC1.setw(thebits : TBits_32); inline;
  52528. begin
  52529. pTDefRegMap(@Self)^.val := thebits;
  52530. end;
  52531. function TINT_IPC1.getw : TBits_32; inline;
  52532. begin
  52533. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52534. end;
  52535. procedure TINT_IPC2.setT2IS(thebits : TBits_2); inline;
  52536. begin
  52537. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52538. end;
  52539. function TINT_IPC2.getT2IS : TBits_2; inline;
  52540. begin
  52541. getT2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52542. end;
  52543. procedure TINT_IPC2.setT2IP(thebits : TBits_3); inline;
  52544. begin
  52545. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52546. end;
  52547. function TINT_IPC2.getT2IP : TBits_3; inline;
  52548. begin
  52549. getT2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52550. end;
  52551. procedure TINT_IPC2.setIC2IS(thebits : TBits_2); inline;
  52552. begin
  52553. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52554. end;
  52555. function TINT_IPC2.getIC2IS : TBits_2; inline;
  52556. begin
  52557. getIC2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52558. end;
  52559. procedure TINT_IPC2.setIC2IP(thebits : TBits_3); inline;
  52560. begin
  52561. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52562. end;
  52563. function TINT_IPC2.getIC2IP : TBits_3; inline;
  52564. begin
  52565. getIC2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52566. end;
  52567. procedure TINT_IPC2.setOC2IS(thebits : TBits_2); inline;
  52568. begin
  52569. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52570. end;
  52571. function TINT_IPC2.getOC2IS : TBits_2; inline;
  52572. begin
  52573. getOC2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52574. end;
  52575. procedure TINT_IPC2.setOC2IP(thebits : TBits_3); inline;
  52576. begin
  52577. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52578. end;
  52579. function TINT_IPC2.getOC2IP : TBits_3; inline;
  52580. begin
  52581. getOC2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52582. end;
  52583. procedure TINT_IPC2.setINT2IS(thebits : TBits_2); inline;
  52584. begin
  52585. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52586. end;
  52587. function TINT_IPC2.getINT2IS : TBits_2; inline;
  52588. begin
  52589. getINT2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52590. end;
  52591. procedure TINT_IPC2.setINT2IP(thebits : TBits_3); inline;
  52592. begin
  52593. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52594. end;
  52595. function TINT_IPC2.getINT2IP : TBits_3; inline;
  52596. begin
  52597. getINT2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52598. end;
  52599. procedure TINT_IPC2.setw(thebits : TBits_32); inline;
  52600. begin
  52601. pTDefRegMap(@Self)^.val := thebits;
  52602. end;
  52603. function TINT_IPC2.getw : TBits_32; inline;
  52604. begin
  52605. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52606. end;
  52607. procedure TINT_IPC3.setT3IS(thebits : TBits_2); inline;
  52608. begin
  52609. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52610. end;
  52611. function TINT_IPC3.getT3IS : TBits_2; inline;
  52612. begin
  52613. getT3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52614. end;
  52615. procedure TINT_IPC3.setT3IP(thebits : TBits_3); inline;
  52616. begin
  52617. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52618. end;
  52619. function TINT_IPC3.getT3IP : TBits_3; inline;
  52620. begin
  52621. getT3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52622. end;
  52623. procedure TINT_IPC3.setIC3IS(thebits : TBits_2); inline;
  52624. begin
  52625. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52626. end;
  52627. function TINT_IPC3.getIC3IS : TBits_2; inline;
  52628. begin
  52629. getIC3IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52630. end;
  52631. procedure TINT_IPC3.setIC3IP(thebits : TBits_3); inline;
  52632. begin
  52633. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52634. end;
  52635. function TINT_IPC3.getIC3IP : TBits_3; inline;
  52636. begin
  52637. getIC3IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52638. end;
  52639. procedure TINT_IPC3.setOC3IS(thebits : TBits_2); inline;
  52640. begin
  52641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52642. end;
  52643. function TINT_IPC3.getOC3IS : TBits_2; inline;
  52644. begin
  52645. getOC3IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52646. end;
  52647. procedure TINT_IPC3.setOC3IP(thebits : TBits_3); inline;
  52648. begin
  52649. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52650. end;
  52651. function TINT_IPC3.getOC3IP : TBits_3; inline;
  52652. begin
  52653. getOC3IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52654. end;
  52655. procedure TINT_IPC3.setINT3IS(thebits : TBits_2); inline;
  52656. begin
  52657. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52658. end;
  52659. function TINT_IPC3.getINT3IS : TBits_2; inline;
  52660. begin
  52661. getINT3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52662. end;
  52663. procedure TINT_IPC3.setINT3IP(thebits : TBits_3); inline;
  52664. begin
  52665. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52666. end;
  52667. function TINT_IPC3.getINT3IP : TBits_3; inline;
  52668. begin
  52669. getINT3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52670. end;
  52671. procedure TINT_IPC3.setw(thebits : TBits_32); inline;
  52672. begin
  52673. pTDefRegMap(@Self)^.val := thebits;
  52674. end;
  52675. function TINT_IPC3.getw : TBits_32; inline;
  52676. begin
  52677. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52678. end;
  52679. procedure TINT_IPC4.setT4IS(thebits : TBits_2); inline;
  52680. begin
  52681. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52682. end;
  52683. function TINT_IPC4.getT4IS : TBits_2; inline;
  52684. begin
  52685. getT4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52686. end;
  52687. procedure TINT_IPC4.setT4IP(thebits : TBits_3); inline;
  52688. begin
  52689. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52690. end;
  52691. function TINT_IPC4.getT4IP : TBits_3; inline;
  52692. begin
  52693. getT4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52694. end;
  52695. procedure TINT_IPC4.setIC4IS(thebits : TBits_2); inline;
  52696. begin
  52697. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52698. end;
  52699. function TINT_IPC4.getIC4IS : TBits_2; inline;
  52700. begin
  52701. getIC4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52702. end;
  52703. procedure TINT_IPC4.setIC4IP(thebits : TBits_3); inline;
  52704. begin
  52705. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52706. end;
  52707. function TINT_IPC4.getIC4IP : TBits_3; inline;
  52708. begin
  52709. getIC4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52710. end;
  52711. procedure TINT_IPC4.setOC4IS(thebits : TBits_2); inline;
  52712. begin
  52713. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52714. end;
  52715. function TINT_IPC4.getOC4IS : TBits_2; inline;
  52716. begin
  52717. getOC4IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52718. end;
  52719. procedure TINT_IPC4.setOC4IP(thebits : TBits_3); inline;
  52720. begin
  52721. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52722. end;
  52723. function TINT_IPC4.getOC4IP : TBits_3; inline;
  52724. begin
  52725. getOC4IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52726. end;
  52727. procedure TINT_IPC4.setINT4IS(thebits : TBits_2); inline;
  52728. begin
  52729. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52730. end;
  52731. function TINT_IPC4.getINT4IS : TBits_2; inline;
  52732. begin
  52733. getINT4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52734. end;
  52735. procedure TINT_IPC4.setINT4IP(thebits : TBits_3); inline;
  52736. begin
  52737. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52738. end;
  52739. function TINT_IPC4.getINT4IP : TBits_3; inline;
  52740. begin
  52741. getINT4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52742. end;
  52743. procedure TINT_IPC4.setw(thebits : TBits_32); inline;
  52744. begin
  52745. pTDefRegMap(@Self)^.val := thebits;
  52746. end;
  52747. function TINT_IPC4.getw : TBits_32; inline;
  52748. begin
  52749. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52750. end;
  52751. procedure TINT_IPC5.setT5IS(thebits : TBits_2); inline;
  52752. begin
  52753. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52754. end;
  52755. function TINT_IPC5.getT5IS : TBits_2; inline;
  52756. begin
  52757. getT5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52758. end;
  52759. procedure TINT_IPC5.setT5IP(thebits : TBits_3); inline;
  52760. begin
  52761. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52762. end;
  52763. function TINT_IPC5.getT5IP : TBits_3; inline;
  52764. begin
  52765. getT5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52766. end;
  52767. procedure TINT_IPC5.setIC5IS(thebits : TBits_2); inline;
  52768. begin
  52769. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52770. end;
  52771. function TINT_IPC5.getIC5IS : TBits_2; inline;
  52772. begin
  52773. getIC5IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52774. end;
  52775. procedure TINT_IPC5.setIC5IP(thebits : TBits_3); inline;
  52776. begin
  52777. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52778. end;
  52779. function TINT_IPC5.getIC5IP : TBits_3; inline;
  52780. begin
  52781. getIC5IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52782. end;
  52783. procedure TINT_IPC5.setOC5IS(thebits : TBits_2); inline;
  52784. begin
  52785. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52786. end;
  52787. function TINT_IPC5.getOC5IS : TBits_2; inline;
  52788. begin
  52789. getOC5IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52790. end;
  52791. procedure TINT_IPC5.setOC5IP(thebits : TBits_3); inline;
  52792. begin
  52793. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52794. end;
  52795. function TINT_IPC5.getOC5IP : TBits_3; inline;
  52796. begin
  52797. getOC5IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52798. end;
  52799. procedure TINT_IPC5.setSPI1IS(thebits : TBits_2); inline;
  52800. begin
  52801. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52802. end;
  52803. function TINT_IPC5.getSPI1IS : TBits_2; inline;
  52804. begin
  52805. getSPI1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52806. end;
  52807. procedure TINT_IPC5.setSPI1IP(thebits : TBits_3); inline;
  52808. begin
  52809. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52810. end;
  52811. function TINT_IPC5.getSPI1IP : TBits_3; inline;
  52812. begin
  52813. getSPI1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52814. end;
  52815. procedure TINT_IPC5.setw(thebits : TBits_32); inline;
  52816. begin
  52817. pTDefRegMap(@Self)^.val := thebits;
  52818. end;
  52819. function TINT_IPC5.getw : TBits_32; inline;
  52820. begin
  52821. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52822. end;
  52823. procedure TINT_IPC6.setU1IS(thebits : TBits_2); inline;
  52824. begin
  52825. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52826. end;
  52827. function TINT_IPC6.getU1IS : TBits_2; inline;
  52828. begin
  52829. getU1IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52830. end;
  52831. procedure TINT_IPC6.setU1IP(thebits : TBits_3); inline;
  52832. begin
  52833. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52834. end;
  52835. function TINT_IPC6.getU1IP : TBits_3; inline;
  52836. begin
  52837. getU1IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52838. end;
  52839. procedure TINT_IPC6.setI2C1IS(thebits : TBits_2); inline;
  52840. begin
  52841. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52842. end;
  52843. function TINT_IPC6.getI2C1IS : TBits_2; inline;
  52844. begin
  52845. getI2C1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52846. end;
  52847. procedure TINT_IPC6.setI2C1IP(thebits : TBits_3); inline;
  52848. begin
  52849. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  52850. end;
  52851. function TINT_IPC6.getI2C1IP : TBits_3; inline;
  52852. begin
  52853. getI2C1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  52854. end;
  52855. procedure TINT_IPC6.setCNIS(thebits : TBits_2); inline;
  52856. begin
  52857. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  52858. end;
  52859. function TINT_IPC6.getCNIS : TBits_2; inline;
  52860. begin
  52861. getCNIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  52862. end;
  52863. procedure TINT_IPC6.setCNIP(thebits : TBits_3); inline;
  52864. begin
  52865. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  52866. end;
  52867. function TINT_IPC6.getCNIP : TBits_3; inline;
  52868. begin
  52869. getCNIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  52870. end;
  52871. procedure TINT_IPC6.setAD1IS(thebits : TBits_2); inline;
  52872. begin
  52873. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  52874. end;
  52875. function TINT_IPC6.getAD1IS : TBits_2; inline;
  52876. begin
  52877. getAD1IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  52878. end;
  52879. procedure TINT_IPC6.setAD1IP(thebits : TBits_3); inline;
  52880. begin
  52881. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  52882. end;
  52883. function TINT_IPC6.getAD1IP : TBits_3; inline;
  52884. begin
  52885. getAD1IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  52886. end;
  52887. procedure TINT_IPC6.setU1AIS(thebits : TBits_2); inline;
  52888. begin
  52889. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52890. end;
  52891. function TINT_IPC6.getU1AIS : TBits_2; inline;
  52892. begin
  52893. getU1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52894. end;
  52895. procedure TINT_IPC6.setU1AIP(thebits : TBits_3); inline;
  52896. begin
  52897. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52898. end;
  52899. function TINT_IPC6.getU1AIP : TBits_3; inline;
  52900. begin
  52901. getU1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52902. end;
  52903. procedure TINT_IPC6.setSPI3IS(thebits : TBits_2); inline;
  52904. begin
  52905. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52906. end;
  52907. function TINT_IPC6.getSPI3IS : TBits_2; inline;
  52908. begin
  52909. getSPI3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52910. end;
  52911. procedure TINT_IPC6.setSPI3IP(thebits : TBits_3); inline;
  52912. begin
  52913. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52914. end;
  52915. function TINT_IPC6.getSPI3IP : TBits_3; inline;
  52916. begin
  52917. getSPI3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52918. end;
  52919. procedure TINT_IPC6.setSPI1AIS(thebits : TBits_2); inline;
  52920. begin
  52921. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52922. end;
  52923. function TINT_IPC6.getSPI1AIS : TBits_2; inline;
  52924. begin
  52925. getSPI1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52926. end;
  52927. procedure TINT_IPC6.setSPI1AIP(thebits : TBits_3); inline;
  52928. begin
  52929. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52930. end;
  52931. function TINT_IPC6.getSPI1AIP : TBits_3; inline;
  52932. begin
  52933. getSPI1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52934. end;
  52935. procedure TINT_IPC6.setI2C3IS(thebits : TBits_2); inline;
  52936. begin
  52937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52938. end;
  52939. function TINT_IPC6.getI2C3IS : TBits_2; inline;
  52940. begin
  52941. getI2C3IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52942. end;
  52943. procedure TINT_IPC6.setI2C3IP(thebits : TBits_3); inline;
  52944. begin
  52945. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52946. end;
  52947. function TINT_IPC6.getI2C3IP : TBits_3; inline;
  52948. begin
  52949. getI2C3IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52950. end;
  52951. procedure TINT_IPC6.setI2C1AIS(thebits : TBits_2); inline;
  52952. begin
  52953. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52954. end;
  52955. function TINT_IPC6.getI2C1AIS : TBits_2; inline;
  52956. begin
  52957. getI2C1AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52958. end;
  52959. procedure TINT_IPC6.setI2C1AIP(thebits : TBits_3); inline;
  52960. begin
  52961. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52962. end;
  52963. function TINT_IPC6.getI2C1AIP : TBits_3; inline;
  52964. begin
  52965. getI2C1AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52966. end;
  52967. procedure TINT_IPC6.setw(thebits : TBits_32); inline;
  52968. begin
  52969. pTDefRegMap(@Self)^.val := thebits;
  52970. end;
  52971. function TINT_IPC6.getw : TBits_32; inline;
  52972. begin
  52973. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  52974. end;
  52975. procedure TINT_IPC7.setPMPIS(thebits : TBits_2); inline;
  52976. begin
  52977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  52978. end;
  52979. function TINT_IPC7.getPMPIS : TBits_2; inline;
  52980. begin
  52981. getPMPIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  52982. end;
  52983. procedure TINT_IPC7.setPMPIP(thebits : TBits_3); inline;
  52984. begin
  52985. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  52986. end;
  52987. function TINT_IPC7.getPMPIP : TBits_3; inline;
  52988. begin
  52989. getPMPIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  52990. end;
  52991. procedure TINT_IPC7.setCMP1IS(thebits : TBits_2); inline;
  52992. begin
  52993. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  52994. end;
  52995. function TINT_IPC7.getCMP1IS : TBits_2; inline;
  52996. begin
  52997. getCMP1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  52998. end;
  52999. procedure TINT_IPC7.setCMP1IP(thebits : TBits_3); inline;
  53000. begin
  53001. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53002. end;
  53003. function TINT_IPC7.getCMP1IP : TBits_3; inline;
  53004. begin
  53005. getCMP1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53006. end;
  53007. procedure TINT_IPC7.setCMP2IS(thebits : TBits_2); inline;
  53008. begin
  53009. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53010. end;
  53011. function TINT_IPC7.getCMP2IS : TBits_2; inline;
  53012. begin
  53013. getCMP2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53014. end;
  53015. procedure TINT_IPC7.setCMP2IP(thebits : TBits_3); inline;
  53016. begin
  53017. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53018. end;
  53019. function TINT_IPC7.getCMP2IP : TBits_3; inline;
  53020. begin
  53021. getCMP2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53022. end;
  53023. procedure TINT_IPC7.setU3IS(thebits : TBits_2); inline;
  53024. begin
  53025. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53026. end;
  53027. function TINT_IPC7.getU3IS : TBits_2; inline;
  53028. begin
  53029. getU3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53030. end;
  53031. procedure TINT_IPC7.setU3IP(thebits : TBits_3); inline;
  53032. begin
  53033. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53034. end;
  53035. function TINT_IPC7.getU3IP : TBits_3; inline;
  53036. begin
  53037. getU3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53038. end;
  53039. procedure TINT_IPC7.setU2AIS(thebits : TBits_2); inline;
  53040. begin
  53041. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53042. end;
  53043. function TINT_IPC7.getU2AIS : TBits_2; inline;
  53044. begin
  53045. getU2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53046. end;
  53047. procedure TINT_IPC7.setU2AIP(thebits : TBits_3); inline;
  53048. begin
  53049. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53050. end;
  53051. function TINT_IPC7.getU2AIP : TBits_3; inline;
  53052. begin
  53053. getU2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53054. end;
  53055. procedure TINT_IPC7.setSPI2IS(thebits : TBits_2); inline;
  53056. begin
  53057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53058. end;
  53059. function TINT_IPC7.getSPI2IS : TBits_2; inline;
  53060. begin
  53061. getSPI2IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53062. end;
  53063. procedure TINT_IPC7.setSPI2IP(thebits : TBits_3); inline;
  53064. begin
  53065. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53066. end;
  53067. function TINT_IPC7.getSPI2IP : TBits_3; inline;
  53068. begin
  53069. getSPI2IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53070. end;
  53071. procedure TINT_IPC7.setSPI2AIS(thebits : TBits_2); inline;
  53072. begin
  53073. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53074. end;
  53075. function TINT_IPC7.getSPI2AIS : TBits_2; inline;
  53076. begin
  53077. getSPI2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53078. end;
  53079. procedure TINT_IPC7.setSPI2AIP(thebits : TBits_3); inline;
  53080. begin
  53081. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53082. end;
  53083. function TINT_IPC7.getSPI2AIP : TBits_3; inline;
  53084. begin
  53085. getSPI2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53086. end;
  53087. procedure TINT_IPC7.setI2C4IS(thebits : TBits_2); inline;
  53088. begin
  53089. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53090. end;
  53091. function TINT_IPC7.getI2C4IS : TBits_2; inline;
  53092. begin
  53093. getI2C4IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53094. end;
  53095. procedure TINT_IPC7.setI2C4IP(thebits : TBits_3); inline;
  53096. begin
  53097. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53098. end;
  53099. function TINT_IPC7.getI2C4IP : TBits_3; inline;
  53100. begin
  53101. getI2C4IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53102. end;
  53103. procedure TINT_IPC7.setI2C2AIS(thebits : TBits_2); inline;
  53104. begin
  53105. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53106. end;
  53107. function TINT_IPC7.getI2C2AIS : TBits_2; inline;
  53108. begin
  53109. getI2C2AIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53110. end;
  53111. procedure TINT_IPC7.setI2C2AIP(thebits : TBits_3); inline;
  53112. begin
  53113. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53114. end;
  53115. function TINT_IPC7.getI2C2AIP : TBits_3; inline;
  53116. begin
  53117. getI2C2AIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53118. end;
  53119. procedure TINT_IPC7.setw(thebits : TBits_32); inline;
  53120. begin
  53121. pTDefRegMap(@Self)^.val := thebits;
  53122. end;
  53123. function TINT_IPC7.getw : TBits_32; inline;
  53124. begin
  53125. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53126. end;
  53127. procedure TINT_IPC8.setU2IS(thebits : TBits_2); inline;
  53128. begin
  53129. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53130. end;
  53131. function TINT_IPC8.getU2IS : TBits_2; inline;
  53132. begin
  53133. getU2IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53134. end;
  53135. procedure TINT_IPC8.setU2IP(thebits : TBits_3); inline;
  53136. begin
  53137. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53138. end;
  53139. function TINT_IPC8.getU2IP : TBits_3; inline;
  53140. begin
  53141. getU2IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53142. end;
  53143. procedure TINT_IPC8.setI2C2IS(thebits : TBits_2); inline;
  53144. begin
  53145. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53146. end;
  53147. function TINT_IPC8.getI2C2IS : TBits_2; inline;
  53148. begin
  53149. getI2C2IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53150. end;
  53151. procedure TINT_IPC8.setI2C2IP(thebits : TBits_3); inline;
  53152. begin
  53153. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53154. end;
  53155. function TINT_IPC8.getI2C2IP : TBits_3; inline;
  53156. begin
  53157. getI2C2IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53158. end;
  53159. procedure TINT_IPC8.setFSCMIS(thebits : TBits_2); inline;
  53160. begin
  53161. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53162. end;
  53163. function TINT_IPC8.getFSCMIS : TBits_2; inline;
  53164. begin
  53165. getFSCMIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53166. end;
  53167. procedure TINT_IPC8.setFSCMIP(thebits : TBits_3); inline;
  53168. begin
  53169. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53170. end;
  53171. function TINT_IPC8.getFSCMIP : TBits_3; inline;
  53172. begin
  53173. getFSCMIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53174. end;
  53175. procedure TINT_IPC8.setRTCCIS(thebits : TBits_2); inline;
  53176. begin
  53177. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53178. end;
  53179. function TINT_IPC8.getRTCCIS : TBits_2; inline;
  53180. begin
  53181. getRTCCIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53182. end;
  53183. procedure TINT_IPC8.setRTCCIP(thebits : TBits_3); inline;
  53184. begin
  53185. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53186. end;
  53187. function TINT_IPC8.getRTCCIP : TBits_3; inline;
  53188. begin
  53189. getRTCCIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53190. end;
  53191. procedure TINT_IPC8.setU3AIS(thebits : TBits_2); inline;
  53192. begin
  53193. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53194. end;
  53195. function TINT_IPC8.getU3AIS : TBits_2; inline;
  53196. begin
  53197. getU3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53198. end;
  53199. procedure TINT_IPC8.setU3AIP(thebits : TBits_3); inline;
  53200. begin
  53201. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53202. end;
  53203. function TINT_IPC8.getU3AIP : TBits_3; inline;
  53204. begin
  53205. getU3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53206. end;
  53207. procedure TINT_IPC8.setSPI4IS(thebits : TBits_2); inline;
  53208. begin
  53209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53210. end;
  53211. function TINT_IPC8.getSPI4IS : TBits_2; inline;
  53212. begin
  53213. getSPI4IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53214. end;
  53215. procedure TINT_IPC8.setSPI4IP(thebits : TBits_3); inline;
  53216. begin
  53217. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53218. end;
  53219. function TINT_IPC8.getSPI4IP : TBits_3; inline;
  53220. begin
  53221. getSPI4IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53222. end;
  53223. procedure TINT_IPC8.setSPI3AIS(thebits : TBits_2); inline;
  53224. begin
  53225. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53226. end;
  53227. function TINT_IPC8.getSPI3AIS : TBits_2; inline;
  53228. begin
  53229. getSPI3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53230. end;
  53231. procedure TINT_IPC8.setSPI3AIP(thebits : TBits_3); inline;
  53232. begin
  53233. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53234. end;
  53235. function TINT_IPC8.getSPI3AIP : TBits_3; inline;
  53236. begin
  53237. getSPI3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53238. end;
  53239. procedure TINT_IPC8.setI2C5IS(thebits : TBits_2); inline;
  53240. begin
  53241. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53242. end;
  53243. function TINT_IPC8.getI2C5IS : TBits_2; inline;
  53244. begin
  53245. getI2C5IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53246. end;
  53247. procedure TINT_IPC8.setI2C5IP(thebits : TBits_3); inline;
  53248. begin
  53249. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53250. end;
  53251. function TINT_IPC8.getI2C5IP : TBits_3; inline;
  53252. begin
  53253. getI2C5IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53254. end;
  53255. procedure TINT_IPC8.setI2C3AIS(thebits : TBits_2); inline;
  53256. begin
  53257. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53258. end;
  53259. function TINT_IPC8.getI2C3AIS : TBits_2; inline;
  53260. begin
  53261. getI2C3AIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53262. end;
  53263. procedure TINT_IPC8.setI2C3AIP(thebits : TBits_3); inline;
  53264. begin
  53265. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53266. end;
  53267. function TINT_IPC8.getI2C3AIP : TBits_3; inline;
  53268. begin
  53269. getI2C3AIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53270. end;
  53271. procedure TINT_IPC8.setw(thebits : TBits_32); inline;
  53272. begin
  53273. pTDefRegMap(@Self)^.val := thebits;
  53274. end;
  53275. function TINT_IPC8.getw : TBits_32; inline;
  53276. begin
  53277. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53278. end;
  53279. procedure TINT_IPC9.setDMA0IS(thebits : TBits_2); inline;
  53280. begin
  53281. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53282. end;
  53283. function TINT_IPC9.getDMA0IS : TBits_2; inline;
  53284. begin
  53285. getDMA0IS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53286. end;
  53287. procedure TINT_IPC9.setDMA0IP(thebits : TBits_3); inline;
  53288. begin
  53289. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53290. end;
  53291. function TINT_IPC9.getDMA0IP : TBits_3; inline;
  53292. begin
  53293. getDMA0IP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53294. end;
  53295. procedure TINT_IPC9.setDMA1IS(thebits : TBits_2); inline;
  53296. begin
  53297. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53298. end;
  53299. function TINT_IPC9.getDMA1IS : TBits_2; inline;
  53300. begin
  53301. getDMA1IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53302. end;
  53303. procedure TINT_IPC9.setDMA1IP(thebits : TBits_3); inline;
  53304. begin
  53305. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53306. end;
  53307. function TINT_IPC9.getDMA1IP : TBits_3; inline;
  53308. begin
  53309. getDMA1IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53310. end;
  53311. procedure TINT_IPC9.setDMA2IS(thebits : TBits_2); inline;
  53312. begin
  53313. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53314. end;
  53315. function TINT_IPC9.getDMA2IS : TBits_2; inline;
  53316. begin
  53317. getDMA2IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53318. end;
  53319. procedure TINT_IPC9.setDMA2IP(thebits : TBits_3); inline;
  53320. begin
  53321. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53322. end;
  53323. function TINT_IPC9.getDMA2IP : TBits_3; inline;
  53324. begin
  53325. getDMA2IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53326. end;
  53327. procedure TINT_IPC9.setDMA3IS(thebits : TBits_2); inline;
  53328. begin
  53329. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53330. end;
  53331. function TINT_IPC9.getDMA3IS : TBits_2; inline;
  53332. begin
  53333. getDMA3IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53334. end;
  53335. procedure TINT_IPC9.setDMA3IP(thebits : TBits_3); inline;
  53336. begin
  53337. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53338. end;
  53339. function TINT_IPC9.getDMA3IP : TBits_3; inline;
  53340. begin
  53341. getDMA3IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53342. end;
  53343. procedure TINT_IPC9.setw(thebits : TBits_32); inline;
  53344. begin
  53345. pTDefRegMap(@Self)^.val := thebits;
  53346. end;
  53347. function TINT_IPC9.getw : TBits_32; inline;
  53348. begin
  53349. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53350. end;
  53351. procedure TINT_IPC11.setFCEIS(thebits : TBits_2); inline;
  53352. begin
  53353. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53354. end;
  53355. function TINT_IPC11.getFCEIS : TBits_2; inline;
  53356. begin
  53357. getFCEIS := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53358. end;
  53359. procedure TINT_IPC11.setFCEIP(thebits : TBits_3); inline;
  53360. begin
  53361. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE3 or ( thebits shl 2 );
  53362. end;
  53363. function TINT_IPC11.getFCEIP : TBits_3; inline;
  53364. begin
  53365. getFCEIP := (pTDefRegMap(@Self)^.val and $0000001C) shr 2;
  53366. end;
  53367. procedure TINT_IPC11.setUSBIS(thebits : TBits_2); inline;
  53368. begin
  53369. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53370. end;
  53371. function TINT_IPC11.getUSBIS : TBits_2; inline;
  53372. begin
  53373. getUSBIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53374. end;
  53375. procedure TINT_IPC11.setUSBIP(thebits : TBits_3); inline;
  53376. begin
  53377. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53378. end;
  53379. function TINT_IPC11.getUSBIP : TBits_3; inline;
  53380. begin
  53381. getUSBIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53382. end;
  53383. procedure TINT_IPC11.setCAN1IS(thebits : TBits_2); inline;
  53384. begin
  53385. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53386. end;
  53387. function TINT_IPC11.getCAN1IS : TBits_2; inline;
  53388. begin
  53389. getCAN1IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53390. end;
  53391. procedure TINT_IPC11.setCAN1IP(thebits : TBits_3); inline;
  53392. begin
  53393. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53394. end;
  53395. function TINT_IPC11.getCAN1IP : TBits_3; inline;
  53396. begin
  53397. getCAN1IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53398. end;
  53399. procedure TINT_IPC11.setw(thebits : TBits_32); inline;
  53400. begin
  53401. pTDefRegMap(@Self)^.val := thebits;
  53402. end;
  53403. function TINT_IPC11.getw : TBits_32; inline;
  53404. begin
  53405. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53406. end;
  53407. procedure TINT_IPC12.setU4IS(thebits : TBits_2); inline;
  53408. begin
  53409. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53410. end;
  53411. function TINT_IPC12.getU4IS : TBits_2; inline;
  53412. begin
  53413. getU4IS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53414. end;
  53415. procedure TINT_IPC12.setU4IP(thebits : TBits_3); inline;
  53416. begin
  53417. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53418. end;
  53419. function TINT_IPC12.getU4IP : TBits_3; inline;
  53420. begin
  53421. getU4IP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53422. end;
  53423. procedure TINT_IPC12.setU6IS(thebits : TBits_2); inline;
  53424. begin
  53425. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53426. end;
  53427. function TINT_IPC12.getU6IS : TBits_2; inline;
  53428. begin
  53429. getU6IS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53430. end;
  53431. procedure TINT_IPC12.setU6IP(thebits : TBits_3); inline;
  53432. begin
  53433. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53434. end;
  53435. function TINT_IPC12.getU6IP : TBits_3; inline;
  53436. begin
  53437. getU6IP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53438. end;
  53439. procedure TINT_IPC12.setU5IS(thebits : TBits_2); inline;
  53440. begin
  53441. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53442. end;
  53443. function TINT_IPC12.getU5IS : TBits_2; inline;
  53444. begin
  53445. getU5IS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53446. end;
  53447. procedure TINT_IPC12.setU5IP(thebits : TBits_3); inline;
  53448. begin
  53449. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53450. end;
  53451. function TINT_IPC12.getU5IP : TBits_3; inline;
  53452. begin
  53453. getU5IP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53454. end;
  53455. procedure TINT_IPC12.setU1BIS(thebits : TBits_2); inline;
  53456. begin
  53457. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  53458. end;
  53459. function TINT_IPC12.getU1BIS : TBits_2; inline;
  53460. begin
  53461. getU1BIS := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  53462. end;
  53463. procedure TINT_IPC12.setU1BIP(thebits : TBits_3); inline;
  53464. begin
  53465. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE3FF or ( thebits shl 10 );
  53466. end;
  53467. function TINT_IPC12.getU1BIP : TBits_3; inline;
  53468. begin
  53469. getU1BIP := (pTDefRegMap(@Self)^.val and $00001C00) shr 10;
  53470. end;
  53471. procedure TINT_IPC12.setU2BIS(thebits : TBits_2); inline;
  53472. begin
  53473. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFCFFFF or ( thebits shl 16 );
  53474. end;
  53475. function TINT_IPC12.getU2BIS : TBits_2; inline;
  53476. begin
  53477. getU2BIS := (pTDefRegMap(@Self)^.val and $00030000) shr 16;
  53478. end;
  53479. procedure TINT_IPC12.setU2BIP(thebits : TBits_3); inline;
  53480. begin
  53481. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE3FFFF or ( thebits shl 18 );
  53482. end;
  53483. function TINT_IPC12.getU2BIP : TBits_3; inline;
  53484. begin
  53485. getU2BIP := (pTDefRegMap(@Self)^.val and $001C0000) shr 18;
  53486. end;
  53487. procedure TINT_IPC12.setU3BIS(thebits : TBits_2); inline;
  53488. begin
  53489. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FCFFFFFF or ( thebits shl 24 );
  53490. end;
  53491. function TINT_IPC12.getU3BIS : TBits_2; inline;
  53492. begin
  53493. getU3BIS := (pTDefRegMap(@Self)^.val and $03000000) shr 24;
  53494. end;
  53495. procedure TINT_IPC12.setU3BIP(thebits : TBits_3); inline;
  53496. begin
  53497. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E3FFFFFF or ( thebits shl 26 );
  53498. end;
  53499. function TINT_IPC12.getU3BIP : TBits_3; inline;
  53500. begin
  53501. getU3BIP := (pTDefRegMap(@Self)^.val and $1C000000) shr 26;
  53502. end;
  53503. procedure TINT_IPC12.setw(thebits : TBits_32); inline;
  53504. begin
  53505. pTDefRegMap(@Self)^.val := thebits;
  53506. end;
  53507. function TINT_IPC12.getw : TBits_32; inline;
  53508. begin
  53509. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53510. end;
  53511. procedure TBMX_BMXCON.setBMXARB(thebits : TBits_3); inline;
  53512. begin
  53513. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  53514. end;
  53515. function TBMX_BMXCON.getBMXARB : TBits_3; inline;
  53516. begin
  53517. getBMXARB := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  53518. end;
  53519. procedure TBMX_BMXCON.setBMXWSDRM; inline;
  53520. begin
  53521. pTDefRegMap(@Self)^.&set := $00000040;
  53522. end;
  53523. procedure TBMX_BMXCON.clearBMXWSDRM; inline;
  53524. begin
  53525. pTDefRegMap(@Self)^.clr := $00000040;
  53526. end;
  53527. procedure TBMX_BMXCON.setBMXWSDRM(thebits : TBits_1); inline;
  53528. begin
  53529. if thebits = 0 then
  53530. pTDefRegMap(@Self)^.clr := $00000040
  53531. else
  53532. pTDefRegMap(@Self)^.&set := $00000040;
  53533. end;
  53534. function TBMX_BMXCON.getBMXWSDRM : TBits_1; inline;
  53535. begin
  53536. getBMXWSDRM := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53537. end;
  53538. procedure TBMX_BMXCON.setBMXERRIS; inline;
  53539. begin
  53540. pTDefRegMap(@Self)^.&set := $00010000;
  53541. end;
  53542. procedure TBMX_BMXCON.clearBMXERRIS; inline;
  53543. begin
  53544. pTDefRegMap(@Self)^.clr := $00010000;
  53545. end;
  53546. procedure TBMX_BMXCON.setBMXERRIS(thebits : TBits_1); inline;
  53547. begin
  53548. if thebits = 0 then
  53549. pTDefRegMap(@Self)^.clr := $00010000
  53550. else
  53551. pTDefRegMap(@Self)^.&set := $00010000;
  53552. end;
  53553. function TBMX_BMXCON.getBMXERRIS : TBits_1; inline;
  53554. begin
  53555. getBMXERRIS := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  53556. end;
  53557. procedure TBMX_BMXCON.setBMXERRDS; inline;
  53558. begin
  53559. pTDefRegMap(@Self)^.&set := $00020000;
  53560. end;
  53561. procedure TBMX_BMXCON.clearBMXERRDS; inline;
  53562. begin
  53563. pTDefRegMap(@Self)^.clr := $00020000;
  53564. end;
  53565. procedure TBMX_BMXCON.setBMXERRDS(thebits : TBits_1); inline;
  53566. begin
  53567. if thebits = 0 then
  53568. pTDefRegMap(@Self)^.clr := $00020000
  53569. else
  53570. pTDefRegMap(@Self)^.&set := $00020000;
  53571. end;
  53572. function TBMX_BMXCON.getBMXERRDS : TBits_1; inline;
  53573. begin
  53574. getBMXERRDS := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  53575. end;
  53576. procedure TBMX_BMXCON.setBMXERRDMA; inline;
  53577. begin
  53578. pTDefRegMap(@Self)^.&set := $00040000;
  53579. end;
  53580. procedure TBMX_BMXCON.clearBMXERRDMA; inline;
  53581. begin
  53582. pTDefRegMap(@Self)^.clr := $00040000;
  53583. end;
  53584. procedure TBMX_BMXCON.setBMXERRDMA(thebits : TBits_1); inline;
  53585. begin
  53586. if thebits = 0 then
  53587. pTDefRegMap(@Self)^.clr := $00040000
  53588. else
  53589. pTDefRegMap(@Self)^.&set := $00040000;
  53590. end;
  53591. function TBMX_BMXCON.getBMXERRDMA : TBits_1; inline;
  53592. begin
  53593. getBMXERRDMA := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  53594. end;
  53595. procedure TBMX_BMXCON.setBMXERRICD; inline;
  53596. begin
  53597. pTDefRegMap(@Self)^.&set := $00080000;
  53598. end;
  53599. procedure TBMX_BMXCON.clearBMXERRICD; inline;
  53600. begin
  53601. pTDefRegMap(@Self)^.clr := $00080000;
  53602. end;
  53603. procedure TBMX_BMXCON.setBMXERRICD(thebits : TBits_1); inline;
  53604. begin
  53605. if thebits = 0 then
  53606. pTDefRegMap(@Self)^.clr := $00080000
  53607. else
  53608. pTDefRegMap(@Self)^.&set := $00080000;
  53609. end;
  53610. function TBMX_BMXCON.getBMXERRICD : TBits_1; inline;
  53611. begin
  53612. getBMXERRICD := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  53613. end;
  53614. procedure TBMX_BMXCON.setBMXERRIXI; inline;
  53615. begin
  53616. pTDefRegMap(@Self)^.&set := $00100000;
  53617. end;
  53618. procedure TBMX_BMXCON.clearBMXERRIXI; inline;
  53619. begin
  53620. pTDefRegMap(@Self)^.clr := $00100000;
  53621. end;
  53622. procedure TBMX_BMXCON.setBMXERRIXI(thebits : TBits_1); inline;
  53623. begin
  53624. if thebits = 0 then
  53625. pTDefRegMap(@Self)^.clr := $00100000
  53626. else
  53627. pTDefRegMap(@Self)^.&set := $00100000;
  53628. end;
  53629. function TBMX_BMXCON.getBMXERRIXI : TBits_1; inline;
  53630. begin
  53631. getBMXERRIXI := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  53632. end;
  53633. procedure TBMX_BMXCON.setBMXCHEDMA; inline;
  53634. begin
  53635. pTDefRegMap(@Self)^.&set := $04000000;
  53636. end;
  53637. procedure TBMX_BMXCON.clearBMXCHEDMA; inline;
  53638. begin
  53639. pTDefRegMap(@Self)^.clr := $04000000;
  53640. end;
  53641. procedure TBMX_BMXCON.setBMXCHEDMA(thebits : TBits_1); inline;
  53642. begin
  53643. if thebits = 0 then
  53644. pTDefRegMap(@Self)^.clr := $04000000
  53645. else
  53646. pTDefRegMap(@Self)^.&set := $04000000;
  53647. end;
  53648. function TBMX_BMXCON.getBMXCHEDMA : TBits_1; inline;
  53649. begin
  53650. getBMXCHEDMA := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  53651. end;
  53652. procedure TBMX_BMXCON.setw(thebits : TBits_32); inline;
  53653. begin
  53654. pTDefRegMap(@Self)^.val := thebits;
  53655. end;
  53656. function TBMX_BMXCON.getw : TBits_32; inline;
  53657. begin
  53658. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53659. end;
  53660. procedure TDMAC_DMACON.setDMABUSY; inline;
  53661. begin
  53662. pTDefRegMap(@Self)^.&set := $00000800;
  53663. end;
  53664. procedure TDMAC_DMACON.clearDMABUSY; inline;
  53665. begin
  53666. pTDefRegMap(@Self)^.clr := $00000800;
  53667. end;
  53668. procedure TDMAC_DMACON.setDMABUSY(thebits : TBits_1); inline;
  53669. begin
  53670. if thebits = 0 then
  53671. pTDefRegMap(@Self)^.clr := $00000800
  53672. else
  53673. pTDefRegMap(@Self)^.&set := $00000800;
  53674. end;
  53675. function TDMAC_DMACON.getDMABUSY : TBits_1; inline;
  53676. begin
  53677. getDMABUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  53678. end;
  53679. procedure TDMAC_DMACON.setSUSPEND; inline;
  53680. begin
  53681. pTDefRegMap(@Self)^.&set := $00001000;
  53682. end;
  53683. procedure TDMAC_DMACON.clearSUSPEND; inline;
  53684. begin
  53685. pTDefRegMap(@Self)^.clr := $00001000;
  53686. end;
  53687. procedure TDMAC_DMACON.setSUSPEND(thebits : TBits_1); inline;
  53688. begin
  53689. if thebits = 0 then
  53690. pTDefRegMap(@Self)^.clr := $00001000
  53691. else
  53692. pTDefRegMap(@Self)^.&set := $00001000;
  53693. end;
  53694. function TDMAC_DMACON.getSUSPEND : TBits_1; inline;
  53695. begin
  53696. getSUSPEND := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  53697. end;
  53698. procedure TDMAC_DMACON.setON; inline;
  53699. begin
  53700. pTDefRegMap(@Self)^.&set := $00008000;
  53701. end;
  53702. procedure TDMAC_DMACON.clearON; inline;
  53703. begin
  53704. pTDefRegMap(@Self)^.clr := $00008000;
  53705. end;
  53706. procedure TDMAC_DMACON.setON(thebits : TBits_1); inline;
  53707. begin
  53708. if thebits = 0 then
  53709. pTDefRegMap(@Self)^.clr := $00008000
  53710. else
  53711. pTDefRegMap(@Self)^.&set := $00008000;
  53712. end;
  53713. function TDMAC_DMACON.getON : TBits_1; inline;
  53714. begin
  53715. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  53716. end;
  53717. procedure TDMAC_DMACON.setw(thebits : TBits_32); inline;
  53718. begin
  53719. pTDefRegMap(@Self)^.val := thebits;
  53720. end;
  53721. function TDMAC_DMACON.getw : TBits_32; inline;
  53722. begin
  53723. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53724. end;
  53725. procedure TDMAC_DMASTAT.setDMACH(thebits : TBits_3); inline;
  53726. begin
  53727. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  53728. end;
  53729. function TDMAC_DMASTAT.getDMACH : TBits_3; inline;
  53730. begin
  53731. getDMACH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  53732. end;
  53733. procedure TDMAC_DMASTAT.setRDWR; inline;
  53734. begin
  53735. pTDefRegMap(@Self)^.&set := $00000008;
  53736. end;
  53737. procedure TDMAC_DMASTAT.clearRDWR; inline;
  53738. begin
  53739. pTDefRegMap(@Self)^.clr := $00000008;
  53740. end;
  53741. procedure TDMAC_DMASTAT.setRDWR(thebits : TBits_1); inline;
  53742. begin
  53743. if thebits = 0 then
  53744. pTDefRegMap(@Self)^.clr := $00000008
  53745. else
  53746. pTDefRegMap(@Self)^.&set := $00000008;
  53747. end;
  53748. function TDMAC_DMASTAT.getRDWR : TBits_1; inline;
  53749. begin
  53750. getRDWR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  53751. end;
  53752. procedure TDMAC_DMASTAT.setw(thebits : TBits_32); inline;
  53753. begin
  53754. pTDefRegMap(@Self)^.val := thebits;
  53755. end;
  53756. function TDMAC_DMASTAT.getw : TBits_32; inline;
  53757. begin
  53758. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53759. end;
  53760. procedure TDMAC_DCRCCON.setCRCCH(thebits : TBits_3); inline;
  53761. begin
  53762. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  53763. end;
  53764. function TDMAC_DCRCCON.getCRCCH : TBits_3; inline;
  53765. begin
  53766. getCRCCH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  53767. end;
  53768. procedure TDMAC_DCRCCON.setCRCTYP; inline;
  53769. begin
  53770. pTDefRegMap(@Self)^.&set := $00000020;
  53771. end;
  53772. procedure TDMAC_DCRCCON.clearCRCTYP; inline;
  53773. begin
  53774. pTDefRegMap(@Self)^.clr := $00000020;
  53775. end;
  53776. procedure TDMAC_DCRCCON.setCRCTYP(thebits : TBits_1); inline;
  53777. begin
  53778. if thebits = 0 then
  53779. pTDefRegMap(@Self)^.clr := $00000020
  53780. else
  53781. pTDefRegMap(@Self)^.&set := $00000020;
  53782. end;
  53783. function TDMAC_DCRCCON.getCRCTYP : TBits_1; inline;
  53784. begin
  53785. getCRCTYP := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53786. end;
  53787. procedure TDMAC_DCRCCON.setCRCAPP; inline;
  53788. begin
  53789. pTDefRegMap(@Self)^.&set := $00000040;
  53790. end;
  53791. procedure TDMAC_DCRCCON.clearCRCAPP; inline;
  53792. begin
  53793. pTDefRegMap(@Self)^.clr := $00000040;
  53794. end;
  53795. procedure TDMAC_DCRCCON.setCRCAPP(thebits : TBits_1); inline;
  53796. begin
  53797. if thebits = 0 then
  53798. pTDefRegMap(@Self)^.clr := $00000040
  53799. else
  53800. pTDefRegMap(@Self)^.&set := $00000040;
  53801. end;
  53802. function TDMAC_DCRCCON.getCRCAPP : TBits_1; inline;
  53803. begin
  53804. getCRCAPP := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53805. end;
  53806. procedure TDMAC_DCRCCON.setCRCEN; inline;
  53807. begin
  53808. pTDefRegMap(@Self)^.&set := $00000080;
  53809. end;
  53810. procedure TDMAC_DCRCCON.clearCRCEN; inline;
  53811. begin
  53812. pTDefRegMap(@Self)^.clr := $00000080;
  53813. end;
  53814. procedure TDMAC_DCRCCON.setCRCEN(thebits : TBits_1); inline;
  53815. begin
  53816. if thebits = 0 then
  53817. pTDefRegMap(@Self)^.clr := $00000080
  53818. else
  53819. pTDefRegMap(@Self)^.&set := $00000080;
  53820. end;
  53821. function TDMAC_DCRCCON.getCRCEN : TBits_1; inline;
  53822. begin
  53823. getCRCEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53824. end;
  53825. procedure TDMAC_DCRCCON.setPLEN(thebits : TBits_5); inline;
  53826. begin
  53827. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  53828. end;
  53829. function TDMAC_DCRCCON.getPLEN : TBits_5; inline;
  53830. begin
  53831. getPLEN := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  53832. end;
  53833. procedure TDMAC_DCRCCON.setBITO; inline;
  53834. begin
  53835. pTDefRegMap(@Self)^.&set := $01000000;
  53836. end;
  53837. procedure TDMAC_DCRCCON.clearBITO; inline;
  53838. begin
  53839. pTDefRegMap(@Self)^.clr := $01000000;
  53840. end;
  53841. procedure TDMAC_DCRCCON.setBITO(thebits : TBits_1); inline;
  53842. begin
  53843. if thebits = 0 then
  53844. pTDefRegMap(@Self)^.clr := $01000000
  53845. else
  53846. pTDefRegMap(@Self)^.&set := $01000000;
  53847. end;
  53848. function TDMAC_DCRCCON.getBITO : TBits_1; inline;
  53849. begin
  53850. getBITO := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  53851. end;
  53852. procedure TDMAC_DCRCCON.setWBO; inline;
  53853. begin
  53854. pTDefRegMap(@Self)^.&set := $08000000;
  53855. end;
  53856. procedure TDMAC_DCRCCON.clearWBO; inline;
  53857. begin
  53858. pTDefRegMap(@Self)^.clr := $08000000;
  53859. end;
  53860. procedure TDMAC_DCRCCON.setWBO(thebits : TBits_1); inline;
  53861. begin
  53862. if thebits = 0 then
  53863. pTDefRegMap(@Self)^.clr := $08000000
  53864. else
  53865. pTDefRegMap(@Self)^.&set := $08000000;
  53866. end;
  53867. function TDMAC_DCRCCON.getWBO : TBits_1; inline;
  53868. begin
  53869. getWBO := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  53870. end;
  53871. procedure TDMAC_DCRCCON.setBYTO(thebits : TBits_2); inline;
  53872. begin
  53873. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $CFFFFFFF or ( thebits shl 28 );
  53874. end;
  53875. function TDMAC_DCRCCON.getBYTO : TBits_2; inline;
  53876. begin
  53877. getBYTO := (pTDefRegMap(@Self)^.val and $30000000) shr 28;
  53878. end;
  53879. procedure TDMAC_DCRCCON.setw(thebits : TBits_32); inline;
  53880. begin
  53881. pTDefRegMap(@Self)^.val := thebits;
  53882. end;
  53883. function TDMAC_DCRCCON.getw : TBits_32; inline;
  53884. begin
  53885. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  53886. end;
  53887. procedure TDMAC0_DCH0CON.setCHPRI(thebits : TBits_2); inline;
  53888. begin
  53889. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  53890. end;
  53891. function TDMAC0_DCH0CON.getCHPRI : TBits_2; inline;
  53892. begin
  53893. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  53894. end;
  53895. procedure TDMAC0_DCH0CON.setCHEDET; inline;
  53896. begin
  53897. pTDefRegMap(@Self)^.&set := $00000004;
  53898. end;
  53899. procedure TDMAC0_DCH0CON.clearCHEDET; inline;
  53900. begin
  53901. pTDefRegMap(@Self)^.clr := $00000004;
  53902. end;
  53903. procedure TDMAC0_DCH0CON.setCHEDET(thebits : TBits_1); inline;
  53904. begin
  53905. if thebits = 0 then
  53906. pTDefRegMap(@Self)^.clr := $00000004
  53907. else
  53908. pTDefRegMap(@Self)^.&set := $00000004;
  53909. end;
  53910. function TDMAC0_DCH0CON.getCHEDET : TBits_1; inline;
  53911. begin
  53912. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  53913. end;
  53914. procedure TDMAC0_DCH0CON.setCHAEN; inline;
  53915. begin
  53916. pTDefRegMap(@Self)^.&set := $00000010;
  53917. end;
  53918. procedure TDMAC0_DCH0CON.clearCHAEN; inline;
  53919. begin
  53920. pTDefRegMap(@Self)^.clr := $00000010;
  53921. end;
  53922. procedure TDMAC0_DCH0CON.setCHAEN(thebits : TBits_1); inline;
  53923. begin
  53924. if thebits = 0 then
  53925. pTDefRegMap(@Self)^.clr := $00000010
  53926. else
  53927. pTDefRegMap(@Self)^.&set := $00000010;
  53928. end;
  53929. function TDMAC0_DCH0CON.getCHAEN : TBits_1; inline;
  53930. begin
  53931. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  53932. end;
  53933. procedure TDMAC0_DCH0CON.setCHCHN; inline;
  53934. begin
  53935. pTDefRegMap(@Self)^.&set := $00000020;
  53936. end;
  53937. procedure TDMAC0_DCH0CON.clearCHCHN; inline;
  53938. begin
  53939. pTDefRegMap(@Self)^.clr := $00000020;
  53940. end;
  53941. procedure TDMAC0_DCH0CON.setCHCHN(thebits : TBits_1); inline;
  53942. begin
  53943. if thebits = 0 then
  53944. pTDefRegMap(@Self)^.clr := $00000020
  53945. else
  53946. pTDefRegMap(@Self)^.&set := $00000020;
  53947. end;
  53948. function TDMAC0_DCH0CON.getCHCHN : TBits_1; inline;
  53949. begin
  53950. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  53951. end;
  53952. procedure TDMAC0_DCH0CON.setCHAED; inline;
  53953. begin
  53954. pTDefRegMap(@Self)^.&set := $00000040;
  53955. end;
  53956. procedure TDMAC0_DCH0CON.clearCHAED; inline;
  53957. begin
  53958. pTDefRegMap(@Self)^.clr := $00000040;
  53959. end;
  53960. procedure TDMAC0_DCH0CON.setCHAED(thebits : TBits_1); inline;
  53961. begin
  53962. if thebits = 0 then
  53963. pTDefRegMap(@Self)^.clr := $00000040
  53964. else
  53965. pTDefRegMap(@Self)^.&set := $00000040;
  53966. end;
  53967. function TDMAC0_DCH0CON.getCHAED : TBits_1; inline;
  53968. begin
  53969. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  53970. end;
  53971. procedure TDMAC0_DCH0CON.setCHEN; inline;
  53972. begin
  53973. pTDefRegMap(@Self)^.&set := $00000080;
  53974. end;
  53975. procedure TDMAC0_DCH0CON.clearCHEN; inline;
  53976. begin
  53977. pTDefRegMap(@Self)^.clr := $00000080;
  53978. end;
  53979. procedure TDMAC0_DCH0CON.setCHEN(thebits : TBits_1); inline;
  53980. begin
  53981. if thebits = 0 then
  53982. pTDefRegMap(@Self)^.clr := $00000080
  53983. else
  53984. pTDefRegMap(@Self)^.&set := $00000080;
  53985. end;
  53986. function TDMAC0_DCH0CON.getCHEN : TBits_1; inline;
  53987. begin
  53988. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  53989. end;
  53990. procedure TDMAC0_DCH0CON.setCHCHNS; inline;
  53991. begin
  53992. pTDefRegMap(@Self)^.&set := $00000100;
  53993. end;
  53994. procedure TDMAC0_DCH0CON.clearCHCHNS; inline;
  53995. begin
  53996. pTDefRegMap(@Self)^.clr := $00000100;
  53997. end;
  53998. procedure TDMAC0_DCH0CON.setCHCHNS(thebits : TBits_1); inline;
  53999. begin
  54000. if thebits = 0 then
  54001. pTDefRegMap(@Self)^.clr := $00000100
  54002. else
  54003. pTDefRegMap(@Self)^.&set := $00000100;
  54004. end;
  54005. function TDMAC0_DCH0CON.getCHCHNS : TBits_1; inline;
  54006. begin
  54007. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  54008. end;
  54009. procedure TDMAC0_DCH0CON.setCHBUSY; inline;
  54010. begin
  54011. pTDefRegMap(@Self)^.&set := $00008000;
  54012. end;
  54013. procedure TDMAC0_DCH0CON.clearCHBUSY; inline;
  54014. begin
  54015. pTDefRegMap(@Self)^.clr := $00008000;
  54016. end;
  54017. procedure TDMAC0_DCH0CON.setCHBUSY(thebits : TBits_1); inline;
  54018. begin
  54019. if thebits = 0 then
  54020. pTDefRegMap(@Self)^.clr := $00008000
  54021. else
  54022. pTDefRegMap(@Self)^.&set := $00008000;
  54023. end;
  54024. function TDMAC0_DCH0CON.getCHBUSY : TBits_1; inline;
  54025. begin
  54026. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  54027. end;
  54028. procedure TDMAC0_DCH0CON.setw(thebits : TBits_32); inline;
  54029. begin
  54030. pTDefRegMap(@Self)^.val := thebits;
  54031. end;
  54032. function TDMAC0_DCH0CON.getw : TBits_32; inline;
  54033. begin
  54034. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54035. end;
  54036. procedure TDMAC0_DCH0ECON.setAIRQEN; inline;
  54037. begin
  54038. pTDefRegMap(@Self)^.&set := $00000008;
  54039. end;
  54040. procedure TDMAC0_DCH0ECON.clearAIRQEN; inline;
  54041. begin
  54042. pTDefRegMap(@Self)^.clr := $00000008;
  54043. end;
  54044. procedure TDMAC0_DCH0ECON.setAIRQEN(thebits : TBits_1); inline;
  54045. begin
  54046. if thebits = 0 then
  54047. pTDefRegMap(@Self)^.clr := $00000008
  54048. else
  54049. pTDefRegMap(@Self)^.&set := $00000008;
  54050. end;
  54051. function TDMAC0_DCH0ECON.getAIRQEN : TBits_1; inline;
  54052. begin
  54053. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  54054. end;
  54055. procedure TDMAC0_DCH0ECON.setSIRQEN; inline;
  54056. begin
  54057. pTDefRegMap(@Self)^.&set := $00000010;
  54058. end;
  54059. procedure TDMAC0_DCH0ECON.clearSIRQEN; inline;
  54060. begin
  54061. pTDefRegMap(@Self)^.clr := $00000010;
  54062. end;
  54063. procedure TDMAC0_DCH0ECON.setSIRQEN(thebits : TBits_1); inline;
  54064. begin
  54065. if thebits = 0 then
  54066. pTDefRegMap(@Self)^.clr := $00000010
  54067. else
  54068. pTDefRegMap(@Self)^.&set := $00000010;
  54069. end;
  54070. function TDMAC0_DCH0ECON.getSIRQEN : TBits_1; inline;
  54071. begin
  54072. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  54073. end;
  54074. procedure TDMAC0_DCH0ECON.setPATEN; inline;
  54075. begin
  54076. pTDefRegMap(@Self)^.&set := $00000020;
  54077. end;
  54078. procedure TDMAC0_DCH0ECON.clearPATEN; inline;
  54079. begin
  54080. pTDefRegMap(@Self)^.clr := $00000020;
  54081. end;
  54082. procedure TDMAC0_DCH0ECON.setPATEN(thebits : TBits_1); inline;
  54083. begin
  54084. if thebits = 0 then
  54085. pTDefRegMap(@Self)^.clr := $00000020
  54086. else
  54087. pTDefRegMap(@Self)^.&set := $00000020;
  54088. end;
  54089. function TDMAC0_DCH0ECON.getPATEN : TBits_1; inline;
  54090. begin
  54091. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  54092. end;
  54093. procedure TDMAC0_DCH0ECON.setCABORT; inline;
  54094. begin
  54095. pTDefRegMap(@Self)^.&set := $00000040;
  54096. end;
  54097. procedure TDMAC0_DCH0ECON.clearCABORT; inline;
  54098. begin
  54099. pTDefRegMap(@Self)^.clr := $00000040;
  54100. end;
  54101. procedure TDMAC0_DCH0ECON.setCABORT(thebits : TBits_1); inline;
  54102. begin
  54103. if thebits = 0 then
  54104. pTDefRegMap(@Self)^.clr := $00000040
  54105. else
  54106. pTDefRegMap(@Self)^.&set := $00000040;
  54107. end;
  54108. function TDMAC0_DCH0ECON.getCABORT : TBits_1; inline;
  54109. begin
  54110. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54111. end;
  54112. procedure TDMAC0_DCH0ECON.setCFORCE; inline;
  54113. begin
  54114. pTDefRegMap(@Self)^.&set := $00000080;
  54115. end;
  54116. procedure TDMAC0_DCH0ECON.clearCFORCE; inline;
  54117. begin
  54118. pTDefRegMap(@Self)^.clr := $00000080;
  54119. end;
  54120. procedure TDMAC0_DCH0ECON.setCFORCE(thebits : TBits_1); inline;
  54121. begin
  54122. if thebits = 0 then
  54123. pTDefRegMap(@Self)^.clr := $00000080
  54124. else
  54125. pTDefRegMap(@Self)^.&set := $00000080;
  54126. end;
  54127. function TDMAC0_DCH0ECON.getCFORCE : TBits_1; inline;
  54128. begin
  54129. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  54130. end;
  54131. procedure TDMAC0_DCH0ECON.setCHSIRQ(thebits : TBits_8); inline;
  54132. begin
  54133. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  54134. end;
  54135. function TDMAC0_DCH0ECON.getCHSIRQ : TBits_8; inline;
  54136. begin
  54137. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  54138. end;
  54139. procedure TDMAC0_DCH0ECON.setCHAIRQ(thebits : TBits_8); inline;
  54140. begin
  54141. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  54142. end;
  54143. function TDMAC0_DCH0ECON.getCHAIRQ : TBits_8; inline;
  54144. begin
  54145. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  54146. end;
  54147. procedure TDMAC0_DCH0ECON.setw(thebits : TBits_32); inline;
  54148. begin
  54149. pTDefRegMap(@Self)^.val := thebits;
  54150. end;
  54151. function TDMAC0_DCH0ECON.getw : TBits_32; inline;
  54152. begin
  54153. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54154. end;
  54155. procedure TDMAC0_DCH0INT.setCHERIF; inline;
  54156. begin
  54157. pTDefRegMap(@Self)^.&set := $00000001;
  54158. end;
  54159. procedure TDMAC0_DCH0INT.clearCHERIF; inline;
  54160. begin
  54161. pTDefRegMap(@Self)^.clr := $00000001;
  54162. end;
  54163. procedure TDMAC0_DCH0INT.setCHERIF(thebits : TBits_1); inline;
  54164. begin
  54165. if thebits = 0 then
  54166. pTDefRegMap(@Self)^.clr := $00000001
  54167. else
  54168. pTDefRegMap(@Self)^.&set := $00000001;
  54169. end;
  54170. function TDMAC0_DCH0INT.getCHERIF : TBits_1; inline;
  54171. begin
  54172. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  54173. end;
  54174. procedure TDMAC0_DCH0INT.setCHTAIF; inline;
  54175. begin
  54176. pTDefRegMap(@Self)^.&set := $00000002;
  54177. end;
  54178. procedure TDMAC0_DCH0INT.clearCHTAIF; inline;
  54179. begin
  54180. pTDefRegMap(@Self)^.clr := $00000002;
  54181. end;
  54182. procedure TDMAC0_DCH0INT.setCHTAIF(thebits : TBits_1); inline;
  54183. begin
  54184. if thebits = 0 then
  54185. pTDefRegMap(@Self)^.clr := $00000002
  54186. else
  54187. pTDefRegMap(@Self)^.&set := $00000002;
  54188. end;
  54189. function TDMAC0_DCH0INT.getCHTAIF : TBits_1; inline;
  54190. begin
  54191. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  54192. end;
  54193. procedure TDMAC0_DCH0INT.setCHCCIF; inline;
  54194. begin
  54195. pTDefRegMap(@Self)^.&set := $00000004;
  54196. end;
  54197. procedure TDMAC0_DCH0INT.clearCHCCIF; inline;
  54198. begin
  54199. pTDefRegMap(@Self)^.clr := $00000004;
  54200. end;
  54201. procedure TDMAC0_DCH0INT.setCHCCIF(thebits : TBits_1); inline;
  54202. begin
  54203. if thebits = 0 then
  54204. pTDefRegMap(@Self)^.clr := $00000004
  54205. else
  54206. pTDefRegMap(@Self)^.&set := $00000004;
  54207. end;
  54208. function TDMAC0_DCH0INT.getCHCCIF : TBits_1; inline;
  54209. begin
  54210. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  54211. end;
  54212. procedure TDMAC0_DCH0INT.setCHBCIF; inline;
  54213. begin
  54214. pTDefRegMap(@Self)^.&set := $00000008;
  54215. end;
  54216. procedure TDMAC0_DCH0INT.clearCHBCIF; inline;
  54217. begin
  54218. pTDefRegMap(@Self)^.clr := $00000008;
  54219. end;
  54220. procedure TDMAC0_DCH0INT.setCHBCIF(thebits : TBits_1); inline;
  54221. begin
  54222. if thebits = 0 then
  54223. pTDefRegMap(@Self)^.clr := $00000008
  54224. else
  54225. pTDefRegMap(@Self)^.&set := $00000008;
  54226. end;
  54227. function TDMAC0_DCH0INT.getCHBCIF : TBits_1; inline;
  54228. begin
  54229. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  54230. end;
  54231. procedure TDMAC0_DCH0INT.setCHDHIF; inline;
  54232. begin
  54233. pTDefRegMap(@Self)^.&set := $00000010;
  54234. end;
  54235. procedure TDMAC0_DCH0INT.clearCHDHIF; inline;
  54236. begin
  54237. pTDefRegMap(@Self)^.clr := $00000010;
  54238. end;
  54239. procedure TDMAC0_DCH0INT.setCHDHIF(thebits : TBits_1); inline;
  54240. begin
  54241. if thebits = 0 then
  54242. pTDefRegMap(@Self)^.clr := $00000010
  54243. else
  54244. pTDefRegMap(@Self)^.&set := $00000010;
  54245. end;
  54246. function TDMAC0_DCH0INT.getCHDHIF : TBits_1; inline;
  54247. begin
  54248. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  54249. end;
  54250. procedure TDMAC0_DCH0INT.setCHDDIF; inline;
  54251. begin
  54252. pTDefRegMap(@Self)^.&set := $00000020;
  54253. end;
  54254. procedure TDMAC0_DCH0INT.clearCHDDIF; inline;
  54255. begin
  54256. pTDefRegMap(@Self)^.clr := $00000020;
  54257. end;
  54258. procedure TDMAC0_DCH0INT.setCHDDIF(thebits : TBits_1); inline;
  54259. begin
  54260. if thebits = 0 then
  54261. pTDefRegMap(@Self)^.clr := $00000020
  54262. else
  54263. pTDefRegMap(@Self)^.&set := $00000020;
  54264. end;
  54265. function TDMAC0_DCH0INT.getCHDDIF : TBits_1; inline;
  54266. begin
  54267. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  54268. end;
  54269. procedure TDMAC0_DCH0INT.setCHSHIF; inline;
  54270. begin
  54271. pTDefRegMap(@Self)^.&set := $00000040;
  54272. end;
  54273. procedure TDMAC0_DCH0INT.clearCHSHIF; inline;
  54274. begin
  54275. pTDefRegMap(@Self)^.clr := $00000040;
  54276. end;
  54277. procedure TDMAC0_DCH0INT.setCHSHIF(thebits : TBits_1); inline;
  54278. begin
  54279. if thebits = 0 then
  54280. pTDefRegMap(@Self)^.clr := $00000040
  54281. else
  54282. pTDefRegMap(@Self)^.&set := $00000040;
  54283. end;
  54284. function TDMAC0_DCH0INT.getCHSHIF : TBits_1; inline;
  54285. begin
  54286. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54287. end;
  54288. procedure TDMAC0_DCH0INT.setCHSDIF; inline;
  54289. begin
  54290. pTDefRegMap(@Self)^.&set := $00000080;
  54291. end;
  54292. procedure TDMAC0_DCH0INT.clearCHSDIF; inline;
  54293. begin
  54294. pTDefRegMap(@Self)^.clr := $00000080;
  54295. end;
  54296. procedure TDMAC0_DCH0INT.setCHSDIF(thebits : TBits_1); inline;
  54297. begin
  54298. if thebits = 0 then
  54299. pTDefRegMap(@Self)^.clr := $00000080
  54300. else
  54301. pTDefRegMap(@Self)^.&set := $00000080;
  54302. end;
  54303. function TDMAC0_DCH0INT.getCHSDIF : TBits_1; inline;
  54304. begin
  54305. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  54306. end;
  54307. procedure TDMAC0_DCH0INT.setCHERIE; inline;
  54308. begin
  54309. pTDefRegMap(@Self)^.&set := $00010000;
  54310. end;
  54311. procedure TDMAC0_DCH0INT.clearCHERIE; inline;
  54312. begin
  54313. pTDefRegMap(@Self)^.clr := $00010000;
  54314. end;
  54315. procedure TDMAC0_DCH0INT.setCHERIE(thebits : TBits_1); inline;
  54316. begin
  54317. if thebits = 0 then
  54318. pTDefRegMap(@Self)^.clr := $00010000
  54319. else
  54320. pTDefRegMap(@Self)^.&set := $00010000;
  54321. end;
  54322. function TDMAC0_DCH0INT.getCHERIE : TBits_1; inline;
  54323. begin
  54324. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  54325. end;
  54326. procedure TDMAC0_DCH0INT.setCHTAIE; inline;
  54327. begin
  54328. pTDefRegMap(@Self)^.&set := $00020000;
  54329. end;
  54330. procedure TDMAC0_DCH0INT.clearCHTAIE; inline;
  54331. begin
  54332. pTDefRegMap(@Self)^.clr := $00020000;
  54333. end;
  54334. procedure TDMAC0_DCH0INT.setCHTAIE(thebits : TBits_1); inline;
  54335. begin
  54336. if thebits = 0 then
  54337. pTDefRegMap(@Self)^.clr := $00020000
  54338. else
  54339. pTDefRegMap(@Self)^.&set := $00020000;
  54340. end;
  54341. function TDMAC0_DCH0INT.getCHTAIE : TBits_1; inline;
  54342. begin
  54343. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  54344. end;
  54345. procedure TDMAC0_DCH0INT.setCHCCIE; inline;
  54346. begin
  54347. pTDefRegMap(@Self)^.&set := $00040000;
  54348. end;
  54349. procedure TDMAC0_DCH0INT.clearCHCCIE; inline;
  54350. begin
  54351. pTDefRegMap(@Self)^.clr := $00040000;
  54352. end;
  54353. procedure TDMAC0_DCH0INT.setCHCCIE(thebits : TBits_1); inline;
  54354. begin
  54355. if thebits = 0 then
  54356. pTDefRegMap(@Self)^.clr := $00040000
  54357. else
  54358. pTDefRegMap(@Self)^.&set := $00040000;
  54359. end;
  54360. function TDMAC0_DCH0INT.getCHCCIE : TBits_1; inline;
  54361. begin
  54362. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  54363. end;
  54364. procedure TDMAC0_DCH0INT.setCHBCIE; inline;
  54365. begin
  54366. pTDefRegMap(@Self)^.&set := $00080000;
  54367. end;
  54368. procedure TDMAC0_DCH0INT.clearCHBCIE; inline;
  54369. begin
  54370. pTDefRegMap(@Self)^.clr := $00080000;
  54371. end;
  54372. procedure TDMAC0_DCH0INT.setCHBCIE(thebits : TBits_1); inline;
  54373. begin
  54374. if thebits = 0 then
  54375. pTDefRegMap(@Self)^.clr := $00080000
  54376. else
  54377. pTDefRegMap(@Self)^.&set := $00080000;
  54378. end;
  54379. function TDMAC0_DCH0INT.getCHBCIE : TBits_1; inline;
  54380. begin
  54381. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  54382. end;
  54383. procedure TDMAC0_DCH0INT.setCHDHIE; inline;
  54384. begin
  54385. pTDefRegMap(@Self)^.&set := $00100000;
  54386. end;
  54387. procedure TDMAC0_DCH0INT.clearCHDHIE; inline;
  54388. begin
  54389. pTDefRegMap(@Self)^.clr := $00100000;
  54390. end;
  54391. procedure TDMAC0_DCH0INT.setCHDHIE(thebits : TBits_1); inline;
  54392. begin
  54393. if thebits = 0 then
  54394. pTDefRegMap(@Self)^.clr := $00100000
  54395. else
  54396. pTDefRegMap(@Self)^.&set := $00100000;
  54397. end;
  54398. function TDMAC0_DCH0INT.getCHDHIE : TBits_1; inline;
  54399. begin
  54400. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  54401. end;
  54402. procedure TDMAC0_DCH0INT.setCHDDIE; inline;
  54403. begin
  54404. pTDefRegMap(@Self)^.&set := $00200000;
  54405. end;
  54406. procedure TDMAC0_DCH0INT.clearCHDDIE; inline;
  54407. begin
  54408. pTDefRegMap(@Self)^.clr := $00200000;
  54409. end;
  54410. procedure TDMAC0_DCH0INT.setCHDDIE(thebits : TBits_1); inline;
  54411. begin
  54412. if thebits = 0 then
  54413. pTDefRegMap(@Self)^.clr := $00200000
  54414. else
  54415. pTDefRegMap(@Self)^.&set := $00200000;
  54416. end;
  54417. function TDMAC0_DCH0INT.getCHDDIE : TBits_1; inline;
  54418. begin
  54419. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  54420. end;
  54421. procedure TDMAC0_DCH0INT.setCHSHIE; inline;
  54422. begin
  54423. pTDefRegMap(@Self)^.&set := $00400000;
  54424. end;
  54425. procedure TDMAC0_DCH0INT.clearCHSHIE; inline;
  54426. begin
  54427. pTDefRegMap(@Self)^.clr := $00400000;
  54428. end;
  54429. procedure TDMAC0_DCH0INT.setCHSHIE(thebits : TBits_1); inline;
  54430. begin
  54431. if thebits = 0 then
  54432. pTDefRegMap(@Self)^.clr := $00400000
  54433. else
  54434. pTDefRegMap(@Self)^.&set := $00400000;
  54435. end;
  54436. function TDMAC0_DCH0INT.getCHSHIE : TBits_1; inline;
  54437. begin
  54438. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  54439. end;
  54440. procedure TDMAC0_DCH0INT.setCHSDIE; inline;
  54441. begin
  54442. pTDefRegMap(@Self)^.&set := $00800000;
  54443. end;
  54444. procedure TDMAC0_DCH0INT.clearCHSDIE; inline;
  54445. begin
  54446. pTDefRegMap(@Self)^.clr := $00800000;
  54447. end;
  54448. procedure TDMAC0_DCH0INT.setCHSDIE(thebits : TBits_1); inline;
  54449. begin
  54450. if thebits = 0 then
  54451. pTDefRegMap(@Self)^.clr := $00800000
  54452. else
  54453. pTDefRegMap(@Self)^.&set := $00800000;
  54454. end;
  54455. function TDMAC0_DCH0INT.getCHSDIE : TBits_1; inline;
  54456. begin
  54457. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  54458. end;
  54459. procedure TDMAC0_DCH0INT.setw(thebits : TBits_32); inline;
  54460. begin
  54461. pTDefRegMap(@Self)^.val := thebits;
  54462. end;
  54463. function TDMAC0_DCH0INT.getw : TBits_32; inline;
  54464. begin
  54465. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54466. end;
  54467. procedure TDMAC1_DCH1CON.setCHPRI(thebits : TBits_2); inline;
  54468. begin
  54469. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  54470. end;
  54471. function TDMAC1_DCH1CON.getCHPRI : TBits_2; inline;
  54472. begin
  54473. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  54474. end;
  54475. procedure TDMAC1_DCH1CON.setCHEDET; inline;
  54476. begin
  54477. pTDefRegMap(@Self)^.&set := $00000004;
  54478. end;
  54479. procedure TDMAC1_DCH1CON.clearCHEDET; inline;
  54480. begin
  54481. pTDefRegMap(@Self)^.clr := $00000004;
  54482. end;
  54483. procedure TDMAC1_DCH1CON.setCHEDET(thebits : TBits_1); inline;
  54484. begin
  54485. if thebits = 0 then
  54486. pTDefRegMap(@Self)^.clr := $00000004
  54487. else
  54488. pTDefRegMap(@Self)^.&set := $00000004;
  54489. end;
  54490. function TDMAC1_DCH1CON.getCHEDET : TBits_1; inline;
  54491. begin
  54492. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  54493. end;
  54494. procedure TDMAC1_DCH1CON.setCHAEN; inline;
  54495. begin
  54496. pTDefRegMap(@Self)^.&set := $00000010;
  54497. end;
  54498. procedure TDMAC1_DCH1CON.clearCHAEN; inline;
  54499. begin
  54500. pTDefRegMap(@Self)^.clr := $00000010;
  54501. end;
  54502. procedure TDMAC1_DCH1CON.setCHAEN(thebits : TBits_1); inline;
  54503. begin
  54504. if thebits = 0 then
  54505. pTDefRegMap(@Self)^.clr := $00000010
  54506. else
  54507. pTDefRegMap(@Self)^.&set := $00000010;
  54508. end;
  54509. function TDMAC1_DCH1CON.getCHAEN : TBits_1; inline;
  54510. begin
  54511. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  54512. end;
  54513. procedure TDMAC1_DCH1CON.setCHCHN; inline;
  54514. begin
  54515. pTDefRegMap(@Self)^.&set := $00000020;
  54516. end;
  54517. procedure TDMAC1_DCH1CON.clearCHCHN; inline;
  54518. begin
  54519. pTDefRegMap(@Self)^.clr := $00000020;
  54520. end;
  54521. procedure TDMAC1_DCH1CON.setCHCHN(thebits : TBits_1); inline;
  54522. begin
  54523. if thebits = 0 then
  54524. pTDefRegMap(@Self)^.clr := $00000020
  54525. else
  54526. pTDefRegMap(@Self)^.&set := $00000020;
  54527. end;
  54528. function TDMAC1_DCH1CON.getCHCHN : TBits_1; inline;
  54529. begin
  54530. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  54531. end;
  54532. procedure TDMAC1_DCH1CON.setCHAED; inline;
  54533. begin
  54534. pTDefRegMap(@Self)^.&set := $00000040;
  54535. end;
  54536. procedure TDMAC1_DCH1CON.clearCHAED; inline;
  54537. begin
  54538. pTDefRegMap(@Self)^.clr := $00000040;
  54539. end;
  54540. procedure TDMAC1_DCH1CON.setCHAED(thebits : TBits_1); inline;
  54541. begin
  54542. if thebits = 0 then
  54543. pTDefRegMap(@Self)^.clr := $00000040
  54544. else
  54545. pTDefRegMap(@Self)^.&set := $00000040;
  54546. end;
  54547. function TDMAC1_DCH1CON.getCHAED : TBits_1; inline;
  54548. begin
  54549. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54550. end;
  54551. procedure TDMAC1_DCH1CON.setCHEN; inline;
  54552. begin
  54553. pTDefRegMap(@Self)^.&set := $00000080;
  54554. end;
  54555. procedure TDMAC1_DCH1CON.clearCHEN; inline;
  54556. begin
  54557. pTDefRegMap(@Self)^.clr := $00000080;
  54558. end;
  54559. procedure TDMAC1_DCH1CON.setCHEN(thebits : TBits_1); inline;
  54560. begin
  54561. if thebits = 0 then
  54562. pTDefRegMap(@Self)^.clr := $00000080
  54563. else
  54564. pTDefRegMap(@Self)^.&set := $00000080;
  54565. end;
  54566. function TDMAC1_DCH1CON.getCHEN : TBits_1; inline;
  54567. begin
  54568. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  54569. end;
  54570. procedure TDMAC1_DCH1CON.setCHCHNS; inline;
  54571. begin
  54572. pTDefRegMap(@Self)^.&set := $00000100;
  54573. end;
  54574. procedure TDMAC1_DCH1CON.clearCHCHNS; inline;
  54575. begin
  54576. pTDefRegMap(@Self)^.clr := $00000100;
  54577. end;
  54578. procedure TDMAC1_DCH1CON.setCHCHNS(thebits : TBits_1); inline;
  54579. begin
  54580. if thebits = 0 then
  54581. pTDefRegMap(@Self)^.clr := $00000100
  54582. else
  54583. pTDefRegMap(@Self)^.&set := $00000100;
  54584. end;
  54585. function TDMAC1_DCH1CON.getCHCHNS : TBits_1; inline;
  54586. begin
  54587. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  54588. end;
  54589. procedure TDMAC1_DCH1CON.setCHBUSY; inline;
  54590. begin
  54591. pTDefRegMap(@Self)^.&set := $00008000;
  54592. end;
  54593. procedure TDMAC1_DCH1CON.clearCHBUSY; inline;
  54594. begin
  54595. pTDefRegMap(@Self)^.clr := $00008000;
  54596. end;
  54597. procedure TDMAC1_DCH1CON.setCHBUSY(thebits : TBits_1); inline;
  54598. begin
  54599. if thebits = 0 then
  54600. pTDefRegMap(@Self)^.clr := $00008000
  54601. else
  54602. pTDefRegMap(@Self)^.&set := $00008000;
  54603. end;
  54604. function TDMAC1_DCH1CON.getCHBUSY : TBits_1; inline;
  54605. begin
  54606. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  54607. end;
  54608. procedure TDMAC1_DCH1CON.setw(thebits : TBits_32); inline;
  54609. begin
  54610. pTDefRegMap(@Self)^.val := thebits;
  54611. end;
  54612. function TDMAC1_DCH1CON.getw : TBits_32; inline;
  54613. begin
  54614. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54615. end;
  54616. procedure TDMAC1_DCH1ECON.setAIRQEN; inline;
  54617. begin
  54618. pTDefRegMap(@Self)^.&set := $00000008;
  54619. end;
  54620. procedure TDMAC1_DCH1ECON.clearAIRQEN; inline;
  54621. begin
  54622. pTDefRegMap(@Self)^.clr := $00000008;
  54623. end;
  54624. procedure TDMAC1_DCH1ECON.setAIRQEN(thebits : TBits_1); inline;
  54625. begin
  54626. if thebits = 0 then
  54627. pTDefRegMap(@Self)^.clr := $00000008
  54628. else
  54629. pTDefRegMap(@Self)^.&set := $00000008;
  54630. end;
  54631. function TDMAC1_DCH1ECON.getAIRQEN : TBits_1; inline;
  54632. begin
  54633. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  54634. end;
  54635. procedure TDMAC1_DCH1ECON.setSIRQEN; inline;
  54636. begin
  54637. pTDefRegMap(@Self)^.&set := $00000010;
  54638. end;
  54639. procedure TDMAC1_DCH1ECON.clearSIRQEN; inline;
  54640. begin
  54641. pTDefRegMap(@Self)^.clr := $00000010;
  54642. end;
  54643. procedure TDMAC1_DCH1ECON.setSIRQEN(thebits : TBits_1); inline;
  54644. begin
  54645. if thebits = 0 then
  54646. pTDefRegMap(@Self)^.clr := $00000010
  54647. else
  54648. pTDefRegMap(@Self)^.&set := $00000010;
  54649. end;
  54650. function TDMAC1_DCH1ECON.getSIRQEN : TBits_1; inline;
  54651. begin
  54652. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  54653. end;
  54654. procedure TDMAC1_DCH1ECON.setPATEN; inline;
  54655. begin
  54656. pTDefRegMap(@Self)^.&set := $00000020;
  54657. end;
  54658. procedure TDMAC1_DCH1ECON.clearPATEN; inline;
  54659. begin
  54660. pTDefRegMap(@Self)^.clr := $00000020;
  54661. end;
  54662. procedure TDMAC1_DCH1ECON.setPATEN(thebits : TBits_1); inline;
  54663. begin
  54664. if thebits = 0 then
  54665. pTDefRegMap(@Self)^.clr := $00000020
  54666. else
  54667. pTDefRegMap(@Self)^.&set := $00000020;
  54668. end;
  54669. function TDMAC1_DCH1ECON.getPATEN : TBits_1; inline;
  54670. begin
  54671. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  54672. end;
  54673. procedure TDMAC1_DCH1ECON.setCABORT; inline;
  54674. begin
  54675. pTDefRegMap(@Self)^.&set := $00000040;
  54676. end;
  54677. procedure TDMAC1_DCH1ECON.clearCABORT; inline;
  54678. begin
  54679. pTDefRegMap(@Self)^.clr := $00000040;
  54680. end;
  54681. procedure TDMAC1_DCH1ECON.setCABORT(thebits : TBits_1); inline;
  54682. begin
  54683. if thebits = 0 then
  54684. pTDefRegMap(@Self)^.clr := $00000040
  54685. else
  54686. pTDefRegMap(@Self)^.&set := $00000040;
  54687. end;
  54688. function TDMAC1_DCH1ECON.getCABORT : TBits_1; inline;
  54689. begin
  54690. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54691. end;
  54692. procedure TDMAC1_DCH1ECON.setCFORCE; inline;
  54693. begin
  54694. pTDefRegMap(@Self)^.&set := $00000080;
  54695. end;
  54696. procedure TDMAC1_DCH1ECON.clearCFORCE; inline;
  54697. begin
  54698. pTDefRegMap(@Self)^.clr := $00000080;
  54699. end;
  54700. procedure TDMAC1_DCH1ECON.setCFORCE(thebits : TBits_1); inline;
  54701. begin
  54702. if thebits = 0 then
  54703. pTDefRegMap(@Self)^.clr := $00000080
  54704. else
  54705. pTDefRegMap(@Self)^.&set := $00000080;
  54706. end;
  54707. function TDMAC1_DCH1ECON.getCFORCE : TBits_1; inline;
  54708. begin
  54709. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  54710. end;
  54711. procedure TDMAC1_DCH1ECON.setCHSIRQ(thebits : TBits_8); inline;
  54712. begin
  54713. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  54714. end;
  54715. function TDMAC1_DCH1ECON.getCHSIRQ : TBits_8; inline;
  54716. begin
  54717. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  54718. end;
  54719. procedure TDMAC1_DCH1ECON.setCHAIRQ(thebits : TBits_8); inline;
  54720. begin
  54721. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  54722. end;
  54723. function TDMAC1_DCH1ECON.getCHAIRQ : TBits_8; inline;
  54724. begin
  54725. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  54726. end;
  54727. procedure TDMAC1_DCH1ECON.setw(thebits : TBits_32); inline;
  54728. begin
  54729. pTDefRegMap(@Self)^.val := thebits;
  54730. end;
  54731. function TDMAC1_DCH1ECON.getw : TBits_32; inline;
  54732. begin
  54733. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  54734. end;
  54735. procedure TDMAC1_DCH1INT.setCHERIF; inline;
  54736. begin
  54737. pTDefRegMap(@Self)^.&set := $00000001;
  54738. end;
  54739. procedure TDMAC1_DCH1INT.clearCHERIF; inline;
  54740. begin
  54741. pTDefRegMap(@Self)^.clr := $00000001;
  54742. end;
  54743. procedure TDMAC1_DCH1INT.setCHERIF(thebits : TBits_1); inline;
  54744. begin
  54745. if thebits = 0 then
  54746. pTDefRegMap(@Self)^.clr := $00000001
  54747. else
  54748. pTDefRegMap(@Self)^.&set := $00000001;
  54749. end;
  54750. function TDMAC1_DCH1INT.getCHERIF : TBits_1; inline;
  54751. begin
  54752. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  54753. end;
  54754. procedure TDMAC1_DCH1INT.setCHTAIF; inline;
  54755. begin
  54756. pTDefRegMap(@Self)^.&set := $00000002;
  54757. end;
  54758. procedure TDMAC1_DCH1INT.clearCHTAIF; inline;
  54759. begin
  54760. pTDefRegMap(@Self)^.clr := $00000002;
  54761. end;
  54762. procedure TDMAC1_DCH1INT.setCHTAIF(thebits : TBits_1); inline;
  54763. begin
  54764. if thebits = 0 then
  54765. pTDefRegMap(@Self)^.clr := $00000002
  54766. else
  54767. pTDefRegMap(@Self)^.&set := $00000002;
  54768. end;
  54769. function TDMAC1_DCH1INT.getCHTAIF : TBits_1; inline;
  54770. begin
  54771. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  54772. end;
  54773. procedure TDMAC1_DCH1INT.setCHCCIF; inline;
  54774. begin
  54775. pTDefRegMap(@Self)^.&set := $00000004;
  54776. end;
  54777. procedure TDMAC1_DCH1INT.clearCHCCIF; inline;
  54778. begin
  54779. pTDefRegMap(@Self)^.clr := $00000004;
  54780. end;
  54781. procedure TDMAC1_DCH1INT.setCHCCIF(thebits : TBits_1); inline;
  54782. begin
  54783. if thebits = 0 then
  54784. pTDefRegMap(@Self)^.clr := $00000004
  54785. else
  54786. pTDefRegMap(@Self)^.&set := $00000004;
  54787. end;
  54788. function TDMAC1_DCH1INT.getCHCCIF : TBits_1; inline;
  54789. begin
  54790. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  54791. end;
  54792. procedure TDMAC1_DCH1INT.setCHBCIF; inline;
  54793. begin
  54794. pTDefRegMap(@Self)^.&set := $00000008;
  54795. end;
  54796. procedure TDMAC1_DCH1INT.clearCHBCIF; inline;
  54797. begin
  54798. pTDefRegMap(@Self)^.clr := $00000008;
  54799. end;
  54800. procedure TDMAC1_DCH1INT.setCHBCIF(thebits : TBits_1); inline;
  54801. begin
  54802. if thebits = 0 then
  54803. pTDefRegMap(@Self)^.clr := $00000008
  54804. else
  54805. pTDefRegMap(@Self)^.&set := $00000008;
  54806. end;
  54807. function TDMAC1_DCH1INT.getCHBCIF : TBits_1; inline;
  54808. begin
  54809. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  54810. end;
  54811. procedure TDMAC1_DCH1INT.setCHDHIF; inline;
  54812. begin
  54813. pTDefRegMap(@Self)^.&set := $00000010;
  54814. end;
  54815. procedure TDMAC1_DCH1INT.clearCHDHIF; inline;
  54816. begin
  54817. pTDefRegMap(@Self)^.clr := $00000010;
  54818. end;
  54819. procedure TDMAC1_DCH1INT.setCHDHIF(thebits : TBits_1); inline;
  54820. begin
  54821. if thebits = 0 then
  54822. pTDefRegMap(@Self)^.clr := $00000010
  54823. else
  54824. pTDefRegMap(@Self)^.&set := $00000010;
  54825. end;
  54826. function TDMAC1_DCH1INT.getCHDHIF : TBits_1; inline;
  54827. begin
  54828. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  54829. end;
  54830. procedure TDMAC1_DCH1INT.setCHDDIF; inline;
  54831. begin
  54832. pTDefRegMap(@Self)^.&set := $00000020;
  54833. end;
  54834. procedure TDMAC1_DCH1INT.clearCHDDIF; inline;
  54835. begin
  54836. pTDefRegMap(@Self)^.clr := $00000020;
  54837. end;
  54838. procedure TDMAC1_DCH1INT.setCHDDIF(thebits : TBits_1); inline;
  54839. begin
  54840. if thebits = 0 then
  54841. pTDefRegMap(@Self)^.clr := $00000020
  54842. else
  54843. pTDefRegMap(@Self)^.&set := $00000020;
  54844. end;
  54845. function TDMAC1_DCH1INT.getCHDDIF : TBits_1; inline;
  54846. begin
  54847. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  54848. end;
  54849. procedure TDMAC1_DCH1INT.setCHSHIF; inline;
  54850. begin
  54851. pTDefRegMap(@Self)^.&set := $00000040;
  54852. end;
  54853. procedure TDMAC1_DCH1INT.clearCHSHIF; inline;
  54854. begin
  54855. pTDefRegMap(@Self)^.clr := $00000040;
  54856. end;
  54857. procedure TDMAC1_DCH1INT.setCHSHIF(thebits : TBits_1); inline;
  54858. begin
  54859. if thebits = 0 then
  54860. pTDefRegMap(@Self)^.clr := $00000040
  54861. else
  54862. pTDefRegMap(@Self)^.&set := $00000040;
  54863. end;
  54864. function TDMAC1_DCH1INT.getCHSHIF : TBits_1; inline;
  54865. begin
  54866. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  54867. end;
  54868. procedure TDMAC1_DCH1INT.setCHSDIF; inline;
  54869. begin
  54870. pTDefRegMap(@Self)^.&set := $00000080;
  54871. end;
  54872. procedure TDMAC1_DCH1INT.clearCHSDIF; inline;
  54873. begin
  54874. pTDefRegMap(@Self)^.clr := $00000080;
  54875. end;
  54876. procedure TDMAC1_DCH1INT.setCHSDIF(thebits : TBits_1); inline;
  54877. begin
  54878. if thebits = 0 then
  54879. pTDefRegMap(@Self)^.clr := $00000080
  54880. else
  54881. pTDefRegMap(@Self)^.&set := $00000080;
  54882. end;
  54883. function TDMAC1_DCH1INT.getCHSDIF : TBits_1; inline;
  54884. begin
  54885. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  54886. end;
  54887. procedure TDMAC1_DCH1INT.setCHERIE; inline;
  54888. begin
  54889. pTDefRegMap(@Self)^.&set := $00010000;
  54890. end;
  54891. procedure TDMAC1_DCH1INT.clearCHERIE; inline;
  54892. begin
  54893. pTDefRegMap(@Self)^.clr := $00010000;
  54894. end;
  54895. procedure TDMAC1_DCH1INT.setCHERIE(thebits : TBits_1); inline;
  54896. begin
  54897. if thebits = 0 then
  54898. pTDefRegMap(@Self)^.clr := $00010000
  54899. else
  54900. pTDefRegMap(@Self)^.&set := $00010000;
  54901. end;
  54902. function TDMAC1_DCH1INT.getCHERIE : TBits_1; inline;
  54903. begin
  54904. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  54905. end;
  54906. procedure TDMAC1_DCH1INT.setCHTAIE; inline;
  54907. begin
  54908. pTDefRegMap(@Self)^.&set := $00020000;
  54909. end;
  54910. procedure TDMAC1_DCH1INT.clearCHTAIE; inline;
  54911. begin
  54912. pTDefRegMap(@Self)^.clr := $00020000;
  54913. end;
  54914. procedure TDMAC1_DCH1INT.setCHTAIE(thebits : TBits_1); inline;
  54915. begin
  54916. if thebits = 0 then
  54917. pTDefRegMap(@Self)^.clr := $00020000
  54918. else
  54919. pTDefRegMap(@Self)^.&set := $00020000;
  54920. end;
  54921. function TDMAC1_DCH1INT.getCHTAIE : TBits_1; inline;
  54922. begin
  54923. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  54924. end;
  54925. procedure TDMAC1_DCH1INT.setCHCCIE; inline;
  54926. begin
  54927. pTDefRegMap(@Self)^.&set := $00040000;
  54928. end;
  54929. procedure TDMAC1_DCH1INT.clearCHCCIE; inline;
  54930. begin
  54931. pTDefRegMap(@Self)^.clr := $00040000;
  54932. end;
  54933. procedure TDMAC1_DCH1INT.setCHCCIE(thebits : TBits_1); inline;
  54934. begin
  54935. if thebits = 0 then
  54936. pTDefRegMap(@Self)^.clr := $00040000
  54937. else
  54938. pTDefRegMap(@Self)^.&set := $00040000;
  54939. end;
  54940. function TDMAC1_DCH1INT.getCHCCIE : TBits_1; inline;
  54941. begin
  54942. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  54943. end;
  54944. procedure TDMAC1_DCH1INT.setCHBCIE; inline;
  54945. begin
  54946. pTDefRegMap(@Self)^.&set := $00080000;
  54947. end;
  54948. procedure TDMAC1_DCH1INT.clearCHBCIE; inline;
  54949. begin
  54950. pTDefRegMap(@Self)^.clr := $00080000;
  54951. end;
  54952. procedure TDMAC1_DCH1INT.setCHBCIE(thebits : TBits_1); inline;
  54953. begin
  54954. if thebits = 0 then
  54955. pTDefRegMap(@Self)^.clr := $00080000
  54956. else
  54957. pTDefRegMap(@Self)^.&set := $00080000;
  54958. end;
  54959. function TDMAC1_DCH1INT.getCHBCIE : TBits_1; inline;
  54960. begin
  54961. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  54962. end;
  54963. procedure TDMAC1_DCH1INT.setCHDHIE; inline;
  54964. begin
  54965. pTDefRegMap(@Self)^.&set := $00100000;
  54966. end;
  54967. procedure TDMAC1_DCH1INT.clearCHDHIE; inline;
  54968. begin
  54969. pTDefRegMap(@Self)^.clr := $00100000;
  54970. end;
  54971. procedure TDMAC1_DCH1INT.setCHDHIE(thebits : TBits_1); inline;
  54972. begin
  54973. if thebits = 0 then
  54974. pTDefRegMap(@Self)^.clr := $00100000
  54975. else
  54976. pTDefRegMap(@Self)^.&set := $00100000;
  54977. end;
  54978. function TDMAC1_DCH1INT.getCHDHIE : TBits_1; inline;
  54979. begin
  54980. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  54981. end;
  54982. procedure TDMAC1_DCH1INT.setCHDDIE; inline;
  54983. begin
  54984. pTDefRegMap(@Self)^.&set := $00200000;
  54985. end;
  54986. procedure TDMAC1_DCH1INT.clearCHDDIE; inline;
  54987. begin
  54988. pTDefRegMap(@Self)^.clr := $00200000;
  54989. end;
  54990. procedure TDMAC1_DCH1INT.setCHDDIE(thebits : TBits_1); inline;
  54991. begin
  54992. if thebits = 0 then
  54993. pTDefRegMap(@Self)^.clr := $00200000
  54994. else
  54995. pTDefRegMap(@Self)^.&set := $00200000;
  54996. end;
  54997. function TDMAC1_DCH1INT.getCHDDIE : TBits_1; inline;
  54998. begin
  54999. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  55000. end;
  55001. procedure TDMAC1_DCH1INT.setCHSHIE; inline;
  55002. begin
  55003. pTDefRegMap(@Self)^.&set := $00400000;
  55004. end;
  55005. procedure TDMAC1_DCH1INT.clearCHSHIE; inline;
  55006. begin
  55007. pTDefRegMap(@Self)^.clr := $00400000;
  55008. end;
  55009. procedure TDMAC1_DCH1INT.setCHSHIE(thebits : TBits_1); inline;
  55010. begin
  55011. if thebits = 0 then
  55012. pTDefRegMap(@Self)^.clr := $00400000
  55013. else
  55014. pTDefRegMap(@Self)^.&set := $00400000;
  55015. end;
  55016. function TDMAC1_DCH1INT.getCHSHIE : TBits_1; inline;
  55017. begin
  55018. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  55019. end;
  55020. procedure TDMAC1_DCH1INT.setCHSDIE; inline;
  55021. begin
  55022. pTDefRegMap(@Self)^.&set := $00800000;
  55023. end;
  55024. procedure TDMAC1_DCH1INT.clearCHSDIE; inline;
  55025. begin
  55026. pTDefRegMap(@Self)^.clr := $00800000;
  55027. end;
  55028. procedure TDMAC1_DCH1INT.setCHSDIE(thebits : TBits_1); inline;
  55029. begin
  55030. if thebits = 0 then
  55031. pTDefRegMap(@Self)^.clr := $00800000
  55032. else
  55033. pTDefRegMap(@Self)^.&set := $00800000;
  55034. end;
  55035. function TDMAC1_DCH1INT.getCHSDIE : TBits_1; inline;
  55036. begin
  55037. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  55038. end;
  55039. procedure TDMAC1_DCH1INT.setw(thebits : TBits_32); inline;
  55040. begin
  55041. pTDefRegMap(@Self)^.val := thebits;
  55042. end;
  55043. function TDMAC1_DCH1INT.getw : TBits_32; inline;
  55044. begin
  55045. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55046. end;
  55047. procedure TDMAC2_DCH2CON.setCHPRI(thebits : TBits_2); inline;
  55048. begin
  55049. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  55050. end;
  55051. function TDMAC2_DCH2CON.getCHPRI : TBits_2; inline;
  55052. begin
  55053. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  55054. end;
  55055. procedure TDMAC2_DCH2CON.setCHEDET; inline;
  55056. begin
  55057. pTDefRegMap(@Self)^.&set := $00000004;
  55058. end;
  55059. procedure TDMAC2_DCH2CON.clearCHEDET; inline;
  55060. begin
  55061. pTDefRegMap(@Self)^.clr := $00000004;
  55062. end;
  55063. procedure TDMAC2_DCH2CON.setCHEDET(thebits : TBits_1); inline;
  55064. begin
  55065. if thebits = 0 then
  55066. pTDefRegMap(@Self)^.clr := $00000004
  55067. else
  55068. pTDefRegMap(@Self)^.&set := $00000004;
  55069. end;
  55070. function TDMAC2_DCH2CON.getCHEDET : TBits_1; inline;
  55071. begin
  55072. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55073. end;
  55074. procedure TDMAC2_DCH2CON.setCHAEN; inline;
  55075. begin
  55076. pTDefRegMap(@Self)^.&set := $00000010;
  55077. end;
  55078. procedure TDMAC2_DCH2CON.clearCHAEN; inline;
  55079. begin
  55080. pTDefRegMap(@Self)^.clr := $00000010;
  55081. end;
  55082. procedure TDMAC2_DCH2CON.setCHAEN(thebits : TBits_1); inline;
  55083. begin
  55084. if thebits = 0 then
  55085. pTDefRegMap(@Self)^.clr := $00000010
  55086. else
  55087. pTDefRegMap(@Self)^.&set := $00000010;
  55088. end;
  55089. function TDMAC2_DCH2CON.getCHAEN : TBits_1; inline;
  55090. begin
  55091. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55092. end;
  55093. procedure TDMAC2_DCH2CON.setCHCHN; inline;
  55094. begin
  55095. pTDefRegMap(@Self)^.&set := $00000020;
  55096. end;
  55097. procedure TDMAC2_DCH2CON.clearCHCHN; inline;
  55098. begin
  55099. pTDefRegMap(@Self)^.clr := $00000020;
  55100. end;
  55101. procedure TDMAC2_DCH2CON.setCHCHN(thebits : TBits_1); inline;
  55102. begin
  55103. if thebits = 0 then
  55104. pTDefRegMap(@Self)^.clr := $00000020
  55105. else
  55106. pTDefRegMap(@Self)^.&set := $00000020;
  55107. end;
  55108. function TDMAC2_DCH2CON.getCHCHN : TBits_1; inline;
  55109. begin
  55110. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55111. end;
  55112. procedure TDMAC2_DCH2CON.setCHAED; inline;
  55113. begin
  55114. pTDefRegMap(@Self)^.&set := $00000040;
  55115. end;
  55116. procedure TDMAC2_DCH2CON.clearCHAED; inline;
  55117. begin
  55118. pTDefRegMap(@Self)^.clr := $00000040;
  55119. end;
  55120. procedure TDMAC2_DCH2CON.setCHAED(thebits : TBits_1); inline;
  55121. begin
  55122. if thebits = 0 then
  55123. pTDefRegMap(@Self)^.clr := $00000040
  55124. else
  55125. pTDefRegMap(@Self)^.&set := $00000040;
  55126. end;
  55127. function TDMAC2_DCH2CON.getCHAED : TBits_1; inline;
  55128. begin
  55129. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55130. end;
  55131. procedure TDMAC2_DCH2CON.setCHEN; inline;
  55132. begin
  55133. pTDefRegMap(@Self)^.&set := $00000080;
  55134. end;
  55135. procedure TDMAC2_DCH2CON.clearCHEN; inline;
  55136. begin
  55137. pTDefRegMap(@Self)^.clr := $00000080;
  55138. end;
  55139. procedure TDMAC2_DCH2CON.setCHEN(thebits : TBits_1); inline;
  55140. begin
  55141. if thebits = 0 then
  55142. pTDefRegMap(@Self)^.clr := $00000080
  55143. else
  55144. pTDefRegMap(@Self)^.&set := $00000080;
  55145. end;
  55146. function TDMAC2_DCH2CON.getCHEN : TBits_1; inline;
  55147. begin
  55148. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55149. end;
  55150. procedure TDMAC2_DCH2CON.setCHCHNS; inline;
  55151. begin
  55152. pTDefRegMap(@Self)^.&set := $00000100;
  55153. end;
  55154. procedure TDMAC2_DCH2CON.clearCHCHNS; inline;
  55155. begin
  55156. pTDefRegMap(@Self)^.clr := $00000100;
  55157. end;
  55158. procedure TDMAC2_DCH2CON.setCHCHNS(thebits : TBits_1); inline;
  55159. begin
  55160. if thebits = 0 then
  55161. pTDefRegMap(@Self)^.clr := $00000100
  55162. else
  55163. pTDefRegMap(@Self)^.&set := $00000100;
  55164. end;
  55165. function TDMAC2_DCH2CON.getCHCHNS : TBits_1; inline;
  55166. begin
  55167. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  55168. end;
  55169. procedure TDMAC2_DCH2CON.setCHBUSY; inline;
  55170. begin
  55171. pTDefRegMap(@Self)^.&set := $00008000;
  55172. end;
  55173. procedure TDMAC2_DCH2CON.clearCHBUSY; inline;
  55174. begin
  55175. pTDefRegMap(@Self)^.clr := $00008000;
  55176. end;
  55177. procedure TDMAC2_DCH2CON.setCHBUSY(thebits : TBits_1); inline;
  55178. begin
  55179. if thebits = 0 then
  55180. pTDefRegMap(@Self)^.clr := $00008000
  55181. else
  55182. pTDefRegMap(@Self)^.&set := $00008000;
  55183. end;
  55184. function TDMAC2_DCH2CON.getCHBUSY : TBits_1; inline;
  55185. begin
  55186. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  55187. end;
  55188. procedure TDMAC2_DCH2CON.setw(thebits : TBits_32); inline;
  55189. begin
  55190. pTDefRegMap(@Self)^.val := thebits;
  55191. end;
  55192. function TDMAC2_DCH2CON.getw : TBits_32; inline;
  55193. begin
  55194. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55195. end;
  55196. procedure TDMAC2_DCH2ECON.setAIRQEN; inline;
  55197. begin
  55198. pTDefRegMap(@Self)^.&set := $00000008;
  55199. end;
  55200. procedure TDMAC2_DCH2ECON.clearAIRQEN; inline;
  55201. begin
  55202. pTDefRegMap(@Self)^.clr := $00000008;
  55203. end;
  55204. procedure TDMAC2_DCH2ECON.setAIRQEN(thebits : TBits_1); inline;
  55205. begin
  55206. if thebits = 0 then
  55207. pTDefRegMap(@Self)^.clr := $00000008
  55208. else
  55209. pTDefRegMap(@Self)^.&set := $00000008;
  55210. end;
  55211. function TDMAC2_DCH2ECON.getAIRQEN : TBits_1; inline;
  55212. begin
  55213. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55214. end;
  55215. procedure TDMAC2_DCH2ECON.setSIRQEN; inline;
  55216. begin
  55217. pTDefRegMap(@Self)^.&set := $00000010;
  55218. end;
  55219. procedure TDMAC2_DCH2ECON.clearSIRQEN; inline;
  55220. begin
  55221. pTDefRegMap(@Self)^.clr := $00000010;
  55222. end;
  55223. procedure TDMAC2_DCH2ECON.setSIRQEN(thebits : TBits_1); inline;
  55224. begin
  55225. if thebits = 0 then
  55226. pTDefRegMap(@Self)^.clr := $00000010
  55227. else
  55228. pTDefRegMap(@Self)^.&set := $00000010;
  55229. end;
  55230. function TDMAC2_DCH2ECON.getSIRQEN : TBits_1; inline;
  55231. begin
  55232. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55233. end;
  55234. procedure TDMAC2_DCH2ECON.setPATEN; inline;
  55235. begin
  55236. pTDefRegMap(@Self)^.&set := $00000020;
  55237. end;
  55238. procedure TDMAC2_DCH2ECON.clearPATEN; inline;
  55239. begin
  55240. pTDefRegMap(@Self)^.clr := $00000020;
  55241. end;
  55242. procedure TDMAC2_DCH2ECON.setPATEN(thebits : TBits_1); inline;
  55243. begin
  55244. if thebits = 0 then
  55245. pTDefRegMap(@Self)^.clr := $00000020
  55246. else
  55247. pTDefRegMap(@Self)^.&set := $00000020;
  55248. end;
  55249. function TDMAC2_DCH2ECON.getPATEN : TBits_1; inline;
  55250. begin
  55251. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55252. end;
  55253. procedure TDMAC2_DCH2ECON.setCABORT; inline;
  55254. begin
  55255. pTDefRegMap(@Self)^.&set := $00000040;
  55256. end;
  55257. procedure TDMAC2_DCH2ECON.clearCABORT; inline;
  55258. begin
  55259. pTDefRegMap(@Self)^.clr := $00000040;
  55260. end;
  55261. procedure TDMAC2_DCH2ECON.setCABORT(thebits : TBits_1); inline;
  55262. begin
  55263. if thebits = 0 then
  55264. pTDefRegMap(@Self)^.clr := $00000040
  55265. else
  55266. pTDefRegMap(@Self)^.&set := $00000040;
  55267. end;
  55268. function TDMAC2_DCH2ECON.getCABORT : TBits_1; inline;
  55269. begin
  55270. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55271. end;
  55272. procedure TDMAC2_DCH2ECON.setCFORCE; inline;
  55273. begin
  55274. pTDefRegMap(@Self)^.&set := $00000080;
  55275. end;
  55276. procedure TDMAC2_DCH2ECON.clearCFORCE; inline;
  55277. begin
  55278. pTDefRegMap(@Self)^.clr := $00000080;
  55279. end;
  55280. procedure TDMAC2_DCH2ECON.setCFORCE(thebits : TBits_1); inline;
  55281. begin
  55282. if thebits = 0 then
  55283. pTDefRegMap(@Self)^.clr := $00000080
  55284. else
  55285. pTDefRegMap(@Self)^.&set := $00000080;
  55286. end;
  55287. function TDMAC2_DCH2ECON.getCFORCE : TBits_1; inline;
  55288. begin
  55289. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55290. end;
  55291. procedure TDMAC2_DCH2ECON.setCHSIRQ(thebits : TBits_8); inline;
  55292. begin
  55293. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  55294. end;
  55295. function TDMAC2_DCH2ECON.getCHSIRQ : TBits_8; inline;
  55296. begin
  55297. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  55298. end;
  55299. procedure TDMAC2_DCH2ECON.setCHAIRQ(thebits : TBits_8); inline;
  55300. begin
  55301. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  55302. end;
  55303. function TDMAC2_DCH2ECON.getCHAIRQ : TBits_8; inline;
  55304. begin
  55305. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  55306. end;
  55307. procedure TDMAC2_DCH2ECON.setw(thebits : TBits_32); inline;
  55308. begin
  55309. pTDefRegMap(@Self)^.val := thebits;
  55310. end;
  55311. function TDMAC2_DCH2ECON.getw : TBits_32; inline;
  55312. begin
  55313. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55314. end;
  55315. procedure TDMAC2_DCH2INT.setCHERIF; inline;
  55316. begin
  55317. pTDefRegMap(@Self)^.&set := $00000001;
  55318. end;
  55319. procedure TDMAC2_DCH2INT.clearCHERIF; inline;
  55320. begin
  55321. pTDefRegMap(@Self)^.clr := $00000001;
  55322. end;
  55323. procedure TDMAC2_DCH2INT.setCHERIF(thebits : TBits_1); inline;
  55324. begin
  55325. if thebits = 0 then
  55326. pTDefRegMap(@Self)^.clr := $00000001
  55327. else
  55328. pTDefRegMap(@Self)^.&set := $00000001;
  55329. end;
  55330. function TDMAC2_DCH2INT.getCHERIF : TBits_1; inline;
  55331. begin
  55332. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  55333. end;
  55334. procedure TDMAC2_DCH2INT.setCHTAIF; inline;
  55335. begin
  55336. pTDefRegMap(@Self)^.&set := $00000002;
  55337. end;
  55338. procedure TDMAC2_DCH2INT.clearCHTAIF; inline;
  55339. begin
  55340. pTDefRegMap(@Self)^.clr := $00000002;
  55341. end;
  55342. procedure TDMAC2_DCH2INT.setCHTAIF(thebits : TBits_1); inline;
  55343. begin
  55344. if thebits = 0 then
  55345. pTDefRegMap(@Self)^.clr := $00000002
  55346. else
  55347. pTDefRegMap(@Self)^.&set := $00000002;
  55348. end;
  55349. function TDMAC2_DCH2INT.getCHTAIF : TBits_1; inline;
  55350. begin
  55351. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  55352. end;
  55353. procedure TDMAC2_DCH2INT.setCHCCIF; inline;
  55354. begin
  55355. pTDefRegMap(@Self)^.&set := $00000004;
  55356. end;
  55357. procedure TDMAC2_DCH2INT.clearCHCCIF; inline;
  55358. begin
  55359. pTDefRegMap(@Self)^.clr := $00000004;
  55360. end;
  55361. procedure TDMAC2_DCH2INT.setCHCCIF(thebits : TBits_1); inline;
  55362. begin
  55363. if thebits = 0 then
  55364. pTDefRegMap(@Self)^.clr := $00000004
  55365. else
  55366. pTDefRegMap(@Self)^.&set := $00000004;
  55367. end;
  55368. function TDMAC2_DCH2INT.getCHCCIF : TBits_1; inline;
  55369. begin
  55370. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55371. end;
  55372. procedure TDMAC2_DCH2INT.setCHBCIF; inline;
  55373. begin
  55374. pTDefRegMap(@Self)^.&set := $00000008;
  55375. end;
  55376. procedure TDMAC2_DCH2INT.clearCHBCIF; inline;
  55377. begin
  55378. pTDefRegMap(@Self)^.clr := $00000008;
  55379. end;
  55380. procedure TDMAC2_DCH2INT.setCHBCIF(thebits : TBits_1); inline;
  55381. begin
  55382. if thebits = 0 then
  55383. pTDefRegMap(@Self)^.clr := $00000008
  55384. else
  55385. pTDefRegMap(@Self)^.&set := $00000008;
  55386. end;
  55387. function TDMAC2_DCH2INT.getCHBCIF : TBits_1; inline;
  55388. begin
  55389. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55390. end;
  55391. procedure TDMAC2_DCH2INT.setCHDHIF; inline;
  55392. begin
  55393. pTDefRegMap(@Self)^.&set := $00000010;
  55394. end;
  55395. procedure TDMAC2_DCH2INT.clearCHDHIF; inline;
  55396. begin
  55397. pTDefRegMap(@Self)^.clr := $00000010;
  55398. end;
  55399. procedure TDMAC2_DCH2INT.setCHDHIF(thebits : TBits_1); inline;
  55400. begin
  55401. if thebits = 0 then
  55402. pTDefRegMap(@Self)^.clr := $00000010
  55403. else
  55404. pTDefRegMap(@Self)^.&set := $00000010;
  55405. end;
  55406. function TDMAC2_DCH2INT.getCHDHIF : TBits_1; inline;
  55407. begin
  55408. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55409. end;
  55410. procedure TDMAC2_DCH2INT.setCHDDIF; inline;
  55411. begin
  55412. pTDefRegMap(@Self)^.&set := $00000020;
  55413. end;
  55414. procedure TDMAC2_DCH2INT.clearCHDDIF; inline;
  55415. begin
  55416. pTDefRegMap(@Self)^.clr := $00000020;
  55417. end;
  55418. procedure TDMAC2_DCH2INT.setCHDDIF(thebits : TBits_1); inline;
  55419. begin
  55420. if thebits = 0 then
  55421. pTDefRegMap(@Self)^.clr := $00000020
  55422. else
  55423. pTDefRegMap(@Self)^.&set := $00000020;
  55424. end;
  55425. function TDMAC2_DCH2INT.getCHDDIF : TBits_1; inline;
  55426. begin
  55427. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55428. end;
  55429. procedure TDMAC2_DCH2INT.setCHSHIF; inline;
  55430. begin
  55431. pTDefRegMap(@Self)^.&set := $00000040;
  55432. end;
  55433. procedure TDMAC2_DCH2INT.clearCHSHIF; inline;
  55434. begin
  55435. pTDefRegMap(@Self)^.clr := $00000040;
  55436. end;
  55437. procedure TDMAC2_DCH2INT.setCHSHIF(thebits : TBits_1); inline;
  55438. begin
  55439. if thebits = 0 then
  55440. pTDefRegMap(@Self)^.clr := $00000040
  55441. else
  55442. pTDefRegMap(@Self)^.&set := $00000040;
  55443. end;
  55444. function TDMAC2_DCH2INT.getCHSHIF : TBits_1; inline;
  55445. begin
  55446. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55447. end;
  55448. procedure TDMAC2_DCH2INT.setCHSDIF; inline;
  55449. begin
  55450. pTDefRegMap(@Self)^.&set := $00000080;
  55451. end;
  55452. procedure TDMAC2_DCH2INT.clearCHSDIF; inline;
  55453. begin
  55454. pTDefRegMap(@Self)^.clr := $00000080;
  55455. end;
  55456. procedure TDMAC2_DCH2INT.setCHSDIF(thebits : TBits_1); inline;
  55457. begin
  55458. if thebits = 0 then
  55459. pTDefRegMap(@Self)^.clr := $00000080
  55460. else
  55461. pTDefRegMap(@Self)^.&set := $00000080;
  55462. end;
  55463. function TDMAC2_DCH2INT.getCHSDIF : TBits_1; inline;
  55464. begin
  55465. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55466. end;
  55467. procedure TDMAC2_DCH2INT.setCHERIE; inline;
  55468. begin
  55469. pTDefRegMap(@Self)^.&set := $00010000;
  55470. end;
  55471. procedure TDMAC2_DCH2INT.clearCHERIE; inline;
  55472. begin
  55473. pTDefRegMap(@Self)^.clr := $00010000;
  55474. end;
  55475. procedure TDMAC2_DCH2INT.setCHERIE(thebits : TBits_1); inline;
  55476. begin
  55477. if thebits = 0 then
  55478. pTDefRegMap(@Self)^.clr := $00010000
  55479. else
  55480. pTDefRegMap(@Self)^.&set := $00010000;
  55481. end;
  55482. function TDMAC2_DCH2INT.getCHERIE : TBits_1; inline;
  55483. begin
  55484. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  55485. end;
  55486. procedure TDMAC2_DCH2INT.setCHTAIE; inline;
  55487. begin
  55488. pTDefRegMap(@Self)^.&set := $00020000;
  55489. end;
  55490. procedure TDMAC2_DCH2INT.clearCHTAIE; inline;
  55491. begin
  55492. pTDefRegMap(@Self)^.clr := $00020000;
  55493. end;
  55494. procedure TDMAC2_DCH2INT.setCHTAIE(thebits : TBits_1); inline;
  55495. begin
  55496. if thebits = 0 then
  55497. pTDefRegMap(@Self)^.clr := $00020000
  55498. else
  55499. pTDefRegMap(@Self)^.&set := $00020000;
  55500. end;
  55501. function TDMAC2_DCH2INT.getCHTAIE : TBits_1; inline;
  55502. begin
  55503. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  55504. end;
  55505. procedure TDMAC2_DCH2INT.setCHCCIE; inline;
  55506. begin
  55507. pTDefRegMap(@Self)^.&set := $00040000;
  55508. end;
  55509. procedure TDMAC2_DCH2INT.clearCHCCIE; inline;
  55510. begin
  55511. pTDefRegMap(@Self)^.clr := $00040000;
  55512. end;
  55513. procedure TDMAC2_DCH2INT.setCHCCIE(thebits : TBits_1); inline;
  55514. begin
  55515. if thebits = 0 then
  55516. pTDefRegMap(@Self)^.clr := $00040000
  55517. else
  55518. pTDefRegMap(@Self)^.&set := $00040000;
  55519. end;
  55520. function TDMAC2_DCH2INT.getCHCCIE : TBits_1; inline;
  55521. begin
  55522. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  55523. end;
  55524. procedure TDMAC2_DCH2INT.setCHBCIE; inline;
  55525. begin
  55526. pTDefRegMap(@Self)^.&set := $00080000;
  55527. end;
  55528. procedure TDMAC2_DCH2INT.clearCHBCIE; inline;
  55529. begin
  55530. pTDefRegMap(@Self)^.clr := $00080000;
  55531. end;
  55532. procedure TDMAC2_DCH2INT.setCHBCIE(thebits : TBits_1); inline;
  55533. begin
  55534. if thebits = 0 then
  55535. pTDefRegMap(@Self)^.clr := $00080000
  55536. else
  55537. pTDefRegMap(@Self)^.&set := $00080000;
  55538. end;
  55539. function TDMAC2_DCH2INT.getCHBCIE : TBits_1; inline;
  55540. begin
  55541. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  55542. end;
  55543. procedure TDMAC2_DCH2INT.setCHDHIE; inline;
  55544. begin
  55545. pTDefRegMap(@Self)^.&set := $00100000;
  55546. end;
  55547. procedure TDMAC2_DCH2INT.clearCHDHIE; inline;
  55548. begin
  55549. pTDefRegMap(@Self)^.clr := $00100000;
  55550. end;
  55551. procedure TDMAC2_DCH2INT.setCHDHIE(thebits : TBits_1); inline;
  55552. begin
  55553. if thebits = 0 then
  55554. pTDefRegMap(@Self)^.clr := $00100000
  55555. else
  55556. pTDefRegMap(@Self)^.&set := $00100000;
  55557. end;
  55558. function TDMAC2_DCH2INT.getCHDHIE : TBits_1; inline;
  55559. begin
  55560. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  55561. end;
  55562. procedure TDMAC2_DCH2INT.setCHDDIE; inline;
  55563. begin
  55564. pTDefRegMap(@Self)^.&set := $00200000;
  55565. end;
  55566. procedure TDMAC2_DCH2INT.clearCHDDIE; inline;
  55567. begin
  55568. pTDefRegMap(@Self)^.clr := $00200000;
  55569. end;
  55570. procedure TDMAC2_DCH2INT.setCHDDIE(thebits : TBits_1); inline;
  55571. begin
  55572. if thebits = 0 then
  55573. pTDefRegMap(@Self)^.clr := $00200000
  55574. else
  55575. pTDefRegMap(@Self)^.&set := $00200000;
  55576. end;
  55577. function TDMAC2_DCH2INT.getCHDDIE : TBits_1; inline;
  55578. begin
  55579. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  55580. end;
  55581. procedure TDMAC2_DCH2INT.setCHSHIE; inline;
  55582. begin
  55583. pTDefRegMap(@Self)^.&set := $00400000;
  55584. end;
  55585. procedure TDMAC2_DCH2INT.clearCHSHIE; inline;
  55586. begin
  55587. pTDefRegMap(@Self)^.clr := $00400000;
  55588. end;
  55589. procedure TDMAC2_DCH2INT.setCHSHIE(thebits : TBits_1); inline;
  55590. begin
  55591. if thebits = 0 then
  55592. pTDefRegMap(@Self)^.clr := $00400000
  55593. else
  55594. pTDefRegMap(@Self)^.&set := $00400000;
  55595. end;
  55596. function TDMAC2_DCH2INT.getCHSHIE : TBits_1; inline;
  55597. begin
  55598. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  55599. end;
  55600. procedure TDMAC2_DCH2INT.setCHSDIE; inline;
  55601. begin
  55602. pTDefRegMap(@Self)^.&set := $00800000;
  55603. end;
  55604. procedure TDMAC2_DCH2INT.clearCHSDIE; inline;
  55605. begin
  55606. pTDefRegMap(@Self)^.clr := $00800000;
  55607. end;
  55608. procedure TDMAC2_DCH2INT.setCHSDIE(thebits : TBits_1); inline;
  55609. begin
  55610. if thebits = 0 then
  55611. pTDefRegMap(@Self)^.clr := $00800000
  55612. else
  55613. pTDefRegMap(@Self)^.&set := $00800000;
  55614. end;
  55615. function TDMAC2_DCH2INT.getCHSDIE : TBits_1; inline;
  55616. begin
  55617. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  55618. end;
  55619. procedure TDMAC2_DCH2INT.setw(thebits : TBits_32); inline;
  55620. begin
  55621. pTDefRegMap(@Self)^.val := thebits;
  55622. end;
  55623. function TDMAC2_DCH2INT.getw : TBits_32; inline;
  55624. begin
  55625. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55626. end;
  55627. procedure TDMAC3_DCH3CON.setCHPRI(thebits : TBits_2); inline;
  55628. begin
  55629. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  55630. end;
  55631. function TDMAC3_DCH3CON.getCHPRI : TBits_2; inline;
  55632. begin
  55633. getCHPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  55634. end;
  55635. procedure TDMAC3_DCH3CON.setCHEDET; inline;
  55636. begin
  55637. pTDefRegMap(@Self)^.&set := $00000004;
  55638. end;
  55639. procedure TDMAC3_DCH3CON.clearCHEDET; inline;
  55640. begin
  55641. pTDefRegMap(@Self)^.clr := $00000004;
  55642. end;
  55643. procedure TDMAC3_DCH3CON.setCHEDET(thebits : TBits_1); inline;
  55644. begin
  55645. if thebits = 0 then
  55646. pTDefRegMap(@Self)^.clr := $00000004
  55647. else
  55648. pTDefRegMap(@Self)^.&set := $00000004;
  55649. end;
  55650. function TDMAC3_DCH3CON.getCHEDET : TBits_1; inline;
  55651. begin
  55652. getCHEDET := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55653. end;
  55654. procedure TDMAC3_DCH3CON.setCHAEN; inline;
  55655. begin
  55656. pTDefRegMap(@Self)^.&set := $00000010;
  55657. end;
  55658. procedure TDMAC3_DCH3CON.clearCHAEN; inline;
  55659. begin
  55660. pTDefRegMap(@Self)^.clr := $00000010;
  55661. end;
  55662. procedure TDMAC3_DCH3CON.setCHAEN(thebits : TBits_1); inline;
  55663. begin
  55664. if thebits = 0 then
  55665. pTDefRegMap(@Self)^.clr := $00000010
  55666. else
  55667. pTDefRegMap(@Self)^.&set := $00000010;
  55668. end;
  55669. function TDMAC3_DCH3CON.getCHAEN : TBits_1; inline;
  55670. begin
  55671. getCHAEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55672. end;
  55673. procedure TDMAC3_DCH3CON.setCHCHN; inline;
  55674. begin
  55675. pTDefRegMap(@Self)^.&set := $00000020;
  55676. end;
  55677. procedure TDMAC3_DCH3CON.clearCHCHN; inline;
  55678. begin
  55679. pTDefRegMap(@Self)^.clr := $00000020;
  55680. end;
  55681. procedure TDMAC3_DCH3CON.setCHCHN(thebits : TBits_1); inline;
  55682. begin
  55683. if thebits = 0 then
  55684. pTDefRegMap(@Self)^.clr := $00000020
  55685. else
  55686. pTDefRegMap(@Self)^.&set := $00000020;
  55687. end;
  55688. function TDMAC3_DCH3CON.getCHCHN : TBits_1; inline;
  55689. begin
  55690. getCHCHN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55691. end;
  55692. procedure TDMAC3_DCH3CON.setCHAED; inline;
  55693. begin
  55694. pTDefRegMap(@Self)^.&set := $00000040;
  55695. end;
  55696. procedure TDMAC3_DCH3CON.clearCHAED; inline;
  55697. begin
  55698. pTDefRegMap(@Self)^.clr := $00000040;
  55699. end;
  55700. procedure TDMAC3_DCH3CON.setCHAED(thebits : TBits_1); inline;
  55701. begin
  55702. if thebits = 0 then
  55703. pTDefRegMap(@Self)^.clr := $00000040
  55704. else
  55705. pTDefRegMap(@Self)^.&set := $00000040;
  55706. end;
  55707. function TDMAC3_DCH3CON.getCHAED : TBits_1; inline;
  55708. begin
  55709. getCHAED := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55710. end;
  55711. procedure TDMAC3_DCH3CON.setCHEN; inline;
  55712. begin
  55713. pTDefRegMap(@Self)^.&set := $00000080;
  55714. end;
  55715. procedure TDMAC3_DCH3CON.clearCHEN; inline;
  55716. begin
  55717. pTDefRegMap(@Self)^.clr := $00000080;
  55718. end;
  55719. procedure TDMAC3_DCH3CON.setCHEN(thebits : TBits_1); inline;
  55720. begin
  55721. if thebits = 0 then
  55722. pTDefRegMap(@Self)^.clr := $00000080
  55723. else
  55724. pTDefRegMap(@Self)^.&set := $00000080;
  55725. end;
  55726. function TDMAC3_DCH3CON.getCHEN : TBits_1; inline;
  55727. begin
  55728. getCHEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55729. end;
  55730. procedure TDMAC3_DCH3CON.setCHCHNS; inline;
  55731. begin
  55732. pTDefRegMap(@Self)^.&set := $00000100;
  55733. end;
  55734. procedure TDMAC3_DCH3CON.clearCHCHNS; inline;
  55735. begin
  55736. pTDefRegMap(@Self)^.clr := $00000100;
  55737. end;
  55738. procedure TDMAC3_DCH3CON.setCHCHNS(thebits : TBits_1); inline;
  55739. begin
  55740. if thebits = 0 then
  55741. pTDefRegMap(@Self)^.clr := $00000100
  55742. else
  55743. pTDefRegMap(@Self)^.&set := $00000100;
  55744. end;
  55745. function TDMAC3_DCH3CON.getCHCHNS : TBits_1; inline;
  55746. begin
  55747. getCHCHNS := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  55748. end;
  55749. procedure TDMAC3_DCH3CON.setCHBUSY; inline;
  55750. begin
  55751. pTDefRegMap(@Self)^.&set := $00008000;
  55752. end;
  55753. procedure TDMAC3_DCH3CON.clearCHBUSY; inline;
  55754. begin
  55755. pTDefRegMap(@Self)^.clr := $00008000;
  55756. end;
  55757. procedure TDMAC3_DCH3CON.setCHBUSY(thebits : TBits_1); inline;
  55758. begin
  55759. if thebits = 0 then
  55760. pTDefRegMap(@Self)^.clr := $00008000
  55761. else
  55762. pTDefRegMap(@Self)^.&set := $00008000;
  55763. end;
  55764. function TDMAC3_DCH3CON.getCHBUSY : TBits_1; inline;
  55765. begin
  55766. getCHBUSY := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  55767. end;
  55768. procedure TDMAC3_DCH3CON.setw(thebits : TBits_32); inline;
  55769. begin
  55770. pTDefRegMap(@Self)^.val := thebits;
  55771. end;
  55772. function TDMAC3_DCH3CON.getw : TBits_32; inline;
  55773. begin
  55774. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55775. end;
  55776. procedure TDMAC3_DCH3ECON.setAIRQEN; inline;
  55777. begin
  55778. pTDefRegMap(@Self)^.&set := $00000008;
  55779. end;
  55780. procedure TDMAC3_DCH3ECON.clearAIRQEN; inline;
  55781. begin
  55782. pTDefRegMap(@Self)^.clr := $00000008;
  55783. end;
  55784. procedure TDMAC3_DCH3ECON.setAIRQEN(thebits : TBits_1); inline;
  55785. begin
  55786. if thebits = 0 then
  55787. pTDefRegMap(@Self)^.clr := $00000008
  55788. else
  55789. pTDefRegMap(@Self)^.&set := $00000008;
  55790. end;
  55791. function TDMAC3_DCH3ECON.getAIRQEN : TBits_1; inline;
  55792. begin
  55793. getAIRQEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55794. end;
  55795. procedure TDMAC3_DCH3ECON.setSIRQEN; inline;
  55796. begin
  55797. pTDefRegMap(@Self)^.&set := $00000010;
  55798. end;
  55799. procedure TDMAC3_DCH3ECON.clearSIRQEN; inline;
  55800. begin
  55801. pTDefRegMap(@Self)^.clr := $00000010;
  55802. end;
  55803. procedure TDMAC3_DCH3ECON.setSIRQEN(thebits : TBits_1); inline;
  55804. begin
  55805. if thebits = 0 then
  55806. pTDefRegMap(@Self)^.clr := $00000010
  55807. else
  55808. pTDefRegMap(@Self)^.&set := $00000010;
  55809. end;
  55810. function TDMAC3_DCH3ECON.getSIRQEN : TBits_1; inline;
  55811. begin
  55812. getSIRQEN := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55813. end;
  55814. procedure TDMAC3_DCH3ECON.setPATEN; inline;
  55815. begin
  55816. pTDefRegMap(@Self)^.&set := $00000020;
  55817. end;
  55818. procedure TDMAC3_DCH3ECON.clearPATEN; inline;
  55819. begin
  55820. pTDefRegMap(@Self)^.clr := $00000020;
  55821. end;
  55822. procedure TDMAC3_DCH3ECON.setPATEN(thebits : TBits_1); inline;
  55823. begin
  55824. if thebits = 0 then
  55825. pTDefRegMap(@Self)^.clr := $00000020
  55826. else
  55827. pTDefRegMap(@Self)^.&set := $00000020;
  55828. end;
  55829. function TDMAC3_DCH3ECON.getPATEN : TBits_1; inline;
  55830. begin
  55831. getPATEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  55832. end;
  55833. procedure TDMAC3_DCH3ECON.setCABORT; inline;
  55834. begin
  55835. pTDefRegMap(@Self)^.&set := $00000040;
  55836. end;
  55837. procedure TDMAC3_DCH3ECON.clearCABORT; inline;
  55838. begin
  55839. pTDefRegMap(@Self)^.clr := $00000040;
  55840. end;
  55841. procedure TDMAC3_DCH3ECON.setCABORT(thebits : TBits_1); inline;
  55842. begin
  55843. if thebits = 0 then
  55844. pTDefRegMap(@Self)^.clr := $00000040
  55845. else
  55846. pTDefRegMap(@Self)^.&set := $00000040;
  55847. end;
  55848. function TDMAC3_DCH3ECON.getCABORT : TBits_1; inline;
  55849. begin
  55850. getCABORT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  55851. end;
  55852. procedure TDMAC3_DCH3ECON.setCFORCE; inline;
  55853. begin
  55854. pTDefRegMap(@Self)^.&set := $00000080;
  55855. end;
  55856. procedure TDMAC3_DCH3ECON.clearCFORCE; inline;
  55857. begin
  55858. pTDefRegMap(@Self)^.clr := $00000080;
  55859. end;
  55860. procedure TDMAC3_DCH3ECON.setCFORCE(thebits : TBits_1); inline;
  55861. begin
  55862. if thebits = 0 then
  55863. pTDefRegMap(@Self)^.clr := $00000080
  55864. else
  55865. pTDefRegMap(@Self)^.&set := $00000080;
  55866. end;
  55867. function TDMAC3_DCH3ECON.getCFORCE : TBits_1; inline;
  55868. begin
  55869. getCFORCE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  55870. end;
  55871. procedure TDMAC3_DCH3ECON.setCHSIRQ(thebits : TBits_8); inline;
  55872. begin
  55873. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  55874. end;
  55875. function TDMAC3_DCH3ECON.getCHSIRQ : TBits_8; inline;
  55876. begin
  55877. getCHSIRQ := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  55878. end;
  55879. procedure TDMAC3_DCH3ECON.setCHAIRQ(thebits : TBits_8); inline;
  55880. begin
  55881. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00FFFF or ( thebits shl 16 );
  55882. end;
  55883. function TDMAC3_DCH3ECON.getCHAIRQ : TBits_8; inline;
  55884. begin
  55885. getCHAIRQ := (pTDefRegMap(@Self)^.val and $00FF0000) shr 16;
  55886. end;
  55887. procedure TDMAC3_DCH3ECON.setw(thebits : TBits_32); inline;
  55888. begin
  55889. pTDefRegMap(@Self)^.val := thebits;
  55890. end;
  55891. function TDMAC3_DCH3ECON.getw : TBits_32; inline;
  55892. begin
  55893. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  55894. end;
  55895. procedure TDMAC3_DCH3INT.setCHERIF; inline;
  55896. begin
  55897. pTDefRegMap(@Self)^.&set := $00000001;
  55898. end;
  55899. procedure TDMAC3_DCH3INT.clearCHERIF; inline;
  55900. begin
  55901. pTDefRegMap(@Self)^.clr := $00000001;
  55902. end;
  55903. procedure TDMAC3_DCH3INT.setCHERIF(thebits : TBits_1); inline;
  55904. begin
  55905. if thebits = 0 then
  55906. pTDefRegMap(@Self)^.clr := $00000001
  55907. else
  55908. pTDefRegMap(@Self)^.&set := $00000001;
  55909. end;
  55910. function TDMAC3_DCH3INT.getCHERIF : TBits_1; inline;
  55911. begin
  55912. getCHERIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  55913. end;
  55914. procedure TDMAC3_DCH3INT.setCHTAIF; inline;
  55915. begin
  55916. pTDefRegMap(@Self)^.&set := $00000002;
  55917. end;
  55918. procedure TDMAC3_DCH3INT.clearCHTAIF; inline;
  55919. begin
  55920. pTDefRegMap(@Self)^.clr := $00000002;
  55921. end;
  55922. procedure TDMAC3_DCH3INT.setCHTAIF(thebits : TBits_1); inline;
  55923. begin
  55924. if thebits = 0 then
  55925. pTDefRegMap(@Self)^.clr := $00000002
  55926. else
  55927. pTDefRegMap(@Self)^.&set := $00000002;
  55928. end;
  55929. function TDMAC3_DCH3INT.getCHTAIF : TBits_1; inline;
  55930. begin
  55931. getCHTAIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  55932. end;
  55933. procedure TDMAC3_DCH3INT.setCHCCIF; inline;
  55934. begin
  55935. pTDefRegMap(@Self)^.&set := $00000004;
  55936. end;
  55937. procedure TDMAC3_DCH3INT.clearCHCCIF; inline;
  55938. begin
  55939. pTDefRegMap(@Self)^.clr := $00000004;
  55940. end;
  55941. procedure TDMAC3_DCH3INT.setCHCCIF(thebits : TBits_1); inline;
  55942. begin
  55943. if thebits = 0 then
  55944. pTDefRegMap(@Self)^.clr := $00000004
  55945. else
  55946. pTDefRegMap(@Self)^.&set := $00000004;
  55947. end;
  55948. function TDMAC3_DCH3INT.getCHCCIF : TBits_1; inline;
  55949. begin
  55950. getCHCCIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  55951. end;
  55952. procedure TDMAC3_DCH3INT.setCHBCIF; inline;
  55953. begin
  55954. pTDefRegMap(@Self)^.&set := $00000008;
  55955. end;
  55956. procedure TDMAC3_DCH3INT.clearCHBCIF; inline;
  55957. begin
  55958. pTDefRegMap(@Self)^.clr := $00000008;
  55959. end;
  55960. procedure TDMAC3_DCH3INT.setCHBCIF(thebits : TBits_1); inline;
  55961. begin
  55962. if thebits = 0 then
  55963. pTDefRegMap(@Self)^.clr := $00000008
  55964. else
  55965. pTDefRegMap(@Self)^.&set := $00000008;
  55966. end;
  55967. function TDMAC3_DCH3INT.getCHBCIF : TBits_1; inline;
  55968. begin
  55969. getCHBCIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  55970. end;
  55971. procedure TDMAC3_DCH3INT.setCHDHIF; inline;
  55972. begin
  55973. pTDefRegMap(@Self)^.&set := $00000010;
  55974. end;
  55975. procedure TDMAC3_DCH3INT.clearCHDHIF; inline;
  55976. begin
  55977. pTDefRegMap(@Self)^.clr := $00000010;
  55978. end;
  55979. procedure TDMAC3_DCH3INT.setCHDHIF(thebits : TBits_1); inline;
  55980. begin
  55981. if thebits = 0 then
  55982. pTDefRegMap(@Self)^.clr := $00000010
  55983. else
  55984. pTDefRegMap(@Self)^.&set := $00000010;
  55985. end;
  55986. function TDMAC3_DCH3INT.getCHDHIF : TBits_1; inline;
  55987. begin
  55988. getCHDHIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  55989. end;
  55990. procedure TDMAC3_DCH3INT.setCHDDIF; inline;
  55991. begin
  55992. pTDefRegMap(@Self)^.&set := $00000020;
  55993. end;
  55994. procedure TDMAC3_DCH3INT.clearCHDDIF; inline;
  55995. begin
  55996. pTDefRegMap(@Self)^.clr := $00000020;
  55997. end;
  55998. procedure TDMAC3_DCH3INT.setCHDDIF(thebits : TBits_1); inline;
  55999. begin
  56000. if thebits = 0 then
  56001. pTDefRegMap(@Self)^.clr := $00000020
  56002. else
  56003. pTDefRegMap(@Self)^.&set := $00000020;
  56004. end;
  56005. function TDMAC3_DCH3INT.getCHDDIF : TBits_1; inline;
  56006. begin
  56007. getCHDDIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56008. end;
  56009. procedure TDMAC3_DCH3INT.setCHSHIF; inline;
  56010. begin
  56011. pTDefRegMap(@Self)^.&set := $00000040;
  56012. end;
  56013. procedure TDMAC3_DCH3INT.clearCHSHIF; inline;
  56014. begin
  56015. pTDefRegMap(@Self)^.clr := $00000040;
  56016. end;
  56017. procedure TDMAC3_DCH3INT.setCHSHIF(thebits : TBits_1); inline;
  56018. begin
  56019. if thebits = 0 then
  56020. pTDefRegMap(@Self)^.clr := $00000040
  56021. else
  56022. pTDefRegMap(@Self)^.&set := $00000040;
  56023. end;
  56024. function TDMAC3_DCH3INT.getCHSHIF : TBits_1; inline;
  56025. begin
  56026. getCHSHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56027. end;
  56028. procedure TDMAC3_DCH3INT.setCHSDIF; inline;
  56029. begin
  56030. pTDefRegMap(@Self)^.&set := $00000080;
  56031. end;
  56032. procedure TDMAC3_DCH3INT.clearCHSDIF; inline;
  56033. begin
  56034. pTDefRegMap(@Self)^.clr := $00000080;
  56035. end;
  56036. procedure TDMAC3_DCH3INT.setCHSDIF(thebits : TBits_1); inline;
  56037. begin
  56038. if thebits = 0 then
  56039. pTDefRegMap(@Self)^.clr := $00000080
  56040. else
  56041. pTDefRegMap(@Self)^.&set := $00000080;
  56042. end;
  56043. function TDMAC3_DCH3INT.getCHSDIF : TBits_1; inline;
  56044. begin
  56045. getCHSDIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56046. end;
  56047. procedure TDMAC3_DCH3INT.setCHERIE; inline;
  56048. begin
  56049. pTDefRegMap(@Self)^.&set := $00010000;
  56050. end;
  56051. procedure TDMAC3_DCH3INT.clearCHERIE; inline;
  56052. begin
  56053. pTDefRegMap(@Self)^.clr := $00010000;
  56054. end;
  56055. procedure TDMAC3_DCH3INT.setCHERIE(thebits : TBits_1); inline;
  56056. begin
  56057. if thebits = 0 then
  56058. pTDefRegMap(@Self)^.clr := $00010000
  56059. else
  56060. pTDefRegMap(@Self)^.&set := $00010000;
  56061. end;
  56062. function TDMAC3_DCH3INT.getCHERIE : TBits_1; inline;
  56063. begin
  56064. getCHERIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  56065. end;
  56066. procedure TDMAC3_DCH3INT.setCHTAIE; inline;
  56067. begin
  56068. pTDefRegMap(@Self)^.&set := $00020000;
  56069. end;
  56070. procedure TDMAC3_DCH3INT.clearCHTAIE; inline;
  56071. begin
  56072. pTDefRegMap(@Self)^.clr := $00020000;
  56073. end;
  56074. procedure TDMAC3_DCH3INT.setCHTAIE(thebits : TBits_1); inline;
  56075. begin
  56076. if thebits = 0 then
  56077. pTDefRegMap(@Self)^.clr := $00020000
  56078. else
  56079. pTDefRegMap(@Self)^.&set := $00020000;
  56080. end;
  56081. function TDMAC3_DCH3INT.getCHTAIE : TBits_1; inline;
  56082. begin
  56083. getCHTAIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  56084. end;
  56085. procedure TDMAC3_DCH3INT.setCHCCIE; inline;
  56086. begin
  56087. pTDefRegMap(@Self)^.&set := $00040000;
  56088. end;
  56089. procedure TDMAC3_DCH3INT.clearCHCCIE; inline;
  56090. begin
  56091. pTDefRegMap(@Self)^.clr := $00040000;
  56092. end;
  56093. procedure TDMAC3_DCH3INT.setCHCCIE(thebits : TBits_1); inline;
  56094. begin
  56095. if thebits = 0 then
  56096. pTDefRegMap(@Self)^.clr := $00040000
  56097. else
  56098. pTDefRegMap(@Self)^.&set := $00040000;
  56099. end;
  56100. function TDMAC3_DCH3INT.getCHCCIE : TBits_1; inline;
  56101. begin
  56102. getCHCCIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  56103. end;
  56104. procedure TDMAC3_DCH3INT.setCHBCIE; inline;
  56105. begin
  56106. pTDefRegMap(@Self)^.&set := $00080000;
  56107. end;
  56108. procedure TDMAC3_DCH3INT.clearCHBCIE; inline;
  56109. begin
  56110. pTDefRegMap(@Self)^.clr := $00080000;
  56111. end;
  56112. procedure TDMAC3_DCH3INT.setCHBCIE(thebits : TBits_1); inline;
  56113. begin
  56114. if thebits = 0 then
  56115. pTDefRegMap(@Self)^.clr := $00080000
  56116. else
  56117. pTDefRegMap(@Self)^.&set := $00080000;
  56118. end;
  56119. function TDMAC3_DCH3INT.getCHBCIE : TBits_1; inline;
  56120. begin
  56121. getCHBCIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  56122. end;
  56123. procedure TDMAC3_DCH3INT.setCHDHIE; inline;
  56124. begin
  56125. pTDefRegMap(@Self)^.&set := $00100000;
  56126. end;
  56127. procedure TDMAC3_DCH3INT.clearCHDHIE; inline;
  56128. begin
  56129. pTDefRegMap(@Self)^.clr := $00100000;
  56130. end;
  56131. procedure TDMAC3_DCH3INT.setCHDHIE(thebits : TBits_1); inline;
  56132. begin
  56133. if thebits = 0 then
  56134. pTDefRegMap(@Self)^.clr := $00100000
  56135. else
  56136. pTDefRegMap(@Self)^.&set := $00100000;
  56137. end;
  56138. function TDMAC3_DCH3INT.getCHDHIE : TBits_1; inline;
  56139. begin
  56140. getCHDHIE := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  56141. end;
  56142. procedure TDMAC3_DCH3INT.setCHDDIE; inline;
  56143. begin
  56144. pTDefRegMap(@Self)^.&set := $00200000;
  56145. end;
  56146. procedure TDMAC3_DCH3INT.clearCHDDIE; inline;
  56147. begin
  56148. pTDefRegMap(@Self)^.clr := $00200000;
  56149. end;
  56150. procedure TDMAC3_DCH3INT.setCHDDIE(thebits : TBits_1); inline;
  56151. begin
  56152. if thebits = 0 then
  56153. pTDefRegMap(@Self)^.clr := $00200000
  56154. else
  56155. pTDefRegMap(@Self)^.&set := $00200000;
  56156. end;
  56157. function TDMAC3_DCH3INT.getCHDDIE : TBits_1; inline;
  56158. begin
  56159. getCHDDIE := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  56160. end;
  56161. procedure TDMAC3_DCH3INT.setCHSHIE; inline;
  56162. begin
  56163. pTDefRegMap(@Self)^.&set := $00400000;
  56164. end;
  56165. procedure TDMAC3_DCH3INT.clearCHSHIE; inline;
  56166. begin
  56167. pTDefRegMap(@Self)^.clr := $00400000;
  56168. end;
  56169. procedure TDMAC3_DCH3INT.setCHSHIE(thebits : TBits_1); inline;
  56170. begin
  56171. if thebits = 0 then
  56172. pTDefRegMap(@Self)^.clr := $00400000
  56173. else
  56174. pTDefRegMap(@Self)^.&set := $00400000;
  56175. end;
  56176. function TDMAC3_DCH3INT.getCHSHIE : TBits_1; inline;
  56177. begin
  56178. getCHSHIE := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  56179. end;
  56180. procedure TDMAC3_DCH3INT.setCHSDIE; inline;
  56181. begin
  56182. pTDefRegMap(@Self)^.&set := $00800000;
  56183. end;
  56184. procedure TDMAC3_DCH3INT.clearCHSDIE; inline;
  56185. begin
  56186. pTDefRegMap(@Self)^.clr := $00800000;
  56187. end;
  56188. procedure TDMAC3_DCH3INT.setCHSDIE(thebits : TBits_1); inline;
  56189. begin
  56190. if thebits = 0 then
  56191. pTDefRegMap(@Self)^.clr := $00800000
  56192. else
  56193. pTDefRegMap(@Self)^.&set := $00800000;
  56194. end;
  56195. function TDMAC3_DCH3INT.getCHSDIE : TBits_1; inline;
  56196. begin
  56197. getCHSDIE := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  56198. end;
  56199. procedure TDMAC3_DCH3INT.setw(thebits : TBits_32); inline;
  56200. begin
  56201. pTDefRegMap(@Self)^.val := thebits;
  56202. end;
  56203. function TDMAC3_DCH3INT.getw : TBits_32; inline;
  56204. begin
  56205. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56206. end;
  56207. procedure TPCACHE_CHECON.setPFMWS(thebits : TBits_3); inline;
  56208. begin
  56209. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  56210. end;
  56211. function TPCACHE_CHECON.getPFMWS : TBits_3; inline;
  56212. begin
  56213. getPFMWS := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  56214. end;
  56215. procedure TPCACHE_CHECON.setPREFEN(thebits : TBits_2); inline;
  56216. begin
  56217. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFCF or ( thebits shl 4 );
  56218. end;
  56219. function TPCACHE_CHECON.getPREFEN : TBits_2; inline;
  56220. begin
  56221. getPREFEN := (pTDefRegMap(@Self)^.val and $00000030) shr 4;
  56222. end;
  56223. procedure TPCACHE_CHECON.setDCSZ(thebits : TBits_2); inline;
  56224. begin
  56225. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  56226. end;
  56227. function TPCACHE_CHECON.getDCSZ : TBits_2; inline;
  56228. begin
  56229. getDCSZ := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  56230. end;
  56231. procedure TPCACHE_CHECON.setCHECOH; inline;
  56232. begin
  56233. pTDefRegMap(@Self)^.&set := $00010000;
  56234. end;
  56235. procedure TPCACHE_CHECON.clearCHECOH; inline;
  56236. begin
  56237. pTDefRegMap(@Self)^.clr := $00010000;
  56238. end;
  56239. procedure TPCACHE_CHECON.setCHECOH(thebits : TBits_1); inline;
  56240. begin
  56241. if thebits = 0 then
  56242. pTDefRegMap(@Self)^.clr := $00010000
  56243. else
  56244. pTDefRegMap(@Self)^.&set := $00010000;
  56245. end;
  56246. function TPCACHE_CHECON.getCHECOH : TBits_1; inline;
  56247. begin
  56248. getCHECOH := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  56249. end;
  56250. procedure TPCACHE_CHECON.setw(thebits : TBits_32); inline;
  56251. begin
  56252. pTDefRegMap(@Self)^.val := thebits;
  56253. end;
  56254. function TPCACHE_CHECON.getw : TBits_32; inline;
  56255. begin
  56256. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56257. end;
  56258. procedure TPCACHE_CHETAG.setLTYPE; inline;
  56259. begin
  56260. pTDefRegMap(@Self)^.&set := $00000002;
  56261. end;
  56262. procedure TPCACHE_CHETAG.clearLTYPE; inline;
  56263. begin
  56264. pTDefRegMap(@Self)^.clr := $00000002;
  56265. end;
  56266. procedure TPCACHE_CHETAG.setLTYPE(thebits : TBits_1); inline;
  56267. begin
  56268. if thebits = 0 then
  56269. pTDefRegMap(@Self)^.clr := $00000002
  56270. else
  56271. pTDefRegMap(@Self)^.&set := $00000002;
  56272. end;
  56273. function TPCACHE_CHETAG.getLTYPE : TBits_1; inline;
  56274. begin
  56275. getLTYPE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56276. end;
  56277. procedure TPCACHE_CHETAG.setLLOCK; inline;
  56278. begin
  56279. pTDefRegMap(@Self)^.&set := $00000004;
  56280. end;
  56281. procedure TPCACHE_CHETAG.clearLLOCK; inline;
  56282. begin
  56283. pTDefRegMap(@Self)^.clr := $00000004;
  56284. end;
  56285. procedure TPCACHE_CHETAG.setLLOCK(thebits : TBits_1); inline;
  56286. begin
  56287. if thebits = 0 then
  56288. pTDefRegMap(@Self)^.clr := $00000004
  56289. else
  56290. pTDefRegMap(@Self)^.&set := $00000004;
  56291. end;
  56292. function TPCACHE_CHETAG.getLLOCK : TBits_1; inline;
  56293. begin
  56294. getLLOCK := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56295. end;
  56296. procedure TPCACHE_CHETAG.setLVALID; inline;
  56297. begin
  56298. pTDefRegMap(@Self)^.&set := $00000008;
  56299. end;
  56300. procedure TPCACHE_CHETAG.clearLVALID; inline;
  56301. begin
  56302. pTDefRegMap(@Self)^.clr := $00000008;
  56303. end;
  56304. procedure TPCACHE_CHETAG.setLVALID(thebits : TBits_1); inline;
  56305. begin
  56306. if thebits = 0 then
  56307. pTDefRegMap(@Self)^.clr := $00000008
  56308. else
  56309. pTDefRegMap(@Self)^.&set := $00000008;
  56310. end;
  56311. function TPCACHE_CHETAG.getLVALID : TBits_1; inline;
  56312. begin
  56313. getLVALID := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56314. end;
  56315. procedure TPCACHE_CHETAG.setLTAG(thebits : TBits_20); inline;
  56316. begin
  56317. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF00000F or ( thebits shl 4 );
  56318. end;
  56319. function TPCACHE_CHETAG.getLTAG : TBits_20; inline;
  56320. begin
  56321. getLTAG := (pTDefRegMap(@Self)^.val and $00FFFFF0) shr 4;
  56322. end;
  56323. procedure TPCACHE_CHETAG.setLTAGBOOT; inline;
  56324. begin
  56325. pTDefRegMap(@Self)^.&set := $80000000;
  56326. end;
  56327. procedure TPCACHE_CHETAG.clearLTAGBOOT; inline;
  56328. begin
  56329. pTDefRegMap(@Self)^.clr := $80000000;
  56330. end;
  56331. procedure TPCACHE_CHETAG.setLTAGBOOT(thebits : TBits_1); inline;
  56332. begin
  56333. if thebits = 0 then
  56334. pTDefRegMap(@Self)^.clr := $80000000
  56335. else
  56336. pTDefRegMap(@Self)^.&set := $80000000;
  56337. end;
  56338. function TPCACHE_CHETAG.getLTAGBOOT : TBits_1; inline;
  56339. begin
  56340. getLTAGBOOT := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  56341. end;
  56342. procedure TPCACHE_CHETAG.setw(thebits : TBits_32); inline;
  56343. begin
  56344. pTDefRegMap(@Self)^.val := thebits;
  56345. end;
  56346. function TPCACHE_CHETAG.getw : TBits_32; inline;
  56347. begin
  56348. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  56349. end;
  56350. procedure TUSB_U1IR.setURSTIF_DETACHIF; inline;
  56351. begin
  56352. pTDefRegMap(@Self)^.&set := $00000001;
  56353. end;
  56354. procedure TUSB_U1IR.clearURSTIF_DETACHIF; inline;
  56355. begin
  56356. pTDefRegMap(@Self)^.clr := $00000001;
  56357. end;
  56358. procedure TUSB_U1IR.setURSTIF_DETACHIF(thebits : TBits_1); inline;
  56359. begin
  56360. if thebits = 0 then
  56361. pTDefRegMap(@Self)^.clr := $00000001
  56362. else
  56363. pTDefRegMap(@Self)^.&set := $00000001;
  56364. end;
  56365. function TUSB_U1IR.getURSTIF_DETACHIF : TBits_1; inline;
  56366. begin
  56367. getURSTIF_DETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56368. end;
  56369. procedure TUSB_U1IR.setUERRIF; inline;
  56370. begin
  56371. pTDefRegMap(@Self)^.&set := $00000002;
  56372. end;
  56373. procedure TUSB_U1IR.clearUERRIF; inline;
  56374. begin
  56375. pTDefRegMap(@Self)^.clr := $00000002;
  56376. end;
  56377. procedure TUSB_U1IR.setUERRIF(thebits : TBits_1); inline;
  56378. begin
  56379. if thebits = 0 then
  56380. pTDefRegMap(@Self)^.clr := $00000002
  56381. else
  56382. pTDefRegMap(@Self)^.&set := $00000002;
  56383. end;
  56384. function TUSB_U1IR.getUERRIF : TBits_1; inline;
  56385. begin
  56386. getUERRIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56387. end;
  56388. procedure TUSB_U1IR.setSOFIF; inline;
  56389. begin
  56390. pTDefRegMap(@Self)^.&set := $00000004;
  56391. end;
  56392. procedure TUSB_U1IR.clearSOFIF; inline;
  56393. begin
  56394. pTDefRegMap(@Self)^.clr := $00000004;
  56395. end;
  56396. procedure TUSB_U1IR.setSOFIF(thebits : TBits_1); inline;
  56397. begin
  56398. if thebits = 0 then
  56399. pTDefRegMap(@Self)^.clr := $00000004
  56400. else
  56401. pTDefRegMap(@Self)^.&set := $00000004;
  56402. end;
  56403. function TUSB_U1IR.getSOFIF : TBits_1; inline;
  56404. begin
  56405. getSOFIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56406. end;
  56407. procedure TUSB_U1IR.setTRNIF; inline;
  56408. begin
  56409. pTDefRegMap(@Self)^.&set := $00000008;
  56410. end;
  56411. procedure TUSB_U1IR.clearTRNIF; inline;
  56412. begin
  56413. pTDefRegMap(@Self)^.clr := $00000008;
  56414. end;
  56415. procedure TUSB_U1IR.setTRNIF(thebits : TBits_1); inline;
  56416. begin
  56417. if thebits = 0 then
  56418. pTDefRegMap(@Self)^.clr := $00000008
  56419. else
  56420. pTDefRegMap(@Self)^.&set := $00000008;
  56421. end;
  56422. function TUSB_U1IR.getTRNIF : TBits_1; inline;
  56423. begin
  56424. getTRNIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56425. end;
  56426. procedure TUSB_U1IR.setIDLEIF; inline;
  56427. begin
  56428. pTDefRegMap(@Self)^.&set := $00000010;
  56429. end;
  56430. procedure TUSB_U1IR.clearIDLEIF; inline;
  56431. begin
  56432. pTDefRegMap(@Self)^.clr := $00000010;
  56433. end;
  56434. procedure TUSB_U1IR.setIDLEIF(thebits : TBits_1); inline;
  56435. begin
  56436. if thebits = 0 then
  56437. pTDefRegMap(@Self)^.clr := $00000010
  56438. else
  56439. pTDefRegMap(@Self)^.&set := $00000010;
  56440. end;
  56441. function TUSB_U1IR.getIDLEIF : TBits_1; inline;
  56442. begin
  56443. getIDLEIF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56444. end;
  56445. procedure TUSB_U1IR.setRESUMEIF; inline;
  56446. begin
  56447. pTDefRegMap(@Self)^.&set := $00000020;
  56448. end;
  56449. procedure TUSB_U1IR.clearRESUMEIF; inline;
  56450. begin
  56451. pTDefRegMap(@Self)^.clr := $00000020;
  56452. end;
  56453. procedure TUSB_U1IR.setRESUMEIF(thebits : TBits_1); inline;
  56454. begin
  56455. if thebits = 0 then
  56456. pTDefRegMap(@Self)^.clr := $00000020
  56457. else
  56458. pTDefRegMap(@Self)^.&set := $00000020;
  56459. end;
  56460. function TUSB_U1IR.getRESUMEIF : TBits_1; inline;
  56461. begin
  56462. getRESUMEIF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56463. end;
  56464. procedure TUSB_U1IR.setATTACHIF; inline;
  56465. begin
  56466. pTDefRegMap(@Self)^.&set := $00000040;
  56467. end;
  56468. procedure TUSB_U1IR.clearATTACHIF; inline;
  56469. begin
  56470. pTDefRegMap(@Self)^.clr := $00000040;
  56471. end;
  56472. procedure TUSB_U1IR.setATTACHIF(thebits : TBits_1); inline;
  56473. begin
  56474. if thebits = 0 then
  56475. pTDefRegMap(@Self)^.clr := $00000040
  56476. else
  56477. pTDefRegMap(@Self)^.&set := $00000040;
  56478. end;
  56479. function TUSB_U1IR.getATTACHIF : TBits_1; inline;
  56480. begin
  56481. getATTACHIF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56482. end;
  56483. procedure TUSB_U1IR.setSTALLIF; inline;
  56484. begin
  56485. pTDefRegMap(@Self)^.&set := $00000080;
  56486. end;
  56487. procedure TUSB_U1IR.clearSTALLIF; inline;
  56488. begin
  56489. pTDefRegMap(@Self)^.clr := $00000080;
  56490. end;
  56491. procedure TUSB_U1IR.setSTALLIF(thebits : TBits_1); inline;
  56492. begin
  56493. if thebits = 0 then
  56494. pTDefRegMap(@Self)^.clr := $00000080
  56495. else
  56496. pTDefRegMap(@Self)^.&set := $00000080;
  56497. end;
  56498. function TUSB_U1IR.getSTALLIF : TBits_1; inline;
  56499. begin
  56500. getSTALLIF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56501. end;
  56502. procedure TUSB_U1IR.setDETACHIF; inline;
  56503. begin
  56504. pTDefRegMap(@Self)^.&set := $00000001;
  56505. end;
  56506. procedure TUSB_U1IR.clearDETACHIF; inline;
  56507. begin
  56508. pTDefRegMap(@Self)^.clr := $00000001;
  56509. end;
  56510. procedure TUSB_U1IR.setDETACHIF(thebits : TBits_1); inline;
  56511. begin
  56512. if thebits = 0 then
  56513. pTDefRegMap(@Self)^.clr := $00000001
  56514. else
  56515. pTDefRegMap(@Self)^.&set := $00000001;
  56516. end;
  56517. function TUSB_U1IR.getDETACHIF : TBits_1; inline;
  56518. begin
  56519. getDETACHIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56520. end;
  56521. procedure TUSB_U1IR.setURSTIF; inline;
  56522. begin
  56523. pTDefRegMap(@Self)^.&set := $00000001;
  56524. end;
  56525. procedure TUSB_U1IR.clearURSTIF; inline;
  56526. begin
  56527. pTDefRegMap(@Self)^.clr := $00000001;
  56528. end;
  56529. procedure TUSB_U1IR.setURSTIF(thebits : TBits_1); inline;
  56530. begin
  56531. if thebits = 0 then
  56532. pTDefRegMap(@Self)^.clr := $00000001
  56533. else
  56534. pTDefRegMap(@Self)^.&set := $00000001;
  56535. end;
  56536. function TUSB_U1IR.getURSTIF : TBits_1; inline;
  56537. begin
  56538. getURSTIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56539. end;
  56540. procedure TUSB_U1IE.setURSTIE_DETACHIE; inline;
  56541. begin
  56542. pTDefRegMap(@Self)^.&set := $00000001;
  56543. end;
  56544. procedure TUSB_U1IE.clearURSTIE_DETACHIE; inline;
  56545. begin
  56546. pTDefRegMap(@Self)^.clr := $00000001;
  56547. end;
  56548. procedure TUSB_U1IE.setURSTIE_DETACHIE(thebits : TBits_1); inline;
  56549. begin
  56550. if thebits = 0 then
  56551. pTDefRegMap(@Self)^.clr := $00000001
  56552. else
  56553. pTDefRegMap(@Self)^.&set := $00000001;
  56554. end;
  56555. function TUSB_U1IE.getURSTIE_DETACHIE : TBits_1; inline;
  56556. begin
  56557. getURSTIE_DETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56558. end;
  56559. procedure TUSB_U1IE.setUERRIE; inline;
  56560. begin
  56561. pTDefRegMap(@Self)^.&set := $00000002;
  56562. end;
  56563. procedure TUSB_U1IE.clearUERRIE; inline;
  56564. begin
  56565. pTDefRegMap(@Self)^.clr := $00000002;
  56566. end;
  56567. procedure TUSB_U1IE.setUERRIE(thebits : TBits_1); inline;
  56568. begin
  56569. if thebits = 0 then
  56570. pTDefRegMap(@Self)^.clr := $00000002
  56571. else
  56572. pTDefRegMap(@Self)^.&set := $00000002;
  56573. end;
  56574. function TUSB_U1IE.getUERRIE : TBits_1; inline;
  56575. begin
  56576. getUERRIE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56577. end;
  56578. procedure TUSB_U1IE.setSOFIE; inline;
  56579. begin
  56580. pTDefRegMap(@Self)^.&set := $00000004;
  56581. end;
  56582. procedure TUSB_U1IE.clearSOFIE; inline;
  56583. begin
  56584. pTDefRegMap(@Self)^.clr := $00000004;
  56585. end;
  56586. procedure TUSB_U1IE.setSOFIE(thebits : TBits_1); inline;
  56587. begin
  56588. if thebits = 0 then
  56589. pTDefRegMap(@Self)^.clr := $00000004
  56590. else
  56591. pTDefRegMap(@Self)^.&set := $00000004;
  56592. end;
  56593. function TUSB_U1IE.getSOFIE : TBits_1; inline;
  56594. begin
  56595. getSOFIE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56596. end;
  56597. procedure TUSB_U1IE.setTRNIE; inline;
  56598. begin
  56599. pTDefRegMap(@Self)^.&set := $00000008;
  56600. end;
  56601. procedure TUSB_U1IE.clearTRNIE; inline;
  56602. begin
  56603. pTDefRegMap(@Self)^.clr := $00000008;
  56604. end;
  56605. procedure TUSB_U1IE.setTRNIE(thebits : TBits_1); inline;
  56606. begin
  56607. if thebits = 0 then
  56608. pTDefRegMap(@Self)^.clr := $00000008
  56609. else
  56610. pTDefRegMap(@Self)^.&set := $00000008;
  56611. end;
  56612. function TUSB_U1IE.getTRNIE : TBits_1; inline;
  56613. begin
  56614. getTRNIE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56615. end;
  56616. procedure TUSB_U1IE.setIDLEIE; inline;
  56617. begin
  56618. pTDefRegMap(@Self)^.&set := $00000010;
  56619. end;
  56620. procedure TUSB_U1IE.clearIDLEIE; inline;
  56621. begin
  56622. pTDefRegMap(@Self)^.clr := $00000010;
  56623. end;
  56624. procedure TUSB_U1IE.setIDLEIE(thebits : TBits_1); inline;
  56625. begin
  56626. if thebits = 0 then
  56627. pTDefRegMap(@Self)^.clr := $00000010
  56628. else
  56629. pTDefRegMap(@Self)^.&set := $00000010;
  56630. end;
  56631. function TUSB_U1IE.getIDLEIE : TBits_1; inline;
  56632. begin
  56633. getIDLEIE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56634. end;
  56635. procedure TUSB_U1IE.setRESUMEIE; inline;
  56636. begin
  56637. pTDefRegMap(@Self)^.&set := $00000020;
  56638. end;
  56639. procedure TUSB_U1IE.clearRESUMEIE; inline;
  56640. begin
  56641. pTDefRegMap(@Self)^.clr := $00000020;
  56642. end;
  56643. procedure TUSB_U1IE.setRESUMEIE(thebits : TBits_1); inline;
  56644. begin
  56645. if thebits = 0 then
  56646. pTDefRegMap(@Self)^.clr := $00000020
  56647. else
  56648. pTDefRegMap(@Self)^.&set := $00000020;
  56649. end;
  56650. function TUSB_U1IE.getRESUMEIE : TBits_1; inline;
  56651. begin
  56652. getRESUMEIE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56653. end;
  56654. procedure TUSB_U1IE.setATTACHIE; inline;
  56655. begin
  56656. pTDefRegMap(@Self)^.&set := $00000040;
  56657. end;
  56658. procedure TUSB_U1IE.clearATTACHIE; inline;
  56659. begin
  56660. pTDefRegMap(@Self)^.clr := $00000040;
  56661. end;
  56662. procedure TUSB_U1IE.setATTACHIE(thebits : TBits_1); inline;
  56663. begin
  56664. if thebits = 0 then
  56665. pTDefRegMap(@Self)^.clr := $00000040
  56666. else
  56667. pTDefRegMap(@Self)^.&set := $00000040;
  56668. end;
  56669. function TUSB_U1IE.getATTACHIE : TBits_1; inline;
  56670. begin
  56671. getATTACHIE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56672. end;
  56673. procedure TUSB_U1IE.setSTALLIE; inline;
  56674. begin
  56675. pTDefRegMap(@Self)^.&set := $00000080;
  56676. end;
  56677. procedure TUSB_U1IE.clearSTALLIE; inline;
  56678. begin
  56679. pTDefRegMap(@Self)^.clr := $00000080;
  56680. end;
  56681. procedure TUSB_U1IE.setSTALLIE(thebits : TBits_1); inline;
  56682. begin
  56683. if thebits = 0 then
  56684. pTDefRegMap(@Self)^.clr := $00000080
  56685. else
  56686. pTDefRegMap(@Self)^.&set := $00000080;
  56687. end;
  56688. function TUSB_U1IE.getSTALLIE : TBits_1; inline;
  56689. begin
  56690. getSTALLIE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56691. end;
  56692. procedure TUSB_U1IE.setDETACHIE; inline;
  56693. begin
  56694. pTDefRegMap(@Self)^.&set := $00000001;
  56695. end;
  56696. procedure TUSB_U1IE.clearDETACHIE; inline;
  56697. begin
  56698. pTDefRegMap(@Self)^.clr := $00000001;
  56699. end;
  56700. procedure TUSB_U1IE.setDETACHIE(thebits : TBits_1); inline;
  56701. begin
  56702. if thebits = 0 then
  56703. pTDefRegMap(@Self)^.clr := $00000001
  56704. else
  56705. pTDefRegMap(@Self)^.&set := $00000001;
  56706. end;
  56707. function TUSB_U1IE.getDETACHIE : TBits_1; inline;
  56708. begin
  56709. getDETACHIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56710. end;
  56711. procedure TUSB_U1IE.setURSTIE; inline;
  56712. begin
  56713. pTDefRegMap(@Self)^.&set := $00000001;
  56714. end;
  56715. procedure TUSB_U1IE.clearURSTIE; inline;
  56716. begin
  56717. pTDefRegMap(@Self)^.clr := $00000001;
  56718. end;
  56719. procedure TUSB_U1IE.setURSTIE(thebits : TBits_1); inline;
  56720. begin
  56721. if thebits = 0 then
  56722. pTDefRegMap(@Self)^.clr := $00000001
  56723. else
  56724. pTDefRegMap(@Self)^.&set := $00000001;
  56725. end;
  56726. function TUSB_U1IE.getURSTIE : TBits_1; inline;
  56727. begin
  56728. getURSTIE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56729. end;
  56730. procedure TUSB_U1EIR.setPIDEF; inline;
  56731. begin
  56732. pTDefRegMap(@Self)^.&set := $00000001;
  56733. end;
  56734. procedure TUSB_U1EIR.clearPIDEF; inline;
  56735. begin
  56736. pTDefRegMap(@Self)^.clr := $00000001;
  56737. end;
  56738. procedure TUSB_U1EIR.setPIDEF(thebits : TBits_1); inline;
  56739. begin
  56740. if thebits = 0 then
  56741. pTDefRegMap(@Self)^.clr := $00000001
  56742. else
  56743. pTDefRegMap(@Self)^.&set := $00000001;
  56744. end;
  56745. function TUSB_U1EIR.getPIDEF : TBits_1; inline;
  56746. begin
  56747. getPIDEF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56748. end;
  56749. procedure TUSB_U1EIR.setCRC5EF_EOFEF; inline;
  56750. begin
  56751. pTDefRegMap(@Self)^.&set := $00000002;
  56752. end;
  56753. procedure TUSB_U1EIR.clearCRC5EF_EOFEF; inline;
  56754. begin
  56755. pTDefRegMap(@Self)^.clr := $00000002;
  56756. end;
  56757. procedure TUSB_U1EIR.setCRC5EF_EOFEF(thebits : TBits_1); inline;
  56758. begin
  56759. if thebits = 0 then
  56760. pTDefRegMap(@Self)^.clr := $00000002
  56761. else
  56762. pTDefRegMap(@Self)^.&set := $00000002;
  56763. end;
  56764. function TUSB_U1EIR.getCRC5EF_EOFEF : TBits_1; inline;
  56765. begin
  56766. getCRC5EF_EOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56767. end;
  56768. procedure TUSB_U1EIR.setCRC16EF; inline;
  56769. begin
  56770. pTDefRegMap(@Self)^.&set := $00000004;
  56771. end;
  56772. procedure TUSB_U1EIR.clearCRC16EF; inline;
  56773. begin
  56774. pTDefRegMap(@Self)^.clr := $00000004;
  56775. end;
  56776. procedure TUSB_U1EIR.setCRC16EF(thebits : TBits_1); inline;
  56777. begin
  56778. if thebits = 0 then
  56779. pTDefRegMap(@Self)^.clr := $00000004
  56780. else
  56781. pTDefRegMap(@Self)^.&set := $00000004;
  56782. end;
  56783. function TUSB_U1EIR.getCRC16EF : TBits_1; inline;
  56784. begin
  56785. getCRC16EF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56786. end;
  56787. procedure TUSB_U1EIR.setDFN8EF; inline;
  56788. begin
  56789. pTDefRegMap(@Self)^.&set := $00000008;
  56790. end;
  56791. procedure TUSB_U1EIR.clearDFN8EF; inline;
  56792. begin
  56793. pTDefRegMap(@Self)^.clr := $00000008;
  56794. end;
  56795. procedure TUSB_U1EIR.setDFN8EF(thebits : TBits_1); inline;
  56796. begin
  56797. if thebits = 0 then
  56798. pTDefRegMap(@Self)^.clr := $00000008
  56799. else
  56800. pTDefRegMap(@Self)^.&set := $00000008;
  56801. end;
  56802. function TUSB_U1EIR.getDFN8EF : TBits_1; inline;
  56803. begin
  56804. getDFN8EF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56805. end;
  56806. procedure TUSB_U1EIR.setBTOEF; inline;
  56807. begin
  56808. pTDefRegMap(@Self)^.&set := $00000010;
  56809. end;
  56810. procedure TUSB_U1EIR.clearBTOEF; inline;
  56811. begin
  56812. pTDefRegMap(@Self)^.clr := $00000010;
  56813. end;
  56814. procedure TUSB_U1EIR.setBTOEF(thebits : TBits_1); inline;
  56815. begin
  56816. if thebits = 0 then
  56817. pTDefRegMap(@Self)^.clr := $00000010
  56818. else
  56819. pTDefRegMap(@Self)^.&set := $00000010;
  56820. end;
  56821. function TUSB_U1EIR.getBTOEF : TBits_1; inline;
  56822. begin
  56823. getBTOEF := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  56824. end;
  56825. procedure TUSB_U1EIR.setDMAEF; inline;
  56826. begin
  56827. pTDefRegMap(@Self)^.&set := $00000020;
  56828. end;
  56829. procedure TUSB_U1EIR.clearDMAEF; inline;
  56830. begin
  56831. pTDefRegMap(@Self)^.clr := $00000020;
  56832. end;
  56833. procedure TUSB_U1EIR.setDMAEF(thebits : TBits_1); inline;
  56834. begin
  56835. if thebits = 0 then
  56836. pTDefRegMap(@Self)^.clr := $00000020
  56837. else
  56838. pTDefRegMap(@Self)^.&set := $00000020;
  56839. end;
  56840. function TUSB_U1EIR.getDMAEF : TBits_1; inline;
  56841. begin
  56842. getDMAEF := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  56843. end;
  56844. procedure TUSB_U1EIR.setBMXEF; inline;
  56845. begin
  56846. pTDefRegMap(@Self)^.&set := $00000040;
  56847. end;
  56848. procedure TUSB_U1EIR.clearBMXEF; inline;
  56849. begin
  56850. pTDefRegMap(@Self)^.clr := $00000040;
  56851. end;
  56852. procedure TUSB_U1EIR.setBMXEF(thebits : TBits_1); inline;
  56853. begin
  56854. if thebits = 0 then
  56855. pTDefRegMap(@Self)^.clr := $00000040
  56856. else
  56857. pTDefRegMap(@Self)^.&set := $00000040;
  56858. end;
  56859. function TUSB_U1EIR.getBMXEF : TBits_1; inline;
  56860. begin
  56861. getBMXEF := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  56862. end;
  56863. procedure TUSB_U1EIR.setBTSEF; inline;
  56864. begin
  56865. pTDefRegMap(@Self)^.&set := $00000080;
  56866. end;
  56867. procedure TUSB_U1EIR.clearBTSEF; inline;
  56868. begin
  56869. pTDefRegMap(@Self)^.clr := $00000080;
  56870. end;
  56871. procedure TUSB_U1EIR.setBTSEF(thebits : TBits_1); inline;
  56872. begin
  56873. if thebits = 0 then
  56874. pTDefRegMap(@Self)^.clr := $00000080
  56875. else
  56876. pTDefRegMap(@Self)^.&set := $00000080;
  56877. end;
  56878. function TUSB_U1EIR.getBTSEF : TBits_1; inline;
  56879. begin
  56880. getBTSEF := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  56881. end;
  56882. procedure TUSB_U1EIR.setCRC5EF; inline;
  56883. begin
  56884. pTDefRegMap(@Self)^.&set := $00000002;
  56885. end;
  56886. procedure TUSB_U1EIR.clearCRC5EF; inline;
  56887. begin
  56888. pTDefRegMap(@Self)^.clr := $00000002;
  56889. end;
  56890. procedure TUSB_U1EIR.setCRC5EF(thebits : TBits_1); inline;
  56891. begin
  56892. if thebits = 0 then
  56893. pTDefRegMap(@Self)^.clr := $00000002
  56894. else
  56895. pTDefRegMap(@Self)^.&set := $00000002;
  56896. end;
  56897. function TUSB_U1EIR.getCRC5EF : TBits_1; inline;
  56898. begin
  56899. getCRC5EF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56900. end;
  56901. procedure TUSB_U1EIR.setEOFEF; inline;
  56902. begin
  56903. pTDefRegMap(@Self)^.&set := $00000002;
  56904. end;
  56905. procedure TUSB_U1EIR.clearEOFEF; inline;
  56906. begin
  56907. pTDefRegMap(@Self)^.clr := $00000002;
  56908. end;
  56909. procedure TUSB_U1EIR.setEOFEF(thebits : TBits_1); inline;
  56910. begin
  56911. if thebits = 0 then
  56912. pTDefRegMap(@Self)^.clr := $00000002
  56913. else
  56914. pTDefRegMap(@Self)^.&set := $00000002;
  56915. end;
  56916. function TUSB_U1EIR.getEOFEF : TBits_1; inline;
  56917. begin
  56918. getEOFEF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56919. end;
  56920. procedure TUSB_U1EIE.setPIDEE; inline;
  56921. begin
  56922. pTDefRegMap(@Self)^.&set := $00000001;
  56923. end;
  56924. procedure TUSB_U1EIE.clearPIDEE; inline;
  56925. begin
  56926. pTDefRegMap(@Self)^.clr := $00000001;
  56927. end;
  56928. procedure TUSB_U1EIE.setPIDEE(thebits : TBits_1); inline;
  56929. begin
  56930. if thebits = 0 then
  56931. pTDefRegMap(@Self)^.clr := $00000001
  56932. else
  56933. pTDefRegMap(@Self)^.&set := $00000001;
  56934. end;
  56935. function TUSB_U1EIE.getPIDEE : TBits_1; inline;
  56936. begin
  56937. getPIDEE := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  56938. end;
  56939. procedure TUSB_U1EIE.setCRC5EE_EOFEE; inline;
  56940. begin
  56941. pTDefRegMap(@Self)^.&set := $00000002;
  56942. end;
  56943. procedure TUSB_U1EIE.clearCRC5EE_EOFEE; inline;
  56944. begin
  56945. pTDefRegMap(@Self)^.clr := $00000002;
  56946. end;
  56947. procedure TUSB_U1EIE.setCRC5EE_EOFEE(thebits : TBits_1); inline;
  56948. begin
  56949. if thebits = 0 then
  56950. pTDefRegMap(@Self)^.clr := $00000002
  56951. else
  56952. pTDefRegMap(@Self)^.&set := $00000002;
  56953. end;
  56954. function TUSB_U1EIE.getCRC5EE_EOFEE : TBits_1; inline;
  56955. begin
  56956. getCRC5EE_EOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  56957. end;
  56958. procedure TUSB_U1EIE.setCRC16EE; inline;
  56959. begin
  56960. pTDefRegMap(@Self)^.&set := $00000004;
  56961. end;
  56962. procedure TUSB_U1EIE.clearCRC16EE; inline;
  56963. begin
  56964. pTDefRegMap(@Self)^.clr := $00000004;
  56965. end;
  56966. procedure TUSB_U1EIE.setCRC16EE(thebits : TBits_1); inline;
  56967. begin
  56968. if thebits = 0 then
  56969. pTDefRegMap(@Self)^.clr := $00000004
  56970. else
  56971. pTDefRegMap(@Self)^.&set := $00000004;
  56972. end;
  56973. function TUSB_U1EIE.getCRC16EE : TBits_1; inline;
  56974. begin
  56975. getCRC16EE := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  56976. end;
  56977. procedure TUSB_U1EIE.setDFN8EE; inline;
  56978. begin
  56979. pTDefRegMap(@Self)^.&set := $00000008;
  56980. end;
  56981. procedure TUSB_U1EIE.clearDFN8EE; inline;
  56982. begin
  56983. pTDefRegMap(@Self)^.clr := $00000008;
  56984. end;
  56985. procedure TUSB_U1EIE.setDFN8EE(thebits : TBits_1); inline;
  56986. begin
  56987. if thebits = 0 then
  56988. pTDefRegMap(@Self)^.clr := $00000008
  56989. else
  56990. pTDefRegMap(@Self)^.&set := $00000008;
  56991. end;
  56992. function TUSB_U1EIE.getDFN8EE : TBits_1; inline;
  56993. begin
  56994. getDFN8EE := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  56995. end;
  56996. procedure TUSB_U1EIE.setBTOEE; inline;
  56997. begin
  56998. pTDefRegMap(@Self)^.&set := $00000010;
  56999. end;
  57000. procedure TUSB_U1EIE.clearBTOEE; inline;
  57001. begin
  57002. pTDefRegMap(@Self)^.clr := $00000010;
  57003. end;
  57004. procedure TUSB_U1EIE.setBTOEE(thebits : TBits_1); inline;
  57005. begin
  57006. if thebits = 0 then
  57007. pTDefRegMap(@Self)^.clr := $00000010
  57008. else
  57009. pTDefRegMap(@Self)^.&set := $00000010;
  57010. end;
  57011. function TUSB_U1EIE.getBTOEE : TBits_1; inline;
  57012. begin
  57013. getBTOEE := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57014. end;
  57015. procedure TUSB_U1EIE.setDMAEE; inline;
  57016. begin
  57017. pTDefRegMap(@Self)^.&set := $00000020;
  57018. end;
  57019. procedure TUSB_U1EIE.clearDMAEE; inline;
  57020. begin
  57021. pTDefRegMap(@Self)^.clr := $00000020;
  57022. end;
  57023. procedure TUSB_U1EIE.setDMAEE(thebits : TBits_1); inline;
  57024. begin
  57025. if thebits = 0 then
  57026. pTDefRegMap(@Self)^.clr := $00000020
  57027. else
  57028. pTDefRegMap(@Self)^.&set := $00000020;
  57029. end;
  57030. function TUSB_U1EIE.getDMAEE : TBits_1; inline;
  57031. begin
  57032. getDMAEE := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57033. end;
  57034. procedure TUSB_U1EIE.setBMXEE; inline;
  57035. begin
  57036. pTDefRegMap(@Self)^.&set := $00000040;
  57037. end;
  57038. procedure TUSB_U1EIE.clearBMXEE; inline;
  57039. begin
  57040. pTDefRegMap(@Self)^.clr := $00000040;
  57041. end;
  57042. procedure TUSB_U1EIE.setBMXEE(thebits : TBits_1); inline;
  57043. begin
  57044. if thebits = 0 then
  57045. pTDefRegMap(@Self)^.clr := $00000040
  57046. else
  57047. pTDefRegMap(@Self)^.&set := $00000040;
  57048. end;
  57049. function TUSB_U1EIE.getBMXEE : TBits_1; inline;
  57050. begin
  57051. getBMXEE := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57052. end;
  57053. procedure TUSB_U1EIE.setBTSEE; inline;
  57054. begin
  57055. pTDefRegMap(@Self)^.&set := $00000080;
  57056. end;
  57057. procedure TUSB_U1EIE.clearBTSEE; inline;
  57058. begin
  57059. pTDefRegMap(@Self)^.clr := $00000080;
  57060. end;
  57061. procedure TUSB_U1EIE.setBTSEE(thebits : TBits_1); inline;
  57062. begin
  57063. if thebits = 0 then
  57064. pTDefRegMap(@Self)^.clr := $00000080
  57065. else
  57066. pTDefRegMap(@Self)^.&set := $00000080;
  57067. end;
  57068. function TUSB_U1EIE.getBTSEE : TBits_1; inline;
  57069. begin
  57070. getBTSEE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57071. end;
  57072. procedure TUSB_U1EIE.setCRC5EE; inline;
  57073. begin
  57074. pTDefRegMap(@Self)^.&set := $00000002;
  57075. end;
  57076. procedure TUSB_U1EIE.clearCRC5EE; inline;
  57077. begin
  57078. pTDefRegMap(@Self)^.clr := $00000002;
  57079. end;
  57080. procedure TUSB_U1EIE.setCRC5EE(thebits : TBits_1); inline;
  57081. begin
  57082. if thebits = 0 then
  57083. pTDefRegMap(@Self)^.clr := $00000002
  57084. else
  57085. pTDefRegMap(@Self)^.&set := $00000002;
  57086. end;
  57087. function TUSB_U1EIE.getCRC5EE : TBits_1; inline;
  57088. begin
  57089. getCRC5EE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57090. end;
  57091. procedure TUSB_U1EIE.setEOFEE; inline;
  57092. begin
  57093. pTDefRegMap(@Self)^.&set := $00000002;
  57094. end;
  57095. procedure TUSB_U1EIE.clearEOFEE; inline;
  57096. begin
  57097. pTDefRegMap(@Self)^.clr := $00000002;
  57098. end;
  57099. procedure TUSB_U1EIE.setEOFEE(thebits : TBits_1); inline;
  57100. begin
  57101. if thebits = 0 then
  57102. pTDefRegMap(@Self)^.clr := $00000002
  57103. else
  57104. pTDefRegMap(@Self)^.&set := $00000002;
  57105. end;
  57106. function TUSB_U1EIE.getEOFEE : TBits_1; inline;
  57107. begin
  57108. getEOFEE := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57109. end;
  57110. procedure TUSB_U1STAT.setPPBI; inline;
  57111. begin
  57112. pTDefRegMap(@Self)^.&set := $00000004;
  57113. end;
  57114. procedure TUSB_U1STAT.clearPPBI; inline;
  57115. begin
  57116. pTDefRegMap(@Self)^.clr := $00000004;
  57117. end;
  57118. procedure TUSB_U1STAT.setPPBI(thebits : TBits_1); inline;
  57119. begin
  57120. if thebits = 0 then
  57121. pTDefRegMap(@Self)^.clr := $00000004
  57122. else
  57123. pTDefRegMap(@Self)^.&set := $00000004;
  57124. end;
  57125. function TUSB_U1STAT.getPPBI : TBits_1; inline;
  57126. begin
  57127. getPPBI := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57128. end;
  57129. procedure TUSB_U1STAT.setDIR; inline;
  57130. begin
  57131. pTDefRegMap(@Self)^.&set := $00000008;
  57132. end;
  57133. procedure TUSB_U1STAT.clearDIR; inline;
  57134. begin
  57135. pTDefRegMap(@Self)^.clr := $00000008;
  57136. end;
  57137. procedure TUSB_U1STAT.setDIR(thebits : TBits_1); inline;
  57138. begin
  57139. if thebits = 0 then
  57140. pTDefRegMap(@Self)^.clr := $00000008
  57141. else
  57142. pTDefRegMap(@Self)^.&set := $00000008;
  57143. end;
  57144. function TUSB_U1STAT.getDIR : TBits_1; inline;
  57145. begin
  57146. getDIR := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57147. end;
  57148. procedure TUSB_U1STAT.setENDPT(thebits : TBits_4); inline;
  57149. begin
  57150. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  57151. end;
  57152. function TUSB_U1STAT.getENDPT : TBits_4; inline;
  57153. begin
  57154. getENDPT := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  57155. end;
  57156. procedure TUSB_U1STAT.setENDPT0; inline;
  57157. begin
  57158. pTDefRegMap(@Self)^.&set := $00000010;
  57159. end;
  57160. procedure TUSB_U1STAT.clearENDPT0; inline;
  57161. begin
  57162. pTDefRegMap(@Self)^.clr := $00000010;
  57163. end;
  57164. procedure TUSB_U1STAT.setENDPT0(thebits : TBits_1); inline;
  57165. begin
  57166. if thebits = 0 then
  57167. pTDefRegMap(@Self)^.clr := $00000010
  57168. else
  57169. pTDefRegMap(@Self)^.&set := $00000010;
  57170. end;
  57171. function TUSB_U1STAT.getENDPT0 : TBits_1; inline;
  57172. begin
  57173. getENDPT0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57174. end;
  57175. procedure TUSB_U1STAT.setENDPT1; inline;
  57176. begin
  57177. pTDefRegMap(@Self)^.&set := $00000020;
  57178. end;
  57179. procedure TUSB_U1STAT.clearENDPT1; inline;
  57180. begin
  57181. pTDefRegMap(@Self)^.clr := $00000020;
  57182. end;
  57183. procedure TUSB_U1STAT.setENDPT1(thebits : TBits_1); inline;
  57184. begin
  57185. if thebits = 0 then
  57186. pTDefRegMap(@Self)^.clr := $00000020
  57187. else
  57188. pTDefRegMap(@Self)^.&set := $00000020;
  57189. end;
  57190. function TUSB_U1STAT.getENDPT1 : TBits_1; inline;
  57191. begin
  57192. getENDPT1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57193. end;
  57194. procedure TUSB_U1STAT.setENDPT2; inline;
  57195. begin
  57196. pTDefRegMap(@Self)^.&set := $00000040;
  57197. end;
  57198. procedure TUSB_U1STAT.clearENDPT2; inline;
  57199. begin
  57200. pTDefRegMap(@Self)^.clr := $00000040;
  57201. end;
  57202. procedure TUSB_U1STAT.setENDPT2(thebits : TBits_1); inline;
  57203. begin
  57204. if thebits = 0 then
  57205. pTDefRegMap(@Self)^.clr := $00000040
  57206. else
  57207. pTDefRegMap(@Self)^.&set := $00000040;
  57208. end;
  57209. function TUSB_U1STAT.getENDPT2 : TBits_1; inline;
  57210. begin
  57211. getENDPT2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57212. end;
  57213. procedure TUSB_U1STAT.setENDPT3; inline;
  57214. begin
  57215. pTDefRegMap(@Self)^.&set := $00000080;
  57216. end;
  57217. procedure TUSB_U1STAT.clearENDPT3; inline;
  57218. begin
  57219. pTDefRegMap(@Self)^.clr := $00000080;
  57220. end;
  57221. procedure TUSB_U1STAT.setENDPT3(thebits : TBits_1); inline;
  57222. begin
  57223. if thebits = 0 then
  57224. pTDefRegMap(@Self)^.clr := $00000080
  57225. else
  57226. pTDefRegMap(@Self)^.&set := $00000080;
  57227. end;
  57228. function TUSB_U1STAT.getENDPT3 : TBits_1; inline;
  57229. begin
  57230. getENDPT3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57231. end;
  57232. procedure TUSB_U1CON.setUSBEN_SOFEN; inline;
  57233. begin
  57234. pTDefRegMap(@Self)^.&set := $00000001;
  57235. end;
  57236. procedure TUSB_U1CON.clearUSBEN_SOFEN; inline;
  57237. begin
  57238. pTDefRegMap(@Self)^.clr := $00000001;
  57239. end;
  57240. procedure TUSB_U1CON.setUSBEN_SOFEN(thebits : TBits_1); inline;
  57241. begin
  57242. if thebits = 0 then
  57243. pTDefRegMap(@Self)^.clr := $00000001
  57244. else
  57245. pTDefRegMap(@Self)^.&set := $00000001;
  57246. end;
  57247. function TUSB_U1CON.getUSBEN_SOFEN : TBits_1; inline;
  57248. begin
  57249. getUSBEN_SOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57250. end;
  57251. procedure TUSB_U1CON.setPPBRST; inline;
  57252. begin
  57253. pTDefRegMap(@Self)^.&set := $00000002;
  57254. end;
  57255. procedure TUSB_U1CON.clearPPBRST; inline;
  57256. begin
  57257. pTDefRegMap(@Self)^.clr := $00000002;
  57258. end;
  57259. procedure TUSB_U1CON.setPPBRST(thebits : TBits_1); inline;
  57260. begin
  57261. if thebits = 0 then
  57262. pTDefRegMap(@Self)^.clr := $00000002
  57263. else
  57264. pTDefRegMap(@Self)^.&set := $00000002;
  57265. end;
  57266. function TUSB_U1CON.getPPBRST : TBits_1; inline;
  57267. begin
  57268. getPPBRST := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57269. end;
  57270. procedure TUSB_U1CON.setRESUME; inline;
  57271. begin
  57272. pTDefRegMap(@Self)^.&set := $00000004;
  57273. end;
  57274. procedure TUSB_U1CON.clearRESUME; inline;
  57275. begin
  57276. pTDefRegMap(@Self)^.clr := $00000004;
  57277. end;
  57278. procedure TUSB_U1CON.setRESUME(thebits : TBits_1); inline;
  57279. begin
  57280. if thebits = 0 then
  57281. pTDefRegMap(@Self)^.clr := $00000004
  57282. else
  57283. pTDefRegMap(@Self)^.&set := $00000004;
  57284. end;
  57285. function TUSB_U1CON.getRESUME : TBits_1; inline;
  57286. begin
  57287. getRESUME := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57288. end;
  57289. procedure TUSB_U1CON.setHOSTEN; inline;
  57290. begin
  57291. pTDefRegMap(@Self)^.&set := $00000008;
  57292. end;
  57293. procedure TUSB_U1CON.clearHOSTEN; inline;
  57294. begin
  57295. pTDefRegMap(@Self)^.clr := $00000008;
  57296. end;
  57297. procedure TUSB_U1CON.setHOSTEN(thebits : TBits_1); inline;
  57298. begin
  57299. if thebits = 0 then
  57300. pTDefRegMap(@Self)^.clr := $00000008
  57301. else
  57302. pTDefRegMap(@Self)^.&set := $00000008;
  57303. end;
  57304. function TUSB_U1CON.getHOSTEN : TBits_1; inline;
  57305. begin
  57306. getHOSTEN := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57307. end;
  57308. procedure TUSB_U1CON.setUSBRST; inline;
  57309. begin
  57310. pTDefRegMap(@Self)^.&set := $00000010;
  57311. end;
  57312. procedure TUSB_U1CON.clearUSBRST; inline;
  57313. begin
  57314. pTDefRegMap(@Self)^.clr := $00000010;
  57315. end;
  57316. procedure TUSB_U1CON.setUSBRST(thebits : TBits_1); inline;
  57317. begin
  57318. if thebits = 0 then
  57319. pTDefRegMap(@Self)^.clr := $00000010
  57320. else
  57321. pTDefRegMap(@Self)^.&set := $00000010;
  57322. end;
  57323. function TUSB_U1CON.getUSBRST : TBits_1; inline;
  57324. begin
  57325. getUSBRST := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57326. end;
  57327. procedure TUSB_U1CON.setPKTDIS_TOKBUSY; inline;
  57328. begin
  57329. pTDefRegMap(@Self)^.&set := $00000020;
  57330. end;
  57331. procedure TUSB_U1CON.clearPKTDIS_TOKBUSY; inline;
  57332. begin
  57333. pTDefRegMap(@Self)^.clr := $00000020;
  57334. end;
  57335. procedure TUSB_U1CON.setPKTDIS_TOKBUSY(thebits : TBits_1); inline;
  57336. begin
  57337. if thebits = 0 then
  57338. pTDefRegMap(@Self)^.clr := $00000020
  57339. else
  57340. pTDefRegMap(@Self)^.&set := $00000020;
  57341. end;
  57342. function TUSB_U1CON.getPKTDIS_TOKBUSY : TBits_1; inline;
  57343. begin
  57344. getPKTDIS_TOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57345. end;
  57346. procedure TUSB_U1CON.setSE0; inline;
  57347. begin
  57348. pTDefRegMap(@Self)^.&set := $00000040;
  57349. end;
  57350. procedure TUSB_U1CON.clearSE0; inline;
  57351. begin
  57352. pTDefRegMap(@Self)^.clr := $00000040;
  57353. end;
  57354. procedure TUSB_U1CON.setSE0(thebits : TBits_1); inline;
  57355. begin
  57356. if thebits = 0 then
  57357. pTDefRegMap(@Self)^.clr := $00000040
  57358. else
  57359. pTDefRegMap(@Self)^.&set := $00000040;
  57360. end;
  57361. function TUSB_U1CON.getSE0 : TBits_1; inline;
  57362. begin
  57363. getSE0 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57364. end;
  57365. procedure TUSB_U1CON.setJSTATE; inline;
  57366. begin
  57367. pTDefRegMap(@Self)^.&set := $00000080;
  57368. end;
  57369. procedure TUSB_U1CON.clearJSTATE; inline;
  57370. begin
  57371. pTDefRegMap(@Self)^.clr := $00000080;
  57372. end;
  57373. procedure TUSB_U1CON.setJSTATE(thebits : TBits_1); inline;
  57374. begin
  57375. if thebits = 0 then
  57376. pTDefRegMap(@Self)^.clr := $00000080
  57377. else
  57378. pTDefRegMap(@Self)^.&set := $00000080;
  57379. end;
  57380. function TUSB_U1CON.getJSTATE : TBits_1; inline;
  57381. begin
  57382. getJSTATE := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57383. end;
  57384. procedure TUSB_U1CON.setUSBEN; inline;
  57385. begin
  57386. pTDefRegMap(@Self)^.&set := $00000001;
  57387. end;
  57388. procedure TUSB_U1CON.clearUSBEN; inline;
  57389. begin
  57390. pTDefRegMap(@Self)^.clr := $00000001;
  57391. end;
  57392. procedure TUSB_U1CON.setUSBEN(thebits : TBits_1); inline;
  57393. begin
  57394. if thebits = 0 then
  57395. pTDefRegMap(@Self)^.clr := $00000001
  57396. else
  57397. pTDefRegMap(@Self)^.&set := $00000001;
  57398. end;
  57399. function TUSB_U1CON.getUSBEN : TBits_1; inline;
  57400. begin
  57401. getUSBEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57402. end;
  57403. procedure TUSB_U1CON.setSOFEN; inline;
  57404. begin
  57405. pTDefRegMap(@Self)^.&set := $00000001;
  57406. end;
  57407. procedure TUSB_U1CON.clearSOFEN; inline;
  57408. begin
  57409. pTDefRegMap(@Self)^.clr := $00000001;
  57410. end;
  57411. procedure TUSB_U1CON.setSOFEN(thebits : TBits_1); inline;
  57412. begin
  57413. if thebits = 0 then
  57414. pTDefRegMap(@Self)^.clr := $00000001
  57415. else
  57416. pTDefRegMap(@Self)^.&set := $00000001;
  57417. end;
  57418. function TUSB_U1CON.getSOFEN : TBits_1; inline;
  57419. begin
  57420. getSOFEN := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57421. end;
  57422. procedure TUSB_U1CON.setPKTDIS; inline;
  57423. begin
  57424. pTDefRegMap(@Self)^.&set := $00000020;
  57425. end;
  57426. procedure TUSB_U1CON.clearPKTDIS; inline;
  57427. begin
  57428. pTDefRegMap(@Self)^.clr := $00000020;
  57429. end;
  57430. procedure TUSB_U1CON.setPKTDIS(thebits : TBits_1); inline;
  57431. begin
  57432. if thebits = 0 then
  57433. pTDefRegMap(@Self)^.clr := $00000020
  57434. else
  57435. pTDefRegMap(@Self)^.&set := $00000020;
  57436. end;
  57437. function TUSB_U1CON.getPKTDIS : TBits_1; inline;
  57438. begin
  57439. getPKTDIS := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57440. end;
  57441. procedure TUSB_U1CON.setTOKBUSY; inline;
  57442. begin
  57443. pTDefRegMap(@Self)^.&set := $00000020;
  57444. end;
  57445. procedure TUSB_U1CON.clearTOKBUSY; inline;
  57446. begin
  57447. pTDefRegMap(@Self)^.clr := $00000020;
  57448. end;
  57449. procedure TUSB_U1CON.setTOKBUSY(thebits : TBits_1); inline;
  57450. begin
  57451. if thebits = 0 then
  57452. pTDefRegMap(@Self)^.clr := $00000020
  57453. else
  57454. pTDefRegMap(@Self)^.&set := $00000020;
  57455. end;
  57456. function TUSB_U1CON.getTOKBUSY : TBits_1; inline;
  57457. begin
  57458. getTOKBUSY := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57459. end;
  57460. procedure TUSB_U1ADDR.setDEVADDR(thebits : TBits_7); inline;
  57461. begin
  57462. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  57463. end;
  57464. function TUSB_U1ADDR.getDEVADDR : TBits_7; inline;
  57465. begin
  57466. getDEVADDR := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  57467. end;
  57468. procedure TUSB_U1ADDR.setLSPDEN; inline;
  57469. begin
  57470. pTDefRegMap(@Self)^.&set := $00000080;
  57471. end;
  57472. procedure TUSB_U1ADDR.clearLSPDEN; inline;
  57473. begin
  57474. pTDefRegMap(@Self)^.clr := $00000080;
  57475. end;
  57476. procedure TUSB_U1ADDR.setLSPDEN(thebits : TBits_1); inline;
  57477. begin
  57478. if thebits = 0 then
  57479. pTDefRegMap(@Self)^.clr := $00000080
  57480. else
  57481. pTDefRegMap(@Self)^.&set := $00000080;
  57482. end;
  57483. function TUSB_U1ADDR.getLSPDEN : TBits_1; inline;
  57484. begin
  57485. getLSPDEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57486. end;
  57487. procedure TUSB_U1ADDR.setDEVADDR0; inline;
  57488. begin
  57489. pTDefRegMap(@Self)^.&set := $00000001;
  57490. end;
  57491. procedure TUSB_U1ADDR.clearDEVADDR0; inline;
  57492. begin
  57493. pTDefRegMap(@Self)^.clr := $00000001;
  57494. end;
  57495. procedure TUSB_U1ADDR.setDEVADDR0(thebits : TBits_1); inline;
  57496. begin
  57497. if thebits = 0 then
  57498. pTDefRegMap(@Self)^.clr := $00000001
  57499. else
  57500. pTDefRegMap(@Self)^.&set := $00000001;
  57501. end;
  57502. function TUSB_U1ADDR.getDEVADDR0 : TBits_1; inline;
  57503. begin
  57504. getDEVADDR0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57505. end;
  57506. procedure TUSB_U1ADDR.setDEVADDR1; inline;
  57507. begin
  57508. pTDefRegMap(@Self)^.&set := $00000002;
  57509. end;
  57510. procedure TUSB_U1ADDR.clearDEVADDR1; inline;
  57511. begin
  57512. pTDefRegMap(@Self)^.clr := $00000002;
  57513. end;
  57514. procedure TUSB_U1ADDR.setDEVADDR1(thebits : TBits_1); inline;
  57515. begin
  57516. if thebits = 0 then
  57517. pTDefRegMap(@Self)^.clr := $00000002
  57518. else
  57519. pTDefRegMap(@Self)^.&set := $00000002;
  57520. end;
  57521. function TUSB_U1ADDR.getDEVADDR1 : TBits_1; inline;
  57522. begin
  57523. getDEVADDR1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57524. end;
  57525. procedure TUSB_U1ADDR.setDEVADDR2; inline;
  57526. begin
  57527. pTDefRegMap(@Self)^.&set := $00000004;
  57528. end;
  57529. procedure TUSB_U1ADDR.clearDEVADDR2; inline;
  57530. begin
  57531. pTDefRegMap(@Self)^.clr := $00000004;
  57532. end;
  57533. procedure TUSB_U1ADDR.setDEVADDR2(thebits : TBits_1); inline;
  57534. begin
  57535. if thebits = 0 then
  57536. pTDefRegMap(@Self)^.clr := $00000004
  57537. else
  57538. pTDefRegMap(@Self)^.&set := $00000004;
  57539. end;
  57540. function TUSB_U1ADDR.getDEVADDR2 : TBits_1; inline;
  57541. begin
  57542. getDEVADDR2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57543. end;
  57544. procedure TUSB_U1ADDR.setDEVADDR3; inline;
  57545. begin
  57546. pTDefRegMap(@Self)^.&set := $00000008;
  57547. end;
  57548. procedure TUSB_U1ADDR.clearDEVADDR3; inline;
  57549. begin
  57550. pTDefRegMap(@Self)^.clr := $00000008;
  57551. end;
  57552. procedure TUSB_U1ADDR.setDEVADDR3(thebits : TBits_1); inline;
  57553. begin
  57554. if thebits = 0 then
  57555. pTDefRegMap(@Self)^.clr := $00000008
  57556. else
  57557. pTDefRegMap(@Self)^.&set := $00000008;
  57558. end;
  57559. function TUSB_U1ADDR.getDEVADDR3 : TBits_1; inline;
  57560. begin
  57561. getDEVADDR3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57562. end;
  57563. procedure TUSB_U1ADDR.setDEVADDR4; inline;
  57564. begin
  57565. pTDefRegMap(@Self)^.&set := $00000010;
  57566. end;
  57567. procedure TUSB_U1ADDR.clearDEVADDR4; inline;
  57568. begin
  57569. pTDefRegMap(@Self)^.clr := $00000010;
  57570. end;
  57571. procedure TUSB_U1ADDR.setDEVADDR4(thebits : TBits_1); inline;
  57572. begin
  57573. if thebits = 0 then
  57574. pTDefRegMap(@Self)^.clr := $00000010
  57575. else
  57576. pTDefRegMap(@Self)^.&set := $00000010;
  57577. end;
  57578. function TUSB_U1ADDR.getDEVADDR4 : TBits_1; inline;
  57579. begin
  57580. getDEVADDR4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57581. end;
  57582. procedure TUSB_U1ADDR.setDEVADDR5; inline;
  57583. begin
  57584. pTDefRegMap(@Self)^.&set := $00000020;
  57585. end;
  57586. procedure TUSB_U1ADDR.clearDEVADDR5; inline;
  57587. begin
  57588. pTDefRegMap(@Self)^.clr := $00000020;
  57589. end;
  57590. procedure TUSB_U1ADDR.setDEVADDR5(thebits : TBits_1); inline;
  57591. begin
  57592. if thebits = 0 then
  57593. pTDefRegMap(@Self)^.clr := $00000020
  57594. else
  57595. pTDefRegMap(@Self)^.&set := $00000020;
  57596. end;
  57597. function TUSB_U1ADDR.getDEVADDR5 : TBits_1; inline;
  57598. begin
  57599. getDEVADDR5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57600. end;
  57601. procedure TUSB_U1ADDR.setDEVADDR6; inline;
  57602. begin
  57603. pTDefRegMap(@Self)^.&set := $00000040;
  57604. end;
  57605. procedure TUSB_U1ADDR.clearDEVADDR6; inline;
  57606. begin
  57607. pTDefRegMap(@Self)^.clr := $00000040;
  57608. end;
  57609. procedure TUSB_U1ADDR.setDEVADDR6(thebits : TBits_1); inline;
  57610. begin
  57611. if thebits = 0 then
  57612. pTDefRegMap(@Self)^.clr := $00000040
  57613. else
  57614. pTDefRegMap(@Self)^.&set := $00000040;
  57615. end;
  57616. function TUSB_U1ADDR.getDEVADDR6 : TBits_1; inline;
  57617. begin
  57618. getDEVADDR6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57619. end;
  57620. procedure TUSB_U1FRML.setFRML(thebits : TBits_8); inline;
  57621. begin
  57622. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  57623. end;
  57624. function TUSB_U1FRML.getFRML : TBits_8; inline;
  57625. begin
  57626. getFRML := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  57627. end;
  57628. procedure TUSB_U1FRML.setFRM0; inline;
  57629. begin
  57630. pTDefRegMap(@Self)^.&set := $00000001;
  57631. end;
  57632. procedure TUSB_U1FRML.clearFRM0; inline;
  57633. begin
  57634. pTDefRegMap(@Self)^.clr := $00000001;
  57635. end;
  57636. procedure TUSB_U1FRML.setFRM0(thebits : TBits_1); inline;
  57637. begin
  57638. if thebits = 0 then
  57639. pTDefRegMap(@Self)^.clr := $00000001
  57640. else
  57641. pTDefRegMap(@Self)^.&set := $00000001;
  57642. end;
  57643. function TUSB_U1FRML.getFRM0 : TBits_1; inline;
  57644. begin
  57645. getFRM0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57646. end;
  57647. procedure TUSB_U1FRML.setFRM1; inline;
  57648. begin
  57649. pTDefRegMap(@Self)^.&set := $00000002;
  57650. end;
  57651. procedure TUSB_U1FRML.clearFRM1; inline;
  57652. begin
  57653. pTDefRegMap(@Self)^.clr := $00000002;
  57654. end;
  57655. procedure TUSB_U1FRML.setFRM1(thebits : TBits_1); inline;
  57656. begin
  57657. if thebits = 0 then
  57658. pTDefRegMap(@Self)^.clr := $00000002
  57659. else
  57660. pTDefRegMap(@Self)^.&set := $00000002;
  57661. end;
  57662. function TUSB_U1FRML.getFRM1 : TBits_1; inline;
  57663. begin
  57664. getFRM1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57665. end;
  57666. procedure TUSB_U1FRML.setFRM2; inline;
  57667. begin
  57668. pTDefRegMap(@Self)^.&set := $00000004;
  57669. end;
  57670. procedure TUSB_U1FRML.clearFRM2; inline;
  57671. begin
  57672. pTDefRegMap(@Self)^.clr := $00000004;
  57673. end;
  57674. procedure TUSB_U1FRML.setFRM2(thebits : TBits_1); inline;
  57675. begin
  57676. if thebits = 0 then
  57677. pTDefRegMap(@Self)^.clr := $00000004
  57678. else
  57679. pTDefRegMap(@Self)^.&set := $00000004;
  57680. end;
  57681. function TUSB_U1FRML.getFRM2 : TBits_1; inline;
  57682. begin
  57683. getFRM2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57684. end;
  57685. procedure TUSB_U1FRML.setFRM3; inline;
  57686. begin
  57687. pTDefRegMap(@Self)^.&set := $00000008;
  57688. end;
  57689. procedure TUSB_U1FRML.clearFRM3; inline;
  57690. begin
  57691. pTDefRegMap(@Self)^.clr := $00000008;
  57692. end;
  57693. procedure TUSB_U1FRML.setFRM3(thebits : TBits_1); inline;
  57694. begin
  57695. if thebits = 0 then
  57696. pTDefRegMap(@Self)^.clr := $00000008
  57697. else
  57698. pTDefRegMap(@Self)^.&set := $00000008;
  57699. end;
  57700. function TUSB_U1FRML.getFRM3 : TBits_1; inline;
  57701. begin
  57702. getFRM3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57703. end;
  57704. procedure TUSB_U1FRML.setFRM4; inline;
  57705. begin
  57706. pTDefRegMap(@Self)^.&set := $00000010;
  57707. end;
  57708. procedure TUSB_U1FRML.clearFRM4; inline;
  57709. begin
  57710. pTDefRegMap(@Self)^.clr := $00000010;
  57711. end;
  57712. procedure TUSB_U1FRML.setFRM4(thebits : TBits_1); inline;
  57713. begin
  57714. if thebits = 0 then
  57715. pTDefRegMap(@Self)^.clr := $00000010
  57716. else
  57717. pTDefRegMap(@Self)^.&set := $00000010;
  57718. end;
  57719. function TUSB_U1FRML.getFRM4 : TBits_1; inline;
  57720. begin
  57721. getFRM4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57722. end;
  57723. procedure TUSB_U1FRML.setFRM5; inline;
  57724. begin
  57725. pTDefRegMap(@Self)^.&set := $00000020;
  57726. end;
  57727. procedure TUSB_U1FRML.clearFRM5; inline;
  57728. begin
  57729. pTDefRegMap(@Self)^.clr := $00000020;
  57730. end;
  57731. procedure TUSB_U1FRML.setFRM5(thebits : TBits_1); inline;
  57732. begin
  57733. if thebits = 0 then
  57734. pTDefRegMap(@Self)^.clr := $00000020
  57735. else
  57736. pTDefRegMap(@Self)^.&set := $00000020;
  57737. end;
  57738. function TUSB_U1FRML.getFRM5 : TBits_1; inline;
  57739. begin
  57740. getFRM5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57741. end;
  57742. procedure TUSB_U1FRML.setFRM6; inline;
  57743. begin
  57744. pTDefRegMap(@Self)^.&set := $00000040;
  57745. end;
  57746. procedure TUSB_U1FRML.clearFRM6; inline;
  57747. begin
  57748. pTDefRegMap(@Self)^.clr := $00000040;
  57749. end;
  57750. procedure TUSB_U1FRML.setFRM6(thebits : TBits_1); inline;
  57751. begin
  57752. if thebits = 0 then
  57753. pTDefRegMap(@Self)^.clr := $00000040
  57754. else
  57755. pTDefRegMap(@Self)^.&set := $00000040;
  57756. end;
  57757. function TUSB_U1FRML.getFRM6 : TBits_1; inline;
  57758. begin
  57759. getFRM6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57760. end;
  57761. procedure TUSB_U1FRML.setFRM7; inline;
  57762. begin
  57763. pTDefRegMap(@Self)^.&set := $00000080;
  57764. end;
  57765. procedure TUSB_U1FRML.clearFRM7; inline;
  57766. begin
  57767. pTDefRegMap(@Self)^.clr := $00000080;
  57768. end;
  57769. procedure TUSB_U1FRML.setFRM7(thebits : TBits_1); inline;
  57770. begin
  57771. if thebits = 0 then
  57772. pTDefRegMap(@Self)^.clr := $00000080
  57773. else
  57774. pTDefRegMap(@Self)^.&set := $00000080;
  57775. end;
  57776. function TUSB_U1FRML.getFRM7 : TBits_1; inline;
  57777. begin
  57778. getFRM7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  57779. end;
  57780. procedure TUSB_U1FRMH.setFRMH(thebits : TBits_3); inline;
  57781. begin
  57782. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  57783. end;
  57784. function TUSB_U1FRMH.getFRMH : TBits_3; inline;
  57785. begin
  57786. getFRMH := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  57787. end;
  57788. procedure TUSB_U1FRMH.setFRM8; inline;
  57789. begin
  57790. pTDefRegMap(@Self)^.&set := $00000001;
  57791. end;
  57792. procedure TUSB_U1FRMH.clearFRM8; inline;
  57793. begin
  57794. pTDefRegMap(@Self)^.clr := $00000001;
  57795. end;
  57796. procedure TUSB_U1FRMH.setFRM8(thebits : TBits_1); inline;
  57797. begin
  57798. if thebits = 0 then
  57799. pTDefRegMap(@Self)^.clr := $00000001
  57800. else
  57801. pTDefRegMap(@Self)^.&set := $00000001;
  57802. end;
  57803. function TUSB_U1FRMH.getFRM8 : TBits_1; inline;
  57804. begin
  57805. getFRM8 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57806. end;
  57807. procedure TUSB_U1FRMH.setFRM9; inline;
  57808. begin
  57809. pTDefRegMap(@Self)^.&set := $00000002;
  57810. end;
  57811. procedure TUSB_U1FRMH.clearFRM9; inline;
  57812. begin
  57813. pTDefRegMap(@Self)^.clr := $00000002;
  57814. end;
  57815. procedure TUSB_U1FRMH.setFRM9(thebits : TBits_1); inline;
  57816. begin
  57817. if thebits = 0 then
  57818. pTDefRegMap(@Self)^.clr := $00000002
  57819. else
  57820. pTDefRegMap(@Self)^.&set := $00000002;
  57821. end;
  57822. function TUSB_U1FRMH.getFRM9 : TBits_1; inline;
  57823. begin
  57824. getFRM9 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57825. end;
  57826. procedure TUSB_U1FRMH.setFRM10; inline;
  57827. begin
  57828. pTDefRegMap(@Self)^.&set := $00000004;
  57829. end;
  57830. procedure TUSB_U1FRMH.clearFRM10; inline;
  57831. begin
  57832. pTDefRegMap(@Self)^.clr := $00000004;
  57833. end;
  57834. procedure TUSB_U1FRMH.setFRM10(thebits : TBits_1); inline;
  57835. begin
  57836. if thebits = 0 then
  57837. pTDefRegMap(@Self)^.clr := $00000004
  57838. else
  57839. pTDefRegMap(@Self)^.&set := $00000004;
  57840. end;
  57841. function TUSB_U1FRMH.getFRM10 : TBits_1; inline;
  57842. begin
  57843. getFRM10 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57844. end;
  57845. procedure TUSB_U1TOK.setEP(thebits : TBits_4); inline;
  57846. begin
  57847. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF0 or ( thebits shl 0 );
  57848. end;
  57849. function TUSB_U1TOK.getEP : TBits_4; inline;
  57850. begin
  57851. getEP := (pTDefRegMap(@Self)^.val and $0000000F) shr 0;
  57852. end;
  57853. procedure TUSB_U1TOK.setPID(thebits : TBits_4); inline;
  57854. begin
  57855. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF0F or ( thebits shl 4 );
  57856. end;
  57857. function TUSB_U1TOK.getPID : TBits_4; inline;
  57858. begin
  57859. getPID := (pTDefRegMap(@Self)^.val and $000000F0) shr 4;
  57860. end;
  57861. procedure TUSB_U1TOK.setEP0; inline;
  57862. begin
  57863. pTDefRegMap(@Self)^.&set := $00000001;
  57864. end;
  57865. procedure TUSB_U1TOK.clearEP0; inline;
  57866. begin
  57867. pTDefRegMap(@Self)^.clr := $00000001;
  57868. end;
  57869. procedure TUSB_U1TOK.setEP0(thebits : TBits_1); inline;
  57870. begin
  57871. if thebits = 0 then
  57872. pTDefRegMap(@Self)^.clr := $00000001
  57873. else
  57874. pTDefRegMap(@Self)^.&set := $00000001;
  57875. end;
  57876. function TUSB_U1TOK.getEP0 : TBits_1; inline;
  57877. begin
  57878. getEP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  57879. end;
  57880. procedure TUSB_U1TOK.setEP1; inline;
  57881. begin
  57882. pTDefRegMap(@Self)^.&set := $00000002;
  57883. end;
  57884. procedure TUSB_U1TOK.clearEP1; inline;
  57885. begin
  57886. pTDefRegMap(@Self)^.clr := $00000002;
  57887. end;
  57888. procedure TUSB_U1TOK.setEP1(thebits : TBits_1); inline;
  57889. begin
  57890. if thebits = 0 then
  57891. pTDefRegMap(@Self)^.clr := $00000002
  57892. else
  57893. pTDefRegMap(@Self)^.&set := $00000002;
  57894. end;
  57895. function TUSB_U1TOK.getEP1 : TBits_1; inline;
  57896. begin
  57897. getEP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  57898. end;
  57899. procedure TUSB_U1TOK.setEP2; inline;
  57900. begin
  57901. pTDefRegMap(@Self)^.&set := $00000004;
  57902. end;
  57903. procedure TUSB_U1TOK.clearEP2; inline;
  57904. begin
  57905. pTDefRegMap(@Self)^.clr := $00000004;
  57906. end;
  57907. procedure TUSB_U1TOK.setEP2(thebits : TBits_1); inline;
  57908. begin
  57909. if thebits = 0 then
  57910. pTDefRegMap(@Self)^.clr := $00000004
  57911. else
  57912. pTDefRegMap(@Self)^.&set := $00000004;
  57913. end;
  57914. function TUSB_U1TOK.getEP2 : TBits_1; inline;
  57915. begin
  57916. getEP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  57917. end;
  57918. procedure TUSB_U1TOK.setEP3; inline;
  57919. begin
  57920. pTDefRegMap(@Self)^.&set := $00000008;
  57921. end;
  57922. procedure TUSB_U1TOK.clearEP3; inline;
  57923. begin
  57924. pTDefRegMap(@Self)^.clr := $00000008;
  57925. end;
  57926. procedure TUSB_U1TOK.setEP3(thebits : TBits_1); inline;
  57927. begin
  57928. if thebits = 0 then
  57929. pTDefRegMap(@Self)^.clr := $00000008
  57930. else
  57931. pTDefRegMap(@Self)^.&set := $00000008;
  57932. end;
  57933. function TUSB_U1TOK.getEP3 : TBits_1; inline;
  57934. begin
  57935. getEP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  57936. end;
  57937. procedure TUSB_U1TOK.setPID0; inline;
  57938. begin
  57939. pTDefRegMap(@Self)^.&set := $00000010;
  57940. end;
  57941. procedure TUSB_U1TOK.clearPID0; inline;
  57942. begin
  57943. pTDefRegMap(@Self)^.clr := $00000010;
  57944. end;
  57945. procedure TUSB_U1TOK.setPID0(thebits : TBits_1); inline;
  57946. begin
  57947. if thebits = 0 then
  57948. pTDefRegMap(@Self)^.clr := $00000010
  57949. else
  57950. pTDefRegMap(@Self)^.&set := $00000010;
  57951. end;
  57952. function TUSB_U1TOK.getPID0 : TBits_1; inline;
  57953. begin
  57954. getPID0 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  57955. end;
  57956. procedure TUSB_U1TOK.setPID1; inline;
  57957. begin
  57958. pTDefRegMap(@Self)^.&set := $00000020;
  57959. end;
  57960. procedure TUSB_U1TOK.clearPID1; inline;
  57961. begin
  57962. pTDefRegMap(@Self)^.clr := $00000020;
  57963. end;
  57964. procedure TUSB_U1TOK.setPID1(thebits : TBits_1); inline;
  57965. begin
  57966. if thebits = 0 then
  57967. pTDefRegMap(@Self)^.clr := $00000020
  57968. else
  57969. pTDefRegMap(@Self)^.&set := $00000020;
  57970. end;
  57971. function TUSB_U1TOK.getPID1 : TBits_1; inline;
  57972. begin
  57973. getPID1 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  57974. end;
  57975. procedure TUSB_U1TOK.setPID2; inline;
  57976. begin
  57977. pTDefRegMap(@Self)^.&set := $00000040;
  57978. end;
  57979. procedure TUSB_U1TOK.clearPID2; inline;
  57980. begin
  57981. pTDefRegMap(@Self)^.clr := $00000040;
  57982. end;
  57983. procedure TUSB_U1TOK.setPID2(thebits : TBits_1); inline;
  57984. begin
  57985. if thebits = 0 then
  57986. pTDefRegMap(@Self)^.clr := $00000040
  57987. else
  57988. pTDefRegMap(@Self)^.&set := $00000040;
  57989. end;
  57990. function TUSB_U1TOK.getPID2 : TBits_1; inline;
  57991. begin
  57992. getPID2 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  57993. end;
  57994. procedure TUSB_U1TOK.setPID3; inline;
  57995. begin
  57996. pTDefRegMap(@Self)^.&set := $00000080;
  57997. end;
  57998. procedure TUSB_U1TOK.clearPID3; inline;
  57999. begin
  58000. pTDefRegMap(@Self)^.clr := $00000080;
  58001. end;
  58002. procedure TUSB_U1TOK.setPID3(thebits : TBits_1); inline;
  58003. begin
  58004. if thebits = 0 then
  58005. pTDefRegMap(@Self)^.clr := $00000080
  58006. else
  58007. pTDefRegMap(@Self)^.&set := $00000080;
  58008. end;
  58009. function TUSB_U1TOK.getPID3 : TBits_1; inline;
  58010. begin
  58011. getPID3 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58012. end;
  58013. procedure TPORTA_TRISA.setTRISA0; inline;
  58014. begin
  58015. pTDefRegMap(@Self)^.&set := $00000001;
  58016. end;
  58017. procedure TPORTA_TRISA.clearTRISA0; inline;
  58018. begin
  58019. pTDefRegMap(@Self)^.clr := $00000001;
  58020. end;
  58021. procedure TPORTA_TRISA.setTRISA0(thebits : TBits_1); inline;
  58022. begin
  58023. if thebits = 0 then
  58024. pTDefRegMap(@Self)^.clr := $00000001
  58025. else
  58026. pTDefRegMap(@Self)^.&set := $00000001;
  58027. end;
  58028. function TPORTA_TRISA.getTRISA0 : TBits_1; inline;
  58029. begin
  58030. getTRISA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58031. end;
  58032. procedure TPORTA_TRISA.setTRISA1; inline;
  58033. begin
  58034. pTDefRegMap(@Self)^.&set := $00000002;
  58035. end;
  58036. procedure TPORTA_TRISA.clearTRISA1; inline;
  58037. begin
  58038. pTDefRegMap(@Self)^.clr := $00000002;
  58039. end;
  58040. procedure TPORTA_TRISA.setTRISA1(thebits : TBits_1); inline;
  58041. begin
  58042. if thebits = 0 then
  58043. pTDefRegMap(@Self)^.clr := $00000002
  58044. else
  58045. pTDefRegMap(@Self)^.&set := $00000002;
  58046. end;
  58047. function TPORTA_TRISA.getTRISA1 : TBits_1; inline;
  58048. begin
  58049. getTRISA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58050. end;
  58051. procedure TPORTA_TRISA.setTRISA2; inline;
  58052. begin
  58053. pTDefRegMap(@Self)^.&set := $00000004;
  58054. end;
  58055. procedure TPORTA_TRISA.clearTRISA2; inline;
  58056. begin
  58057. pTDefRegMap(@Self)^.clr := $00000004;
  58058. end;
  58059. procedure TPORTA_TRISA.setTRISA2(thebits : TBits_1); inline;
  58060. begin
  58061. if thebits = 0 then
  58062. pTDefRegMap(@Self)^.clr := $00000004
  58063. else
  58064. pTDefRegMap(@Self)^.&set := $00000004;
  58065. end;
  58066. function TPORTA_TRISA.getTRISA2 : TBits_1; inline;
  58067. begin
  58068. getTRISA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58069. end;
  58070. procedure TPORTA_TRISA.setTRISA3; inline;
  58071. begin
  58072. pTDefRegMap(@Self)^.&set := $00000008;
  58073. end;
  58074. procedure TPORTA_TRISA.clearTRISA3; inline;
  58075. begin
  58076. pTDefRegMap(@Self)^.clr := $00000008;
  58077. end;
  58078. procedure TPORTA_TRISA.setTRISA3(thebits : TBits_1); inline;
  58079. begin
  58080. if thebits = 0 then
  58081. pTDefRegMap(@Self)^.clr := $00000008
  58082. else
  58083. pTDefRegMap(@Self)^.&set := $00000008;
  58084. end;
  58085. function TPORTA_TRISA.getTRISA3 : TBits_1; inline;
  58086. begin
  58087. getTRISA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58088. end;
  58089. procedure TPORTA_TRISA.setTRISA4; inline;
  58090. begin
  58091. pTDefRegMap(@Self)^.&set := $00000010;
  58092. end;
  58093. procedure TPORTA_TRISA.clearTRISA4; inline;
  58094. begin
  58095. pTDefRegMap(@Self)^.clr := $00000010;
  58096. end;
  58097. procedure TPORTA_TRISA.setTRISA4(thebits : TBits_1); inline;
  58098. begin
  58099. if thebits = 0 then
  58100. pTDefRegMap(@Self)^.clr := $00000010
  58101. else
  58102. pTDefRegMap(@Self)^.&set := $00000010;
  58103. end;
  58104. function TPORTA_TRISA.getTRISA4 : TBits_1; inline;
  58105. begin
  58106. getTRISA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58107. end;
  58108. procedure TPORTA_TRISA.setTRISA5; inline;
  58109. begin
  58110. pTDefRegMap(@Self)^.&set := $00000020;
  58111. end;
  58112. procedure TPORTA_TRISA.clearTRISA5; inline;
  58113. begin
  58114. pTDefRegMap(@Self)^.clr := $00000020;
  58115. end;
  58116. procedure TPORTA_TRISA.setTRISA5(thebits : TBits_1); inline;
  58117. begin
  58118. if thebits = 0 then
  58119. pTDefRegMap(@Self)^.clr := $00000020
  58120. else
  58121. pTDefRegMap(@Self)^.&set := $00000020;
  58122. end;
  58123. function TPORTA_TRISA.getTRISA5 : TBits_1; inline;
  58124. begin
  58125. getTRISA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58126. end;
  58127. procedure TPORTA_TRISA.setTRISA6; inline;
  58128. begin
  58129. pTDefRegMap(@Self)^.&set := $00000040;
  58130. end;
  58131. procedure TPORTA_TRISA.clearTRISA6; inline;
  58132. begin
  58133. pTDefRegMap(@Self)^.clr := $00000040;
  58134. end;
  58135. procedure TPORTA_TRISA.setTRISA6(thebits : TBits_1); inline;
  58136. begin
  58137. if thebits = 0 then
  58138. pTDefRegMap(@Self)^.clr := $00000040
  58139. else
  58140. pTDefRegMap(@Self)^.&set := $00000040;
  58141. end;
  58142. function TPORTA_TRISA.getTRISA6 : TBits_1; inline;
  58143. begin
  58144. getTRISA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58145. end;
  58146. procedure TPORTA_TRISA.setTRISA7; inline;
  58147. begin
  58148. pTDefRegMap(@Self)^.&set := $00000080;
  58149. end;
  58150. procedure TPORTA_TRISA.clearTRISA7; inline;
  58151. begin
  58152. pTDefRegMap(@Self)^.clr := $00000080;
  58153. end;
  58154. procedure TPORTA_TRISA.setTRISA7(thebits : TBits_1); inline;
  58155. begin
  58156. if thebits = 0 then
  58157. pTDefRegMap(@Self)^.clr := $00000080
  58158. else
  58159. pTDefRegMap(@Self)^.&set := $00000080;
  58160. end;
  58161. function TPORTA_TRISA.getTRISA7 : TBits_1; inline;
  58162. begin
  58163. getTRISA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58164. end;
  58165. procedure TPORTA_TRISA.setTRISA9; inline;
  58166. begin
  58167. pTDefRegMap(@Self)^.&set := $00000200;
  58168. end;
  58169. procedure TPORTA_TRISA.clearTRISA9; inline;
  58170. begin
  58171. pTDefRegMap(@Self)^.clr := $00000200;
  58172. end;
  58173. procedure TPORTA_TRISA.setTRISA9(thebits : TBits_1); inline;
  58174. begin
  58175. if thebits = 0 then
  58176. pTDefRegMap(@Self)^.clr := $00000200
  58177. else
  58178. pTDefRegMap(@Self)^.&set := $00000200;
  58179. end;
  58180. function TPORTA_TRISA.getTRISA9 : TBits_1; inline;
  58181. begin
  58182. getTRISA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  58183. end;
  58184. procedure TPORTA_TRISA.setTRISA10; inline;
  58185. begin
  58186. pTDefRegMap(@Self)^.&set := $00000400;
  58187. end;
  58188. procedure TPORTA_TRISA.clearTRISA10; inline;
  58189. begin
  58190. pTDefRegMap(@Self)^.clr := $00000400;
  58191. end;
  58192. procedure TPORTA_TRISA.setTRISA10(thebits : TBits_1); inline;
  58193. begin
  58194. if thebits = 0 then
  58195. pTDefRegMap(@Self)^.clr := $00000400
  58196. else
  58197. pTDefRegMap(@Self)^.&set := $00000400;
  58198. end;
  58199. function TPORTA_TRISA.getTRISA10 : TBits_1; inline;
  58200. begin
  58201. getTRISA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  58202. end;
  58203. procedure TPORTA_TRISA.setTRISA14; inline;
  58204. begin
  58205. pTDefRegMap(@Self)^.&set := $00004000;
  58206. end;
  58207. procedure TPORTA_TRISA.clearTRISA14; inline;
  58208. begin
  58209. pTDefRegMap(@Self)^.clr := $00004000;
  58210. end;
  58211. procedure TPORTA_TRISA.setTRISA14(thebits : TBits_1); inline;
  58212. begin
  58213. if thebits = 0 then
  58214. pTDefRegMap(@Self)^.clr := $00004000
  58215. else
  58216. pTDefRegMap(@Self)^.&set := $00004000;
  58217. end;
  58218. function TPORTA_TRISA.getTRISA14 : TBits_1; inline;
  58219. begin
  58220. getTRISA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  58221. end;
  58222. procedure TPORTA_TRISA.setTRISA15; inline;
  58223. begin
  58224. pTDefRegMap(@Self)^.&set := $00008000;
  58225. end;
  58226. procedure TPORTA_TRISA.clearTRISA15; inline;
  58227. begin
  58228. pTDefRegMap(@Self)^.clr := $00008000;
  58229. end;
  58230. procedure TPORTA_TRISA.setTRISA15(thebits : TBits_1); inline;
  58231. begin
  58232. if thebits = 0 then
  58233. pTDefRegMap(@Self)^.clr := $00008000
  58234. else
  58235. pTDefRegMap(@Self)^.&set := $00008000;
  58236. end;
  58237. function TPORTA_TRISA.getTRISA15 : TBits_1; inline;
  58238. begin
  58239. getTRISA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  58240. end;
  58241. procedure TPORTA_TRISA.setw(thebits : TBits_32); inline;
  58242. begin
  58243. pTDefRegMap(@Self)^.val := thebits;
  58244. end;
  58245. function TPORTA_TRISA.getw : TBits_32; inline;
  58246. begin
  58247. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58248. end;
  58249. procedure TPORTA_PORTA.setRA0; inline;
  58250. begin
  58251. pTDefRegMap(@Self)^.&set := $00000001;
  58252. end;
  58253. procedure TPORTA_PORTA.clearRA0; inline;
  58254. begin
  58255. pTDefRegMap(@Self)^.clr := $00000001;
  58256. end;
  58257. procedure TPORTA_PORTA.setRA0(thebits : TBits_1); inline;
  58258. begin
  58259. if thebits = 0 then
  58260. pTDefRegMap(@Self)^.clr := $00000001
  58261. else
  58262. pTDefRegMap(@Self)^.&set := $00000001;
  58263. end;
  58264. function TPORTA_PORTA.getRA0 : TBits_1; inline;
  58265. begin
  58266. getRA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58267. end;
  58268. procedure TPORTA_PORTA.setRA1; inline;
  58269. begin
  58270. pTDefRegMap(@Self)^.&set := $00000002;
  58271. end;
  58272. procedure TPORTA_PORTA.clearRA1; inline;
  58273. begin
  58274. pTDefRegMap(@Self)^.clr := $00000002;
  58275. end;
  58276. procedure TPORTA_PORTA.setRA1(thebits : TBits_1); inline;
  58277. begin
  58278. if thebits = 0 then
  58279. pTDefRegMap(@Self)^.clr := $00000002
  58280. else
  58281. pTDefRegMap(@Self)^.&set := $00000002;
  58282. end;
  58283. function TPORTA_PORTA.getRA1 : TBits_1; inline;
  58284. begin
  58285. getRA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58286. end;
  58287. procedure TPORTA_PORTA.setRA2; inline;
  58288. begin
  58289. pTDefRegMap(@Self)^.&set := $00000004;
  58290. end;
  58291. procedure TPORTA_PORTA.clearRA2; inline;
  58292. begin
  58293. pTDefRegMap(@Self)^.clr := $00000004;
  58294. end;
  58295. procedure TPORTA_PORTA.setRA2(thebits : TBits_1); inline;
  58296. begin
  58297. if thebits = 0 then
  58298. pTDefRegMap(@Self)^.clr := $00000004
  58299. else
  58300. pTDefRegMap(@Self)^.&set := $00000004;
  58301. end;
  58302. function TPORTA_PORTA.getRA2 : TBits_1; inline;
  58303. begin
  58304. getRA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58305. end;
  58306. procedure TPORTA_PORTA.setRA3; inline;
  58307. begin
  58308. pTDefRegMap(@Self)^.&set := $00000008;
  58309. end;
  58310. procedure TPORTA_PORTA.clearRA3; inline;
  58311. begin
  58312. pTDefRegMap(@Self)^.clr := $00000008;
  58313. end;
  58314. procedure TPORTA_PORTA.setRA3(thebits : TBits_1); inline;
  58315. begin
  58316. if thebits = 0 then
  58317. pTDefRegMap(@Self)^.clr := $00000008
  58318. else
  58319. pTDefRegMap(@Self)^.&set := $00000008;
  58320. end;
  58321. function TPORTA_PORTA.getRA3 : TBits_1; inline;
  58322. begin
  58323. getRA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58324. end;
  58325. procedure TPORTA_PORTA.setRA4; inline;
  58326. begin
  58327. pTDefRegMap(@Self)^.&set := $00000010;
  58328. end;
  58329. procedure TPORTA_PORTA.clearRA4; inline;
  58330. begin
  58331. pTDefRegMap(@Self)^.clr := $00000010;
  58332. end;
  58333. procedure TPORTA_PORTA.setRA4(thebits : TBits_1); inline;
  58334. begin
  58335. if thebits = 0 then
  58336. pTDefRegMap(@Self)^.clr := $00000010
  58337. else
  58338. pTDefRegMap(@Self)^.&set := $00000010;
  58339. end;
  58340. function TPORTA_PORTA.getRA4 : TBits_1; inline;
  58341. begin
  58342. getRA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58343. end;
  58344. procedure TPORTA_PORTA.setRA5; inline;
  58345. begin
  58346. pTDefRegMap(@Self)^.&set := $00000020;
  58347. end;
  58348. procedure TPORTA_PORTA.clearRA5; inline;
  58349. begin
  58350. pTDefRegMap(@Self)^.clr := $00000020;
  58351. end;
  58352. procedure TPORTA_PORTA.setRA5(thebits : TBits_1); inline;
  58353. begin
  58354. if thebits = 0 then
  58355. pTDefRegMap(@Self)^.clr := $00000020
  58356. else
  58357. pTDefRegMap(@Self)^.&set := $00000020;
  58358. end;
  58359. function TPORTA_PORTA.getRA5 : TBits_1; inline;
  58360. begin
  58361. getRA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58362. end;
  58363. procedure TPORTA_PORTA.setRA6; inline;
  58364. begin
  58365. pTDefRegMap(@Self)^.&set := $00000040;
  58366. end;
  58367. procedure TPORTA_PORTA.clearRA6; inline;
  58368. begin
  58369. pTDefRegMap(@Self)^.clr := $00000040;
  58370. end;
  58371. procedure TPORTA_PORTA.setRA6(thebits : TBits_1); inline;
  58372. begin
  58373. if thebits = 0 then
  58374. pTDefRegMap(@Self)^.clr := $00000040
  58375. else
  58376. pTDefRegMap(@Self)^.&set := $00000040;
  58377. end;
  58378. function TPORTA_PORTA.getRA6 : TBits_1; inline;
  58379. begin
  58380. getRA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58381. end;
  58382. procedure TPORTA_PORTA.setRA7; inline;
  58383. begin
  58384. pTDefRegMap(@Self)^.&set := $00000080;
  58385. end;
  58386. procedure TPORTA_PORTA.clearRA7; inline;
  58387. begin
  58388. pTDefRegMap(@Self)^.clr := $00000080;
  58389. end;
  58390. procedure TPORTA_PORTA.setRA7(thebits : TBits_1); inline;
  58391. begin
  58392. if thebits = 0 then
  58393. pTDefRegMap(@Self)^.clr := $00000080
  58394. else
  58395. pTDefRegMap(@Self)^.&set := $00000080;
  58396. end;
  58397. function TPORTA_PORTA.getRA7 : TBits_1; inline;
  58398. begin
  58399. getRA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58400. end;
  58401. procedure TPORTA_PORTA.setRA9; inline;
  58402. begin
  58403. pTDefRegMap(@Self)^.&set := $00000200;
  58404. end;
  58405. procedure TPORTA_PORTA.clearRA9; inline;
  58406. begin
  58407. pTDefRegMap(@Self)^.clr := $00000200;
  58408. end;
  58409. procedure TPORTA_PORTA.setRA9(thebits : TBits_1); inline;
  58410. begin
  58411. if thebits = 0 then
  58412. pTDefRegMap(@Self)^.clr := $00000200
  58413. else
  58414. pTDefRegMap(@Self)^.&set := $00000200;
  58415. end;
  58416. function TPORTA_PORTA.getRA9 : TBits_1; inline;
  58417. begin
  58418. getRA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  58419. end;
  58420. procedure TPORTA_PORTA.setRA10; inline;
  58421. begin
  58422. pTDefRegMap(@Self)^.&set := $00000400;
  58423. end;
  58424. procedure TPORTA_PORTA.clearRA10; inline;
  58425. begin
  58426. pTDefRegMap(@Self)^.clr := $00000400;
  58427. end;
  58428. procedure TPORTA_PORTA.setRA10(thebits : TBits_1); inline;
  58429. begin
  58430. if thebits = 0 then
  58431. pTDefRegMap(@Self)^.clr := $00000400
  58432. else
  58433. pTDefRegMap(@Self)^.&set := $00000400;
  58434. end;
  58435. function TPORTA_PORTA.getRA10 : TBits_1; inline;
  58436. begin
  58437. getRA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  58438. end;
  58439. procedure TPORTA_PORTA.setRA14; inline;
  58440. begin
  58441. pTDefRegMap(@Self)^.&set := $00004000;
  58442. end;
  58443. procedure TPORTA_PORTA.clearRA14; inline;
  58444. begin
  58445. pTDefRegMap(@Self)^.clr := $00004000;
  58446. end;
  58447. procedure TPORTA_PORTA.setRA14(thebits : TBits_1); inline;
  58448. begin
  58449. if thebits = 0 then
  58450. pTDefRegMap(@Self)^.clr := $00004000
  58451. else
  58452. pTDefRegMap(@Self)^.&set := $00004000;
  58453. end;
  58454. function TPORTA_PORTA.getRA14 : TBits_1; inline;
  58455. begin
  58456. getRA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  58457. end;
  58458. procedure TPORTA_PORTA.setRA15; inline;
  58459. begin
  58460. pTDefRegMap(@Self)^.&set := $00008000;
  58461. end;
  58462. procedure TPORTA_PORTA.clearRA15; inline;
  58463. begin
  58464. pTDefRegMap(@Self)^.clr := $00008000;
  58465. end;
  58466. procedure TPORTA_PORTA.setRA15(thebits : TBits_1); inline;
  58467. begin
  58468. if thebits = 0 then
  58469. pTDefRegMap(@Self)^.clr := $00008000
  58470. else
  58471. pTDefRegMap(@Self)^.&set := $00008000;
  58472. end;
  58473. function TPORTA_PORTA.getRA15 : TBits_1; inline;
  58474. begin
  58475. getRA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  58476. end;
  58477. procedure TPORTA_PORTA.setw(thebits : TBits_32); inline;
  58478. begin
  58479. pTDefRegMap(@Self)^.val := thebits;
  58480. end;
  58481. function TPORTA_PORTA.getw : TBits_32; inline;
  58482. begin
  58483. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58484. end;
  58485. procedure TPORTA_LATA.setLATA0; inline;
  58486. begin
  58487. pTDefRegMap(@Self)^.&set := $00000001;
  58488. end;
  58489. procedure TPORTA_LATA.clearLATA0; inline;
  58490. begin
  58491. pTDefRegMap(@Self)^.clr := $00000001;
  58492. end;
  58493. procedure TPORTA_LATA.setLATA0(thebits : TBits_1); inline;
  58494. begin
  58495. if thebits = 0 then
  58496. pTDefRegMap(@Self)^.clr := $00000001
  58497. else
  58498. pTDefRegMap(@Self)^.&set := $00000001;
  58499. end;
  58500. function TPORTA_LATA.getLATA0 : TBits_1; inline;
  58501. begin
  58502. getLATA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58503. end;
  58504. procedure TPORTA_LATA.setLATA1; inline;
  58505. begin
  58506. pTDefRegMap(@Self)^.&set := $00000002;
  58507. end;
  58508. procedure TPORTA_LATA.clearLATA1; inline;
  58509. begin
  58510. pTDefRegMap(@Self)^.clr := $00000002;
  58511. end;
  58512. procedure TPORTA_LATA.setLATA1(thebits : TBits_1); inline;
  58513. begin
  58514. if thebits = 0 then
  58515. pTDefRegMap(@Self)^.clr := $00000002
  58516. else
  58517. pTDefRegMap(@Self)^.&set := $00000002;
  58518. end;
  58519. function TPORTA_LATA.getLATA1 : TBits_1; inline;
  58520. begin
  58521. getLATA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58522. end;
  58523. procedure TPORTA_LATA.setLATA2; inline;
  58524. begin
  58525. pTDefRegMap(@Self)^.&set := $00000004;
  58526. end;
  58527. procedure TPORTA_LATA.clearLATA2; inline;
  58528. begin
  58529. pTDefRegMap(@Self)^.clr := $00000004;
  58530. end;
  58531. procedure TPORTA_LATA.setLATA2(thebits : TBits_1); inline;
  58532. begin
  58533. if thebits = 0 then
  58534. pTDefRegMap(@Self)^.clr := $00000004
  58535. else
  58536. pTDefRegMap(@Self)^.&set := $00000004;
  58537. end;
  58538. function TPORTA_LATA.getLATA2 : TBits_1; inline;
  58539. begin
  58540. getLATA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58541. end;
  58542. procedure TPORTA_LATA.setLATA3; inline;
  58543. begin
  58544. pTDefRegMap(@Self)^.&set := $00000008;
  58545. end;
  58546. procedure TPORTA_LATA.clearLATA3; inline;
  58547. begin
  58548. pTDefRegMap(@Self)^.clr := $00000008;
  58549. end;
  58550. procedure TPORTA_LATA.setLATA3(thebits : TBits_1); inline;
  58551. begin
  58552. if thebits = 0 then
  58553. pTDefRegMap(@Self)^.clr := $00000008
  58554. else
  58555. pTDefRegMap(@Self)^.&set := $00000008;
  58556. end;
  58557. function TPORTA_LATA.getLATA3 : TBits_1; inline;
  58558. begin
  58559. getLATA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58560. end;
  58561. procedure TPORTA_LATA.setLATA4; inline;
  58562. begin
  58563. pTDefRegMap(@Self)^.&set := $00000010;
  58564. end;
  58565. procedure TPORTA_LATA.clearLATA4; inline;
  58566. begin
  58567. pTDefRegMap(@Self)^.clr := $00000010;
  58568. end;
  58569. procedure TPORTA_LATA.setLATA4(thebits : TBits_1); inline;
  58570. begin
  58571. if thebits = 0 then
  58572. pTDefRegMap(@Self)^.clr := $00000010
  58573. else
  58574. pTDefRegMap(@Self)^.&set := $00000010;
  58575. end;
  58576. function TPORTA_LATA.getLATA4 : TBits_1; inline;
  58577. begin
  58578. getLATA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58579. end;
  58580. procedure TPORTA_LATA.setLATA5; inline;
  58581. begin
  58582. pTDefRegMap(@Self)^.&set := $00000020;
  58583. end;
  58584. procedure TPORTA_LATA.clearLATA5; inline;
  58585. begin
  58586. pTDefRegMap(@Self)^.clr := $00000020;
  58587. end;
  58588. procedure TPORTA_LATA.setLATA5(thebits : TBits_1); inline;
  58589. begin
  58590. if thebits = 0 then
  58591. pTDefRegMap(@Self)^.clr := $00000020
  58592. else
  58593. pTDefRegMap(@Self)^.&set := $00000020;
  58594. end;
  58595. function TPORTA_LATA.getLATA5 : TBits_1; inline;
  58596. begin
  58597. getLATA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58598. end;
  58599. procedure TPORTA_LATA.setLATA6; inline;
  58600. begin
  58601. pTDefRegMap(@Self)^.&set := $00000040;
  58602. end;
  58603. procedure TPORTA_LATA.clearLATA6; inline;
  58604. begin
  58605. pTDefRegMap(@Self)^.clr := $00000040;
  58606. end;
  58607. procedure TPORTA_LATA.setLATA6(thebits : TBits_1); inline;
  58608. begin
  58609. if thebits = 0 then
  58610. pTDefRegMap(@Self)^.clr := $00000040
  58611. else
  58612. pTDefRegMap(@Self)^.&set := $00000040;
  58613. end;
  58614. function TPORTA_LATA.getLATA6 : TBits_1; inline;
  58615. begin
  58616. getLATA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58617. end;
  58618. procedure TPORTA_LATA.setLATA7; inline;
  58619. begin
  58620. pTDefRegMap(@Self)^.&set := $00000080;
  58621. end;
  58622. procedure TPORTA_LATA.clearLATA7; inline;
  58623. begin
  58624. pTDefRegMap(@Self)^.clr := $00000080;
  58625. end;
  58626. procedure TPORTA_LATA.setLATA7(thebits : TBits_1); inline;
  58627. begin
  58628. if thebits = 0 then
  58629. pTDefRegMap(@Self)^.clr := $00000080
  58630. else
  58631. pTDefRegMap(@Self)^.&set := $00000080;
  58632. end;
  58633. function TPORTA_LATA.getLATA7 : TBits_1; inline;
  58634. begin
  58635. getLATA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58636. end;
  58637. procedure TPORTA_LATA.setLATA9; inline;
  58638. begin
  58639. pTDefRegMap(@Self)^.&set := $00000200;
  58640. end;
  58641. procedure TPORTA_LATA.clearLATA9; inline;
  58642. begin
  58643. pTDefRegMap(@Self)^.clr := $00000200;
  58644. end;
  58645. procedure TPORTA_LATA.setLATA9(thebits : TBits_1); inline;
  58646. begin
  58647. if thebits = 0 then
  58648. pTDefRegMap(@Self)^.clr := $00000200
  58649. else
  58650. pTDefRegMap(@Self)^.&set := $00000200;
  58651. end;
  58652. function TPORTA_LATA.getLATA9 : TBits_1; inline;
  58653. begin
  58654. getLATA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  58655. end;
  58656. procedure TPORTA_LATA.setLATA10; inline;
  58657. begin
  58658. pTDefRegMap(@Self)^.&set := $00000400;
  58659. end;
  58660. procedure TPORTA_LATA.clearLATA10; inline;
  58661. begin
  58662. pTDefRegMap(@Self)^.clr := $00000400;
  58663. end;
  58664. procedure TPORTA_LATA.setLATA10(thebits : TBits_1); inline;
  58665. begin
  58666. if thebits = 0 then
  58667. pTDefRegMap(@Self)^.clr := $00000400
  58668. else
  58669. pTDefRegMap(@Self)^.&set := $00000400;
  58670. end;
  58671. function TPORTA_LATA.getLATA10 : TBits_1; inline;
  58672. begin
  58673. getLATA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  58674. end;
  58675. procedure TPORTA_LATA.setLATA14; inline;
  58676. begin
  58677. pTDefRegMap(@Self)^.&set := $00004000;
  58678. end;
  58679. procedure TPORTA_LATA.clearLATA14; inline;
  58680. begin
  58681. pTDefRegMap(@Self)^.clr := $00004000;
  58682. end;
  58683. procedure TPORTA_LATA.setLATA14(thebits : TBits_1); inline;
  58684. begin
  58685. if thebits = 0 then
  58686. pTDefRegMap(@Self)^.clr := $00004000
  58687. else
  58688. pTDefRegMap(@Self)^.&set := $00004000;
  58689. end;
  58690. function TPORTA_LATA.getLATA14 : TBits_1; inline;
  58691. begin
  58692. getLATA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  58693. end;
  58694. procedure TPORTA_LATA.setLATA15; inline;
  58695. begin
  58696. pTDefRegMap(@Self)^.&set := $00008000;
  58697. end;
  58698. procedure TPORTA_LATA.clearLATA15; inline;
  58699. begin
  58700. pTDefRegMap(@Self)^.clr := $00008000;
  58701. end;
  58702. procedure TPORTA_LATA.setLATA15(thebits : TBits_1); inline;
  58703. begin
  58704. if thebits = 0 then
  58705. pTDefRegMap(@Self)^.clr := $00008000
  58706. else
  58707. pTDefRegMap(@Self)^.&set := $00008000;
  58708. end;
  58709. function TPORTA_LATA.getLATA15 : TBits_1; inline;
  58710. begin
  58711. getLATA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  58712. end;
  58713. procedure TPORTA_LATA.setw(thebits : TBits_32); inline;
  58714. begin
  58715. pTDefRegMap(@Self)^.val := thebits;
  58716. end;
  58717. function TPORTA_LATA.getw : TBits_32; inline;
  58718. begin
  58719. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58720. end;
  58721. procedure TPORTA_ODCA.setODCA0; inline;
  58722. begin
  58723. pTDefRegMap(@Self)^.&set := $00000001;
  58724. end;
  58725. procedure TPORTA_ODCA.clearODCA0; inline;
  58726. begin
  58727. pTDefRegMap(@Self)^.clr := $00000001;
  58728. end;
  58729. procedure TPORTA_ODCA.setODCA0(thebits : TBits_1); inline;
  58730. begin
  58731. if thebits = 0 then
  58732. pTDefRegMap(@Self)^.clr := $00000001
  58733. else
  58734. pTDefRegMap(@Self)^.&set := $00000001;
  58735. end;
  58736. function TPORTA_ODCA.getODCA0 : TBits_1; inline;
  58737. begin
  58738. getODCA0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58739. end;
  58740. procedure TPORTA_ODCA.setODCA1; inline;
  58741. begin
  58742. pTDefRegMap(@Self)^.&set := $00000002;
  58743. end;
  58744. procedure TPORTA_ODCA.clearODCA1; inline;
  58745. begin
  58746. pTDefRegMap(@Self)^.clr := $00000002;
  58747. end;
  58748. procedure TPORTA_ODCA.setODCA1(thebits : TBits_1); inline;
  58749. begin
  58750. if thebits = 0 then
  58751. pTDefRegMap(@Self)^.clr := $00000002
  58752. else
  58753. pTDefRegMap(@Self)^.&set := $00000002;
  58754. end;
  58755. function TPORTA_ODCA.getODCA1 : TBits_1; inline;
  58756. begin
  58757. getODCA1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58758. end;
  58759. procedure TPORTA_ODCA.setODCA2; inline;
  58760. begin
  58761. pTDefRegMap(@Self)^.&set := $00000004;
  58762. end;
  58763. procedure TPORTA_ODCA.clearODCA2; inline;
  58764. begin
  58765. pTDefRegMap(@Self)^.clr := $00000004;
  58766. end;
  58767. procedure TPORTA_ODCA.setODCA2(thebits : TBits_1); inline;
  58768. begin
  58769. if thebits = 0 then
  58770. pTDefRegMap(@Self)^.clr := $00000004
  58771. else
  58772. pTDefRegMap(@Self)^.&set := $00000004;
  58773. end;
  58774. function TPORTA_ODCA.getODCA2 : TBits_1; inline;
  58775. begin
  58776. getODCA2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  58777. end;
  58778. procedure TPORTA_ODCA.setODCA3; inline;
  58779. begin
  58780. pTDefRegMap(@Self)^.&set := $00000008;
  58781. end;
  58782. procedure TPORTA_ODCA.clearODCA3; inline;
  58783. begin
  58784. pTDefRegMap(@Self)^.clr := $00000008;
  58785. end;
  58786. procedure TPORTA_ODCA.setODCA3(thebits : TBits_1); inline;
  58787. begin
  58788. if thebits = 0 then
  58789. pTDefRegMap(@Self)^.clr := $00000008
  58790. else
  58791. pTDefRegMap(@Self)^.&set := $00000008;
  58792. end;
  58793. function TPORTA_ODCA.getODCA3 : TBits_1; inline;
  58794. begin
  58795. getODCA3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  58796. end;
  58797. procedure TPORTA_ODCA.setODCA4; inline;
  58798. begin
  58799. pTDefRegMap(@Self)^.&set := $00000010;
  58800. end;
  58801. procedure TPORTA_ODCA.clearODCA4; inline;
  58802. begin
  58803. pTDefRegMap(@Self)^.clr := $00000010;
  58804. end;
  58805. procedure TPORTA_ODCA.setODCA4(thebits : TBits_1); inline;
  58806. begin
  58807. if thebits = 0 then
  58808. pTDefRegMap(@Self)^.clr := $00000010
  58809. else
  58810. pTDefRegMap(@Self)^.&set := $00000010;
  58811. end;
  58812. function TPORTA_ODCA.getODCA4 : TBits_1; inline;
  58813. begin
  58814. getODCA4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  58815. end;
  58816. procedure TPORTA_ODCA.setODCA5; inline;
  58817. begin
  58818. pTDefRegMap(@Self)^.&set := $00000020;
  58819. end;
  58820. procedure TPORTA_ODCA.clearODCA5; inline;
  58821. begin
  58822. pTDefRegMap(@Self)^.clr := $00000020;
  58823. end;
  58824. procedure TPORTA_ODCA.setODCA5(thebits : TBits_1); inline;
  58825. begin
  58826. if thebits = 0 then
  58827. pTDefRegMap(@Self)^.clr := $00000020
  58828. else
  58829. pTDefRegMap(@Self)^.&set := $00000020;
  58830. end;
  58831. function TPORTA_ODCA.getODCA5 : TBits_1; inline;
  58832. begin
  58833. getODCA5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  58834. end;
  58835. procedure TPORTA_ODCA.setODCA6; inline;
  58836. begin
  58837. pTDefRegMap(@Self)^.&set := $00000040;
  58838. end;
  58839. procedure TPORTA_ODCA.clearODCA6; inline;
  58840. begin
  58841. pTDefRegMap(@Self)^.clr := $00000040;
  58842. end;
  58843. procedure TPORTA_ODCA.setODCA6(thebits : TBits_1); inline;
  58844. begin
  58845. if thebits = 0 then
  58846. pTDefRegMap(@Self)^.clr := $00000040
  58847. else
  58848. pTDefRegMap(@Self)^.&set := $00000040;
  58849. end;
  58850. function TPORTA_ODCA.getODCA6 : TBits_1; inline;
  58851. begin
  58852. getODCA6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  58853. end;
  58854. procedure TPORTA_ODCA.setODCA7; inline;
  58855. begin
  58856. pTDefRegMap(@Self)^.&set := $00000080;
  58857. end;
  58858. procedure TPORTA_ODCA.clearODCA7; inline;
  58859. begin
  58860. pTDefRegMap(@Self)^.clr := $00000080;
  58861. end;
  58862. procedure TPORTA_ODCA.setODCA7(thebits : TBits_1); inline;
  58863. begin
  58864. if thebits = 0 then
  58865. pTDefRegMap(@Self)^.clr := $00000080
  58866. else
  58867. pTDefRegMap(@Self)^.&set := $00000080;
  58868. end;
  58869. function TPORTA_ODCA.getODCA7 : TBits_1; inline;
  58870. begin
  58871. getODCA7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  58872. end;
  58873. procedure TPORTA_ODCA.setODCA9; inline;
  58874. begin
  58875. pTDefRegMap(@Self)^.&set := $00000200;
  58876. end;
  58877. procedure TPORTA_ODCA.clearODCA9; inline;
  58878. begin
  58879. pTDefRegMap(@Self)^.clr := $00000200;
  58880. end;
  58881. procedure TPORTA_ODCA.setODCA9(thebits : TBits_1); inline;
  58882. begin
  58883. if thebits = 0 then
  58884. pTDefRegMap(@Self)^.clr := $00000200
  58885. else
  58886. pTDefRegMap(@Self)^.&set := $00000200;
  58887. end;
  58888. function TPORTA_ODCA.getODCA9 : TBits_1; inline;
  58889. begin
  58890. getODCA9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  58891. end;
  58892. procedure TPORTA_ODCA.setODCA10; inline;
  58893. begin
  58894. pTDefRegMap(@Self)^.&set := $00000400;
  58895. end;
  58896. procedure TPORTA_ODCA.clearODCA10; inline;
  58897. begin
  58898. pTDefRegMap(@Self)^.clr := $00000400;
  58899. end;
  58900. procedure TPORTA_ODCA.setODCA10(thebits : TBits_1); inline;
  58901. begin
  58902. if thebits = 0 then
  58903. pTDefRegMap(@Self)^.clr := $00000400
  58904. else
  58905. pTDefRegMap(@Self)^.&set := $00000400;
  58906. end;
  58907. function TPORTA_ODCA.getODCA10 : TBits_1; inline;
  58908. begin
  58909. getODCA10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  58910. end;
  58911. procedure TPORTA_ODCA.setODCA14; inline;
  58912. begin
  58913. pTDefRegMap(@Self)^.&set := $00004000;
  58914. end;
  58915. procedure TPORTA_ODCA.clearODCA14; inline;
  58916. begin
  58917. pTDefRegMap(@Self)^.clr := $00004000;
  58918. end;
  58919. procedure TPORTA_ODCA.setODCA14(thebits : TBits_1); inline;
  58920. begin
  58921. if thebits = 0 then
  58922. pTDefRegMap(@Self)^.clr := $00004000
  58923. else
  58924. pTDefRegMap(@Self)^.&set := $00004000;
  58925. end;
  58926. function TPORTA_ODCA.getODCA14 : TBits_1; inline;
  58927. begin
  58928. getODCA14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  58929. end;
  58930. procedure TPORTA_ODCA.setODCA15; inline;
  58931. begin
  58932. pTDefRegMap(@Self)^.&set := $00008000;
  58933. end;
  58934. procedure TPORTA_ODCA.clearODCA15; inline;
  58935. begin
  58936. pTDefRegMap(@Self)^.clr := $00008000;
  58937. end;
  58938. procedure TPORTA_ODCA.setODCA15(thebits : TBits_1); inline;
  58939. begin
  58940. if thebits = 0 then
  58941. pTDefRegMap(@Self)^.clr := $00008000
  58942. else
  58943. pTDefRegMap(@Self)^.&set := $00008000;
  58944. end;
  58945. function TPORTA_ODCA.getODCA15 : TBits_1; inline;
  58946. begin
  58947. getODCA15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  58948. end;
  58949. procedure TPORTA_ODCA.setw(thebits : TBits_32); inline;
  58950. begin
  58951. pTDefRegMap(@Self)^.val := thebits;
  58952. end;
  58953. function TPORTA_ODCA.getw : TBits_32; inline;
  58954. begin
  58955. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  58956. end;
  58957. procedure TPORTB_TRISB.setTRISB0; inline;
  58958. begin
  58959. pTDefRegMap(@Self)^.&set := $00000001;
  58960. end;
  58961. procedure TPORTB_TRISB.clearTRISB0; inline;
  58962. begin
  58963. pTDefRegMap(@Self)^.clr := $00000001;
  58964. end;
  58965. procedure TPORTB_TRISB.setTRISB0(thebits : TBits_1); inline;
  58966. begin
  58967. if thebits = 0 then
  58968. pTDefRegMap(@Self)^.clr := $00000001
  58969. else
  58970. pTDefRegMap(@Self)^.&set := $00000001;
  58971. end;
  58972. function TPORTB_TRISB.getTRISB0 : TBits_1; inline;
  58973. begin
  58974. getTRISB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  58975. end;
  58976. procedure TPORTB_TRISB.setTRISB1; inline;
  58977. begin
  58978. pTDefRegMap(@Self)^.&set := $00000002;
  58979. end;
  58980. procedure TPORTB_TRISB.clearTRISB1; inline;
  58981. begin
  58982. pTDefRegMap(@Self)^.clr := $00000002;
  58983. end;
  58984. procedure TPORTB_TRISB.setTRISB1(thebits : TBits_1); inline;
  58985. begin
  58986. if thebits = 0 then
  58987. pTDefRegMap(@Self)^.clr := $00000002
  58988. else
  58989. pTDefRegMap(@Self)^.&set := $00000002;
  58990. end;
  58991. function TPORTB_TRISB.getTRISB1 : TBits_1; inline;
  58992. begin
  58993. getTRISB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  58994. end;
  58995. procedure TPORTB_TRISB.setTRISB2; inline;
  58996. begin
  58997. pTDefRegMap(@Self)^.&set := $00000004;
  58998. end;
  58999. procedure TPORTB_TRISB.clearTRISB2; inline;
  59000. begin
  59001. pTDefRegMap(@Self)^.clr := $00000004;
  59002. end;
  59003. procedure TPORTB_TRISB.setTRISB2(thebits : TBits_1); inline;
  59004. begin
  59005. if thebits = 0 then
  59006. pTDefRegMap(@Self)^.clr := $00000004
  59007. else
  59008. pTDefRegMap(@Self)^.&set := $00000004;
  59009. end;
  59010. function TPORTB_TRISB.getTRISB2 : TBits_1; inline;
  59011. begin
  59012. getTRISB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59013. end;
  59014. procedure TPORTB_TRISB.setTRISB3; inline;
  59015. begin
  59016. pTDefRegMap(@Self)^.&set := $00000008;
  59017. end;
  59018. procedure TPORTB_TRISB.clearTRISB3; inline;
  59019. begin
  59020. pTDefRegMap(@Self)^.clr := $00000008;
  59021. end;
  59022. procedure TPORTB_TRISB.setTRISB3(thebits : TBits_1); inline;
  59023. begin
  59024. if thebits = 0 then
  59025. pTDefRegMap(@Self)^.clr := $00000008
  59026. else
  59027. pTDefRegMap(@Self)^.&set := $00000008;
  59028. end;
  59029. function TPORTB_TRISB.getTRISB3 : TBits_1; inline;
  59030. begin
  59031. getTRISB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59032. end;
  59033. procedure TPORTB_TRISB.setTRISB4; inline;
  59034. begin
  59035. pTDefRegMap(@Self)^.&set := $00000010;
  59036. end;
  59037. procedure TPORTB_TRISB.clearTRISB4; inline;
  59038. begin
  59039. pTDefRegMap(@Self)^.clr := $00000010;
  59040. end;
  59041. procedure TPORTB_TRISB.setTRISB4(thebits : TBits_1); inline;
  59042. begin
  59043. if thebits = 0 then
  59044. pTDefRegMap(@Self)^.clr := $00000010
  59045. else
  59046. pTDefRegMap(@Self)^.&set := $00000010;
  59047. end;
  59048. function TPORTB_TRISB.getTRISB4 : TBits_1; inline;
  59049. begin
  59050. getTRISB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59051. end;
  59052. procedure TPORTB_TRISB.setTRISB5; inline;
  59053. begin
  59054. pTDefRegMap(@Self)^.&set := $00000020;
  59055. end;
  59056. procedure TPORTB_TRISB.clearTRISB5; inline;
  59057. begin
  59058. pTDefRegMap(@Self)^.clr := $00000020;
  59059. end;
  59060. procedure TPORTB_TRISB.setTRISB5(thebits : TBits_1); inline;
  59061. begin
  59062. if thebits = 0 then
  59063. pTDefRegMap(@Self)^.clr := $00000020
  59064. else
  59065. pTDefRegMap(@Self)^.&set := $00000020;
  59066. end;
  59067. function TPORTB_TRISB.getTRISB5 : TBits_1; inline;
  59068. begin
  59069. getTRISB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59070. end;
  59071. procedure TPORTB_TRISB.setTRISB6; inline;
  59072. begin
  59073. pTDefRegMap(@Self)^.&set := $00000040;
  59074. end;
  59075. procedure TPORTB_TRISB.clearTRISB6; inline;
  59076. begin
  59077. pTDefRegMap(@Self)^.clr := $00000040;
  59078. end;
  59079. procedure TPORTB_TRISB.setTRISB6(thebits : TBits_1); inline;
  59080. begin
  59081. if thebits = 0 then
  59082. pTDefRegMap(@Self)^.clr := $00000040
  59083. else
  59084. pTDefRegMap(@Self)^.&set := $00000040;
  59085. end;
  59086. function TPORTB_TRISB.getTRISB6 : TBits_1; inline;
  59087. begin
  59088. getTRISB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59089. end;
  59090. procedure TPORTB_TRISB.setTRISB7; inline;
  59091. begin
  59092. pTDefRegMap(@Self)^.&set := $00000080;
  59093. end;
  59094. procedure TPORTB_TRISB.clearTRISB7; inline;
  59095. begin
  59096. pTDefRegMap(@Self)^.clr := $00000080;
  59097. end;
  59098. procedure TPORTB_TRISB.setTRISB7(thebits : TBits_1); inline;
  59099. begin
  59100. if thebits = 0 then
  59101. pTDefRegMap(@Self)^.clr := $00000080
  59102. else
  59103. pTDefRegMap(@Self)^.&set := $00000080;
  59104. end;
  59105. function TPORTB_TRISB.getTRISB7 : TBits_1; inline;
  59106. begin
  59107. getTRISB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59108. end;
  59109. procedure TPORTB_TRISB.setTRISB8; inline;
  59110. begin
  59111. pTDefRegMap(@Self)^.&set := $00000100;
  59112. end;
  59113. procedure TPORTB_TRISB.clearTRISB8; inline;
  59114. begin
  59115. pTDefRegMap(@Self)^.clr := $00000100;
  59116. end;
  59117. procedure TPORTB_TRISB.setTRISB8(thebits : TBits_1); inline;
  59118. begin
  59119. if thebits = 0 then
  59120. pTDefRegMap(@Self)^.clr := $00000100
  59121. else
  59122. pTDefRegMap(@Self)^.&set := $00000100;
  59123. end;
  59124. function TPORTB_TRISB.getTRISB8 : TBits_1; inline;
  59125. begin
  59126. getTRISB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  59127. end;
  59128. procedure TPORTB_TRISB.setTRISB9; inline;
  59129. begin
  59130. pTDefRegMap(@Self)^.&set := $00000200;
  59131. end;
  59132. procedure TPORTB_TRISB.clearTRISB9; inline;
  59133. begin
  59134. pTDefRegMap(@Self)^.clr := $00000200;
  59135. end;
  59136. procedure TPORTB_TRISB.setTRISB9(thebits : TBits_1); inline;
  59137. begin
  59138. if thebits = 0 then
  59139. pTDefRegMap(@Self)^.clr := $00000200
  59140. else
  59141. pTDefRegMap(@Self)^.&set := $00000200;
  59142. end;
  59143. function TPORTB_TRISB.getTRISB9 : TBits_1; inline;
  59144. begin
  59145. getTRISB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  59146. end;
  59147. procedure TPORTB_TRISB.setTRISB10; inline;
  59148. begin
  59149. pTDefRegMap(@Self)^.&set := $00000400;
  59150. end;
  59151. procedure TPORTB_TRISB.clearTRISB10; inline;
  59152. begin
  59153. pTDefRegMap(@Self)^.clr := $00000400;
  59154. end;
  59155. procedure TPORTB_TRISB.setTRISB10(thebits : TBits_1); inline;
  59156. begin
  59157. if thebits = 0 then
  59158. pTDefRegMap(@Self)^.clr := $00000400
  59159. else
  59160. pTDefRegMap(@Self)^.&set := $00000400;
  59161. end;
  59162. function TPORTB_TRISB.getTRISB10 : TBits_1; inline;
  59163. begin
  59164. getTRISB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  59165. end;
  59166. procedure TPORTB_TRISB.setTRISB11; inline;
  59167. begin
  59168. pTDefRegMap(@Self)^.&set := $00000800;
  59169. end;
  59170. procedure TPORTB_TRISB.clearTRISB11; inline;
  59171. begin
  59172. pTDefRegMap(@Self)^.clr := $00000800;
  59173. end;
  59174. procedure TPORTB_TRISB.setTRISB11(thebits : TBits_1); inline;
  59175. begin
  59176. if thebits = 0 then
  59177. pTDefRegMap(@Self)^.clr := $00000800
  59178. else
  59179. pTDefRegMap(@Self)^.&set := $00000800;
  59180. end;
  59181. function TPORTB_TRISB.getTRISB11 : TBits_1; inline;
  59182. begin
  59183. getTRISB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  59184. end;
  59185. procedure TPORTB_TRISB.setTRISB12; inline;
  59186. begin
  59187. pTDefRegMap(@Self)^.&set := $00001000;
  59188. end;
  59189. procedure TPORTB_TRISB.clearTRISB12; inline;
  59190. begin
  59191. pTDefRegMap(@Self)^.clr := $00001000;
  59192. end;
  59193. procedure TPORTB_TRISB.setTRISB12(thebits : TBits_1); inline;
  59194. begin
  59195. if thebits = 0 then
  59196. pTDefRegMap(@Self)^.clr := $00001000
  59197. else
  59198. pTDefRegMap(@Self)^.&set := $00001000;
  59199. end;
  59200. function TPORTB_TRISB.getTRISB12 : TBits_1; inline;
  59201. begin
  59202. getTRISB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  59203. end;
  59204. procedure TPORTB_TRISB.setTRISB13; inline;
  59205. begin
  59206. pTDefRegMap(@Self)^.&set := $00002000;
  59207. end;
  59208. procedure TPORTB_TRISB.clearTRISB13; inline;
  59209. begin
  59210. pTDefRegMap(@Self)^.clr := $00002000;
  59211. end;
  59212. procedure TPORTB_TRISB.setTRISB13(thebits : TBits_1); inline;
  59213. begin
  59214. if thebits = 0 then
  59215. pTDefRegMap(@Self)^.clr := $00002000
  59216. else
  59217. pTDefRegMap(@Self)^.&set := $00002000;
  59218. end;
  59219. function TPORTB_TRISB.getTRISB13 : TBits_1; inline;
  59220. begin
  59221. getTRISB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  59222. end;
  59223. procedure TPORTB_TRISB.setTRISB14; inline;
  59224. begin
  59225. pTDefRegMap(@Self)^.&set := $00004000;
  59226. end;
  59227. procedure TPORTB_TRISB.clearTRISB14; inline;
  59228. begin
  59229. pTDefRegMap(@Self)^.clr := $00004000;
  59230. end;
  59231. procedure TPORTB_TRISB.setTRISB14(thebits : TBits_1); inline;
  59232. begin
  59233. if thebits = 0 then
  59234. pTDefRegMap(@Self)^.clr := $00004000
  59235. else
  59236. pTDefRegMap(@Self)^.&set := $00004000;
  59237. end;
  59238. function TPORTB_TRISB.getTRISB14 : TBits_1; inline;
  59239. begin
  59240. getTRISB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  59241. end;
  59242. procedure TPORTB_TRISB.setTRISB15; inline;
  59243. begin
  59244. pTDefRegMap(@Self)^.&set := $00008000;
  59245. end;
  59246. procedure TPORTB_TRISB.clearTRISB15; inline;
  59247. begin
  59248. pTDefRegMap(@Self)^.clr := $00008000;
  59249. end;
  59250. procedure TPORTB_TRISB.setTRISB15(thebits : TBits_1); inline;
  59251. begin
  59252. if thebits = 0 then
  59253. pTDefRegMap(@Self)^.clr := $00008000
  59254. else
  59255. pTDefRegMap(@Self)^.&set := $00008000;
  59256. end;
  59257. function TPORTB_TRISB.getTRISB15 : TBits_1; inline;
  59258. begin
  59259. getTRISB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  59260. end;
  59261. procedure TPORTB_TRISB.setw(thebits : TBits_32); inline;
  59262. begin
  59263. pTDefRegMap(@Self)^.val := thebits;
  59264. end;
  59265. function TPORTB_TRISB.getw : TBits_32; inline;
  59266. begin
  59267. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59268. end;
  59269. procedure TPORTB_PORTB.setRB0; inline;
  59270. begin
  59271. pTDefRegMap(@Self)^.&set := $00000001;
  59272. end;
  59273. procedure TPORTB_PORTB.clearRB0; inline;
  59274. begin
  59275. pTDefRegMap(@Self)^.clr := $00000001;
  59276. end;
  59277. procedure TPORTB_PORTB.setRB0(thebits : TBits_1); inline;
  59278. begin
  59279. if thebits = 0 then
  59280. pTDefRegMap(@Self)^.clr := $00000001
  59281. else
  59282. pTDefRegMap(@Self)^.&set := $00000001;
  59283. end;
  59284. function TPORTB_PORTB.getRB0 : TBits_1; inline;
  59285. begin
  59286. getRB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59287. end;
  59288. procedure TPORTB_PORTB.setRB1; inline;
  59289. begin
  59290. pTDefRegMap(@Self)^.&set := $00000002;
  59291. end;
  59292. procedure TPORTB_PORTB.clearRB1; inline;
  59293. begin
  59294. pTDefRegMap(@Self)^.clr := $00000002;
  59295. end;
  59296. procedure TPORTB_PORTB.setRB1(thebits : TBits_1); inline;
  59297. begin
  59298. if thebits = 0 then
  59299. pTDefRegMap(@Self)^.clr := $00000002
  59300. else
  59301. pTDefRegMap(@Self)^.&set := $00000002;
  59302. end;
  59303. function TPORTB_PORTB.getRB1 : TBits_1; inline;
  59304. begin
  59305. getRB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59306. end;
  59307. procedure TPORTB_PORTB.setRB2; inline;
  59308. begin
  59309. pTDefRegMap(@Self)^.&set := $00000004;
  59310. end;
  59311. procedure TPORTB_PORTB.clearRB2; inline;
  59312. begin
  59313. pTDefRegMap(@Self)^.clr := $00000004;
  59314. end;
  59315. procedure TPORTB_PORTB.setRB2(thebits : TBits_1); inline;
  59316. begin
  59317. if thebits = 0 then
  59318. pTDefRegMap(@Self)^.clr := $00000004
  59319. else
  59320. pTDefRegMap(@Self)^.&set := $00000004;
  59321. end;
  59322. function TPORTB_PORTB.getRB2 : TBits_1; inline;
  59323. begin
  59324. getRB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59325. end;
  59326. procedure TPORTB_PORTB.setRB3; inline;
  59327. begin
  59328. pTDefRegMap(@Self)^.&set := $00000008;
  59329. end;
  59330. procedure TPORTB_PORTB.clearRB3; inline;
  59331. begin
  59332. pTDefRegMap(@Self)^.clr := $00000008;
  59333. end;
  59334. procedure TPORTB_PORTB.setRB3(thebits : TBits_1); inline;
  59335. begin
  59336. if thebits = 0 then
  59337. pTDefRegMap(@Self)^.clr := $00000008
  59338. else
  59339. pTDefRegMap(@Self)^.&set := $00000008;
  59340. end;
  59341. function TPORTB_PORTB.getRB3 : TBits_1; inline;
  59342. begin
  59343. getRB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59344. end;
  59345. procedure TPORTB_PORTB.setRB4; inline;
  59346. begin
  59347. pTDefRegMap(@Self)^.&set := $00000010;
  59348. end;
  59349. procedure TPORTB_PORTB.clearRB4; inline;
  59350. begin
  59351. pTDefRegMap(@Self)^.clr := $00000010;
  59352. end;
  59353. procedure TPORTB_PORTB.setRB4(thebits : TBits_1); inline;
  59354. begin
  59355. if thebits = 0 then
  59356. pTDefRegMap(@Self)^.clr := $00000010
  59357. else
  59358. pTDefRegMap(@Self)^.&set := $00000010;
  59359. end;
  59360. function TPORTB_PORTB.getRB4 : TBits_1; inline;
  59361. begin
  59362. getRB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59363. end;
  59364. procedure TPORTB_PORTB.setRB5; inline;
  59365. begin
  59366. pTDefRegMap(@Self)^.&set := $00000020;
  59367. end;
  59368. procedure TPORTB_PORTB.clearRB5; inline;
  59369. begin
  59370. pTDefRegMap(@Self)^.clr := $00000020;
  59371. end;
  59372. procedure TPORTB_PORTB.setRB5(thebits : TBits_1); inline;
  59373. begin
  59374. if thebits = 0 then
  59375. pTDefRegMap(@Self)^.clr := $00000020
  59376. else
  59377. pTDefRegMap(@Self)^.&set := $00000020;
  59378. end;
  59379. function TPORTB_PORTB.getRB5 : TBits_1; inline;
  59380. begin
  59381. getRB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59382. end;
  59383. procedure TPORTB_PORTB.setRB6; inline;
  59384. begin
  59385. pTDefRegMap(@Self)^.&set := $00000040;
  59386. end;
  59387. procedure TPORTB_PORTB.clearRB6; inline;
  59388. begin
  59389. pTDefRegMap(@Self)^.clr := $00000040;
  59390. end;
  59391. procedure TPORTB_PORTB.setRB6(thebits : TBits_1); inline;
  59392. begin
  59393. if thebits = 0 then
  59394. pTDefRegMap(@Self)^.clr := $00000040
  59395. else
  59396. pTDefRegMap(@Self)^.&set := $00000040;
  59397. end;
  59398. function TPORTB_PORTB.getRB6 : TBits_1; inline;
  59399. begin
  59400. getRB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59401. end;
  59402. procedure TPORTB_PORTB.setRB7; inline;
  59403. begin
  59404. pTDefRegMap(@Self)^.&set := $00000080;
  59405. end;
  59406. procedure TPORTB_PORTB.clearRB7; inline;
  59407. begin
  59408. pTDefRegMap(@Self)^.clr := $00000080;
  59409. end;
  59410. procedure TPORTB_PORTB.setRB7(thebits : TBits_1); inline;
  59411. begin
  59412. if thebits = 0 then
  59413. pTDefRegMap(@Self)^.clr := $00000080
  59414. else
  59415. pTDefRegMap(@Self)^.&set := $00000080;
  59416. end;
  59417. function TPORTB_PORTB.getRB7 : TBits_1; inline;
  59418. begin
  59419. getRB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59420. end;
  59421. procedure TPORTB_PORTB.setRB8; inline;
  59422. begin
  59423. pTDefRegMap(@Self)^.&set := $00000100;
  59424. end;
  59425. procedure TPORTB_PORTB.clearRB8; inline;
  59426. begin
  59427. pTDefRegMap(@Self)^.clr := $00000100;
  59428. end;
  59429. procedure TPORTB_PORTB.setRB8(thebits : TBits_1); inline;
  59430. begin
  59431. if thebits = 0 then
  59432. pTDefRegMap(@Self)^.clr := $00000100
  59433. else
  59434. pTDefRegMap(@Self)^.&set := $00000100;
  59435. end;
  59436. function TPORTB_PORTB.getRB8 : TBits_1; inline;
  59437. begin
  59438. getRB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  59439. end;
  59440. procedure TPORTB_PORTB.setRB9; inline;
  59441. begin
  59442. pTDefRegMap(@Self)^.&set := $00000200;
  59443. end;
  59444. procedure TPORTB_PORTB.clearRB9; inline;
  59445. begin
  59446. pTDefRegMap(@Self)^.clr := $00000200;
  59447. end;
  59448. procedure TPORTB_PORTB.setRB9(thebits : TBits_1); inline;
  59449. begin
  59450. if thebits = 0 then
  59451. pTDefRegMap(@Self)^.clr := $00000200
  59452. else
  59453. pTDefRegMap(@Self)^.&set := $00000200;
  59454. end;
  59455. function TPORTB_PORTB.getRB9 : TBits_1; inline;
  59456. begin
  59457. getRB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  59458. end;
  59459. procedure TPORTB_PORTB.setRB10; inline;
  59460. begin
  59461. pTDefRegMap(@Self)^.&set := $00000400;
  59462. end;
  59463. procedure TPORTB_PORTB.clearRB10; inline;
  59464. begin
  59465. pTDefRegMap(@Self)^.clr := $00000400;
  59466. end;
  59467. procedure TPORTB_PORTB.setRB10(thebits : TBits_1); inline;
  59468. begin
  59469. if thebits = 0 then
  59470. pTDefRegMap(@Self)^.clr := $00000400
  59471. else
  59472. pTDefRegMap(@Self)^.&set := $00000400;
  59473. end;
  59474. function TPORTB_PORTB.getRB10 : TBits_1; inline;
  59475. begin
  59476. getRB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  59477. end;
  59478. procedure TPORTB_PORTB.setRB11; inline;
  59479. begin
  59480. pTDefRegMap(@Self)^.&set := $00000800;
  59481. end;
  59482. procedure TPORTB_PORTB.clearRB11; inline;
  59483. begin
  59484. pTDefRegMap(@Self)^.clr := $00000800;
  59485. end;
  59486. procedure TPORTB_PORTB.setRB11(thebits : TBits_1); inline;
  59487. begin
  59488. if thebits = 0 then
  59489. pTDefRegMap(@Self)^.clr := $00000800
  59490. else
  59491. pTDefRegMap(@Self)^.&set := $00000800;
  59492. end;
  59493. function TPORTB_PORTB.getRB11 : TBits_1; inline;
  59494. begin
  59495. getRB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  59496. end;
  59497. procedure TPORTB_PORTB.setRB12; inline;
  59498. begin
  59499. pTDefRegMap(@Self)^.&set := $00001000;
  59500. end;
  59501. procedure TPORTB_PORTB.clearRB12; inline;
  59502. begin
  59503. pTDefRegMap(@Self)^.clr := $00001000;
  59504. end;
  59505. procedure TPORTB_PORTB.setRB12(thebits : TBits_1); inline;
  59506. begin
  59507. if thebits = 0 then
  59508. pTDefRegMap(@Self)^.clr := $00001000
  59509. else
  59510. pTDefRegMap(@Self)^.&set := $00001000;
  59511. end;
  59512. function TPORTB_PORTB.getRB12 : TBits_1; inline;
  59513. begin
  59514. getRB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  59515. end;
  59516. procedure TPORTB_PORTB.setRB13; inline;
  59517. begin
  59518. pTDefRegMap(@Self)^.&set := $00002000;
  59519. end;
  59520. procedure TPORTB_PORTB.clearRB13; inline;
  59521. begin
  59522. pTDefRegMap(@Self)^.clr := $00002000;
  59523. end;
  59524. procedure TPORTB_PORTB.setRB13(thebits : TBits_1); inline;
  59525. begin
  59526. if thebits = 0 then
  59527. pTDefRegMap(@Self)^.clr := $00002000
  59528. else
  59529. pTDefRegMap(@Self)^.&set := $00002000;
  59530. end;
  59531. function TPORTB_PORTB.getRB13 : TBits_1; inline;
  59532. begin
  59533. getRB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  59534. end;
  59535. procedure TPORTB_PORTB.setRB14; inline;
  59536. begin
  59537. pTDefRegMap(@Self)^.&set := $00004000;
  59538. end;
  59539. procedure TPORTB_PORTB.clearRB14; inline;
  59540. begin
  59541. pTDefRegMap(@Self)^.clr := $00004000;
  59542. end;
  59543. procedure TPORTB_PORTB.setRB14(thebits : TBits_1); inline;
  59544. begin
  59545. if thebits = 0 then
  59546. pTDefRegMap(@Self)^.clr := $00004000
  59547. else
  59548. pTDefRegMap(@Self)^.&set := $00004000;
  59549. end;
  59550. function TPORTB_PORTB.getRB14 : TBits_1; inline;
  59551. begin
  59552. getRB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  59553. end;
  59554. procedure TPORTB_PORTB.setRB15; inline;
  59555. begin
  59556. pTDefRegMap(@Self)^.&set := $00008000;
  59557. end;
  59558. procedure TPORTB_PORTB.clearRB15; inline;
  59559. begin
  59560. pTDefRegMap(@Self)^.clr := $00008000;
  59561. end;
  59562. procedure TPORTB_PORTB.setRB15(thebits : TBits_1); inline;
  59563. begin
  59564. if thebits = 0 then
  59565. pTDefRegMap(@Self)^.clr := $00008000
  59566. else
  59567. pTDefRegMap(@Self)^.&set := $00008000;
  59568. end;
  59569. function TPORTB_PORTB.getRB15 : TBits_1; inline;
  59570. begin
  59571. getRB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  59572. end;
  59573. procedure TPORTB_PORTB.setw(thebits : TBits_32); inline;
  59574. begin
  59575. pTDefRegMap(@Self)^.val := thebits;
  59576. end;
  59577. function TPORTB_PORTB.getw : TBits_32; inline;
  59578. begin
  59579. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59580. end;
  59581. procedure TPORTB_LATB.setLATB0; inline;
  59582. begin
  59583. pTDefRegMap(@Self)^.&set := $00000001;
  59584. end;
  59585. procedure TPORTB_LATB.clearLATB0; inline;
  59586. begin
  59587. pTDefRegMap(@Self)^.clr := $00000001;
  59588. end;
  59589. procedure TPORTB_LATB.setLATB0(thebits : TBits_1); inline;
  59590. begin
  59591. if thebits = 0 then
  59592. pTDefRegMap(@Self)^.clr := $00000001
  59593. else
  59594. pTDefRegMap(@Self)^.&set := $00000001;
  59595. end;
  59596. function TPORTB_LATB.getLATB0 : TBits_1; inline;
  59597. begin
  59598. getLATB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59599. end;
  59600. procedure TPORTB_LATB.setLATB1; inline;
  59601. begin
  59602. pTDefRegMap(@Self)^.&set := $00000002;
  59603. end;
  59604. procedure TPORTB_LATB.clearLATB1; inline;
  59605. begin
  59606. pTDefRegMap(@Self)^.clr := $00000002;
  59607. end;
  59608. procedure TPORTB_LATB.setLATB1(thebits : TBits_1); inline;
  59609. begin
  59610. if thebits = 0 then
  59611. pTDefRegMap(@Self)^.clr := $00000002
  59612. else
  59613. pTDefRegMap(@Self)^.&set := $00000002;
  59614. end;
  59615. function TPORTB_LATB.getLATB1 : TBits_1; inline;
  59616. begin
  59617. getLATB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59618. end;
  59619. procedure TPORTB_LATB.setLATB2; inline;
  59620. begin
  59621. pTDefRegMap(@Self)^.&set := $00000004;
  59622. end;
  59623. procedure TPORTB_LATB.clearLATB2; inline;
  59624. begin
  59625. pTDefRegMap(@Self)^.clr := $00000004;
  59626. end;
  59627. procedure TPORTB_LATB.setLATB2(thebits : TBits_1); inline;
  59628. begin
  59629. if thebits = 0 then
  59630. pTDefRegMap(@Self)^.clr := $00000004
  59631. else
  59632. pTDefRegMap(@Self)^.&set := $00000004;
  59633. end;
  59634. function TPORTB_LATB.getLATB2 : TBits_1; inline;
  59635. begin
  59636. getLATB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59637. end;
  59638. procedure TPORTB_LATB.setLATB3; inline;
  59639. begin
  59640. pTDefRegMap(@Self)^.&set := $00000008;
  59641. end;
  59642. procedure TPORTB_LATB.clearLATB3; inline;
  59643. begin
  59644. pTDefRegMap(@Self)^.clr := $00000008;
  59645. end;
  59646. procedure TPORTB_LATB.setLATB3(thebits : TBits_1); inline;
  59647. begin
  59648. if thebits = 0 then
  59649. pTDefRegMap(@Self)^.clr := $00000008
  59650. else
  59651. pTDefRegMap(@Self)^.&set := $00000008;
  59652. end;
  59653. function TPORTB_LATB.getLATB3 : TBits_1; inline;
  59654. begin
  59655. getLATB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59656. end;
  59657. procedure TPORTB_LATB.setLATB4; inline;
  59658. begin
  59659. pTDefRegMap(@Self)^.&set := $00000010;
  59660. end;
  59661. procedure TPORTB_LATB.clearLATB4; inline;
  59662. begin
  59663. pTDefRegMap(@Self)^.clr := $00000010;
  59664. end;
  59665. procedure TPORTB_LATB.setLATB4(thebits : TBits_1); inline;
  59666. begin
  59667. if thebits = 0 then
  59668. pTDefRegMap(@Self)^.clr := $00000010
  59669. else
  59670. pTDefRegMap(@Self)^.&set := $00000010;
  59671. end;
  59672. function TPORTB_LATB.getLATB4 : TBits_1; inline;
  59673. begin
  59674. getLATB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59675. end;
  59676. procedure TPORTB_LATB.setLATB5; inline;
  59677. begin
  59678. pTDefRegMap(@Self)^.&set := $00000020;
  59679. end;
  59680. procedure TPORTB_LATB.clearLATB5; inline;
  59681. begin
  59682. pTDefRegMap(@Self)^.clr := $00000020;
  59683. end;
  59684. procedure TPORTB_LATB.setLATB5(thebits : TBits_1); inline;
  59685. begin
  59686. if thebits = 0 then
  59687. pTDefRegMap(@Self)^.clr := $00000020
  59688. else
  59689. pTDefRegMap(@Self)^.&set := $00000020;
  59690. end;
  59691. function TPORTB_LATB.getLATB5 : TBits_1; inline;
  59692. begin
  59693. getLATB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  59694. end;
  59695. procedure TPORTB_LATB.setLATB6; inline;
  59696. begin
  59697. pTDefRegMap(@Self)^.&set := $00000040;
  59698. end;
  59699. procedure TPORTB_LATB.clearLATB6; inline;
  59700. begin
  59701. pTDefRegMap(@Self)^.clr := $00000040;
  59702. end;
  59703. procedure TPORTB_LATB.setLATB6(thebits : TBits_1); inline;
  59704. begin
  59705. if thebits = 0 then
  59706. pTDefRegMap(@Self)^.clr := $00000040
  59707. else
  59708. pTDefRegMap(@Self)^.&set := $00000040;
  59709. end;
  59710. function TPORTB_LATB.getLATB6 : TBits_1; inline;
  59711. begin
  59712. getLATB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  59713. end;
  59714. procedure TPORTB_LATB.setLATB7; inline;
  59715. begin
  59716. pTDefRegMap(@Self)^.&set := $00000080;
  59717. end;
  59718. procedure TPORTB_LATB.clearLATB7; inline;
  59719. begin
  59720. pTDefRegMap(@Self)^.clr := $00000080;
  59721. end;
  59722. procedure TPORTB_LATB.setLATB7(thebits : TBits_1); inline;
  59723. begin
  59724. if thebits = 0 then
  59725. pTDefRegMap(@Self)^.clr := $00000080
  59726. else
  59727. pTDefRegMap(@Self)^.&set := $00000080;
  59728. end;
  59729. function TPORTB_LATB.getLATB7 : TBits_1; inline;
  59730. begin
  59731. getLATB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  59732. end;
  59733. procedure TPORTB_LATB.setLATB8; inline;
  59734. begin
  59735. pTDefRegMap(@Self)^.&set := $00000100;
  59736. end;
  59737. procedure TPORTB_LATB.clearLATB8; inline;
  59738. begin
  59739. pTDefRegMap(@Self)^.clr := $00000100;
  59740. end;
  59741. procedure TPORTB_LATB.setLATB8(thebits : TBits_1); inline;
  59742. begin
  59743. if thebits = 0 then
  59744. pTDefRegMap(@Self)^.clr := $00000100
  59745. else
  59746. pTDefRegMap(@Self)^.&set := $00000100;
  59747. end;
  59748. function TPORTB_LATB.getLATB8 : TBits_1; inline;
  59749. begin
  59750. getLATB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  59751. end;
  59752. procedure TPORTB_LATB.setLATB9; inline;
  59753. begin
  59754. pTDefRegMap(@Self)^.&set := $00000200;
  59755. end;
  59756. procedure TPORTB_LATB.clearLATB9; inline;
  59757. begin
  59758. pTDefRegMap(@Self)^.clr := $00000200;
  59759. end;
  59760. procedure TPORTB_LATB.setLATB9(thebits : TBits_1); inline;
  59761. begin
  59762. if thebits = 0 then
  59763. pTDefRegMap(@Self)^.clr := $00000200
  59764. else
  59765. pTDefRegMap(@Self)^.&set := $00000200;
  59766. end;
  59767. function TPORTB_LATB.getLATB9 : TBits_1; inline;
  59768. begin
  59769. getLATB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  59770. end;
  59771. procedure TPORTB_LATB.setLATB10; inline;
  59772. begin
  59773. pTDefRegMap(@Self)^.&set := $00000400;
  59774. end;
  59775. procedure TPORTB_LATB.clearLATB10; inline;
  59776. begin
  59777. pTDefRegMap(@Self)^.clr := $00000400;
  59778. end;
  59779. procedure TPORTB_LATB.setLATB10(thebits : TBits_1); inline;
  59780. begin
  59781. if thebits = 0 then
  59782. pTDefRegMap(@Self)^.clr := $00000400
  59783. else
  59784. pTDefRegMap(@Self)^.&set := $00000400;
  59785. end;
  59786. function TPORTB_LATB.getLATB10 : TBits_1; inline;
  59787. begin
  59788. getLATB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  59789. end;
  59790. procedure TPORTB_LATB.setLATB11; inline;
  59791. begin
  59792. pTDefRegMap(@Self)^.&set := $00000800;
  59793. end;
  59794. procedure TPORTB_LATB.clearLATB11; inline;
  59795. begin
  59796. pTDefRegMap(@Self)^.clr := $00000800;
  59797. end;
  59798. procedure TPORTB_LATB.setLATB11(thebits : TBits_1); inline;
  59799. begin
  59800. if thebits = 0 then
  59801. pTDefRegMap(@Self)^.clr := $00000800
  59802. else
  59803. pTDefRegMap(@Self)^.&set := $00000800;
  59804. end;
  59805. function TPORTB_LATB.getLATB11 : TBits_1; inline;
  59806. begin
  59807. getLATB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  59808. end;
  59809. procedure TPORTB_LATB.setLATB12; inline;
  59810. begin
  59811. pTDefRegMap(@Self)^.&set := $00001000;
  59812. end;
  59813. procedure TPORTB_LATB.clearLATB12; inline;
  59814. begin
  59815. pTDefRegMap(@Self)^.clr := $00001000;
  59816. end;
  59817. procedure TPORTB_LATB.setLATB12(thebits : TBits_1); inline;
  59818. begin
  59819. if thebits = 0 then
  59820. pTDefRegMap(@Self)^.clr := $00001000
  59821. else
  59822. pTDefRegMap(@Self)^.&set := $00001000;
  59823. end;
  59824. function TPORTB_LATB.getLATB12 : TBits_1; inline;
  59825. begin
  59826. getLATB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  59827. end;
  59828. procedure TPORTB_LATB.setLATB13; inline;
  59829. begin
  59830. pTDefRegMap(@Self)^.&set := $00002000;
  59831. end;
  59832. procedure TPORTB_LATB.clearLATB13; inline;
  59833. begin
  59834. pTDefRegMap(@Self)^.clr := $00002000;
  59835. end;
  59836. procedure TPORTB_LATB.setLATB13(thebits : TBits_1); inline;
  59837. begin
  59838. if thebits = 0 then
  59839. pTDefRegMap(@Self)^.clr := $00002000
  59840. else
  59841. pTDefRegMap(@Self)^.&set := $00002000;
  59842. end;
  59843. function TPORTB_LATB.getLATB13 : TBits_1; inline;
  59844. begin
  59845. getLATB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  59846. end;
  59847. procedure TPORTB_LATB.setLATB14; inline;
  59848. begin
  59849. pTDefRegMap(@Self)^.&set := $00004000;
  59850. end;
  59851. procedure TPORTB_LATB.clearLATB14; inline;
  59852. begin
  59853. pTDefRegMap(@Self)^.clr := $00004000;
  59854. end;
  59855. procedure TPORTB_LATB.setLATB14(thebits : TBits_1); inline;
  59856. begin
  59857. if thebits = 0 then
  59858. pTDefRegMap(@Self)^.clr := $00004000
  59859. else
  59860. pTDefRegMap(@Self)^.&set := $00004000;
  59861. end;
  59862. function TPORTB_LATB.getLATB14 : TBits_1; inline;
  59863. begin
  59864. getLATB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  59865. end;
  59866. procedure TPORTB_LATB.setLATB15; inline;
  59867. begin
  59868. pTDefRegMap(@Self)^.&set := $00008000;
  59869. end;
  59870. procedure TPORTB_LATB.clearLATB15; inline;
  59871. begin
  59872. pTDefRegMap(@Self)^.clr := $00008000;
  59873. end;
  59874. procedure TPORTB_LATB.setLATB15(thebits : TBits_1); inline;
  59875. begin
  59876. if thebits = 0 then
  59877. pTDefRegMap(@Self)^.clr := $00008000
  59878. else
  59879. pTDefRegMap(@Self)^.&set := $00008000;
  59880. end;
  59881. function TPORTB_LATB.getLATB15 : TBits_1; inline;
  59882. begin
  59883. getLATB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  59884. end;
  59885. procedure TPORTB_LATB.setw(thebits : TBits_32); inline;
  59886. begin
  59887. pTDefRegMap(@Self)^.val := thebits;
  59888. end;
  59889. function TPORTB_LATB.getw : TBits_32; inline;
  59890. begin
  59891. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  59892. end;
  59893. procedure TPORTB_ODCB.setODCB0; inline;
  59894. begin
  59895. pTDefRegMap(@Self)^.&set := $00000001;
  59896. end;
  59897. procedure TPORTB_ODCB.clearODCB0; inline;
  59898. begin
  59899. pTDefRegMap(@Self)^.clr := $00000001;
  59900. end;
  59901. procedure TPORTB_ODCB.setODCB0(thebits : TBits_1); inline;
  59902. begin
  59903. if thebits = 0 then
  59904. pTDefRegMap(@Self)^.clr := $00000001
  59905. else
  59906. pTDefRegMap(@Self)^.&set := $00000001;
  59907. end;
  59908. function TPORTB_ODCB.getODCB0 : TBits_1; inline;
  59909. begin
  59910. getODCB0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  59911. end;
  59912. procedure TPORTB_ODCB.setODCB1; inline;
  59913. begin
  59914. pTDefRegMap(@Self)^.&set := $00000002;
  59915. end;
  59916. procedure TPORTB_ODCB.clearODCB1; inline;
  59917. begin
  59918. pTDefRegMap(@Self)^.clr := $00000002;
  59919. end;
  59920. procedure TPORTB_ODCB.setODCB1(thebits : TBits_1); inline;
  59921. begin
  59922. if thebits = 0 then
  59923. pTDefRegMap(@Self)^.clr := $00000002
  59924. else
  59925. pTDefRegMap(@Self)^.&set := $00000002;
  59926. end;
  59927. function TPORTB_ODCB.getODCB1 : TBits_1; inline;
  59928. begin
  59929. getODCB1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  59930. end;
  59931. procedure TPORTB_ODCB.setODCB2; inline;
  59932. begin
  59933. pTDefRegMap(@Self)^.&set := $00000004;
  59934. end;
  59935. procedure TPORTB_ODCB.clearODCB2; inline;
  59936. begin
  59937. pTDefRegMap(@Self)^.clr := $00000004;
  59938. end;
  59939. procedure TPORTB_ODCB.setODCB2(thebits : TBits_1); inline;
  59940. begin
  59941. if thebits = 0 then
  59942. pTDefRegMap(@Self)^.clr := $00000004
  59943. else
  59944. pTDefRegMap(@Self)^.&set := $00000004;
  59945. end;
  59946. function TPORTB_ODCB.getODCB2 : TBits_1; inline;
  59947. begin
  59948. getODCB2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  59949. end;
  59950. procedure TPORTB_ODCB.setODCB3; inline;
  59951. begin
  59952. pTDefRegMap(@Self)^.&set := $00000008;
  59953. end;
  59954. procedure TPORTB_ODCB.clearODCB3; inline;
  59955. begin
  59956. pTDefRegMap(@Self)^.clr := $00000008;
  59957. end;
  59958. procedure TPORTB_ODCB.setODCB3(thebits : TBits_1); inline;
  59959. begin
  59960. if thebits = 0 then
  59961. pTDefRegMap(@Self)^.clr := $00000008
  59962. else
  59963. pTDefRegMap(@Self)^.&set := $00000008;
  59964. end;
  59965. function TPORTB_ODCB.getODCB3 : TBits_1; inline;
  59966. begin
  59967. getODCB3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  59968. end;
  59969. procedure TPORTB_ODCB.setODCB4; inline;
  59970. begin
  59971. pTDefRegMap(@Self)^.&set := $00000010;
  59972. end;
  59973. procedure TPORTB_ODCB.clearODCB4; inline;
  59974. begin
  59975. pTDefRegMap(@Self)^.clr := $00000010;
  59976. end;
  59977. procedure TPORTB_ODCB.setODCB4(thebits : TBits_1); inline;
  59978. begin
  59979. if thebits = 0 then
  59980. pTDefRegMap(@Self)^.clr := $00000010
  59981. else
  59982. pTDefRegMap(@Self)^.&set := $00000010;
  59983. end;
  59984. function TPORTB_ODCB.getODCB4 : TBits_1; inline;
  59985. begin
  59986. getODCB4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  59987. end;
  59988. procedure TPORTB_ODCB.setODCB5; inline;
  59989. begin
  59990. pTDefRegMap(@Self)^.&set := $00000020;
  59991. end;
  59992. procedure TPORTB_ODCB.clearODCB5; inline;
  59993. begin
  59994. pTDefRegMap(@Self)^.clr := $00000020;
  59995. end;
  59996. procedure TPORTB_ODCB.setODCB5(thebits : TBits_1); inline;
  59997. begin
  59998. if thebits = 0 then
  59999. pTDefRegMap(@Self)^.clr := $00000020
  60000. else
  60001. pTDefRegMap(@Self)^.&set := $00000020;
  60002. end;
  60003. function TPORTB_ODCB.getODCB5 : TBits_1; inline;
  60004. begin
  60005. getODCB5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60006. end;
  60007. procedure TPORTB_ODCB.setODCB6; inline;
  60008. begin
  60009. pTDefRegMap(@Self)^.&set := $00000040;
  60010. end;
  60011. procedure TPORTB_ODCB.clearODCB6; inline;
  60012. begin
  60013. pTDefRegMap(@Self)^.clr := $00000040;
  60014. end;
  60015. procedure TPORTB_ODCB.setODCB6(thebits : TBits_1); inline;
  60016. begin
  60017. if thebits = 0 then
  60018. pTDefRegMap(@Self)^.clr := $00000040
  60019. else
  60020. pTDefRegMap(@Self)^.&set := $00000040;
  60021. end;
  60022. function TPORTB_ODCB.getODCB6 : TBits_1; inline;
  60023. begin
  60024. getODCB6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60025. end;
  60026. procedure TPORTB_ODCB.setODCB7; inline;
  60027. begin
  60028. pTDefRegMap(@Self)^.&set := $00000080;
  60029. end;
  60030. procedure TPORTB_ODCB.clearODCB7; inline;
  60031. begin
  60032. pTDefRegMap(@Self)^.clr := $00000080;
  60033. end;
  60034. procedure TPORTB_ODCB.setODCB7(thebits : TBits_1); inline;
  60035. begin
  60036. if thebits = 0 then
  60037. pTDefRegMap(@Self)^.clr := $00000080
  60038. else
  60039. pTDefRegMap(@Self)^.&set := $00000080;
  60040. end;
  60041. function TPORTB_ODCB.getODCB7 : TBits_1; inline;
  60042. begin
  60043. getODCB7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60044. end;
  60045. procedure TPORTB_ODCB.setODCB8; inline;
  60046. begin
  60047. pTDefRegMap(@Self)^.&set := $00000100;
  60048. end;
  60049. procedure TPORTB_ODCB.clearODCB8; inline;
  60050. begin
  60051. pTDefRegMap(@Self)^.clr := $00000100;
  60052. end;
  60053. procedure TPORTB_ODCB.setODCB8(thebits : TBits_1); inline;
  60054. begin
  60055. if thebits = 0 then
  60056. pTDefRegMap(@Self)^.clr := $00000100
  60057. else
  60058. pTDefRegMap(@Self)^.&set := $00000100;
  60059. end;
  60060. function TPORTB_ODCB.getODCB8 : TBits_1; inline;
  60061. begin
  60062. getODCB8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  60063. end;
  60064. procedure TPORTB_ODCB.setODCB9; inline;
  60065. begin
  60066. pTDefRegMap(@Self)^.&set := $00000200;
  60067. end;
  60068. procedure TPORTB_ODCB.clearODCB9; inline;
  60069. begin
  60070. pTDefRegMap(@Self)^.clr := $00000200;
  60071. end;
  60072. procedure TPORTB_ODCB.setODCB9(thebits : TBits_1); inline;
  60073. begin
  60074. if thebits = 0 then
  60075. pTDefRegMap(@Self)^.clr := $00000200
  60076. else
  60077. pTDefRegMap(@Self)^.&set := $00000200;
  60078. end;
  60079. function TPORTB_ODCB.getODCB9 : TBits_1; inline;
  60080. begin
  60081. getODCB9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  60082. end;
  60083. procedure TPORTB_ODCB.setODCB10; inline;
  60084. begin
  60085. pTDefRegMap(@Self)^.&set := $00000400;
  60086. end;
  60087. procedure TPORTB_ODCB.clearODCB10; inline;
  60088. begin
  60089. pTDefRegMap(@Self)^.clr := $00000400;
  60090. end;
  60091. procedure TPORTB_ODCB.setODCB10(thebits : TBits_1); inline;
  60092. begin
  60093. if thebits = 0 then
  60094. pTDefRegMap(@Self)^.clr := $00000400
  60095. else
  60096. pTDefRegMap(@Self)^.&set := $00000400;
  60097. end;
  60098. function TPORTB_ODCB.getODCB10 : TBits_1; inline;
  60099. begin
  60100. getODCB10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  60101. end;
  60102. procedure TPORTB_ODCB.setODCB11; inline;
  60103. begin
  60104. pTDefRegMap(@Self)^.&set := $00000800;
  60105. end;
  60106. procedure TPORTB_ODCB.clearODCB11; inline;
  60107. begin
  60108. pTDefRegMap(@Self)^.clr := $00000800;
  60109. end;
  60110. procedure TPORTB_ODCB.setODCB11(thebits : TBits_1); inline;
  60111. begin
  60112. if thebits = 0 then
  60113. pTDefRegMap(@Self)^.clr := $00000800
  60114. else
  60115. pTDefRegMap(@Self)^.&set := $00000800;
  60116. end;
  60117. function TPORTB_ODCB.getODCB11 : TBits_1; inline;
  60118. begin
  60119. getODCB11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  60120. end;
  60121. procedure TPORTB_ODCB.setODCB12; inline;
  60122. begin
  60123. pTDefRegMap(@Self)^.&set := $00001000;
  60124. end;
  60125. procedure TPORTB_ODCB.clearODCB12; inline;
  60126. begin
  60127. pTDefRegMap(@Self)^.clr := $00001000;
  60128. end;
  60129. procedure TPORTB_ODCB.setODCB12(thebits : TBits_1); inline;
  60130. begin
  60131. if thebits = 0 then
  60132. pTDefRegMap(@Self)^.clr := $00001000
  60133. else
  60134. pTDefRegMap(@Self)^.&set := $00001000;
  60135. end;
  60136. function TPORTB_ODCB.getODCB12 : TBits_1; inline;
  60137. begin
  60138. getODCB12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  60139. end;
  60140. procedure TPORTB_ODCB.setODCB13; inline;
  60141. begin
  60142. pTDefRegMap(@Self)^.&set := $00002000;
  60143. end;
  60144. procedure TPORTB_ODCB.clearODCB13; inline;
  60145. begin
  60146. pTDefRegMap(@Self)^.clr := $00002000;
  60147. end;
  60148. procedure TPORTB_ODCB.setODCB13(thebits : TBits_1); inline;
  60149. begin
  60150. if thebits = 0 then
  60151. pTDefRegMap(@Self)^.clr := $00002000
  60152. else
  60153. pTDefRegMap(@Self)^.&set := $00002000;
  60154. end;
  60155. function TPORTB_ODCB.getODCB13 : TBits_1; inline;
  60156. begin
  60157. getODCB13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  60158. end;
  60159. procedure TPORTB_ODCB.setODCB14; inline;
  60160. begin
  60161. pTDefRegMap(@Self)^.&set := $00004000;
  60162. end;
  60163. procedure TPORTB_ODCB.clearODCB14; inline;
  60164. begin
  60165. pTDefRegMap(@Self)^.clr := $00004000;
  60166. end;
  60167. procedure TPORTB_ODCB.setODCB14(thebits : TBits_1); inline;
  60168. begin
  60169. if thebits = 0 then
  60170. pTDefRegMap(@Self)^.clr := $00004000
  60171. else
  60172. pTDefRegMap(@Self)^.&set := $00004000;
  60173. end;
  60174. function TPORTB_ODCB.getODCB14 : TBits_1; inline;
  60175. begin
  60176. getODCB14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60177. end;
  60178. procedure TPORTB_ODCB.setODCB15; inline;
  60179. begin
  60180. pTDefRegMap(@Self)^.&set := $00008000;
  60181. end;
  60182. procedure TPORTB_ODCB.clearODCB15; inline;
  60183. begin
  60184. pTDefRegMap(@Self)^.clr := $00008000;
  60185. end;
  60186. procedure TPORTB_ODCB.setODCB15(thebits : TBits_1); inline;
  60187. begin
  60188. if thebits = 0 then
  60189. pTDefRegMap(@Self)^.clr := $00008000
  60190. else
  60191. pTDefRegMap(@Self)^.&set := $00008000;
  60192. end;
  60193. function TPORTB_ODCB.getODCB15 : TBits_1; inline;
  60194. begin
  60195. getODCB15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60196. end;
  60197. procedure TPORTB_ODCB.setw(thebits : TBits_32); inline;
  60198. begin
  60199. pTDefRegMap(@Self)^.val := thebits;
  60200. end;
  60201. function TPORTB_ODCB.getw : TBits_32; inline;
  60202. begin
  60203. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60204. end;
  60205. procedure TPORTC_TRISC.setTRISC1; inline;
  60206. begin
  60207. pTDefRegMap(@Self)^.&set := $00000002;
  60208. end;
  60209. procedure TPORTC_TRISC.clearTRISC1; inline;
  60210. begin
  60211. pTDefRegMap(@Self)^.clr := $00000002;
  60212. end;
  60213. procedure TPORTC_TRISC.setTRISC1(thebits : TBits_1); inline;
  60214. begin
  60215. if thebits = 0 then
  60216. pTDefRegMap(@Self)^.clr := $00000002
  60217. else
  60218. pTDefRegMap(@Self)^.&set := $00000002;
  60219. end;
  60220. function TPORTC_TRISC.getTRISC1 : TBits_1; inline;
  60221. begin
  60222. getTRISC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60223. end;
  60224. procedure TPORTC_TRISC.setTRISC2; inline;
  60225. begin
  60226. pTDefRegMap(@Self)^.&set := $00000004;
  60227. end;
  60228. procedure TPORTC_TRISC.clearTRISC2; inline;
  60229. begin
  60230. pTDefRegMap(@Self)^.clr := $00000004;
  60231. end;
  60232. procedure TPORTC_TRISC.setTRISC2(thebits : TBits_1); inline;
  60233. begin
  60234. if thebits = 0 then
  60235. pTDefRegMap(@Self)^.clr := $00000004
  60236. else
  60237. pTDefRegMap(@Self)^.&set := $00000004;
  60238. end;
  60239. function TPORTC_TRISC.getTRISC2 : TBits_1; inline;
  60240. begin
  60241. getTRISC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60242. end;
  60243. procedure TPORTC_TRISC.setTRISC3; inline;
  60244. begin
  60245. pTDefRegMap(@Self)^.&set := $00000008;
  60246. end;
  60247. procedure TPORTC_TRISC.clearTRISC3; inline;
  60248. begin
  60249. pTDefRegMap(@Self)^.clr := $00000008;
  60250. end;
  60251. procedure TPORTC_TRISC.setTRISC3(thebits : TBits_1); inline;
  60252. begin
  60253. if thebits = 0 then
  60254. pTDefRegMap(@Self)^.clr := $00000008
  60255. else
  60256. pTDefRegMap(@Self)^.&set := $00000008;
  60257. end;
  60258. function TPORTC_TRISC.getTRISC3 : TBits_1; inline;
  60259. begin
  60260. getTRISC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60261. end;
  60262. procedure TPORTC_TRISC.setTRISC4; inline;
  60263. begin
  60264. pTDefRegMap(@Self)^.&set := $00000010;
  60265. end;
  60266. procedure TPORTC_TRISC.clearTRISC4; inline;
  60267. begin
  60268. pTDefRegMap(@Self)^.clr := $00000010;
  60269. end;
  60270. procedure TPORTC_TRISC.setTRISC4(thebits : TBits_1); inline;
  60271. begin
  60272. if thebits = 0 then
  60273. pTDefRegMap(@Self)^.clr := $00000010
  60274. else
  60275. pTDefRegMap(@Self)^.&set := $00000010;
  60276. end;
  60277. function TPORTC_TRISC.getTRISC4 : TBits_1; inline;
  60278. begin
  60279. getTRISC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60280. end;
  60281. procedure TPORTC_TRISC.setTRISC12; inline;
  60282. begin
  60283. pTDefRegMap(@Self)^.&set := $00001000;
  60284. end;
  60285. procedure TPORTC_TRISC.clearTRISC12; inline;
  60286. begin
  60287. pTDefRegMap(@Self)^.clr := $00001000;
  60288. end;
  60289. procedure TPORTC_TRISC.setTRISC12(thebits : TBits_1); inline;
  60290. begin
  60291. if thebits = 0 then
  60292. pTDefRegMap(@Self)^.clr := $00001000
  60293. else
  60294. pTDefRegMap(@Self)^.&set := $00001000;
  60295. end;
  60296. function TPORTC_TRISC.getTRISC12 : TBits_1; inline;
  60297. begin
  60298. getTRISC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  60299. end;
  60300. procedure TPORTC_TRISC.setTRISC13; inline;
  60301. begin
  60302. pTDefRegMap(@Self)^.&set := $00002000;
  60303. end;
  60304. procedure TPORTC_TRISC.clearTRISC13; inline;
  60305. begin
  60306. pTDefRegMap(@Self)^.clr := $00002000;
  60307. end;
  60308. procedure TPORTC_TRISC.setTRISC13(thebits : TBits_1); inline;
  60309. begin
  60310. if thebits = 0 then
  60311. pTDefRegMap(@Self)^.clr := $00002000
  60312. else
  60313. pTDefRegMap(@Self)^.&set := $00002000;
  60314. end;
  60315. function TPORTC_TRISC.getTRISC13 : TBits_1; inline;
  60316. begin
  60317. getTRISC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  60318. end;
  60319. procedure TPORTC_TRISC.setTRISC14; inline;
  60320. begin
  60321. pTDefRegMap(@Self)^.&set := $00004000;
  60322. end;
  60323. procedure TPORTC_TRISC.clearTRISC14; inline;
  60324. begin
  60325. pTDefRegMap(@Self)^.clr := $00004000;
  60326. end;
  60327. procedure TPORTC_TRISC.setTRISC14(thebits : TBits_1); inline;
  60328. begin
  60329. if thebits = 0 then
  60330. pTDefRegMap(@Self)^.clr := $00004000
  60331. else
  60332. pTDefRegMap(@Self)^.&set := $00004000;
  60333. end;
  60334. function TPORTC_TRISC.getTRISC14 : TBits_1; inline;
  60335. begin
  60336. getTRISC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60337. end;
  60338. procedure TPORTC_TRISC.setTRISC15; inline;
  60339. begin
  60340. pTDefRegMap(@Self)^.&set := $00008000;
  60341. end;
  60342. procedure TPORTC_TRISC.clearTRISC15; inline;
  60343. begin
  60344. pTDefRegMap(@Self)^.clr := $00008000;
  60345. end;
  60346. procedure TPORTC_TRISC.setTRISC15(thebits : TBits_1); inline;
  60347. begin
  60348. if thebits = 0 then
  60349. pTDefRegMap(@Self)^.clr := $00008000
  60350. else
  60351. pTDefRegMap(@Self)^.&set := $00008000;
  60352. end;
  60353. function TPORTC_TRISC.getTRISC15 : TBits_1; inline;
  60354. begin
  60355. getTRISC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60356. end;
  60357. procedure TPORTC_TRISC.setw(thebits : TBits_32); inline;
  60358. begin
  60359. pTDefRegMap(@Self)^.val := thebits;
  60360. end;
  60361. function TPORTC_TRISC.getw : TBits_32; inline;
  60362. begin
  60363. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60364. end;
  60365. procedure TPORTC_PORTC.setRC1; inline;
  60366. begin
  60367. pTDefRegMap(@Self)^.&set := $00000002;
  60368. end;
  60369. procedure TPORTC_PORTC.clearRC1; inline;
  60370. begin
  60371. pTDefRegMap(@Self)^.clr := $00000002;
  60372. end;
  60373. procedure TPORTC_PORTC.setRC1(thebits : TBits_1); inline;
  60374. begin
  60375. if thebits = 0 then
  60376. pTDefRegMap(@Self)^.clr := $00000002
  60377. else
  60378. pTDefRegMap(@Self)^.&set := $00000002;
  60379. end;
  60380. function TPORTC_PORTC.getRC1 : TBits_1; inline;
  60381. begin
  60382. getRC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60383. end;
  60384. procedure TPORTC_PORTC.setRC2; inline;
  60385. begin
  60386. pTDefRegMap(@Self)^.&set := $00000004;
  60387. end;
  60388. procedure TPORTC_PORTC.clearRC2; inline;
  60389. begin
  60390. pTDefRegMap(@Self)^.clr := $00000004;
  60391. end;
  60392. procedure TPORTC_PORTC.setRC2(thebits : TBits_1); inline;
  60393. begin
  60394. if thebits = 0 then
  60395. pTDefRegMap(@Self)^.clr := $00000004
  60396. else
  60397. pTDefRegMap(@Self)^.&set := $00000004;
  60398. end;
  60399. function TPORTC_PORTC.getRC2 : TBits_1; inline;
  60400. begin
  60401. getRC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60402. end;
  60403. procedure TPORTC_PORTC.setRC3; inline;
  60404. begin
  60405. pTDefRegMap(@Self)^.&set := $00000008;
  60406. end;
  60407. procedure TPORTC_PORTC.clearRC3; inline;
  60408. begin
  60409. pTDefRegMap(@Self)^.clr := $00000008;
  60410. end;
  60411. procedure TPORTC_PORTC.setRC3(thebits : TBits_1); inline;
  60412. begin
  60413. if thebits = 0 then
  60414. pTDefRegMap(@Self)^.clr := $00000008
  60415. else
  60416. pTDefRegMap(@Self)^.&set := $00000008;
  60417. end;
  60418. function TPORTC_PORTC.getRC3 : TBits_1; inline;
  60419. begin
  60420. getRC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60421. end;
  60422. procedure TPORTC_PORTC.setRC4; inline;
  60423. begin
  60424. pTDefRegMap(@Self)^.&set := $00000010;
  60425. end;
  60426. procedure TPORTC_PORTC.clearRC4; inline;
  60427. begin
  60428. pTDefRegMap(@Self)^.clr := $00000010;
  60429. end;
  60430. procedure TPORTC_PORTC.setRC4(thebits : TBits_1); inline;
  60431. begin
  60432. if thebits = 0 then
  60433. pTDefRegMap(@Self)^.clr := $00000010
  60434. else
  60435. pTDefRegMap(@Self)^.&set := $00000010;
  60436. end;
  60437. function TPORTC_PORTC.getRC4 : TBits_1; inline;
  60438. begin
  60439. getRC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60440. end;
  60441. procedure TPORTC_PORTC.setRC12; inline;
  60442. begin
  60443. pTDefRegMap(@Self)^.&set := $00001000;
  60444. end;
  60445. procedure TPORTC_PORTC.clearRC12; inline;
  60446. begin
  60447. pTDefRegMap(@Self)^.clr := $00001000;
  60448. end;
  60449. procedure TPORTC_PORTC.setRC12(thebits : TBits_1); inline;
  60450. begin
  60451. if thebits = 0 then
  60452. pTDefRegMap(@Self)^.clr := $00001000
  60453. else
  60454. pTDefRegMap(@Self)^.&set := $00001000;
  60455. end;
  60456. function TPORTC_PORTC.getRC12 : TBits_1; inline;
  60457. begin
  60458. getRC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  60459. end;
  60460. procedure TPORTC_PORTC.setRC13; inline;
  60461. begin
  60462. pTDefRegMap(@Self)^.&set := $00002000;
  60463. end;
  60464. procedure TPORTC_PORTC.clearRC13; inline;
  60465. begin
  60466. pTDefRegMap(@Self)^.clr := $00002000;
  60467. end;
  60468. procedure TPORTC_PORTC.setRC13(thebits : TBits_1); inline;
  60469. begin
  60470. if thebits = 0 then
  60471. pTDefRegMap(@Self)^.clr := $00002000
  60472. else
  60473. pTDefRegMap(@Self)^.&set := $00002000;
  60474. end;
  60475. function TPORTC_PORTC.getRC13 : TBits_1; inline;
  60476. begin
  60477. getRC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  60478. end;
  60479. procedure TPORTC_PORTC.setRC14; inline;
  60480. begin
  60481. pTDefRegMap(@Self)^.&set := $00004000;
  60482. end;
  60483. procedure TPORTC_PORTC.clearRC14; inline;
  60484. begin
  60485. pTDefRegMap(@Self)^.clr := $00004000;
  60486. end;
  60487. procedure TPORTC_PORTC.setRC14(thebits : TBits_1); inline;
  60488. begin
  60489. if thebits = 0 then
  60490. pTDefRegMap(@Self)^.clr := $00004000
  60491. else
  60492. pTDefRegMap(@Self)^.&set := $00004000;
  60493. end;
  60494. function TPORTC_PORTC.getRC14 : TBits_1; inline;
  60495. begin
  60496. getRC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60497. end;
  60498. procedure TPORTC_PORTC.setRC15; inline;
  60499. begin
  60500. pTDefRegMap(@Self)^.&set := $00008000;
  60501. end;
  60502. procedure TPORTC_PORTC.clearRC15; inline;
  60503. begin
  60504. pTDefRegMap(@Self)^.clr := $00008000;
  60505. end;
  60506. procedure TPORTC_PORTC.setRC15(thebits : TBits_1); inline;
  60507. begin
  60508. if thebits = 0 then
  60509. pTDefRegMap(@Self)^.clr := $00008000
  60510. else
  60511. pTDefRegMap(@Self)^.&set := $00008000;
  60512. end;
  60513. function TPORTC_PORTC.getRC15 : TBits_1; inline;
  60514. begin
  60515. getRC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60516. end;
  60517. procedure TPORTC_PORTC.setw(thebits : TBits_32); inline;
  60518. begin
  60519. pTDefRegMap(@Self)^.val := thebits;
  60520. end;
  60521. function TPORTC_PORTC.getw : TBits_32; inline;
  60522. begin
  60523. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60524. end;
  60525. procedure TPORTC_LATC.setLATC1; inline;
  60526. begin
  60527. pTDefRegMap(@Self)^.&set := $00000002;
  60528. end;
  60529. procedure TPORTC_LATC.clearLATC1; inline;
  60530. begin
  60531. pTDefRegMap(@Self)^.clr := $00000002;
  60532. end;
  60533. procedure TPORTC_LATC.setLATC1(thebits : TBits_1); inline;
  60534. begin
  60535. if thebits = 0 then
  60536. pTDefRegMap(@Self)^.clr := $00000002
  60537. else
  60538. pTDefRegMap(@Self)^.&set := $00000002;
  60539. end;
  60540. function TPORTC_LATC.getLATC1 : TBits_1; inline;
  60541. begin
  60542. getLATC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60543. end;
  60544. procedure TPORTC_LATC.setLATC2; inline;
  60545. begin
  60546. pTDefRegMap(@Self)^.&set := $00000004;
  60547. end;
  60548. procedure TPORTC_LATC.clearLATC2; inline;
  60549. begin
  60550. pTDefRegMap(@Self)^.clr := $00000004;
  60551. end;
  60552. procedure TPORTC_LATC.setLATC2(thebits : TBits_1); inline;
  60553. begin
  60554. if thebits = 0 then
  60555. pTDefRegMap(@Self)^.clr := $00000004
  60556. else
  60557. pTDefRegMap(@Self)^.&set := $00000004;
  60558. end;
  60559. function TPORTC_LATC.getLATC2 : TBits_1; inline;
  60560. begin
  60561. getLATC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60562. end;
  60563. procedure TPORTC_LATC.setLATC3; inline;
  60564. begin
  60565. pTDefRegMap(@Self)^.&set := $00000008;
  60566. end;
  60567. procedure TPORTC_LATC.clearLATC3; inline;
  60568. begin
  60569. pTDefRegMap(@Self)^.clr := $00000008;
  60570. end;
  60571. procedure TPORTC_LATC.setLATC3(thebits : TBits_1); inline;
  60572. begin
  60573. if thebits = 0 then
  60574. pTDefRegMap(@Self)^.clr := $00000008
  60575. else
  60576. pTDefRegMap(@Self)^.&set := $00000008;
  60577. end;
  60578. function TPORTC_LATC.getLATC3 : TBits_1; inline;
  60579. begin
  60580. getLATC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60581. end;
  60582. procedure TPORTC_LATC.setLATC4; inline;
  60583. begin
  60584. pTDefRegMap(@Self)^.&set := $00000010;
  60585. end;
  60586. procedure TPORTC_LATC.clearLATC4; inline;
  60587. begin
  60588. pTDefRegMap(@Self)^.clr := $00000010;
  60589. end;
  60590. procedure TPORTC_LATC.setLATC4(thebits : TBits_1); inline;
  60591. begin
  60592. if thebits = 0 then
  60593. pTDefRegMap(@Self)^.clr := $00000010
  60594. else
  60595. pTDefRegMap(@Self)^.&set := $00000010;
  60596. end;
  60597. function TPORTC_LATC.getLATC4 : TBits_1; inline;
  60598. begin
  60599. getLATC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60600. end;
  60601. procedure TPORTC_LATC.setLATC12; inline;
  60602. begin
  60603. pTDefRegMap(@Self)^.&set := $00001000;
  60604. end;
  60605. procedure TPORTC_LATC.clearLATC12; inline;
  60606. begin
  60607. pTDefRegMap(@Self)^.clr := $00001000;
  60608. end;
  60609. procedure TPORTC_LATC.setLATC12(thebits : TBits_1); inline;
  60610. begin
  60611. if thebits = 0 then
  60612. pTDefRegMap(@Self)^.clr := $00001000
  60613. else
  60614. pTDefRegMap(@Self)^.&set := $00001000;
  60615. end;
  60616. function TPORTC_LATC.getLATC12 : TBits_1; inline;
  60617. begin
  60618. getLATC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  60619. end;
  60620. procedure TPORTC_LATC.setLATC13; inline;
  60621. begin
  60622. pTDefRegMap(@Self)^.&set := $00002000;
  60623. end;
  60624. procedure TPORTC_LATC.clearLATC13; inline;
  60625. begin
  60626. pTDefRegMap(@Self)^.clr := $00002000;
  60627. end;
  60628. procedure TPORTC_LATC.setLATC13(thebits : TBits_1); inline;
  60629. begin
  60630. if thebits = 0 then
  60631. pTDefRegMap(@Self)^.clr := $00002000
  60632. else
  60633. pTDefRegMap(@Self)^.&set := $00002000;
  60634. end;
  60635. function TPORTC_LATC.getLATC13 : TBits_1; inline;
  60636. begin
  60637. getLATC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  60638. end;
  60639. procedure TPORTC_LATC.setLATC14; inline;
  60640. begin
  60641. pTDefRegMap(@Self)^.&set := $00004000;
  60642. end;
  60643. procedure TPORTC_LATC.clearLATC14; inline;
  60644. begin
  60645. pTDefRegMap(@Self)^.clr := $00004000;
  60646. end;
  60647. procedure TPORTC_LATC.setLATC14(thebits : TBits_1); inline;
  60648. begin
  60649. if thebits = 0 then
  60650. pTDefRegMap(@Self)^.clr := $00004000
  60651. else
  60652. pTDefRegMap(@Self)^.&set := $00004000;
  60653. end;
  60654. function TPORTC_LATC.getLATC14 : TBits_1; inline;
  60655. begin
  60656. getLATC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60657. end;
  60658. procedure TPORTC_LATC.setLATC15; inline;
  60659. begin
  60660. pTDefRegMap(@Self)^.&set := $00008000;
  60661. end;
  60662. procedure TPORTC_LATC.clearLATC15; inline;
  60663. begin
  60664. pTDefRegMap(@Self)^.clr := $00008000;
  60665. end;
  60666. procedure TPORTC_LATC.setLATC15(thebits : TBits_1); inline;
  60667. begin
  60668. if thebits = 0 then
  60669. pTDefRegMap(@Self)^.clr := $00008000
  60670. else
  60671. pTDefRegMap(@Self)^.&set := $00008000;
  60672. end;
  60673. function TPORTC_LATC.getLATC15 : TBits_1; inline;
  60674. begin
  60675. getLATC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60676. end;
  60677. procedure TPORTC_LATC.setw(thebits : TBits_32); inline;
  60678. begin
  60679. pTDefRegMap(@Self)^.val := thebits;
  60680. end;
  60681. function TPORTC_LATC.getw : TBits_32; inline;
  60682. begin
  60683. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60684. end;
  60685. procedure TPORTC_ODCC.setODCC1; inline;
  60686. begin
  60687. pTDefRegMap(@Self)^.&set := $00000002;
  60688. end;
  60689. procedure TPORTC_ODCC.clearODCC1; inline;
  60690. begin
  60691. pTDefRegMap(@Self)^.clr := $00000002;
  60692. end;
  60693. procedure TPORTC_ODCC.setODCC1(thebits : TBits_1); inline;
  60694. begin
  60695. if thebits = 0 then
  60696. pTDefRegMap(@Self)^.clr := $00000002
  60697. else
  60698. pTDefRegMap(@Self)^.&set := $00000002;
  60699. end;
  60700. function TPORTC_ODCC.getODCC1 : TBits_1; inline;
  60701. begin
  60702. getODCC1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60703. end;
  60704. procedure TPORTC_ODCC.setODCC2; inline;
  60705. begin
  60706. pTDefRegMap(@Self)^.&set := $00000004;
  60707. end;
  60708. procedure TPORTC_ODCC.clearODCC2; inline;
  60709. begin
  60710. pTDefRegMap(@Self)^.clr := $00000004;
  60711. end;
  60712. procedure TPORTC_ODCC.setODCC2(thebits : TBits_1); inline;
  60713. begin
  60714. if thebits = 0 then
  60715. pTDefRegMap(@Self)^.clr := $00000004
  60716. else
  60717. pTDefRegMap(@Self)^.&set := $00000004;
  60718. end;
  60719. function TPORTC_ODCC.getODCC2 : TBits_1; inline;
  60720. begin
  60721. getODCC2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60722. end;
  60723. procedure TPORTC_ODCC.setODCC3; inline;
  60724. begin
  60725. pTDefRegMap(@Self)^.&set := $00000008;
  60726. end;
  60727. procedure TPORTC_ODCC.clearODCC3; inline;
  60728. begin
  60729. pTDefRegMap(@Self)^.clr := $00000008;
  60730. end;
  60731. procedure TPORTC_ODCC.setODCC3(thebits : TBits_1); inline;
  60732. begin
  60733. if thebits = 0 then
  60734. pTDefRegMap(@Self)^.clr := $00000008
  60735. else
  60736. pTDefRegMap(@Self)^.&set := $00000008;
  60737. end;
  60738. function TPORTC_ODCC.getODCC3 : TBits_1; inline;
  60739. begin
  60740. getODCC3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60741. end;
  60742. procedure TPORTC_ODCC.setODCC4; inline;
  60743. begin
  60744. pTDefRegMap(@Self)^.&set := $00000010;
  60745. end;
  60746. procedure TPORTC_ODCC.clearODCC4; inline;
  60747. begin
  60748. pTDefRegMap(@Self)^.clr := $00000010;
  60749. end;
  60750. procedure TPORTC_ODCC.setODCC4(thebits : TBits_1); inline;
  60751. begin
  60752. if thebits = 0 then
  60753. pTDefRegMap(@Self)^.clr := $00000010
  60754. else
  60755. pTDefRegMap(@Self)^.&set := $00000010;
  60756. end;
  60757. function TPORTC_ODCC.getODCC4 : TBits_1; inline;
  60758. begin
  60759. getODCC4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60760. end;
  60761. procedure TPORTC_ODCC.setODCC12; inline;
  60762. begin
  60763. pTDefRegMap(@Self)^.&set := $00001000;
  60764. end;
  60765. procedure TPORTC_ODCC.clearODCC12; inline;
  60766. begin
  60767. pTDefRegMap(@Self)^.clr := $00001000;
  60768. end;
  60769. procedure TPORTC_ODCC.setODCC12(thebits : TBits_1); inline;
  60770. begin
  60771. if thebits = 0 then
  60772. pTDefRegMap(@Self)^.clr := $00001000
  60773. else
  60774. pTDefRegMap(@Self)^.&set := $00001000;
  60775. end;
  60776. function TPORTC_ODCC.getODCC12 : TBits_1; inline;
  60777. begin
  60778. getODCC12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  60779. end;
  60780. procedure TPORTC_ODCC.setODCC13; inline;
  60781. begin
  60782. pTDefRegMap(@Self)^.&set := $00002000;
  60783. end;
  60784. procedure TPORTC_ODCC.clearODCC13; inline;
  60785. begin
  60786. pTDefRegMap(@Self)^.clr := $00002000;
  60787. end;
  60788. procedure TPORTC_ODCC.setODCC13(thebits : TBits_1); inline;
  60789. begin
  60790. if thebits = 0 then
  60791. pTDefRegMap(@Self)^.clr := $00002000
  60792. else
  60793. pTDefRegMap(@Self)^.&set := $00002000;
  60794. end;
  60795. function TPORTC_ODCC.getODCC13 : TBits_1; inline;
  60796. begin
  60797. getODCC13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  60798. end;
  60799. procedure TPORTC_ODCC.setODCC14; inline;
  60800. begin
  60801. pTDefRegMap(@Self)^.&set := $00004000;
  60802. end;
  60803. procedure TPORTC_ODCC.clearODCC14; inline;
  60804. begin
  60805. pTDefRegMap(@Self)^.clr := $00004000;
  60806. end;
  60807. procedure TPORTC_ODCC.setODCC14(thebits : TBits_1); inline;
  60808. begin
  60809. if thebits = 0 then
  60810. pTDefRegMap(@Self)^.clr := $00004000
  60811. else
  60812. pTDefRegMap(@Self)^.&set := $00004000;
  60813. end;
  60814. function TPORTC_ODCC.getODCC14 : TBits_1; inline;
  60815. begin
  60816. getODCC14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  60817. end;
  60818. procedure TPORTC_ODCC.setODCC15; inline;
  60819. begin
  60820. pTDefRegMap(@Self)^.&set := $00008000;
  60821. end;
  60822. procedure TPORTC_ODCC.clearODCC15; inline;
  60823. begin
  60824. pTDefRegMap(@Self)^.clr := $00008000;
  60825. end;
  60826. procedure TPORTC_ODCC.setODCC15(thebits : TBits_1); inline;
  60827. begin
  60828. if thebits = 0 then
  60829. pTDefRegMap(@Self)^.clr := $00008000
  60830. else
  60831. pTDefRegMap(@Self)^.&set := $00008000;
  60832. end;
  60833. function TPORTC_ODCC.getODCC15 : TBits_1; inline;
  60834. begin
  60835. getODCC15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  60836. end;
  60837. procedure TPORTC_ODCC.setw(thebits : TBits_32); inline;
  60838. begin
  60839. pTDefRegMap(@Self)^.val := thebits;
  60840. end;
  60841. function TPORTC_ODCC.getw : TBits_32; inline;
  60842. begin
  60843. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  60844. end;
  60845. procedure TPORTD_TRISD.setTRISD0; inline;
  60846. begin
  60847. pTDefRegMap(@Self)^.&set := $00000001;
  60848. end;
  60849. procedure TPORTD_TRISD.clearTRISD0; inline;
  60850. begin
  60851. pTDefRegMap(@Self)^.clr := $00000001;
  60852. end;
  60853. procedure TPORTD_TRISD.setTRISD0(thebits : TBits_1); inline;
  60854. begin
  60855. if thebits = 0 then
  60856. pTDefRegMap(@Self)^.clr := $00000001
  60857. else
  60858. pTDefRegMap(@Self)^.&set := $00000001;
  60859. end;
  60860. function TPORTD_TRISD.getTRISD0 : TBits_1; inline;
  60861. begin
  60862. getTRISD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  60863. end;
  60864. procedure TPORTD_TRISD.setTRISD1; inline;
  60865. begin
  60866. pTDefRegMap(@Self)^.&set := $00000002;
  60867. end;
  60868. procedure TPORTD_TRISD.clearTRISD1; inline;
  60869. begin
  60870. pTDefRegMap(@Self)^.clr := $00000002;
  60871. end;
  60872. procedure TPORTD_TRISD.setTRISD1(thebits : TBits_1); inline;
  60873. begin
  60874. if thebits = 0 then
  60875. pTDefRegMap(@Self)^.clr := $00000002
  60876. else
  60877. pTDefRegMap(@Self)^.&set := $00000002;
  60878. end;
  60879. function TPORTD_TRISD.getTRISD1 : TBits_1; inline;
  60880. begin
  60881. getTRISD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  60882. end;
  60883. procedure TPORTD_TRISD.setTRISD2; inline;
  60884. begin
  60885. pTDefRegMap(@Self)^.&set := $00000004;
  60886. end;
  60887. procedure TPORTD_TRISD.clearTRISD2; inline;
  60888. begin
  60889. pTDefRegMap(@Self)^.clr := $00000004;
  60890. end;
  60891. procedure TPORTD_TRISD.setTRISD2(thebits : TBits_1); inline;
  60892. begin
  60893. if thebits = 0 then
  60894. pTDefRegMap(@Self)^.clr := $00000004
  60895. else
  60896. pTDefRegMap(@Self)^.&set := $00000004;
  60897. end;
  60898. function TPORTD_TRISD.getTRISD2 : TBits_1; inline;
  60899. begin
  60900. getTRISD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  60901. end;
  60902. procedure TPORTD_TRISD.setTRISD3; inline;
  60903. begin
  60904. pTDefRegMap(@Self)^.&set := $00000008;
  60905. end;
  60906. procedure TPORTD_TRISD.clearTRISD3; inline;
  60907. begin
  60908. pTDefRegMap(@Self)^.clr := $00000008;
  60909. end;
  60910. procedure TPORTD_TRISD.setTRISD3(thebits : TBits_1); inline;
  60911. begin
  60912. if thebits = 0 then
  60913. pTDefRegMap(@Self)^.clr := $00000008
  60914. else
  60915. pTDefRegMap(@Self)^.&set := $00000008;
  60916. end;
  60917. function TPORTD_TRISD.getTRISD3 : TBits_1; inline;
  60918. begin
  60919. getTRISD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  60920. end;
  60921. procedure TPORTD_TRISD.setTRISD4; inline;
  60922. begin
  60923. pTDefRegMap(@Self)^.&set := $00000010;
  60924. end;
  60925. procedure TPORTD_TRISD.clearTRISD4; inline;
  60926. begin
  60927. pTDefRegMap(@Self)^.clr := $00000010;
  60928. end;
  60929. procedure TPORTD_TRISD.setTRISD4(thebits : TBits_1); inline;
  60930. begin
  60931. if thebits = 0 then
  60932. pTDefRegMap(@Self)^.clr := $00000010
  60933. else
  60934. pTDefRegMap(@Self)^.&set := $00000010;
  60935. end;
  60936. function TPORTD_TRISD.getTRISD4 : TBits_1; inline;
  60937. begin
  60938. getTRISD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  60939. end;
  60940. procedure TPORTD_TRISD.setTRISD5; inline;
  60941. begin
  60942. pTDefRegMap(@Self)^.&set := $00000020;
  60943. end;
  60944. procedure TPORTD_TRISD.clearTRISD5; inline;
  60945. begin
  60946. pTDefRegMap(@Self)^.clr := $00000020;
  60947. end;
  60948. procedure TPORTD_TRISD.setTRISD5(thebits : TBits_1); inline;
  60949. begin
  60950. if thebits = 0 then
  60951. pTDefRegMap(@Self)^.clr := $00000020
  60952. else
  60953. pTDefRegMap(@Self)^.&set := $00000020;
  60954. end;
  60955. function TPORTD_TRISD.getTRISD5 : TBits_1; inline;
  60956. begin
  60957. getTRISD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  60958. end;
  60959. procedure TPORTD_TRISD.setTRISD6; inline;
  60960. begin
  60961. pTDefRegMap(@Self)^.&set := $00000040;
  60962. end;
  60963. procedure TPORTD_TRISD.clearTRISD6; inline;
  60964. begin
  60965. pTDefRegMap(@Self)^.clr := $00000040;
  60966. end;
  60967. procedure TPORTD_TRISD.setTRISD6(thebits : TBits_1); inline;
  60968. begin
  60969. if thebits = 0 then
  60970. pTDefRegMap(@Self)^.clr := $00000040
  60971. else
  60972. pTDefRegMap(@Self)^.&set := $00000040;
  60973. end;
  60974. function TPORTD_TRISD.getTRISD6 : TBits_1; inline;
  60975. begin
  60976. getTRISD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  60977. end;
  60978. procedure TPORTD_TRISD.setTRISD7; inline;
  60979. begin
  60980. pTDefRegMap(@Self)^.&set := $00000080;
  60981. end;
  60982. procedure TPORTD_TRISD.clearTRISD7; inline;
  60983. begin
  60984. pTDefRegMap(@Self)^.clr := $00000080;
  60985. end;
  60986. procedure TPORTD_TRISD.setTRISD7(thebits : TBits_1); inline;
  60987. begin
  60988. if thebits = 0 then
  60989. pTDefRegMap(@Self)^.clr := $00000080
  60990. else
  60991. pTDefRegMap(@Self)^.&set := $00000080;
  60992. end;
  60993. function TPORTD_TRISD.getTRISD7 : TBits_1; inline;
  60994. begin
  60995. getTRISD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  60996. end;
  60997. procedure TPORTD_TRISD.setTRISD8; inline;
  60998. begin
  60999. pTDefRegMap(@Self)^.&set := $00000100;
  61000. end;
  61001. procedure TPORTD_TRISD.clearTRISD8; inline;
  61002. begin
  61003. pTDefRegMap(@Self)^.clr := $00000100;
  61004. end;
  61005. procedure TPORTD_TRISD.setTRISD8(thebits : TBits_1); inline;
  61006. begin
  61007. if thebits = 0 then
  61008. pTDefRegMap(@Self)^.clr := $00000100
  61009. else
  61010. pTDefRegMap(@Self)^.&set := $00000100;
  61011. end;
  61012. function TPORTD_TRISD.getTRISD8 : TBits_1; inline;
  61013. begin
  61014. getTRISD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  61015. end;
  61016. procedure TPORTD_TRISD.setTRISD9; inline;
  61017. begin
  61018. pTDefRegMap(@Self)^.&set := $00000200;
  61019. end;
  61020. procedure TPORTD_TRISD.clearTRISD9; inline;
  61021. begin
  61022. pTDefRegMap(@Self)^.clr := $00000200;
  61023. end;
  61024. procedure TPORTD_TRISD.setTRISD9(thebits : TBits_1); inline;
  61025. begin
  61026. if thebits = 0 then
  61027. pTDefRegMap(@Self)^.clr := $00000200
  61028. else
  61029. pTDefRegMap(@Self)^.&set := $00000200;
  61030. end;
  61031. function TPORTD_TRISD.getTRISD9 : TBits_1; inline;
  61032. begin
  61033. getTRISD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61034. end;
  61035. procedure TPORTD_TRISD.setTRISD10; inline;
  61036. begin
  61037. pTDefRegMap(@Self)^.&set := $00000400;
  61038. end;
  61039. procedure TPORTD_TRISD.clearTRISD10; inline;
  61040. begin
  61041. pTDefRegMap(@Self)^.clr := $00000400;
  61042. end;
  61043. procedure TPORTD_TRISD.setTRISD10(thebits : TBits_1); inline;
  61044. begin
  61045. if thebits = 0 then
  61046. pTDefRegMap(@Self)^.clr := $00000400
  61047. else
  61048. pTDefRegMap(@Self)^.&set := $00000400;
  61049. end;
  61050. function TPORTD_TRISD.getTRISD10 : TBits_1; inline;
  61051. begin
  61052. getTRISD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61053. end;
  61054. procedure TPORTD_TRISD.setTRISD11; inline;
  61055. begin
  61056. pTDefRegMap(@Self)^.&set := $00000800;
  61057. end;
  61058. procedure TPORTD_TRISD.clearTRISD11; inline;
  61059. begin
  61060. pTDefRegMap(@Self)^.clr := $00000800;
  61061. end;
  61062. procedure TPORTD_TRISD.setTRISD11(thebits : TBits_1); inline;
  61063. begin
  61064. if thebits = 0 then
  61065. pTDefRegMap(@Self)^.clr := $00000800
  61066. else
  61067. pTDefRegMap(@Self)^.&set := $00000800;
  61068. end;
  61069. function TPORTD_TRISD.getTRISD11 : TBits_1; inline;
  61070. begin
  61071. getTRISD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  61072. end;
  61073. procedure TPORTD_TRISD.setTRISD12; inline;
  61074. begin
  61075. pTDefRegMap(@Self)^.&set := $00001000;
  61076. end;
  61077. procedure TPORTD_TRISD.clearTRISD12; inline;
  61078. begin
  61079. pTDefRegMap(@Self)^.clr := $00001000;
  61080. end;
  61081. procedure TPORTD_TRISD.setTRISD12(thebits : TBits_1); inline;
  61082. begin
  61083. if thebits = 0 then
  61084. pTDefRegMap(@Self)^.clr := $00001000
  61085. else
  61086. pTDefRegMap(@Self)^.&set := $00001000;
  61087. end;
  61088. function TPORTD_TRISD.getTRISD12 : TBits_1; inline;
  61089. begin
  61090. getTRISD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61091. end;
  61092. procedure TPORTD_TRISD.setTRISD13; inline;
  61093. begin
  61094. pTDefRegMap(@Self)^.&set := $00002000;
  61095. end;
  61096. procedure TPORTD_TRISD.clearTRISD13; inline;
  61097. begin
  61098. pTDefRegMap(@Self)^.clr := $00002000;
  61099. end;
  61100. procedure TPORTD_TRISD.setTRISD13(thebits : TBits_1); inline;
  61101. begin
  61102. if thebits = 0 then
  61103. pTDefRegMap(@Self)^.clr := $00002000
  61104. else
  61105. pTDefRegMap(@Self)^.&set := $00002000;
  61106. end;
  61107. function TPORTD_TRISD.getTRISD13 : TBits_1; inline;
  61108. begin
  61109. getTRISD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61110. end;
  61111. procedure TPORTD_TRISD.setTRISD14; inline;
  61112. begin
  61113. pTDefRegMap(@Self)^.&set := $00004000;
  61114. end;
  61115. procedure TPORTD_TRISD.clearTRISD14; inline;
  61116. begin
  61117. pTDefRegMap(@Self)^.clr := $00004000;
  61118. end;
  61119. procedure TPORTD_TRISD.setTRISD14(thebits : TBits_1); inline;
  61120. begin
  61121. if thebits = 0 then
  61122. pTDefRegMap(@Self)^.clr := $00004000
  61123. else
  61124. pTDefRegMap(@Self)^.&set := $00004000;
  61125. end;
  61126. function TPORTD_TRISD.getTRISD14 : TBits_1; inline;
  61127. begin
  61128. getTRISD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61129. end;
  61130. procedure TPORTD_TRISD.setTRISD15; inline;
  61131. begin
  61132. pTDefRegMap(@Self)^.&set := $00008000;
  61133. end;
  61134. procedure TPORTD_TRISD.clearTRISD15; inline;
  61135. begin
  61136. pTDefRegMap(@Self)^.clr := $00008000;
  61137. end;
  61138. procedure TPORTD_TRISD.setTRISD15(thebits : TBits_1); inline;
  61139. begin
  61140. if thebits = 0 then
  61141. pTDefRegMap(@Self)^.clr := $00008000
  61142. else
  61143. pTDefRegMap(@Self)^.&set := $00008000;
  61144. end;
  61145. function TPORTD_TRISD.getTRISD15 : TBits_1; inline;
  61146. begin
  61147. getTRISD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61148. end;
  61149. procedure TPORTD_TRISD.setw(thebits : TBits_32); inline;
  61150. begin
  61151. pTDefRegMap(@Self)^.val := thebits;
  61152. end;
  61153. function TPORTD_TRISD.getw : TBits_32; inline;
  61154. begin
  61155. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61156. end;
  61157. procedure TPORTD_PORTD.setRD0; inline;
  61158. begin
  61159. pTDefRegMap(@Self)^.&set := $00000001;
  61160. end;
  61161. procedure TPORTD_PORTD.clearRD0; inline;
  61162. begin
  61163. pTDefRegMap(@Self)^.clr := $00000001;
  61164. end;
  61165. procedure TPORTD_PORTD.setRD0(thebits : TBits_1); inline;
  61166. begin
  61167. if thebits = 0 then
  61168. pTDefRegMap(@Self)^.clr := $00000001
  61169. else
  61170. pTDefRegMap(@Self)^.&set := $00000001;
  61171. end;
  61172. function TPORTD_PORTD.getRD0 : TBits_1; inline;
  61173. begin
  61174. getRD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61175. end;
  61176. procedure TPORTD_PORTD.setRD1; inline;
  61177. begin
  61178. pTDefRegMap(@Self)^.&set := $00000002;
  61179. end;
  61180. procedure TPORTD_PORTD.clearRD1; inline;
  61181. begin
  61182. pTDefRegMap(@Self)^.clr := $00000002;
  61183. end;
  61184. procedure TPORTD_PORTD.setRD1(thebits : TBits_1); inline;
  61185. begin
  61186. if thebits = 0 then
  61187. pTDefRegMap(@Self)^.clr := $00000002
  61188. else
  61189. pTDefRegMap(@Self)^.&set := $00000002;
  61190. end;
  61191. function TPORTD_PORTD.getRD1 : TBits_1; inline;
  61192. begin
  61193. getRD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61194. end;
  61195. procedure TPORTD_PORTD.setRD2; inline;
  61196. begin
  61197. pTDefRegMap(@Self)^.&set := $00000004;
  61198. end;
  61199. procedure TPORTD_PORTD.clearRD2; inline;
  61200. begin
  61201. pTDefRegMap(@Self)^.clr := $00000004;
  61202. end;
  61203. procedure TPORTD_PORTD.setRD2(thebits : TBits_1); inline;
  61204. begin
  61205. if thebits = 0 then
  61206. pTDefRegMap(@Self)^.clr := $00000004
  61207. else
  61208. pTDefRegMap(@Self)^.&set := $00000004;
  61209. end;
  61210. function TPORTD_PORTD.getRD2 : TBits_1; inline;
  61211. begin
  61212. getRD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61213. end;
  61214. procedure TPORTD_PORTD.setRD3; inline;
  61215. begin
  61216. pTDefRegMap(@Self)^.&set := $00000008;
  61217. end;
  61218. procedure TPORTD_PORTD.clearRD3; inline;
  61219. begin
  61220. pTDefRegMap(@Self)^.clr := $00000008;
  61221. end;
  61222. procedure TPORTD_PORTD.setRD3(thebits : TBits_1); inline;
  61223. begin
  61224. if thebits = 0 then
  61225. pTDefRegMap(@Self)^.clr := $00000008
  61226. else
  61227. pTDefRegMap(@Self)^.&set := $00000008;
  61228. end;
  61229. function TPORTD_PORTD.getRD3 : TBits_1; inline;
  61230. begin
  61231. getRD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61232. end;
  61233. procedure TPORTD_PORTD.setRD4; inline;
  61234. begin
  61235. pTDefRegMap(@Self)^.&set := $00000010;
  61236. end;
  61237. procedure TPORTD_PORTD.clearRD4; inline;
  61238. begin
  61239. pTDefRegMap(@Self)^.clr := $00000010;
  61240. end;
  61241. procedure TPORTD_PORTD.setRD4(thebits : TBits_1); inline;
  61242. begin
  61243. if thebits = 0 then
  61244. pTDefRegMap(@Self)^.clr := $00000010
  61245. else
  61246. pTDefRegMap(@Self)^.&set := $00000010;
  61247. end;
  61248. function TPORTD_PORTD.getRD4 : TBits_1; inline;
  61249. begin
  61250. getRD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61251. end;
  61252. procedure TPORTD_PORTD.setRD5; inline;
  61253. begin
  61254. pTDefRegMap(@Self)^.&set := $00000020;
  61255. end;
  61256. procedure TPORTD_PORTD.clearRD5; inline;
  61257. begin
  61258. pTDefRegMap(@Self)^.clr := $00000020;
  61259. end;
  61260. procedure TPORTD_PORTD.setRD5(thebits : TBits_1); inline;
  61261. begin
  61262. if thebits = 0 then
  61263. pTDefRegMap(@Self)^.clr := $00000020
  61264. else
  61265. pTDefRegMap(@Self)^.&set := $00000020;
  61266. end;
  61267. function TPORTD_PORTD.getRD5 : TBits_1; inline;
  61268. begin
  61269. getRD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61270. end;
  61271. procedure TPORTD_PORTD.setRD6; inline;
  61272. begin
  61273. pTDefRegMap(@Self)^.&set := $00000040;
  61274. end;
  61275. procedure TPORTD_PORTD.clearRD6; inline;
  61276. begin
  61277. pTDefRegMap(@Self)^.clr := $00000040;
  61278. end;
  61279. procedure TPORTD_PORTD.setRD6(thebits : TBits_1); inline;
  61280. begin
  61281. if thebits = 0 then
  61282. pTDefRegMap(@Self)^.clr := $00000040
  61283. else
  61284. pTDefRegMap(@Self)^.&set := $00000040;
  61285. end;
  61286. function TPORTD_PORTD.getRD6 : TBits_1; inline;
  61287. begin
  61288. getRD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61289. end;
  61290. procedure TPORTD_PORTD.setRD7; inline;
  61291. begin
  61292. pTDefRegMap(@Self)^.&set := $00000080;
  61293. end;
  61294. procedure TPORTD_PORTD.clearRD7; inline;
  61295. begin
  61296. pTDefRegMap(@Self)^.clr := $00000080;
  61297. end;
  61298. procedure TPORTD_PORTD.setRD7(thebits : TBits_1); inline;
  61299. begin
  61300. if thebits = 0 then
  61301. pTDefRegMap(@Self)^.clr := $00000080
  61302. else
  61303. pTDefRegMap(@Self)^.&set := $00000080;
  61304. end;
  61305. function TPORTD_PORTD.getRD7 : TBits_1; inline;
  61306. begin
  61307. getRD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61308. end;
  61309. procedure TPORTD_PORTD.setRD8; inline;
  61310. begin
  61311. pTDefRegMap(@Self)^.&set := $00000100;
  61312. end;
  61313. procedure TPORTD_PORTD.clearRD8; inline;
  61314. begin
  61315. pTDefRegMap(@Self)^.clr := $00000100;
  61316. end;
  61317. procedure TPORTD_PORTD.setRD8(thebits : TBits_1); inline;
  61318. begin
  61319. if thebits = 0 then
  61320. pTDefRegMap(@Self)^.clr := $00000100
  61321. else
  61322. pTDefRegMap(@Self)^.&set := $00000100;
  61323. end;
  61324. function TPORTD_PORTD.getRD8 : TBits_1; inline;
  61325. begin
  61326. getRD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  61327. end;
  61328. procedure TPORTD_PORTD.setRD9; inline;
  61329. begin
  61330. pTDefRegMap(@Self)^.&set := $00000200;
  61331. end;
  61332. procedure TPORTD_PORTD.clearRD9; inline;
  61333. begin
  61334. pTDefRegMap(@Self)^.clr := $00000200;
  61335. end;
  61336. procedure TPORTD_PORTD.setRD9(thebits : TBits_1); inline;
  61337. begin
  61338. if thebits = 0 then
  61339. pTDefRegMap(@Self)^.clr := $00000200
  61340. else
  61341. pTDefRegMap(@Self)^.&set := $00000200;
  61342. end;
  61343. function TPORTD_PORTD.getRD9 : TBits_1; inline;
  61344. begin
  61345. getRD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61346. end;
  61347. procedure TPORTD_PORTD.setRD10; inline;
  61348. begin
  61349. pTDefRegMap(@Self)^.&set := $00000400;
  61350. end;
  61351. procedure TPORTD_PORTD.clearRD10; inline;
  61352. begin
  61353. pTDefRegMap(@Self)^.clr := $00000400;
  61354. end;
  61355. procedure TPORTD_PORTD.setRD10(thebits : TBits_1); inline;
  61356. begin
  61357. if thebits = 0 then
  61358. pTDefRegMap(@Self)^.clr := $00000400
  61359. else
  61360. pTDefRegMap(@Self)^.&set := $00000400;
  61361. end;
  61362. function TPORTD_PORTD.getRD10 : TBits_1; inline;
  61363. begin
  61364. getRD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61365. end;
  61366. procedure TPORTD_PORTD.setRD11; inline;
  61367. begin
  61368. pTDefRegMap(@Self)^.&set := $00000800;
  61369. end;
  61370. procedure TPORTD_PORTD.clearRD11; inline;
  61371. begin
  61372. pTDefRegMap(@Self)^.clr := $00000800;
  61373. end;
  61374. procedure TPORTD_PORTD.setRD11(thebits : TBits_1); inline;
  61375. begin
  61376. if thebits = 0 then
  61377. pTDefRegMap(@Self)^.clr := $00000800
  61378. else
  61379. pTDefRegMap(@Self)^.&set := $00000800;
  61380. end;
  61381. function TPORTD_PORTD.getRD11 : TBits_1; inline;
  61382. begin
  61383. getRD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  61384. end;
  61385. procedure TPORTD_PORTD.setRD12; inline;
  61386. begin
  61387. pTDefRegMap(@Self)^.&set := $00001000;
  61388. end;
  61389. procedure TPORTD_PORTD.clearRD12; inline;
  61390. begin
  61391. pTDefRegMap(@Self)^.clr := $00001000;
  61392. end;
  61393. procedure TPORTD_PORTD.setRD12(thebits : TBits_1); inline;
  61394. begin
  61395. if thebits = 0 then
  61396. pTDefRegMap(@Self)^.clr := $00001000
  61397. else
  61398. pTDefRegMap(@Self)^.&set := $00001000;
  61399. end;
  61400. function TPORTD_PORTD.getRD12 : TBits_1; inline;
  61401. begin
  61402. getRD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61403. end;
  61404. procedure TPORTD_PORTD.setRD13; inline;
  61405. begin
  61406. pTDefRegMap(@Self)^.&set := $00002000;
  61407. end;
  61408. procedure TPORTD_PORTD.clearRD13; inline;
  61409. begin
  61410. pTDefRegMap(@Self)^.clr := $00002000;
  61411. end;
  61412. procedure TPORTD_PORTD.setRD13(thebits : TBits_1); inline;
  61413. begin
  61414. if thebits = 0 then
  61415. pTDefRegMap(@Self)^.clr := $00002000
  61416. else
  61417. pTDefRegMap(@Self)^.&set := $00002000;
  61418. end;
  61419. function TPORTD_PORTD.getRD13 : TBits_1; inline;
  61420. begin
  61421. getRD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61422. end;
  61423. procedure TPORTD_PORTD.setRD14; inline;
  61424. begin
  61425. pTDefRegMap(@Self)^.&set := $00004000;
  61426. end;
  61427. procedure TPORTD_PORTD.clearRD14; inline;
  61428. begin
  61429. pTDefRegMap(@Self)^.clr := $00004000;
  61430. end;
  61431. procedure TPORTD_PORTD.setRD14(thebits : TBits_1); inline;
  61432. begin
  61433. if thebits = 0 then
  61434. pTDefRegMap(@Self)^.clr := $00004000
  61435. else
  61436. pTDefRegMap(@Self)^.&set := $00004000;
  61437. end;
  61438. function TPORTD_PORTD.getRD14 : TBits_1; inline;
  61439. begin
  61440. getRD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61441. end;
  61442. procedure TPORTD_PORTD.setRD15; inline;
  61443. begin
  61444. pTDefRegMap(@Self)^.&set := $00008000;
  61445. end;
  61446. procedure TPORTD_PORTD.clearRD15; inline;
  61447. begin
  61448. pTDefRegMap(@Self)^.clr := $00008000;
  61449. end;
  61450. procedure TPORTD_PORTD.setRD15(thebits : TBits_1); inline;
  61451. begin
  61452. if thebits = 0 then
  61453. pTDefRegMap(@Self)^.clr := $00008000
  61454. else
  61455. pTDefRegMap(@Self)^.&set := $00008000;
  61456. end;
  61457. function TPORTD_PORTD.getRD15 : TBits_1; inline;
  61458. begin
  61459. getRD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61460. end;
  61461. procedure TPORTD_PORTD.setw(thebits : TBits_32); inline;
  61462. begin
  61463. pTDefRegMap(@Self)^.val := thebits;
  61464. end;
  61465. function TPORTD_PORTD.getw : TBits_32; inline;
  61466. begin
  61467. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61468. end;
  61469. procedure TPORTD_LATD.setLATD0; inline;
  61470. begin
  61471. pTDefRegMap(@Self)^.&set := $00000001;
  61472. end;
  61473. procedure TPORTD_LATD.clearLATD0; inline;
  61474. begin
  61475. pTDefRegMap(@Self)^.clr := $00000001;
  61476. end;
  61477. procedure TPORTD_LATD.setLATD0(thebits : TBits_1); inline;
  61478. begin
  61479. if thebits = 0 then
  61480. pTDefRegMap(@Self)^.clr := $00000001
  61481. else
  61482. pTDefRegMap(@Self)^.&set := $00000001;
  61483. end;
  61484. function TPORTD_LATD.getLATD0 : TBits_1; inline;
  61485. begin
  61486. getLATD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61487. end;
  61488. procedure TPORTD_LATD.setLATD1; inline;
  61489. begin
  61490. pTDefRegMap(@Self)^.&set := $00000002;
  61491. end;
  61492. procedure TPORTD_LATD.clearLATD1; inline;
  61493. begin
  61494. pTDefRegMap(@Self)^.clr := $00000002;
  61495. end;
  61496. procedure TPORTD_LATD.setLATD1(thebits : TBits_1); inline;
  61497. begin
  61498. if thebits = 0 then
  61499. pTDefRegMap(@Self)^.clr := $00000002
  61500. else
  61501. pTDefRegMap(@Self)^.&set := $00000002;
  61502. end;
  61503. function TPORTD_LATD.getLATD1 : TBits_1; inline;
  61504. begin
  61505. getLATD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61506. end;
  61507. procedure TPORTD_LATD.setLATD2; inline;
  61508. begin
  61509. pTDefRegMap(@Self)^.&set := $00000004;
  61510. end;
  61511. procedure TPORTD_LATD.clearLATD2; inline;
  61512. begin
  61513. pTDefRegMap(@Self)^.clr := $00000004;
  61514. end;
  61515. procedure TPORTD_LATD.setLATD2(thebits : TBits_1); inline;
  61516. begin
  61517. if thebits = 0 then
  61518. pTDefRegMap(@Self)^.clr := $00000004
  61519. else
  61520. pTDefRegMap(@Self)^.&set := $00000004;
  61521. end;
  61522. function TPORTD_LATD.getLATD2 : TBits_1; inline;
  61523. begin
  61524. getLATD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61525. end;
  61526. procedure TPORTD_LATD.setLATD3; inline;
  61527. begin
  61528. pTDefRegMap(@Self)^.&set := $00000008;
  61529. end;
  61530. procedure TPORTD_LATD.clearLATD3; inline;
  61531. begin
  61532. pTDefRegMap(@Self)^.clr := $00000008;
  61533. end;
  61534. procedure TPORTD_LATD.setLATD3(thebits : TBits_1); inline;
  61535. begin
  61536. if thebits = 0 then
  61537. pTDefRegMap(@Self)^.clr := $00000008
  61538. else
  61539. pTDefRegMap(@Self)^.&set := $00000008;
  61540. end;
  61541. function TPORTD_LATD.getLATD3 : TBits_1; inline;
  61542. begin
  61543. getLATD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61544. end;
  61545. procedure TPORTD_LATD.setLATD4; inline;
  61546. begin
  61547. pTDefRegMap(@Self)^.&set := $00000010;
  61548. end;
  61549. procedure TPORTD_LATD.clearLATD4; inline;
  61550. begin
  61551. pTDefRegMap(@Self)^.clr := $00000010;
  61552. end;
  61553. procedure TPORTD_LATD.setLATD4(thebits : TBits_1); inline;
  61554. begin
  61555. if thebits = 0 then
  61556. pTDefRegMap(@Self)^.clr := $00000010
  61557. else
  61558. pTDefRegMap(@Self)^.&set := $00000010;
  61559. end;
  61560. function TPORTD_LATD.getLATD4 : TBits_1; inline;
  61561. begin
  61562. getLATD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61563. end;
  61564. procedure TPORTD_LATD.setLATD5; inline;
  61565. begin
  61566. pTDefRegMap(@Self)^.&set := $00000020;
  61567. end;
  61568. procedure TPORTD_LATD.clearLATD5; inline;
  61569. begin
  61570. pTDefRegMap(@Self)^.clr := $00000020;
  61571. end;
  61572. procedure TPORTD_LATD.setLATD5(thebits : TBits_1); inline;
  61573. begin
  61574. if thebits = 0 then
  61575. pTDefRegMap(@Self)^.clr := $00000020
  61576. else
  61577. pTDefRegMap(@Self)^.&set := $00000020;
  61578. end;
  61579. function TPORTD_LATD.getLATD5 : TBits_1; inline;
  61580. begin
  61581. getLATD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61582. end;
  61583. procedure TPORTD_LATD.setLATD6; inline;
  61584. begin
  61585. pTDefRegMap(@Self)^.&set := $00000040;
  61586. end;
  61587. procedure TPORTD_LATD.clearLATD6; inline;
  61588. begin
  61589. pTDefRegMap(@Self)^.clr := $00000040;
  61590. end;
  61591. procedure TPORTD_LATD.setLATD6(thebits : TBits_1); inline;
  61592. begin
  61593. if thebits = 0 then
  61594. pTDefRegMap(@Self)^.clr := $00000040
  61595. else
  61596. pTDefRegMap(@Self)^.&set := $00000040;
  61597. end;
  61598. function TPORTD_LATD.getLATD6 : TBits_1; inline;
  61599. begin
  61600. getLATD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61601. end;
  61602. procedure TPORTD_LATD.setLATD7; inline;
  61603. begin
  61604. pTDefRegMap(@Self)^.&set := $00000080;
  61605. end;
  61606. procedure TPORTD_LATD.clearLATD7; inline;
  61607. begin
  61608. pTDefRegMap(@Self)^.clr := $00000080;
  61609. end;
  61610. procedure TPORTD_LATD.setLATD7(thebits : TBits_1); inline;
  61611. begin
  61612. if thebits = 0 then
  61613. pTDefRegMap(@Self)^.clr := $00000080
  61614. else
  61615. pTDefRegMap(@Self)^.&set := $00000080;
  61616. end;
  61617. function TPORTD_LATD.getLATD7 : TBits_1; inline;
  61618. begin
  61619. getLATD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61620. end;
  61621. procedure TPORTD_LATD.setLATD8; inline;
  61622. begin
  61623. pTDefRegMap(@Self)^.&set := $00000100;
  61624. end;
  61625. procedure TPORTD_LATD.clearLATD8; inline;
  61626. begin
  61627. pTDefRegMap(@Self)^.clr := $00000100;
  61628. end;
  61629. procedure TPORTD_LATD.setLATD8(thebits : TBits_1); inline;
  61630. begin
  61631. if thebits = 0 then
  61632. pTDefRegMap(@Self)^.clr := $00000100
  61633. else
  61634. pTDefRegMap(@Self)^.&set := $00000100;
  61635. end;
  61636. function TPORTD_LATD.getLATD8 : TBits_1; inline;
  61637. begin
  61638. getLATD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  61639. end;
  61640. procedure TPORTD_LATD.setLATD9; inline;
  61641. begin
  61642. pTDefRegMap(@Self)^.&set := $00000200;
  61643. end;
  61644. procedure TPORTD_LATD.clearLATD9; inline;
  61645. begin
  61646. pTDefRegMap(@Self)^.clr := $00000200;
  61647. end;
  61648. procedure TPORTD_LATD.setLATD9(thebits : TBits_1); inline;
  61649. begin
  61650. if thebits = 0 then
  61651. pTDefRegMap(@Self)^.clr := $00000200
  61652. else
  61653. pTDefRegMap(@Self)^.&set := $00000200;
  61654. end;
  61655. function TPORTD_LATD.getLATD9 : TBits_1; inline;
  61656. begin
  61657. getLATD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61658. end;
  61659. procedure TPORTD_LATD.setLATD10; inline;
  61660. begin
  61661. pTDefRegMap(@Self)^.&set := $00000400;
  61662. end;
  61663. procedure TPORTD_LATD.clearLATD10; inline;
  61664. begin
  61665. pTDefRegMap(@Self)^.clr := $00000400;
  61666. end;
  61667. procedure TPORTD_LATD.setLATD10(thebits : TBits_1); inline;
  61668. begin
  61669. if thebits = 0 then
  61670. pTDefRegMap(@Self)^.clr := $00000400
  61671. else
  61672. pTDefRegMap(@Self)^.&set := $00000400;
  61673. end;
  61674. function TPORTD_LATD.getLATD10 : TBits_1; inline;
  61675. begin
  61676. getLATD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61677. end;
  61678. procedure TPORTD_LATD.setLATD11; inline;
  61679. begin
  61680. pTDefRegMap(@Self)^.&set := $00000800;
  61681. end;
  61682. procedure TPORTD_LATD.clearLATD11; inline;
  61683. begin
  61684. pTDefRegMap(@Self)^.clr := $00000800;
  61685. end;
  61686. procedure TPORTD_LATD.setLATD11(thebits : TBits_1); inline;
  61687. begin
  61688. if thebits = 0 then
  61689. pTDefRegMap(@Self)^.clr := $00000800
  61690. else
  61691. pTDefRegMap(@Self)^.&set := $00000800;
  61692. end;
  61693. function TPORTD_LATD.getLATD11 : TBits_1; inline;
  61694. begin
  61695. getLATD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  61696. end;
  61697. procedure TPORTD_LATD.setLATD12; inline;
  61698. begin
  61699. pTDefRegMap(@Self)^.&set := $00001000;
  61700. end;
  61701. procedure TPORTD_LATD.clearLATD12; inline;
  61702. begin
  61703. pTDefRegMap(@Self)^.clr := $00001000;
  61704. end;
  61705. procedure TPORTD_LATD.setLATD12(thebits : TBits_1); inline;
  61706. begin
  61707. if thebits = 0 then
  61708. pTDefRegMap(@Self)^.clr := $00001000
  61709. else
  61710. pTDefRegMap(@Self)^.&set := $00001000;
  61711. end;
  61712. function TPORTD_LATD.getLATD12 : TBits_1; inline;
  61713. begin
  61714. getLATD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  61715. end;
  61716. procedure TPORTD_LATD.setLATD13; inline;
  61717. begin
  61718. pTDefRegMap(@Self)^.&set := $00002000;
  61719. end;
  61720. procedure TPORTD_LATD.clearLATD13; inline;
  61721. begin
  61722. pTDefRegMap(@Self)^.clr := $00002000;
  61723. end;
  61724. procedure TPORTD_LATD.setLATD13(thebits : TBits_1); inline;
  61725. begin
  61726. if thebits = 0 then
  61727. pTDefRegMap(@Self)^.clr := $00002000
  61728. else
  61729. pTDefRegMap(@Self)^.&set := $00002000;
  61730. end;
  61731. function TPORTD_LATD.getLATD13 : TBits_1; inline;
  61732. begin
  61733. getLATD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  61734. end;
  61735. procedure TPORTD_LATD.setLATD14; inline;
  61736. begin
  61737. pTDefRegMap(@Self)^.&set := $00004000;
  61738. end;
  61739. procedure TPORTD_LATD.clearLATD14; inline;
  61740. begin
  61741. pTDefRegMap(@Self)^.clr := $00004000;
  61742. end;
  61743. procedure TPORTD_LATD.setLATD14(thebits : TBits_1); inline;
  61744. begin
  61745. if thebits = 0 then
  61746. pTDefRegMap(@Self)^.clr := $00004000
  61747. else
  61748. pTDefRegMap(@Self)^.&set := $00004000;
  61749. end;
  61750. function TPORTD_LATD.getLATD14 : TBits_1; inline;
  61751. begin
  61752. getLATD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  61753. end;
  61754. procedure TPORTD_LATD.setLATD15; inline;
  61755. begin
  61756. pTDefRegMap(@Self)^.&set := $00008000;
  61757. end;
  61758. procedure TPORTD_LATD.clearLATD15; inline;
  61759. begin
  61760. pTDefRegMap(@Self)^.clr := $00008000;
  61761. end;
  61762. procedure TPORTD_LATD.setLATD15(thebits : TBits_1); inline;
  61763. begin
  61764. if thebits = 0 then
  61765. pTDefRegMap(@Self)^.clr := $00008000
  61766. else
  61767. pTDefRegMap(@Self)^.&set := $00008000;
  61768. end;
  61769. function TPORTD_LATD.getLATD15 : TBits_1; inline;
  61770. begin
  61771. getLATD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  61772. end;
  61773. procedure TPORTD_LATD.setw(thebits : TBits_32); inline;
  61774. begin
  61775. pTDefRegMap(@Self)^.val := thebits;
  61776. end;
  61777. function TPORTD_LATD.getw : TBits_32; inline;
  61778. begin
  61779. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  61780. end;
  61781. procedure TPORTD_ODCD.setODCD0; inline;
  61782. begin
  61783. pTDefRegMap(@Self)^.&set := $00000001;
  61784. end;
  61785. procedure TPORTD_ODCD.clearODCD0; inline;
  61786. begin
  61787. pTDefRegMap(@Self)^.clr := $00000001;
  61788. end;
  61789. procedure TPORTD_ODCD.setODCD0(thebits : TBits_1); inline;
  61790. begin
  61791. if thebits = 0 then
  61792. pTDefRegMap(@Self)^.clr := $00000001
  61793. else
  61794. pTDefRegMap(@Self)^.&set := $00000001;
  61795. end;
  61796. function TPORTD_ODCD.getODCD0 : TBits_1; inline;
  61797. begin
  61798. getODCD0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  61799. end;
  61800. procedure TPORTD_ODCD.setODCD1; inline;
  61801. begin
  61802. pTDefRegMap(@Self)^.&set := $00000002;
  61803. end;
  61804. procedure TPORTD_ODCD.clearODCD1; inline;
  61805. begin
  61806. pTDefRegMap(@Self)^.clr := $00000002;
  61807. end;
  61808. procedure TPORTD_ODCD.setODCD1(thebits : TBits_1); inline;
  61809. begin
  61810. if thebits = 0 then
  61811. pTDefRegMap(@Self)^.clr := $00000002
  61812. else
  61813. pTDefRegMap(@Self)^.&set := $00000002;
  61814. end;
  61815. function TPORTD_ODCD.getODCD1 : TBits_1; inline;
  61816. begin
  61817. getODCD1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  61818. end;
  61819. procedure TPORTD_ODCD.setODCD2; inline;
  61820. begin
  61821. pTDefRegMap(@Self)^.&set := $00000004;
  61822. end;
  61823. procedure TPORTD_ODCD.clearODCD2; inline;
  61824. begin
  61825. pTDefRegMap(@Self)^.clr := $00000004;
  61826. end;
  61827. procedure TPORTD_ODCD.setODCD2(thebits : TBits_1); inline;
  61828. begin
  61829. if thebits = 0 then
  61830. pTDefRegMap(@Self)^.clr := $00000004
  61831. else
  61832. pTDefRegMap(@Self)^.&set := $00000004;
  61833. end;
  61834. function TPORTD_ODCD.getODCD2 : TBits_1; inline;
  61835. begin
  61836. getODCD2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  61837. end;
  61838. procedure TPORTD_ODCD.setODCD3; inline;
  61839. begin
  61840. pTDefRegMap(@Self)^.&set := $00000008;
  61841. end;
  61842. procedure TPORTD_ODCD.clearODCD3; inline;
  61843. begin
  61844. pTDefRegMap(@Self)^.clr := $00000008;
  61845. end;
  61846. procedure TPORTD_ODCD.setODCD3(thebits : TBits_1); inline;
  61847. begin
  61848. if thebits = 0 then
  61849. pTDefRegMap(@Self)^.clr := $00000008
  61850. else
  61851. pTDefRegMap(@Self)^.&set := $00000008;
  61852. end;
  61853. function TPORTD_ODCD.getODCD3 : TBits_1; inline;
  61854. begin
  61855. getODCD3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  61856. end;
  61857. procedure TPORTD_ODCD.setODCD4; inline;
  61858. begin
  61859. pTDefRegMap(@Self)^.&set := $00000010;
  61860. end;
  61861. procedure TPORTD_ODCD.clearODCD4; inline;
  61862. begin
  61863. pTDefRegMap(@Self)^.clr := $00000010;
  61864. end;
  61865. procedure TPORTD_ODCD.setODCD4(thebits : TBits_1); inline;
  61866. begin
  61867. if thebits = 0 then
  61868. pTDefRegMap(@Self)^.clr := $00000010
  61869. else
  61870. pTDefRegMap(@Self)^.&set := $00000010;
  61871. end;
  61872. function TPORTD_ODCD.getODCD4 : TBits_1; inline;
  61873. begin
  61874. getODCD4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  61875. end;
  61876. procedure TPORTD_ODCD.setODCD5; inline;
  61877. begin
  61878. pTDefRegMap(@Self)^.&set := $00000020;
  61879. end;
  61880. procedure TPORTD_ODCD.clearODCD5; inline;
  61881. begin
  61882. pTDefRegMap(@Self)^.clr := $00000020;
  61883. end;
  61884. procedure TPORTD_ODCD.setODCD5(thebits : TBits_1); inline;
  61885. begin
  61886. if thebits = 0 then
  61887. pTDefRegMap(@Self)^.clr := $00000020
  61888. else
  61889. pTDefRegMap(@Self)^.&set := $00000020;
  61890. end;
  61891. function TPORTD_ODCD.getODCD5 : TBits_1; inline;
  61892. begin
  61893. getODCD5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  61894. end;
  61895. procedure TPORTD_ODCD.setODCD6; inline;
  61896. begin
  61897. pTDefRegMap(@Self)^.&set := $00000040;
  61898. end;
  61899. procedure TPORTD_ODCD.clearODCD6; inline;
  61900. begin
  61901. pTDefRegMap(@Self)^.clr := $00000040;
  61902. end;
  61903. procedure TPORTD_ODCD.setODCD6(thebits : TBits_1); inline;
  61904. begin
  61905. if thebits = 0 then
  61906. pTDefRegMap(@Self)^.clr := $00000040
  61907. else
  61908. pTDefRegMap(@Self)^.&set := $00000040;
  61909. end;
  61910. function TPORTD_ODCD.getODCD6 : TBits_1; inline;
  61911. begin
  61912. getODCD6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  61913. end;
  61914. procedure TPORTD_ODCD.setODCD7; inline;
  61915. begin
  61916. pTDefRegMap(@Self)^.&set := $00000080;
  61917. end;
  61918. procedure TPORTD_ODCD.clearODCD7; inline;
  61919. begin
  61920. pTDefRegMap(@Self)^.clr := $00000080;
  61921. end;
  61922. procedure TPORTD_ODCD.setODCD7(thebits : TBits_1); inline;
  61923. begin
  61924. if thebits = 0 then
  61925. pTDefRegMap(@Self)^.clr := $00000080
  61926. else
  61927. pTDefRegMap(@Self)^.&set := $00000080;
  61928. end;
  61929. function TPORTD_ODCD.getODCD7 : TBits_1; inline;
  61930. begin
  61931. getODCD7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  61932. end;
  61933. procedure TPORTD_ODCD.setODCD8; inline;
  61934. begin
  61935. pTDefRegMap(@Self)^.&set := $00000100;
  61936. end;
  61937. procedure TPORTD_ODCD.clearODCD8; inline;
  61938. begin
  61939. pTDefRegMap(@Self)^.clr := $00000100;
  61940. end;
  61941. procedure TPORTD_ODCD.setODCD8(thebits : TBits_1); inline;
  61942. begin
  61943. if thebits = 0 then
  61944. pTDefRegMap(@Self)^.clr := $00000100
  61945. else
  61946. pTDefRegMap(@Self)^.&set := $00000100;
  61947. end;
  61948. function TPORTD_ODCD.getODCD8 : TBits_1; inline;
  61949. begin
  61950. getODCD8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  61951. end;
  61952. procedure TPORTD_ODCD.setODCD9; inline;
  61953. begin
  61954. pTDefRegMap(@Self)^.&set := $00000200;
  61955. end;
  61956. procedure TPORTD_ODCD.clearODCD9; inline;
  61957. begin
  61958. pTDefRegMap(@Self)^.clr := $00000200;
  61959. end;
  61960. procedure TPORTD_ODCD.setODCD9(thebits : TBits_1); inline;
  61961. begin
  61962. if thebits = 0 then
  61963. pTDefRegMap(@Self)^.clr := $00000200
  61964. else
  61965. pTDefRegMap(@Self)^.&set := $00000200;
  61966. end;
  61967. function TPORTD_ODCD.getODCD9 : TBits_1; inline;
  61968. begin
  61969. getODCD9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  61970. end;
  61971. procedure TPORTD_ODCD.setODCD10; inline;
  61972. begin
  61973. pTDefRegMap(@Self)^.&set := $00000400;
  61974. end;
  61975. procedure TPORTD_ODCD.clearODCD10; inline;
  61976. begin
  61977. pTDefRegMap(@Self)^.clr := $00000400;
  61978. end;
  61979. procedure TPORTD_ODCD.setODCD10(thebits : TBits_1); inline;
  61980. begin
  61981. if thebits = 0 then
  61982. pTDefRegMap(@Self)^.clr := $00000400
  61983. else
  61984. pTDefRegMap(@Self)^.&set := $00000400;
  61985. end;
  61986. function TPORTD_ODCD.getODCD10 : TBits_1; inline;
  61987. begin
  61988. getODCD10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  61989. end;
  61990. procedure TPORTD_ODCD.setODCD11; inline;
  61991. begin
  61992. pTDefRegMap(@Self)^.&set := $00000800;
  61993. end;
  61994. procedure TPORTD_ODCD.clearODCD11; inline;
  61995. begin
  61996. pTDefRegMap(@Self)^.clr := $00000800;
  61997. end;
  61998. procedure TPORTD_ODCD.setODCD11(thebits : TBits_1); inline;
  61999. begin
  62000. if thebits = 0 then
  62001. pTDefRegMap(@Self)^.clr := $00000800
  62002. else
  62003. pTDefRegMap(@Self)^.&set := $00000800;
  62004. end;
  62005. function TPORTD_ODCD.getODCD11 : TBits_1; inline;
  62006. begin
  62007. getODCD11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  62008. end;
  62009. procedure TPORTD_ODCD.setODCD12; inline;
  62010. begin
  62011. pTDefRegMap(@Self)^.&set := $00001000;
  62012. end;
  62013. procedure TPORTD_ODCD.clearODCD12; inline;
  62014. begin
  62015. pTDefRegMap(@Self)^.clr := $00001000;
  62016. end;
  62017. procedure TPORTD_ODCD.setODCD12(thebits : TBits_1); inline;
  62018. begin
  62019. if thebits = 0 then
  62020. pTDefRegMap(@Self)^.clr := $00001000
  62021. else
  62022. pTDefRegMap(@Self)^.&set := $00001000;
  62023. end;
  62024. function TPORTD_ODCD.getODCD12 : TBits_1; inline;
  62025. begin
  62026. getODCD12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  62027. end;
  62028. procedure TPORTD_ODCD.setODCD13; inline;
  62029. begin
  62030. pTDefRegMap(@Self)^.&set := $00002000;
  62031. end;
  62032. procedure TPORTD_ODCD.clearODCD13; inline;
  62033. begin
  62034. pTDefRegMap(@Self)^.clr := $00002000;
  62035. end;
  62036. procedure TPORTD_ODCD.setODCD13(thebits : TBits_1); inline;
  62037. begin
  62038. if thebits = 0 then
  62039. pTDefRegMap(@Self)^.clr := $00002000
  62040. else
  62041. pTDefRegMap(@Self)^.&set := $00002000;
  62042. end;
  62043. function TPORTD_ODCD.getODCD13 : TBits_1; inline;
  62044. begin
  62045. getODCD13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  62046. end;
  62047. procedure TPORTD_ODCD.setODCD14; inline;
  62048. begin
  62049. pTDefRegMap(@Self)^.&set := $00004000;
  62050. end;
  62051. procedure TPORTD_ODCD.clearODCD14; inline;
  62052. begin
  62053. pTDefRegMap(@Self)^.clr := $00004000;
  62054. end;
  62055. procedure TPORTD_ODCD.setODCD14(thebits : TBits_1); inline;
  62056. begin
  62057. if thebits = 0 then
  62058. pTDefRegMap(@Self)^.clr := $00004000
  62059. else
  62060. pTDefRegMap(@Self)^.&set := $00004000;
  62061. end;
  62062. function TPORTD_ODCD.getODCD14 : TBits_1; inline;
  62063. begin
  62064. getODCD14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  62065. end;
  62066. procedure TPORTD_ODCD.setODCD15; inline;
  62067. begin
  62068. pTDefRegMap(@Self)^.&set := $00008000;
  62069. end;
  62070. procedure TPORTD_ODCD.clearODCD15; inline;
  62071. begin
  62072. pTDefRegMap(@Self)^.clr := $00008000;
  62073. end;
  62074. procedure TPORTD_ODCD.setODCD15(thebits : TBits_1); inline;
  62075. begin
  62076. if thebits = 0 then
  62077. pTDefRegMap(@Self)^.clr := $00008000
  62078. else
  62079. pTDefRegMap(@Self)^.&set := $00008000;
  62080. end;
  62081. function TPORTD_ODCD.getODCD15 : TBits_1; inline;
  62082. begin
  62083. getODCD15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  62084. end;
  62085. procedure TPORTD_ODCD.setw(thebits : TBits_32); inline;
  62086. begin
  62087. pTDefRegMap(@Self)^.val := thebits;
  62088. end;
  62089. function TPORTD_ODCD.getw : TBits_32; inline;
  62090. begin
  62091. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62092. end;
  62093. procedure TPORTE_TRISE.setTRISE0; inline;
  62094. begin
  62095. pTDefRegMap(@Self)^.&set := $00000001;
  62096. end;
  62097. procedure TPORTE_TRISE.clearTRISE0; inline;
  62098. begin
  62099. pTDefRegMap(@Self)^.clr := $00000001;
  62100. end;
  62101. procedure TPORTE_TRISE.setTRISE0(thebits : TBits_1); inline;
  62102. begin
  62103. if thebits = 0 then
  62104. pTDefRegMap(@Self)^.clr := $00000001
  62105. else
  62106. pTDefRegMap(@Self)^.&set := $00000001;
  62107. end;
  62108. function TPORTE_TRISE.getTRISE0 : TBits_1; inline;
  62109. begin
  62110. getTRISE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62111. end;
  62112. procedure TPORTE_TRISE.setTRISE1; inline;
  62113. begin
  62114. pTDefRegMap(@Self)^.&set := $00000002;
  62115. end;
  62116. procedure TPORTE_TRISE.clearTRISE1; inline;
  62117. begin
  62118. pTDefRegMap(@Self)^.clr := $00000002;
  62119. end;
  62120. procedure TPORTE_TRISE.setTRISE1(thebits : TBits_1); inline;
  62121. begin
  62122. if thebits = 0 then
  62123. pTDefRegMap(@Self)^.clr := $00000002
  62124. else
  62125. pTDefRegMap(@Self)^.&set := $00000002;
  62126. end;
  62127. function TPORTE_TRISE.getTRISE1 : TBits_1; inline;
  62128. begin
  62129. getTRISE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62130. end;
  62131. procedure TPORTE_TRISE.setTRISE2; inline;
  62132. begin
  62133. pTDefRegMap(@Self)^.&set := $00000004;
  62134. end;
  62135. procedure TPORTE_TRISE.clearTRISE2; inline;
  62136. begin
  62137. pTDefRegMap(@Self)^.clr := $00000004;
  62138. end;
  62139. procedure TPORTE_TRISE.setTRISE2(thebits : TBits_1); inline;
  62140. begin
  62141. if thebits = 0 then
  62142. pTDefRegMap(@Self)^.clr := $00000004
  62143. else
  62144. pTDefRegMap(@Self)^.&set := $00000004;
  62145. end;
  62146. function TPORTE_TRISE.getTRISE2 : TBits_1; inline;
  62147. begin
  62148. getTRISE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62149. end;
  62150. procedure TPORTE_TRISE.setTRISE3; inline;
  62151. begin
  62152. pTDefRegMap(@Self)^.&set := $00000008;
  62153. end;
  62154. procedure TPORTE_TRISE.clearTRISE3; inline;
  62155. begin
  62156. pTDefRegMap(@Self)^.clr := $00000008;
  62157. end;
  62158. procedure TPORTE_TRISE.setTRISE3(thebits : TBits_1); inline;
  62159. begin
  62160. if thebits = 0 then
  62161. pTDefRegMap(@Self)^.clr := $00000008
  62162. else
  62163. pTDefRegMap(@Self)^.&set := $00000008;
  62164. end;
  62165. function TPORTE_TRISE.getTRISE3 : TBits_1; inline;
  62166. begin
  62167. getTRISE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62168. end;
  62169. procedure TPORTE_TRISE.setTRISE4; inline;
  62170. begin
  62171. pTDefRegMap(@Self)^.&set := $00000010;
  62172. end;
  62173. procedure TPORTE_TRISE.clearTRISE4; inline;
  62174. begin
  62175. pTDefRegMap(@Self)^.clr := $00000010;
  62176. end;
  62177. procedure TPORTE_TRISE.setTRISE4(thebits : TBits_1); inline;
  62178. begin
  62179. if thebits = 0 then
  62180. pTDefRegMap(@Self)^.clr := $00000010
  62181. else
  62182. pTDefRegMap(@Self)^.&set := $00000010;
  62183. end;
  62184. function TPORTE_TRISE.getTRISE4 : TBits_1; inline;
  62185. begin
  62186. getTRISE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62187. end;
  62188. procedure TPORTE_TRISE.setTRISE5; inline;
  62189. begin
  62190. pTDefRegMap(@Self)^.&set := $00000020;
  62191. end;
  62192. procedure TPORTE_TRISE.clearTRISE5; inline;
  62193. begin
  62194. pTDefRegMap(@Self)^.clr := $00000020;
  62195. end;
  62196. procedure TPORTE_TRISE.setTRISE5(thebits : TBits_1); inline;
  62197. begin
  62198. if thebits = 0 then
  62199. pTDefRegMap(@Self)^.clr := $00000020
  62200. else
  62201. pTDefRegMap(@Self)^.&set := $00000020;
  62202. end;
  62203. function TPORTE_TRISE.getTRISE5 : TBits_1; inline;
  62204. begin
  62205. getTRISE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62206. end;
  62207. procedure TPORTE_TRISE.setTRISE6; inline;
  62208. begin
  62209. pTDefRegMap(@Self)^.&set := $00000040;
  62210. end;
  62211. procedure TPORTE_TRISE.clearTRISE6; inline;
  62212. begin
  62213. pTDefRegMap(@Self)^.clr := $00000040;
  62214. end;
  62215. procedure TPORTE_TRISE.setTRISE6(thebits : TBits_1); inline;
  62216. begin
  62217. if thebits = 0 then
  62218. pTDefRegMap(@Self)^.clr := $00000040
  62219. else
  62220. pTDefRegMap(@Self)^.&set := $00000040;
  62221. end;
  62222. function TPORTE_TRISE.getTRISE6 : TBits_1; inline;
  62223. begin
  62224. getTRISE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62225. end;
  62226. procedure TPORTE_TRISE.setTRISE7; inline;
  62227. begin
  62228. pTDefRegMap(@Self)^.&set := $00000080;
  62229. end;
  62230. procedure TPORTE_TRISE.clearTRISE7; inline;
  62231. begin
  62232. pTDefRegMap(@Self)^.clr := $00000080;
  62233. end;
  62234. procedure TPORTE_TRISE.setTRISE7(thebits : TBits_1); inline;
  62235. begin
  62236. if thebits = 0 then
  62237. pTDefRegMap(@Self)^.clr := $00000080
  62238. else
  62239. pTDefRegMap(@Self)^.&set := $00000080;
  62240. end;
  62241. function TPORTE_TRISE.getTRISE7 : TBits_1; inline;
  62242. begin
  62243. getTRISE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62244. end;
  62245. procedure TPORTE_TRISE.setTRISE8; inline;
  62246. begin
  62247. pTDefRegMap(@Self)^.&set := $00000100;
  62248. end;
  62249. procedure TPORTE_TRISE.clearTRISE8; inline;
  62250. begin
  62251. pTDefRegMap(@Self)^.clr := $00000100;
  62252. end;
  62253. procedure TPORTE_TRISE.setTRISE8(thebits : TBits_1); inline;
  62254. begin
  62255. if thebits = 0 then
  62256. pTDefRegMap(@Self)^.clr := $00000100
  62257. else
  62258. pTDefRegMap(@Self)^.&set := $00000100;
  62259. end;
  62260. function TPORTE_TRISE.getTRISE8 : TBits_1; inline;
  62261. begin
  62262. getTRISE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62263. end;
  62264. procedure TPORTE_TRISE.setTRISE9; inline;
  62265. begin
  62266. pTDefRegMap(@Self)^.&set := $00000200;
  62267. end;
  62268. procedure TPORTE_TRISE.clearTRISE9; inline;
  62269. begin
  62270. pTDefRegMap(@Self)^.clr := $00000200;
  62271. end;
  62272. procedure TPORTE_TRISE.setTRISE9(thebits : TBits_1); inline;
  62273. begin
  62274. if thebits = 0 then
  62275. pTDefRegMap(@Self)^.clr := $00000200
  62276. else
  62277. pTDefRegMap(@Self)^.&set := $00000200;
  62278. end;
  62279. function TPORTE_TRISE.getTRISE9 : TBits_1; inline;
  62280. begin
  62281. getTRISE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62282. end;
  62283. procedure TPORTE_TRISE.setw(thebits : TBits_32); inline;
  62284. begin
  62285. pTDefRegMap(@Self)^.val := thebits;
  62286. end;
  62287. function TPORTE_TRISE.getw : TBits_32; inline;
  62288. begin
  62289. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62290. end;
  62291. procedure TPORTE_PORTE.setRE0; inline;
  62292. begin
  62293. pTDefRegMap(@Self)^.&set := $00000001;
  62294. end;
  62295. procedure TPORTE_PORTE.clearRE0; inline;
  62296. begin
  62297. pTDefRegMap(@Self)^.clr := $00000001;
  62298. end;
  62299. procedure TPORTE_PORTE.setRE0(thebits : TBits_1); inline;
  62300. begin
  62301. if thebits = 0 then
  62302. pTDefRegMap(@Self)^.clr := $00000001
  62303. else
  62304. pTDefRegMap(@Self)^.&set := $00000001;
  62305. end;
  62306. function TPORTE_PORTE.getRE0 : TBits_1; inline;
  62307. begin
  62308. getRE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62309. end;
  62310. procedure TPORTE_PORTE.setRE1; inline;
  62311. begin
  62312. pTDefRegMap(@Self)^.&set := $00000002;
  62313. end;
  62314. procedure TPORTE_PORTE.clearRE1; inline;
  62315. begin
  62316. pTDefRegMap(@Self)^.clr := $00000002;
  62317. end;
  62318. procedure TPORTE_PORTE.setRE1(thebits : TBits_1); inline;
  62319. begin
  62320. if thebits = 0 then
  62321. pTDefRegMap(@Self)^.clr := $00000002
  62322. else
  62323. pTDefRegMap(@Self)^.&set := $00000002;
  62324. end;
  62325. function TPORTE_PORTE.getRE1 : TBits_1; inline;
  62326. begin
  62327. getRE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62328. end;
  62329. procedure TPORTE_PORTE.setRE2; inline;
  62330. begin
  62331. pTDefRegMap(@Self)^.&set := $00000004;
  62332. end;
  62333. procedure TPORTE_PORTE.clearRE2; inline;
  62334. begin
  62335. pTDefRegMap(@Self)^.clr := $00000004;
  62336. end;
  62337. procedure TPORTE_PORTE.setRE2(thebits : TBits_1); inline;
  62338. begin
  62339. if thebits = 0 then
  62340. pTDefRegMap(@Self)^.clr := $00000004
  62341. else
  62342. pTDefRegMap(@Self)^.&set := $00000004;
  62343. end;
  62344. function TPORTE_PORTE.getRE2 : TBits_1; inline;
  62345. begin
  62346. getRE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62347. end;
  62348. procedure TPORTE_PORTE.setRE3; inline;
  62349. begin
  62350. pTDefRegMap(@Self)^.&set := $00000008;
  62351. end;
  62352. procedure TPORTE_PORTE.clearRE3; inline;
  62353. begin
  62354. pTDefRegMap(@Self)^.clr := $00000008;
  62355. end;
  62356. procedure TPORTE_PORTE.setRE3(thebits : TBits_1); inline;
  62357. begin
  62358. if thebits = 0 then
  62359. pTDefRegMap(@Self)^.clr := $00000008
  62360. else
  62361. pTDefRegMap(@Self)^.&set := $00000008;
  62362. end;
  62363. function TPORTE_PORTE.getRE3 : TBits_1; inline;
  62364. begin
  62365. getRE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62366. end;
  62367. procedure TPORTE_PORTE.setRE4; inline;
  62368. begin
  62369. pTDefRegMap(@Self)^.&set := $00000010;
  62370. end;
  62371. procedure TPORTE_PORTE.clearRE4; inline;
  62372. begin
  62373. pTDefRegMap(@Self)^.clr := $00000010;
  62374. end;
  62375. procedure TPORTE_PORTE.setRE4(thebits : TBits_1); inline;
  62376. begin
  62377. if thebits = 0 then
  62378. pTDefRegMap(@Self)^.clr := $00000010
  62379. else
  62380. pTDefRegMap(@Self)^.&set := $00000010;
  62381. end;
  62382. function TPORTE_PORTE.getRE4 : TBits_1; inline;
  62383. begin
  62384. getRE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62385. end;
  62386. procedure TPORTE_PORTE.setRE5; inline;
  62387. begin
  62388. pTDefRegMap(@Self)^.&set := $00000020;
  62389. end;
  62390. procedure TPORTE_PORTE.clearRE5; inline;
  62391. begin
  62392. pTDefRegMap(@Self)^.clr := $00000020;
  62393. end;
  62394. procedure TPORTE_PORTE.setRE5(thebits : TBits_1); inline;
  62395. begin
  62396. if thebits = 0 then
  62397. pTDefRegMap(@Self)^.clr := $00000020
  62398. else
  62399. pTDefRegMap(@Self)^.&set := $00000020;
  62400. end;
  62401. function TPORTE_PORTE.getRE5 : TBits_1; inline;
  62402. begin
  62403. getRE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62404. end;
  62405. procedure TPORTE_PORTE.setRE6; inline;
  62406. begin
  62407. pTDefRegMap(@Self)^.&set := $00000040;
  62408. end;
  62409. procedure TPORTE_PORTE.clearRE6; inline;
  62410. begin
  62411. pTDefRegMap(@Self)^.clr := $00000040;
  62412. end;
  62413. procedure TPORTE_PORTE.setRE6(thebits : TBits_1); inline;
  62414. begin
  62415. if thebits = 0 then
  62416. pTDefRegMap(@Self)^.clr := $00000040
  62417. else
  62418. pTDefRegMap(@Self)^.&set := $00000040;
  62419. end;
  62420. function TPORTE_PORTE.getRE6 : TBits_1; inline;
  62421. begin
  62422. getRE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62423. end;
  62424. procedure TPORTE_PORTE.setRE7; inline;
  62425. begin
  62426. pTDefRegMap(@Self)^.&set := $00000080;
  62427. end;
  62428. procedure TPORTE_PORTE.clearRE7; inline;
  62429. begin
  62430. pTDefRegMap(@Self)^.clr := $00000080;
  62431. end;
  62432. procedure TPORTE_PORTE.setRE7(thebits : TBits_1); inline;
  62433. begin
  62434. if thebits = 0 then
  62435. pTDefRegMap(@Self)^.clr := $00000080
  62436. else
  62437. pTDefRegMap(@Self)^.&set := $00000080;
  62438. end;
  62439. function TPORTE_PORTE.getRE7 : TBits_1; inline;
  62440. begin
  62441. getRE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62442. end;
  62443. procedure TPORTE_PORTE.setRE8; inline;
  62444. begin
  62445. pTDefRegMap(@Self)^.&set := $00000100;
  62446. end;
  62447. procedure TPORTE_PORTE.clearRE8; inline;
  62448. begin
  62449. pTDefRegMap(@Self)^.clr := $00000100;
  62450. end;
  62451. procedure TPORTE_PORTE.setRE8(thebits : TBits_1); inline;
  62452. begin
  62453. if thebits = 0 then
  62454. pTDefRegMap(@Self)^.clr := $00000100
  62455. else
  62456. pTDefRegMap(@Self)^.&set := $00000100;
  62457. end;
  62458. function TPORTE_PORTE.getRE8 : TBits_1; inline;
  62459. begin
  62460. getRE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62461. end;
  62462. procedure TPORTE_PORTE.setRE9; inline;
  62463. begin
  62464. pTDefRegMap(@Self)^.&set := $00000200;
  62465. end;
  62466. procedure TPORTE_PORTE.clearRE9; inline;
  62467. begin
  62468. pTDefRegMap(@Self)^.clr := $00000200;
  62469. end;
  62470. procedure TPORTE_PORTE.setRE9(thebits : TBits_1); inline;
  62471. begin
  62472. if thebits = 0 then
  62473. pTDefRegMap(@Self)^.clr := $00000200
  62474. else
  62475. pTDefRegMap(@Self)^.&set := $00000200;
  62476. end;
  62477. function TPORTE_PORTE.getRE9 : TBits_1; inline;
  62478. begin
  62479. getRE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62480. end;
  62481. procedure TPORTE_PORTE.setw(thebits : TBits_32); inline;
  62482. begin
  62483. pTDefRegMap(@Self)^.val := thebits;
  62484. end;
  62485. function TPORTE_PORTE.getw : TBits_32; inline;
  62486. begin
  62487. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62488. end;
  62489. procedure TPORTE_LATE.setLATE0; inline;
  62490. begin
  62491. pTDefRegMap(@Self)^.&set := $00000001;
  62492. end;
  62493. procedure TPORTE_LATE.clearLATE0; inline;
  62494. begin
  62495. pTDefRegMap(@Self)^.clr := $00000001;
  62496. end;
  62497. procedure TPORTE_LATE.setLATE0(thebits : TBits_1); inline;
  62498. begin
  62499. if thebits = 0 then
  62500. pTDefRegMap(@Self)^.clr := $00000001
  62501. else
  62502. pTDefRegMap(@Self)^.&set := $00000001;
  62503. end;
  62504. function TPORTE_LATE.getLATE0 : TBits_1; inline;
  62505. begin
  62506. getLATE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62507. end;
  62508. procedure TPORTE_LATE.setLATE1; inline;
  62509. begin
  62510. pTDefRegMap(@Self)^.&set := $00000002;
  62511. end;
  62512. procedure TPORTE_LATE.clearLATE1; inline;
  62513. begin
  62514. pTDefRegMap(@Self)^.clr := $00000002;
  62515. end;
  62516. procedure TPORTE_LATE.setLATE1(thebits : TBits_1); inline;
  62517. begin
  62518. if thebits = 0 then
  62519. pTDefRegMap(@Self)^.clr := $00000002
  62520. else
  62521. pTDefRegMap(@Self)^.&set := $00000002;
  62522. end;
  62523. function TPORTE_LATE.getLATE1 : TBits_1; inline;
  62524. begin
  62525. getLATE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62526. end;
  62527. procedure TPORTE_LATE.setLATE2; inline;
  62528. begin
  62529. pTDefRegMap(@Self)^.&set := $00000004;
  62530. end;
  62531. procedure TPORTE_LATE.clearLATE2; inline;
  62532. begin
  62533. pTDefRegMap(@Self)^.clr := $00000004;
  62534. end;
  62535. procedure TPORTE_LATE.setLATE2(thebits : TBits_1); inline;
  62536. begin
  62537. if thebits = 0 then
  62538. pTDefRegMap(@Self)^.clr := $00000004
  62539. else
  62540. pTDefRegMap(@Self)^.&set := $00000004;
  62541. end;
  62542. function TPORTE_LATE.getLATE2 : TBits_1; inline;
  62543. begin
  62544. getLATE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62545. end;
  62546. procedure TPORTE_LATE.setLATE3; inline;
  62547. begin
  62548. pTDefRegMap(@Self)^.&set := $00000008;
  62549. end;
  62550. procedure TPORTE_LATE.clearLATE3; inline;
  62551. begin
  62552. pTDefRegMap(@Self)^.clr := $00000008;
  62553. end;
  62554. procedure TPORTE_LATE.setLATE3(thebits : TBits_1); inline;
  62555. begin
  62556. if thebits = 0 then
  62557. pTDefRegMap(@Self)^.clr := $00000008
  62558. else
  62559. pTDefRegMap(@Self)^.&set := $00000008;
  62560. end;
  62561. function TPORTE_LATE.getLATE3 : TBits_1; inline;
  62562. begin
  62563. getLATE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62564. end;
  62565. procedure TPORTE_LATE.setLATE4; inline;
  62566. begin
  62567. pTDefRegMap(@Self)^.&set := $00000010;
  62568. end;
  62569. procedure TPORTE_LATE.clearLATE4; inline;
  62570. begin
  62571. pTDefRegMap(@Self)^.clr := $00000010;
  62572. end;
  62573. procedure TPORTE_LATE.setLATE4(thebits : TBits_1); inline;
  62574. begin
  62575. if thebits = 0 then
  62576. pTDefRegMap(@Self)^.clr := $00000010
  62577. else
  62578. pTDefRegMap(@Self)^.&set := $00000010;
  62579. end;
  62580. function TPORTE_LATE.getLATE4 : TBits_1; inline;
  62581. begin
  62582. getLATE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62583. end;
  62584. procedure TPORTE_LATE.setLATE5; inline;
  62585. begin
  62586. pTDefRegMap(@Self)^.&set := $00000020;
  62587. end;
  62588. procedure TPORTE_LATE.clearLATE5; inline;
  62589. begin
  62590. pTDefRegMap(@Self)^.clr := $00000020;
  62591. end;
  62592. procedure TPORTE_LATE.setLATE5(thebits : TBits_1); inline;
  62593. begin
  62594. if thebits = 0 then
  62595. pTDefRegMap(@Self)^.clr := $00000020
  62596. else
  62597. pTDefRegMap(@Self)^.&set := $00000020;
  62598. end;
  62599. function TPORTE_LATE.getLATE5 : TBits_1; inline;
  62600. begin
  62601. getLATE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62602. end;
  62603. procedure TPORTE_LATE.setLATE6; inline;
  62604. begin
  62605. pTDefRegMap(@Self)^.&set := $00000040;
  62606. end;
  62607. procedure TPORTE_LATE.clearLATE6; inline;
  62608. begin
  62609. pTDefRegMap(@Self)^.clr := $00000040;
  62610. end;
  62611. procedure TPORTE_LATE.setLATE6(thebits : TBits_1); inline;
  62612. begin
  62613. if thebits = 0 then
  62614. pTDefRegMap(@Self)^.clr := $00000040
  62615. else
  62616. pTDefRegMap(@Self)^.&set := $00000040;
  62617. end;
  62618. function TPORTE_LATE.getLATE6 : TBits_1; inline;
  62619. begin
  62620. getLATE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62621. end;
  62622. procedure TPORTE_LATE.setLATE7; inline;
  62623. begin
  62624. pTDefRegMap(@Self)^.&set := $00000080;
  62625. end;
  62626. procedure TPORTE_LATE.clearLATE7; inline;
  62627. begin
  62628. pTDefRegMap(@Self)^.clr := $00000080;
  62629. end;
  62630. procedure TPORTE_LATE.setLATE7(thebits : TBits_1); inline;
  62631. begin
  62632. if thebits = 0 then
  62633. pTDefRegMap(@Self)^.clr := $00000080
  62634. else
  62635. pTDefRegMap(@Self)^.&set := $00000080;
  62636. end;
  62637. function TPORTE_LATE.getLATE7 : TBits_1; inline;
  62638. begin
  62639. getLATE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62640. end;
  62641. procedure TPORTE_LATE.setLATE8; inline;
  62642. begin
  62643. pTDefRegMap(@Self)^.&set := $00000100;
  62644. end;
  62645. procedure TPORTE_LATE.clearLATE8; inline;
  62646. begin
  62647. pTDefRegMap(@Self)^.clr := $00000100;
  62648. end;
  62649. procedure TPORTE_LATE.setLATE8(thebits : TBits_1); inline;
  62650. begin
  62651. if thebits = 0 then
  62652. pTDefRegMap(@Self)^.clr := $00000100
  62653. else
  62654. pTDefRegMap(@Self)^.&set := $00000100;
  62655. end;
  62656. function TPORTE_LATE.getLATE8 : TBits_1; inline;
  62657. begin
  62658. getLATE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62659. end;
  62660. procedure TPORTE_LATE.setLATE9; inline;
  62661. begin
  62662. pTDefRegMap(@Self)^.&set := $00000200;
  62663. end;
  62664. procedure TPORTE_LATE.clearLATE9; inline;
  62665. begin
  62666. pTDefRegMap(@Self)^.clr := $00000200;
  62667. end;
  62668. procedure TPORTE_LATE.setLATE9(thebits : TBits_1); inline;
  62669. begin
  62670. if thebits = 0 then
  62671. pTDefRegMap(@Self)^.clr := $00000200
  62672. else
  62673. pTDefRegMap(@Self)^.&set := $00000200;
  62674. end;
  62675. function TPORTE_LATE.getLATE9 : TBits_1; inline;
  62676. begin
  62677. getLATE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62678. end;
  62679. procedure TPORTE_LATE.setw(thebits : TBits_32); inline;
  62680. begin
  62681. pTDefRegMap(@Self)^.val := thebits;
  62682. end;
  62683. function TPORTE_LATE.getw : TBits_32; inline;
  62684. begin
  62685. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62686. end;
  62687. procedure TPORTE_ODCE.setODCE0; inline;
  62688. begin
  62689. pTDefRegMap(@Self)^.&set := $00000001;
  62690. end;
  62691. procedure TPORTE_ODCE.clearODCE0; inline;
  62692. begin
  62693. pTDefRegMap(@Self)^.clr := $00000001;
  62694. end;
  62695. procedure TPORTE_ODCE.setODCE0(thebits : TBits_1); inline;
  62696. begin
  62697. if thebits = 0 then
  62698. pTDefRegMap(@Self)^.clr := $00000001
  62699. else
  62700. pTDefRegMap(@Self)^.&set := $00000001;
  62701. end;
  62702. function TPORTE_ODCE.getODCE0 : TBits_1; inline;
  62703. begin
  62704. getODCE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62705. end;
  62706. procedure TPORTE_ODCE.setODCE1; inline;
  62707. begin
  62708. pTDefRegMap(@Self)^.&set := $00000002;
  62709. end;
  62710. procedure TPORTE_ODCE.clearODCE1; inline;
  62711. begin
  62712. pTDefRegMap(@Self)^.clr := $00000002;
  62713. end;
  62714. procedure TPORTE_ODCE.setODCE1(thebits : TBits_1); inline;
  62715. begin
  62716. if thebits = 0 then
  62717. pTDefRegMap(@Self)^.clr := $00000002
  62718. else
  62719. pTDefRegMap(@Self)^.&set := $00000002;
  62720. end;
  62721. function TPORTE_ODCE.getODCE1 : TBits_1; inline;
  62722. begin
  62723. getODCE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62724. end;
  62725. procedure TPORTE_ODCE.setODCE2; inline;
  62726. begin
  62727. pTDefRegMap(@Self)^.&set := $00000004;
  62728. end;
  62729. procedure TPORTE_ODCE.clearODCE2; inline;
  62730. begin
  62731. pTDefRegMap(@Self)^.clr := $00000004;
  62732. end;
  62733. procedure TPORTE_ODCE.setODCE2(thebits : TBits_1); inline;
  62734. begin
  62735. if thebits = 0 then
  62736. pTDefRegMap(@Self)^.clr := $00000004
  62737. else
  62738. pTDefRegMap(@Self)^.&set := $00000004;
  62739. end;
  62740. function TPORTE_ODCE.getODCE2 : TBits_1; inline;
  62741. begin
  62742. getODCE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62743. end;
  62744. procedure TPORTE_ODCE.setODCE3; inline;
  62745. begin
  62746. pTDefRegMap(@Self)^.&set := $00000008;
  62747. end;
  62748. procedure TPORTE_ODCE.clearODCE3; inline;
  62749. begin
  62750. pTDefRegMap(@Self)^.clr := $00000008;
  62751. end;
  62752. procedure TPORTE_ODCE.setODCE3(thebits : TBits_1); inline;
  62753. begin
  62754. if thebits = 0 then
  62755. pTDefRegMap(@Self)^.clr := $00000008
  62756. else
  62757. pTDefRegMap(@Self)^.&set := $00000008;
  62758. end;
  62759. function TPORTE_ODCE.getODCE3 : TBits_1; inline;
  62760. begin
  62761. getODCE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62762. end;
  62763. procedure TPORTE_ODCE.setODCE4; inline;
  62764. begin
  62765. pTDefRegMap(@Self)^.&set := $00000010;
  62766. end;
  62767. procedure TPORTE_ODCE.clearODCE4; inline;
  62768. begin
  62769. pTDefRegMap(@Self)^.clr := $00000010;
  62770. end;
  62771. procedure TPORTE_ODCE.setODCE4(thebits : TBits_1); inline;
  62772. begin
  62773. if thebits = 0 then
  62774. pTDefRegMap(@Self)^.clr := $00000010
  62775. else
  62776. pTDefRegMap(@Self)^.&set := $00000010;
  62777. end;
  62778. function TPORTE_ODCE.getODCE4 : TBits_1; inline;
  62779. begin
  62780. getODCE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62781. end;
  62782. procedure TPORTE_ODCE.setODCE5; inline;
  62783. begin
  62784. pTDefRegMap(@Self)^.&set := $00000020;
  62785. end;
  62786. procedure TPORTE_ODCE.clearODCE5; inline;
  62787. begin
  62788. pTDefRegMap(@Self)^.clr := $00000020;
  62789. end;
  62790. procedure TPORTE_ODCE.setODCE5(thebits : TBits_1); inline;
  62791. begin
  62792. if thebits = 0 then
  62793. pTDefRegMap(@Self)^.clr := $00000020
  62794. else
  62795. pTDefRegMap(@Self)^.&set := $00000020;
  62796. end;
  62797. function TPORTE_ODCE.getODCE5 : TBits_1; inline;
  62798. begin
  62799. getODCE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62800. end;
  62801. procedure TPORTE_ODCE.setODCE6; inline;
  62802. begin
  62803. pTDefRegMap(@Self)^.&set := $00000040;
  62804. end;
  62805. procedure TPORTE_ODCE.clearODCE6; inline;
  62806. begin
  62807. pTDefRegMap(@Self)^.clr := $00000040;
  62808. end;
  62809. procedure TPORTE_ODCE.setODCE6(thebits : TBits_1); inline;
  62810. begin
  62811. if thebits = 0 then
  62812. pTDefRegMap(@Self)^.clr := $00000040
  62813. else
  62814. pTDefRegMap(@Self)^.&set := $00000040;
  62815. end;
  62816. function TPORTE_ODCE.getODCE6 : TBits_1; inline;
  62817. begin
  62818. getODCE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  62819. end;
  62820. procedure TPORTE_ODCE.setODCE7; inline;
  62821. begin
  62822. pTDefRegMap(@Self)^.&set := $00000080;
  62823. end;
  62824. procedure TPORTE_ODCE.clearODCE7; inline;
  62825. begin
  62826. pTDefRegMap(@Self)^.clr := $00000080;
  62827. end;
  62828. procedure TPORTE_ODCE.setODCE7(thebits : TBits_1); inline;
  62829. begin
  62830. if thebits = 0 then
  62831. pTDefRegMap(@Self)^.clr := $00000080
  62832. else
  62833. pTDefRegMap(@Self)^.&set := $00000080;
  62834. end;
  62835. function TPORTE_ODCE.getODCE7 : TBits_1; inline;
  62836. begin
  62837. getODCE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  62838. end;
  62839. procedure TPORTE_ODCE.setODCE8; inline;
  62840. begin
  62841. pTDefRegMap(@Self)^.&set := $00000100;
  62842. end;
  62843. procedure TPORTE_ODCE.clearODCE8; inline;
  62844. begin
  62845. pTDefRegMap(@Self)^.clr := $00000100;
  62846. end;
  62847. procedure TPORTE_ODCE.setODCE8(thebits : TBits_1); inline;
  62848. begin
  62849. if thebits = 0 then
  62850. pTDefRegMap(@Self)^.clr := $00000100
  62851. else
  62852. pTDefRegMap(@Self)^.&set := $00000100;
  62853. end;
  62854. function TPORTE_ODCE.getODCE8 : TBits_1; inline;
  62855. begin
  62856. getODCE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  62857. end;
  62858. procedure TPORTE_ODCE.setODCE9; inline;
  62859. begin
  62860. pTDefRegMap(@Self)^.&set := $00000200;
  62861. end;
  62862. procedure TPORTE_ODCE.clearODCE9; inline;
  62863. begin
  62864. pTDefRegMap(@Self)^.clr := $00000200;
  62865. end;
  62866. procedure TPORTE_ODCE.setODCE9(thebits : TBits_1); inline;
  62867. begin
  62868. if thebits = 0 then
  62869. pTDefRegMap(@Self)^.clr := $00000200
  62870. else
  62871. pTDefRegMap(@Self)^.&set := $00000200;
  62872. end;
  62873. function TPORTE_ODCE.getODCE9 : TBits_1; inline;
  62874. begin
  62875. getODCE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  62876. end;
  62877. procedure TPORTE_ODCE.setw(thebits : TBits_32); inline;
  62878. begin
  62879. pTDefRegMap(@Self)^.val := thebits;
  62880. end;
  62881. function TPORTE_ODCE.getw : TBits_32; inline;
  62882. begin
  62883. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  62884. end;
  62885. procedure TPORTF_TRISF.setTRISF0; inline;
  62886. begin
  62887. pTDefRegMap(@Self)^.&set := $00000001;
  62888. end;
  62889. procedure TPORTF_TRISF.clearTRISF0; inline;
  62890. begin
  62891. pTDefRegMap(@Self)^.clr := $00000001;
  62892. end;
  62893. procedure TPORTF_TRISF.setTRISF0(thebits : TBits_1); inline;
  62894. begin
  62895. if thebits = 0 then
  62896. pTDefRegMap(@Self)^.clr := $00000001
  62897. else
  62898. pTDefRegMap(@Self)^.&set := $00000001;
  62899. end;
  62900. function TPORTF_TRISF.getTRISF0 : TBits_1; inline;
  62901. begin
  62902. getTRISF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  62903. end;
  62904. procedure TPORTF_TRISF.setTRISF1; inline;
  62905. begin
  62906. pTDefRegMap(@Self)^.&set := $00000002;
  62907. end;
  62908. procedure TPORTF_TRISF.clearTRISF1; inline;
  62909. begin
  62910. pTDefRegMap(@Self)^.clr := $00000002;
  62911. end;
  62912. procedure TPORTF_TRISF.setTRISF1(thebits : TBits_1); inline;
  62913. begin
  62914. if thebits = 0 then
  62915. pTDefRegMap(@Self)^.clr := $00000002
  62916. else
  62917. pTDefRegMap(@Self)^.&set := $00000002;
  62918. end;
  62919. function TPORTF_TRISF.getTRISF1 : TBits_1; inline;
  62920. begin
  62921. getTRISF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  62922. end;
  62923. procedure TPORTF_TRISF.setTRISF2; inline;
  62924. begin
  62925. pTDefRegMap(@Self)^.&set := $00000004;
  62926. end;
  62927. procedure TPORTF_TRISF.clearTRISF2; inline;
  62928. begin
  62929. pTDefRegMap(@Self)^.clr := $00000004;
  62930. end;
  62931. procedure TPORTF_TRISF.setTRISF2(thebits : TBits_1); inline;
  62932. begin
  62933. if thebits = 0 then
  62934. pTDefRegMap(@Self)^.clr := $00000004
  62935. else
  62936. pTDefRegMap(@Self)^.&set := $00000004;
  62937. end;
  62938. function TPORTF_TRISF.getTRISF2 : TBits_1; inline;
  62939. begin
  62940. getTRISF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  62941. end;
  62942. procedure TPORTF_TRISF.setTRISF3; inline;
  62943. begin
  62944. pTDefRegMap(@Self)^.&set := $00000008;
  62945. end;
  62946. procedure TPORTF_TRISF.clearTRISF3; inline;
  62947. begin
  62948. pTDefRegMap(@Self)^.clr := $00000008;
  62949. end;
  62950. procedure TPORTF_TRISF.setTRISF3(thebits : TBits_1); inline;
  62951. begin
  62952. if thebits = 0 then
  62953. pTDefRegMap(@Self)^.clr := $00000008
  62954. else
  62955. pTDefRegMap(@Self)^.&set := $00000008;
  62956. end;
  62957. function TPORTF_TRISF.getTRISF3 : TBits_1; inline;
  62958. begin
  62959. getTRISF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  62960. end;
  62961. procedure TPORTF_TRISF.setTRISF4; inline;
  62962. begin
  62963. pTDefRegMap(@Self)^.&set := $00000010;
  62964. end;
  62965. procedure TPORTF_TRISF.clearTRISF4; inline;
  62966. begin
  62967. pTDefRegMap(@Self)^.clr := $00000010;
  62968. end;
  62969. procedure TPORTF_TRISF.setTRISF4(thebits : TBits_1); inline;
  62970. begin
  62971. if thebits = 0 then
  62972. pTDefRegMap(@Self)^.clr := $00000010
  62973. else
  62974. pTDefRegMap(@Self)^.&set := $00000010;
  62975. end;
  62976. function TPORTF_TRISF.getTRISF4 : TBits_1; inline;
  62977. begin
  62978. getTRISF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  62979. end;
  62980. procedure TPORTF_TRISF.setTRISF5; inline;
  62981. begin
  62982. pTDefRegMap(@Self)^.&set := $00000020;
  62983. end;
  62984. procedure TPORTF_TRISF.clearTRISF5; inline;
  62985. begin
  62986. pTDefRegMap(@Self)^.clr := $00000020;
  62987. end;
  62988. procedure TPORTF_TRISF.setTRISF5(thebits : TBits_1); inline;
  62989. begin
  62990. if thebits = 0 then
  62991. pTDefRegMap(@Self)^.clr := $00000020
  62992. else
  62993. pTDefRegMap(@Self)^.&set := $00000020;
  62994. end;
  62995. function TPORTF_TRISF.getTRISF5 : TBits_1; inline;
  62996. begin
  62997. getTRISF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  62998. end;
  62999. procedure TPORTF_TRISF.setTRISF8; inline;
  63000. begin
  63001. pTDefRegMap(@Self)^.&set := $00000100;
  63002. end;
  63003. procedure TPORTF_TRISF.clearTRISF8; inline;
  63004. begin
  63005. pTDefRegMap(@Self)^.clr := $00000100;
  63006. end;
  63007. procedure TPORTF_TRISF.setTRISF8(thebits : TBits_1); inline;
  63008. begin
  63009. if thebits = 0 then
  63010. pTDefRegMap(@Self)^.clr := $00000100
  63011. else
  63012. pTDefRegMap(@Self)^.&set := $00000100;
  63013. end;
  63014. function TPORTF_TRISF.getTRISF8 : TBits_1; inline;
  63015. begin
  63016. getTRISF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63017. end;
  63018. procedure TPORTF_TRISF.setTRISF12; inline;
  63019. begin
  63020. pTDefRegMap(@Self)^.&set := $00001000;
  63021. end;
  63022. procedure TPORTF_TRISF.clearTRISF12; inline;
  63023. begin
  63024. pTDefRegMap(@Self)^.clr := $00001000;
  63025. end;
  63026. procedure TPORTF_TRISF.setTRISF12(thebits : TBits_1); inline;
  63027. begin
  63028. if thebits = 0 then
  63029. pTDefRegMap(@Self)^.clr := $00001000
  63030. else
  63031. pTDefRegMap(@Self)^.&set := $00001000;
  63032. end;
  63033. function TPORTF_TRISF.getTRISF12 : TBits_1; inline;
  63034. begin
  63035. getTRISF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63036. end;
  63037. procedure TPORTF_TRISF.setTRISF13; inline;
  63038. begin
  63039. pTDefRegMap(@Self)^.&set := $00002000;
  63040. end;
  63041. procedure TPORTF_TRISF.clearTRISF13; inline;
  63042. begin
  63043. pTDefRegMap(@Self)^.clr := $00002000;
  63044. end;
  63045. procedure TPORTF_TRISF.setTRISF13(thebits : TBits_1); inline;
  63046. begin
  63047. if thebits = 0 then
  63048. pTDefRegMap(@Self)^.clr := $00002000
  63049. else
  63050. pTDefRegMap(@Self)^.&set := $00002000;
  63051. end;
  63052. function TPORTF_TRISF.getTRISF13 : TBits_1; inline;
  63053. begin
  63054. getTRISF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63055. end;
  63056. procedure TPORTF_TRISF.setw(thebits : TBits_32); inline;
  63057. begin
  63058. pTDefRegMap(@Self)^.val := thebits;
  63059. end;
  63060. function TPORTF_TRISF.getw : TBits_32; inline;
  63061. begin
  63062. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63063. end;
  63064. procedure TPORTF_PORTF.setRF0; inline;
  63065. begin
  63066. pTDefRegMap(@Self)^.&set := $00000001;
  63067. end;
  63068. procedure TPORTF_PORTF.clearRF0; inline;
  63069. begin
  63070. pTDefRegMap(@Self)^.clr := $00000001;
  63071. end;
  63072. procedure TPORTF_PORTF.setRF0(thebits : TBits_1); inline;
  63073. begin
  63074. if thebits = 0 then
  63075. pTDefRegMap(@Self)^.clr := $00000001
  63076. else
  63077. pTDefRegMap(@Self)^.&set := $00000001;
  63078. end;
  63079. function TPORTF_PORTF.getRF0 : TBits_1; inline;
  63080. begin
  63081. getRF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63082. end;
  63083. procedure TPORTF_PORTF.setRF1; inline;
  63084. begin
  63085. pTDefRegMap(@Self)^.&set := $00000002;
  63086. end;
  63087. procedure TPORTF_PORTF.clearRF1; inline;
  63088. begin
  63089. pTDefRegMap(@Self)^.clr := $00000002;
  63090. end;
  63091. procedure TPORTF_PORTF.setRF1(thebits : TBits_1); inline;
  63092. begin
  63093. if thebits = 0 then
  63094. pTDefRegMap(@Self)^.clr := $00000002
  63095. else
  63096. pTDefRegMap(@Self)^.&set := $00000002;
  63097. end;
  63098. function TPORTF_PORTF.getRF1 : TBits_1; inline;
  63099. begin
  63100. getRF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63101. end;
  63102. procedure TPORTF_PORTF.setRF2; inline;
  63103. begin
  63104. pTDefRegMap(@Self)^.&set := $00000004;
  63105. end;
  63106. procedure TPORTF_PORTF.clearRF2; inline;
  63107. begin
  63108. pTDefRegMap(@Self)^.clr := $00000004;
  63109. end;
  63110. procedure TPORTF_PORTF.setRF2(thebits : TBits_1); inline;
  63111. begin
  63112. if thebits = 0 then
  63113. pTDefRegMap(@Self)^.clr := $00000004
  63114. else
  63115. pTDefRegMap(@Self)^.&set := $00000004;
  63116. end;
  63117. function TPORTF_PORTF.getRF2 : TBits_1; inline;
  63118. begin
  63119. getRF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63120. end;
  63121. procedure TPORTF_PORTF.setRF3; inline;
  63122. begin
  63123. pTDefRegMap(@Self)^.&set := $00000008;
  63124. end;
  63125. procedure TPORTF_PORTF.clearRF3; inline;
  63126. begin
  63127. pTDefRegMap(@Self)^.clr := $00000008;
  63128. end;
  63129. procedure TPORTF_PORTF.setRF3(thebits : TBits_1); inline;
  63130. begin
  63131. if thebits = 0 then
  63132. pTDefRegMap(@Self)^.clr := $00000008
  63133. else
  63134. pTDefRegMap(@Self)^.&set := $00000008;
  63135. end;
  63136. function TPORTF_PORTF.getRF3 : TBits_1; inline;
  63137. begin
  63138. getRF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63139. end;
  63140. procedure TPORTF_PORTF.setRF4; inline;
  63141. begin
  63142. pTDefRegMap(@Self)^.&set := $00000010;
  63143. end;
  63144. procedure TPORTF_PORTF.clearRF4; inline;
  63145. begin
  63146. pTDefRegMap(@Self)^.clr := $00000010;
  63147. end;
  63148. procedure TPORTF_PORTF.setRF4(thebits : TBits_1); inline;
  63149. begin
  63150. if thebits = 0 then
  63151. pTDefRegMap(@Self)^.clr := $00000010
  63152. else
  63153. pTDefRegMap(@Self)^.&set := $00000010;
  63154. end;
  63155. function TPORTF_PORTF.getRF4 : TBits_1; inline;
  63156. begin
  63157. getRF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63158. end;
  63159. procedure TPORTF_PORTF.setRF5; inline;
  63160. begin
  63161. pTDefRegMap(@Self)^.&set := $00000020;
  63162. end;
  63163. procedure TPORTF_PORTF.clearRF5; inline;
  63164. begin
  63165. pTDefRegMap(@Self)^.clr := $00000020;
  63166. end;
  63167. procedure TPORTF_PORTF.setRF5(thebits : TBits_1); inline;
  63168. begin
  63169. if thebits = 0 then
  63170. pTDefRegMap(@Self)^.clr := $00000020
  63171. else
  63172. pTDefRegMap(@Self)^.&set := $00000020;
  63173. end;
  63174. function TPORTF_PORTF.getRF5 : TBits_1; inline;
  63175. begin
  63176. getRF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63177. end;
  63178. procedure TPORTF_PORTF.setRF8; inline;
  63179. begin
  63180. pTDefRegMap(@Self)^.&set := $00000100;
  63181. end;
  63182. procedure TPORTF_PORTF.clearRF8; inline;
  63183. begin
  63184. pTDefRegMap(@Self)^.clr := $00000100;
  63185. end;
  63186. procedure TPORTF_PORTF.setRF8(thebits : TBits_1); inline;
  63187. begin
  63188. if thebits = 0 then
  63189. pTDefRegMap(@Self)^.clr := $00000100
  63190. else
  63191. pTDefRegMap(@Self)^.&set := $00000100;
  63192. end;
  63193. function TPORTF_PORTF.getRF8 : TBits_1; inline;
  63194. begin
  63195. getRF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63196. end;
  63197. procedure TPORTF_PORTF.setRF12; inline;
  63198. begin
  63199. pTDefRegMap(@Self)^.&set := $00001000;
  63200. end;
  63201. procedure TPORTF_PORTF.clearRF12; inline;
  63202. begin
  63203. pTDefRegMap(@Self)^.clr := $00001000;
  63204. end;
  63205. procedure TPORTF_PORTF.setRF12(thebits : TBits_1); inline;
  63206. begin
  63207. if thebits = 0 then
  63208. pTDefRegMap(@Self)^.clr := $00001000
  63209. else
  63210. pTDefRegMap(@Self)^.&set := $00001000;
  63211. end;
  63212. function TPORTF_PORTF.getRF12 : TBits_1; inline;
  63213. begin
  63214. getRF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63215. end;
  63216. procedure TPORTF_PORTF.setRF13; inline;
  63217. begin
  63218. pTDefRegMap(@Self)^.&set := $00002000;
  63219. end;
  63220. procedure TPORTF_PORTF.clearRF13; inline;
  63221. begin
  63222. pTDefRegMap(@Self)^.clr := $00002000;
  63223. end;
  63224. procedure TPORTF_PORTF.setRF13(thebits : TBits_1); inline;
  63225. begin
  63226. if thebits = 0 then
  63227. pTDefRegMap(@Self)^.clr := $00002000
  63228. else
  63229. pTDefRegMap(@Self)^.&set := $00002000;
  63230. end;
  63231. function TPORTF_PORTF.getRF13 : TBits_1; inline;
  63232. begin
  63233. getRF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63234. end;
  63235. procedure TPORTF_PORTF.setw(thebits : TBits_32); inline;
  63236. begin
  63237. pTDefRegMap(@Self)^.val := thebits;
  63238. end;
  63239. function TPORTF_PORTF.getw : TBits_32; inline;
  63240. begin
  63241. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63242. end;
  63243. procedure TPORTF_LATF.setLATF0; inline;
  63244. begin
  63245. pTDefRegMap(@Self)^.&set := $00000001;
  63246. end;
  63247. procedure TPORTF_LATF.clearLATF0; inline;
  63248. begin
  63249. pTDefRegMap(@Self)^.clr := $00000001;
  63250. end;
  63251. procedure TPORTF_LATF.setLATF0(thebits : TBits_1); inline;
  63252. begin
  63253. if thebits = 0 then
  63254. pTDefRegMap(@Self)^.clr := $00000001
  63255. else
  63256. pTDefRegMap(@Self)^.&set := $00000001;
  63257. end;
  63258. function TPORTF_LATF.getLATF0 : TBits_1; inline;
  63259. begin
  63260. getLATF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63261. end;
  63262. procedure TPORTF_LATF.setLATF1; inline;
  63263. begin
  63264. pTDefRegMap(@Self)^.&set := $00000002;
  63265. end;
  63266. procedure TPORTF_LATF.clearLATF1; inline;
  63267. begin
  63268. pTDefRegMap(@Self)^.clr := $00000002;
  63269. end;
  63270. procedure TPORTF_LATF.setLATF1(thebits : TBits_1); inline;
  63271. begin
  63272. if thebits = 0 then
  63273. pTDefRegMap(@Self)^.clr := $00000002
  63274. else
  63275. pTDefRegMap(@Self)^.&set := $00000002;
  63276. end;
  63277. function TPORTF_LATF.getLATF1 : TBits_1; inline;
  63278. begin
  63279. getLATF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63280. end;
  63281. procedure TPORTF_LATF.setLATF2; inline;
  63282. begin
  63283. pTDefRegMap(@Self)^.&set := $00000004;
  63284. end;
  63285. procedure TPORTF_LATF.clearLATF2; inline;
  63286. begin
  63287. pTDefRegMap(@Self)^.clr := $00000004;
  63288. end;
  63289. procedure TPORTF_LATF.setLATF2(thebits : TBits_1); inline;
  63290. begin
  63291. if thebits = 0 then
  63292. pTDefRegMap(@Self)^.clr := $00000004
  63293. else
  63294. pTDefRegMap(@Self)^.&set := $00000004;
  63295. end;
  63296. function TPORTF_LATF.getLATF2 : TBits_1; inline;
  63297. begin
  63298. getLATF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63299. end;
  63300. procedure TPORTF_LATF.setLATF3; inline;
  63301. begin
  63302. pTDefRegMap(@Self)^.&set := $00000008;
  63303. end;
  63304. procedure TPORTF_LATF.clearLATF3; inline;
  63305. begin
  63306. pTDefRegMap(@Self)^.clr := $00000008;
  63307. end;
  63308. procedure TPORTF_LATF.setLATF3(thebits : TBits_1); inline;
  63309. begin
  63310. if thebits = 0 then
  63311. pTDefRegMap(@Self)^.clr := $00000008
  63312. else
  63313. pTDefRegMap(@Self)^.&set := $00000008;
  63314. end;
  63315. function TPORTF_LATF.getLATF3 : TBits_1; inline;
  63316. begin
  63317. getLATF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63318. end;
  63319. procedure TPORTF_LATF.setLATF4; inline;
  63320. begin
  63321. pTDefRegMap(@Self)^.&set := $00000010;
  63322. end;
  63323. procedure TPORTF_LATF.clearLATF4; inline;
  63324. begin
  63325. pTDefRegMap(@Self)^.clr := $00000010;
  63326. end;
  63327. procedure TPORTF_LATF.setLATF4(thebits : TBits_1); inline;
  63328. begin
  63329. if thebits = 0 then
  63330. pTDefRegMap(@Self)^.clr := $00000010
  63331. else
  63332. pTDefRegMap(@Self)^.&set := $00000010;
  63333. end;
  63334. function TPORTF_LATF.getLATF4 : TBits_1; inline;
  63335. begin
  63336. getLATF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63337. end;
  63338. procedure TPORTF_LATF.setLATF5; inline;
  63339. begin
  63340. pTDefRegMap(@Self)^.&set := $00000020;
  63341. end;
  63342. procedure TPORTF_LATF.clearLATF5; inline;
  63343. begin
  63344. pTDefRegMap(@Self)^.clr := $00000020;
  63345. end;
  63346. procedure TPORTF_LATF.setLATF5(thebits : TBits_1); inline;
  63347. begin
  63348. if thebits = 0 then
  63349. pTDefRegMap(@Self)^.clr := $00000020
  63350. else
  63351. pTDefRegMap(@Self)^.&set := $00000020;
  63352. end;
  63353. function TPORTF_LATF.getLATF5 : TBits_1; inline;
  63354. begin
  63355. getLATF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63356. end;
  63357. procedure TPORTF_LATF.setLATF8; inline;
  63358. begin
  63359. pTDefRegMap(@Self)^.&set := $00000100;
  63360. end;
  63361. procedure TPORTF_LATF.clearLATF8; inline;
  63362. begin
  63363. pTDefRegMap(@Self)^.clr := $00000100;
  63364. end;
  63365. procedure TPORTF_LATF.setLATF8(thebits : TBits_1); inline;
  63366. begin
  63367. if thebits = 0 then
  63368. pTDefRegMap(@Self)^.clr := $00000100
  63369. else
  63370. pTDefRegMap(@Self)^.&set := $00000100;
  63371. end;
  63372. function TPORTF_LATF.getLATF8 : TBits_1; inline;
  63373. begin
  63374. getLATF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63375. end;
  63376. procedure TPORTF_LATF.setLATF12; inline;
  63377. begin
  63378. pTDefRegMap(@Self)^.&set := $00001000;
  63379. end;
  63380. procedure TPORTF_LATF.clearLATF12; inline;
  63381. begin
  63382. pTDefRegMap(@Self)^.clr := $00001000;
  63383. end;
  63384. procedure TPORTF_LATF.setLATF12(thebits : TBits_1); inline;
  63385. begin
  63386. if thebits = 0 then
  63387. pTDefRegMap(@Self)^.clr := $00001000
  63388. else
  63389. pTDefRegMap(@Self)^.&set := $00001000;
  63390. end;
  63391. function TPORTF_LATF.getLATF12 : TBits_1; inline;
  63392. begin
  63393. getLATF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63394. end;
  63395. procedure TPORTF_LATF.setLATF13; inline;
  63396. begin
  63397. pTDefRegMap(@Self)^.&set := $00002000;
  63398. end;
  63399. procedure TPORTF_LATF.clearLATF13; inline;
  63400. begin
  63401. pTDefRegMap(@Self)^.clr := $00002000;
  63402. end;
  63403. procedure TPORTF_LATF.setLATF13(thebits : TBits_1); inline;
  63404. begin
  63405. if thebits = 0 then
  63406. pTDefRegMap(@Self)^.clr := $00002000
  63407. else
  63408. pTDefRegMap(@Self)^.&set := $00002000;
  63409. end;
  63410. function TPORTF_LATF.getLATF13 : TBits_1; inline;
  63411. begin
  63412. getLATF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63413. end;
  63414. procedure TPORTF_LATF.setw(thebits : TBits_32); inline;
  63415. begin
  63416. pTDefRegMap(@Self)^.val := thebits;
  63417. end;
  63418. function TPORTF_LATF.getw : TBits_32; inline;
  63419. begin
  63420. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63421. end;
  63422. procedure TPORTF_ODCF.setODCF0; inline;
  63423. begin
  63424. pTDefRegMap(@Self)^.&set := $00000001;
  63425. end;
  63426. procedure TPORTF_ODCF.clearODCF0; inline;
  63427. begin
  63428. pTDefRegMap(@Self)^.clr := $00000001;
  63429. end;
  63430. procedure TPORTF_ODCF.setODCF0(thebits : TBits_1); inline;
  63431. begin
  63432. if thebits = 0 then
  63433. pTDefRegMap(@Self)^.clr := $00000001
  63434. else
  63435. pTDefRegMap(@Self)^.&set := $00000001;
  63436. end;
  63437. function TPORTF_ODCF.getODCF0 : TBits_1; inline;
  63438. begin
  63439. getODCF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63440. end;
  63441. procedure TPORTF_ODCF.setODCF1; inline;
  63442. begin
  63443. pTDefRegMap(@Self)^.&set := $00000002;
  63444. end;
  63445. procedure TPORTF_ODCF.clearODCF1; inline;
  63446. begin
  63447. pTDefRegMap(@Self)^.clr := $00000002;
  63448. end;
  63449. procedure TPORTF_ODCF.setODCF1(thebits : TBits_1); inline;
  63450. begin
  63451. if thebits = 0 then
  63452. pTDefRegMap(@Self)^.clr := $00000002
  63453. else
  63454. pTDefRegMap(@Self)^.&set := $00000002;
  63455. end;
  63456. function TPORTF_ODCF.getODCF1 : TBits_1; inline;
  63457. begin
  63458. getODCF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63459. end;
  63460. procedure TPORTF_ODCF.setODCF2; inline;
  63461. begin
  63462. pTDefRegMap(@Self)^.&set := $00000004;
  63463. end;
  63464. procedure TPORTF_ODCF.clearODCF2; inline;
  63465. begin
  63466. pTDefRegMap(@Self)^.clr := $00000004;
  63467. end;
  63468. procedure TPORTF_ODCF.setODCF2(thebits : TBits_1); inline;
  63469. begin
  63470. if thebits = 0 then
  63471. pTDefRegMap(@Self)^.clr := $00000004
  63472. else
  63473. pTDefRegMap(@Self)^.&set := $00000004;
  63474. end;
  63475. function TPORTF_ODCF.getODCF2 : TBits_1; inline;
  63476. begin
  63477. getODCF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63478. end;
  63479. procedure TPORTF_ODCF.setODCF3; inline;
  63480. begin
  63481. pTDefRegMap(@Self)^.&set := $00000008;
  63482. end;
  63483. procedure TPORTF_ODCF.clearODCF3; inline;
  63484. begin
  63485. pTDefRegMap(@Self)^.clr := $00000008;
  63486. end;
  63487. procedure TPORTF_ODCF.setODCF3(thebits : TBits_1); inline;
  63488. begin
  63489. if thebits = 0 then
  63490. pTDefRegMap(@Self)^.clr := $00000008
  63491. else
  63492. pTDefRegMap(@Self)^.&set := $00000008;
  63493. end;
  63494. function TPORTF_ODCF.getODCF3 : TBits_1; inline;
  63495. begin
  63496. getODCF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63497. end;
  63498. procedure TPORTF_ODCF.setODCF4; inline;
  63499. begin
  63500. pTDefRegMap(@Self)^.&set := $00000010;
  63501. end;
  63502. procedure TPORTF_ODCF.clearODCF4; inline;
  63503. begin
  63504. pTDefRegMap(@Self)^.clr := $00000010;
  63505. end;
  63506. procedure TPORTF_ODCF.setODCF4(thebits : TBits_1); inline;
  63507. begin
  63508. if thebits = 0 then
  63509. pTDefRegMap(@Self)^.clr := $00000010
  63510. else
  63511. pTDefRegMap(@Self)^.&set := $00000010;
  63512. end;
  63513. function TPORTF_ODCF.getODCF4 : TBits_1; inline;
  63514. begin
  63515. getODCF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  63516. end;
  63517. procedure TPORTF_ODCF.setODCF5; inline;
  63518. begin
  63519. pTDefRegMap(@Self)^.&set := $00000020;
  63520. end;
  63521. procedure TPORTF_ODCF.clearODCF5; inline;
  63522. begin
  63523. pTDefRegMap(@Self)^.clr := $00000020;
  63524. end;
  63525. procedure TPORTF_ODCF.setODCF5(thebits : TBits_1); inline;
  63526. begin
  63527. if thebits = 0 then
  63528. pTDefRegMap(@Self)^.clr := $00000020
  63529. else
  63530. pTDefRegMap(@Self)^.&set := $00000020;
  63531. end;
  63532. function TPORTF_ODCF.getODCF5 : TBits_1; inline;
  63533. begin
  63534. getODCF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  63535. end;
  63536. procedure TPORTF_ODCF.setODCF8; inline;
  63537. begin
  63538. pTDefRegMap(@Self)^.&set := $00000100;
  63539. end;
  63540. procedure TPORTF_ODCF.clearODCF8; inline;
  63541. begin
  63542. pTDefRegMap(@Self)^.clr := $00000100;
  63543. end;
  63544. procedure TPORTF_ODCF.setODCF8(thebits : TBits_1); inline;
  63545. begin
  63546. if thebits = 0 then
  63547. pTDefRegMap(@Self)^.clr := $00000100
  63548. else
  63549. pTDefRegMap(@Self)^.&set := $00000100;
  63550. end;
  63551. function TPORTF_ODCF.getODCF8 : TBits_1; inline;
  63552. begin
  63553. getODCF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63554. end;
  63555. procedure TPORTF_ODCF.setODCF12; inline;
  63556. begin
  63557. pTDefRegMap(@Self)^.&set := $00001000;
  63558. end;
  63559. procedure TPORTF_ODCF.clearODCF12; inline;
  63560. begin
  63561. pTDefRegMap(@Self)^.clr := $00001000;
  63562. end;
  63563. procedure TPORTF_ODCF.setODCF12(thebits : TBits_1); inline;
  63564. begin
  63565. if thebits = 0 then
  63566. pTDefRegMap(@Self)^.clr := $00001000
  63567. else
  63568. pTDefRegMap(@Self)^.&set := $00001000;
  63569. end;
  63570. function TPORTF_ODCF.getODCF12 : TBits_1; inline;
  63571. begin
  63572. getODCF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63573. end;
  63574. procedure TPORTF_ODCF.setODCF13; inline;
  63575. begin
  63576. pTDefRegMap(@Self)^.&set := $00002000;
  63577. end;
  63578. procedure TPORTF_ODCF.clearODCF13; inline;
  63579. begin
  63580. pTDefRegMap(@Self)^.clr := $00002000;
  63581. end;
  63582. procedure TPORTF_ODCF.setODCF13(thebits : TBits_1); inline;
  63583. begin
  63584. if thebits = 0 then
  63585. pTDefRegMap(@Self)^.clr := $00002000
  63586. else
  63587. pTDefRegMap(@Self)^.&set := $00002000;
  63588. end;
  63589. function TPORTF_ODCF.getODCF13 : TBits_1; inline;
  63590. begin
  63591. getODCF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63592. end;
  63593. procedure TPORTF_ODCF.setw(thebits : TBits_32); inline;
  63594. begin
  63595. pTDefRegMap(@Self)^.val := thebits;
  63596. end;
  63597. function TPORTF_ODCF.getw : TBits_32; inline;
  63598. begin
  63599. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63600. end;
  63601. procedure TPORTG_TRISG.setTRISG0; inline;
  63602. begin
  63603. pTDefRegMap(@Self)^.&set := $00000001;
  63604. end;
  63605. procedure TPORTG_TRISG.clearTRISG0; inline;
  63606. begin
  63607. pTDefRegMap(@Self)^.clr := $00000001;
  63608. end;
  63609. procedure TPORTG_TRISG.setTRISG0(thebits : TBits_1); inline;
  63610. begin
  63611. if thebits = 0 then
  63612. pTDefRegMap(@Self)^.clr := $00000001
  63613. else
  63614. pTDefRegMap(@Self)^.&set := $00000001;
  63615. end;
  63616. function TPORTG_TRISG.getTRISG0 : TBits_1; inline;
  63617. begin
  63618. getTRISG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63619. end;
  63620. procedure TPORTG_TRISG.setTRISG1; inline;
  63621. begin
  63622. pTDefRegMap(@Self)^.&set := $00000002;
  63623. end;
  63624. procedure TPORTG_TRISG.clearTRISG1; inline;
  63625. begin
  63626. pTDefRegMap(@Self)^.clr := $00000002;
  63627. end;
  63628. procedure TPORTG_TRISG.setTRISG1(thebits : TBits_1); inline;
  63629. begin
  63630. if thebits = 0 then
  63631. pTDefRegMap(@Self)^.clr := $00000002
  63632. else
  63633. pTDefRegMap(@Self)^.&set := $00000002;
  63634. end;
  63635. function TPORTG_TRISG.getTRISG1 : TBits_1; inline;
  63636. begin
  63637. getTRISG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63638. end;
  63639. procedure TPORTG_TRISG.setTRISG2; inline;
  63640. begin
  63641. pTDefRegMap(@Self)^.&set := $00000004;
  63642. end;
  63643. procedure TPORTG_TRISG.clearTRISG2; inline;
  63644. begin
  63645. pTDefRegMap(@Self)^.clr := $00000004;
  63646. end;
  63647. procedure TPORTG_TRISG.setTRISG2(thebits : TBits_1); inline;
  63648. begin
  63649. if thebits = 0 then
  63650. pTDefRegMap(@Self)^.clr := $00000004
  63651. else
  63652. pTDefRegMap(@Self)^.&set := $00000004;
  63653. end;
  63654. function TPORTG_TRISG.getTRISG2 : TBits_1; inline;
  63655. begin
  63656. getTRISG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63657. end;
  63658. procedure TPORTG_TRISG.setTRISG3; inline;
  63659. begin
  63660. pTDefRegMap(@Self)^.&set := $00000008;
  63661. end;
  63662. procedure TPORTG_TRISG.clearTRISG3; inline;
  63663. begin
  63664. pTDefRegMap(@Self)^.clr := $00000008;
  63665. end;
  63666. procedure TPORTG_TRISG.setTRISG3(thebits : TBits_1); inline;
  63667. begin
  63668. if thebits = 0 then
  63669. pTDefRegMap(@Self)^.clr := $00000008
  63670. else
  63671. pTDefRegMap(@Self)^.&set := $00000008;
  63672. end;
  63673. function TPORTG_TRISG.getTRISG3 : TBits_1; inline;
  63674. begin
  63675. getTRISG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63676. end;
  63677. procedure TPORTG_TRISG.setTRISG6; inline;
  63678. begin
  63679. pTDefRegMap(@Self)^.&set := $00000040;
  63680. end;
  63681. procedure TPORTG_TRISG.clearTRISG6; inline;
  63682. begin
  63683. pTDefRegMap(@Self)^.clr := $00000040;
  63684. end;
  63685. procedure TPORTG_TRISG.setTRISG6(thebits : TBits_1); inline;
  63686. begin
  63687. if thebits = 0 then
  63688. pTDefRegMap(@Self)^.clr := $00000040
  63689. else
  63690. pTDefRegMap(@Self)^.&set := $00000040;
  63691. end;
  63692. function TPORTG_TRISG.getTRISG6 : TBits_1; inline;
  63693. begin
  63694. getTRISG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63695. end;
  63696. procedure TPORTG_TRISG.setTRISG7; inline;
  63697. begin
  63698. pTDefRegMap(@Self)^.&set := $00000080;
  63699. end;
  63700. procedure TPORTG_TRISG.clearTRISG7; inline;
  63701. begin
  63702. pTDefRegMap(@Self)^.clr := $00000080;
  63703. end;
  63704. procedure TPORTG_TRISG.setTRISG7(thebits : TBits_1); inline;
  63705. begin
  63706. if thebits = 0 then
  63707. pTDefRegMap(@Self)^.clr := $00000080
  63708. else
  63709. pTDefRegMap(@Self)^.&set := $00000080;
  63710. end;
  63711. function TPORTG_TRISG.getTRISG7 : TBits_1; inline;
  63712. begin
  63713. getTRISG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63714. end;
  63715. procedure TPORTG_TRISG.setTRISG8; inline;
  63716. begin
  63717. pTDefRegMap(@Self)^.&set := $00000100;
  63718. end;
  63719. procedure TPORTG_TRISG.clearTRISG8; inline;
  63720. begin
  63721. pTDefRegMap(@Self)^.clr := $00000100;
  63722. end;
  63723. procedure TPORTG_TRISG.setTRISG8(thebits : TBits_1); inline;
  63724. begin
  63725. if thebits = 0 then
  63726. pTDefRegMap(@Self)^.clr := $00000100
  63727. else
  63728. pTDefRegMap(@Self)^.&set := $00000100;
  63729. end;
  63730. function TPORTG_TRISG.getTRISG8 : TBits_1; inline;
  63731. begin
  63732. getTRISG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63733. end;
  63734. procedure TPORTG_TRISG.setTRISG9; inline;
  63735. begin
  63736. pTDefRegMap(@Self)^.&set := $00000200;
  63737. end;
  63738. procedure TPORTG_TRISG.clearTRISG9; inline;
  63739. begin
  63740. pTDefRegMap(@Self)^.clr := $00000200;
  63741. end;
  63742. procedure TPORTG_TRISG.setTRISG9(thebits : TBits_1); inline;
  63743. begin
  63744. if thebits = 0 then
  63745. pTDefRegMap(@Self)^.clr := $00000200
  63746. else
  63747. pTDefRegMap(@Self)^.&set := $00000200;
  63748. end;
  63749. function TPORTG_TRISG.getTRISG9 : TBits_1; inline;
  63750. begin
  63751. getTRISG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63752. end;
  63753. procedure TPORTG_TRISG.setTRISG12; inline;
  63754. begin
  63755. pTDefRegMap(@Self)^.&set := $00001000;
  63756. end;
  63757. procedure TPORTG_TRISG.clearTRISG12; inline;
  63758. begin
  63759. pTDefRegMap(@Self)^.clr := $00001000;
  63760. end;
  63761. procedure TPORTG_TRISG.setTRISG12(thebits : TBits_1); inline;
  63762. begin
  63763. if thebits = 0 then
  63764. pTDefRegMap(@Self)^.clr := $00001000
  63765. else
  63766. pTDefRegMap(@Self)^.&set := $00001000;
  63767. end;
  63768. function TPORTG_TRISG.getTRISG12 : TBits_1; inline;
  63769. begin
  63770. getTRISG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  63771. end;
  63772. procedure TPORTG_TRISG.setTRISG13; inline;
  63773. begin
  63774. pTDefRegMap(@Self)^.&set := $00002000;
  63775. end;
  63776. procedure TPORTG_TRISG.clearTRISG13; inline;
  63777. begin
  63778. pTDefRegMap(@Self)^.clr := $00002000;
  63779. end;
  63780. procedure TPORTG_TRISG.setTRISG13(thebits : TBits_1); inline;
  63781. begin
  63782. if thebits = 0 then
  63783. pTDefRegMap(@Self)^.clr := $00002000
  63784. else
  63785. pTDefRegMap(@Self)^.&set := $00002000;
  63786. end;
  63787. function TPORTG_TRISG.getTRISG13 : TBits_1; inline;
  63788. begin
  63789. getTRISG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  63790. end;
  63791. procedure TPORTG_TRISG.setTRISG14; inline;
  63792. begin
  63793. pTDefRegMap(@Self)^.&set := $00004000;
  63794. end;
  63795. procedure TPORTG_TRISG.clearTRISG14; inline;
  63796. begin
  63797. pTDefRegMap(@Self)^.clr := $00004000;
  63798. end;
  63799. procedure TPORTG_TRISG.setTRISG14(thebits : TBits_1); inline;
  63800. begin
  63801. if thebits = 0 then
  63802. pTDefRegMap(@Self)^.clr := $00004000
  63803. else
  63804. pTDefRegMap(@Self)^.&set := $00004000;
  63805. end;
  63806. function TPORTG_TRISG.getTRISG14 : TBits_1; inline;
  63807. begin
  63808. getTRISG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  63809. end;
  63810. procedure TPORTG_TRISG.setTRISG15; inline;
  63811. begin
  63812. pTDefRegMap(@Self)^.&set := $00008000;
  63813. end;
  63814. procedure TPORTG_TRISG.clearTRISG15; inline;
  63815. begin
  63816. pTDefRegMap(@Self)^.clr := $00008000;
  63817. end;
  63818. procedure TPORTG_TRISG.setTRISG15(thebits : TBits_1); inline;
  63819. begin
  63820. if thebits = 0 then
  63821. pTDefRegMap(@Self)^.clr := $00008000
  63822. else
  63823. pTDefRegMap(@Self)^.&set := $00008000;
  63824. end;
  63825. function TPORTG_TRISG.getTRISG15 : TBits_1; inline;
  63826. begin
  63827. getTRISG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  63828. end;
  63829. procedure TPORTG_TRISG.setw(thebits : TBits_32); inline;
  63830. begin
  63831. pTDefRegMap(@Self)^.val := thebits;
  63832. end;
  63833. function TPORTG_TRISG.getw : TBits_32; inline;
  63834. begin
  63835. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  63836. end;
  63837. procedure TPORTG_PORTG.setRG0; inline;
  63838. begin
  63839. pTDefRegMap(@Self)^.&set := $00000001;
  63840. end;
  63841. procedure TPORTG_PORTG.clearRG0; inline;
  63842. begin
  63843. pTDefRegMap(@Self)^.clr := $00000001;
  63844. end;
  63845. procedure TPORTG_PORTG.setRG0(thebits : TBits_1); inline;
  63846. begin
  63847. if thebits = 0 then
  63848. pTDefRegMap(@Self)^.clr := $00000001
  63849. else
  63850. pTDefRegMap(@Self)^.&set := $00000001;
  63851. end;
  63852. function TPORTG_PORTG.getRG0 : TBits_1; inline;
  63853. begin
  63854. getRG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  63855. end;
  63856. procedure TPORTG_PORTG.setRG1; inline;
  63857. begin
  63858. pTDefRegMap(@Self)^.&set := $00000002;
  63859. end;
  63860. procedure TPORTG_PORTG.clearRG1; inline;
  63861. begin
  63862. pTDefRegMap(@Self)^.clr := $00000002;
  63863. end;
  63864. procedure TPORTG_PORTG.setRG1(thebits : TBits_1); inline;
  63865. begin
  63866. if thebits = 0 then
  63867. pTDefRegMap(@Self)^.clr := $00000002
  63868. else
  63869. pTDefRegMap(@Self)^.&set := $00000002;
  63870. end;
  63871. function TPORTG_PORTG.getRG1 : TBits_1; inline;
  63872. begin
  63873. getRG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  63874. end;
  63875. procedure TPORTG_PORTG.setRG2; inline;
  63876. begin
  63877. pTDefRegMap(@Self)^.&set := $00000004;
  63878. end;
  63879. procedure TPORTG_PORTG.clearRG2; inline;
  63880. begin
  63881. pTDefRegMap(@Self)^.clr := $00000004;
  63882. end;
  63883. procedure TPORTG_PORTG.setRG2(thebits : TBits_1); inline;
  63884. begin
  63885. if thebits = 0 then
  63886. pTDefRegMap(@Self)^.clr := $00000004
  63887. else
  63888. pTDefRegMap(@Self)^.&set := $00000004;
  63889. end;
  63890. function TPORTG_PORTG.getRG2 : TBits_1; inline;
  63891. begin
  63892. getRG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  63893. end;
  63894. procedure TPORTG_PORTG.setRG3; inline;
  63895. begin
  63896. pTDefRegMap(@Self)^.&set := $00000008;
  63897. end;
  63898. procedure TPORTG_PORTG.clearRG3; inline;
  63899. begin
  63900. pTDefRegMap(@Self)^.clr := $00000008;
  63901. end;
  63902. procedure TPORTG_PORTG.setRG3(thebits : TBits_1); inline;
  63903. begin
  63904. if thebits = 0 then
  63905. pTDefRegMap(@Self)^.clr := $00000008
  63906. else
  63907. pTDefRegMap(@Self)^.&set := $00000008;
  63908. end;
  63909. function TPORTG_PORTG.getRG3 : TBits_1; inline;
  63910. begin
  63911. getRG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  63912. end;
  63913. procedure TPORTG_PORTG.setRG6; inline;
  63914. begin
  63915. pTDefRegMap(@Self)^.&set := $00000040;
  63916. end;
  63917. procedure TPORTG_PORTG.clearRG6; inline;
  63918. begin
  63919. pTDefRegMap(@Self)^.clr := $00000040;
  63920. end;
  63921. procedure TPORTG_PORTG.setRG6(thebits : TBits_1); inline;
  63922. begin
  63923. if thebits = 0 then
  63924. pTDefRegMap(@Self)^.clr := $00000040
  63925. else
  63926. pTDefRegMap(@Self)^.&set := $00000040;
  63927. end;
  63928. function TPORTG_PORTG.getRG6 : TBits_1; inline;
  63929. begin
  63930. getRG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  63931. end;
  63932. procedure TPORTG_PORTG.setRG7; inline;
  63933. begin
  63934. pTDefRegMap(@Self)^.&set := $00000080;
  63935. end;
  63936. procedure TPORTG_PORTG.clearRG7; inline;
  63937. begin
  63938. pTDefRegMap(@Self)^.clr := $00000080;
  63939. end;
  63940. procedure TPORTG_PORTG.setRG7(thebits : TBits_1); inline;
  63941. begin
  63942. if thebits = 0 then
  63943. pTDefRegMap(@Self)^.clr := $00000080
  63944. else
  63945. pTDefRegMap(@Self)^.&set := $00000080;
  63946. end;
  63947. function TPORTG_PORTG.getRG7 : TBits_1; inline;
  63948. begin
  63949. getRG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  63950. end;
  63951. procedure TPORTG_PORTG.setRG8; inline;
  63952. begin
  63953. pTDefRegMap(@Self)^.&set := $00000100;
  63954. end;
  63955. procedure TPORTG_PORTG.clearRG8; inline;
  63956. begin
  63957. pTDefRegMap(@Self)^.clr := $00000100;
  63958. end;
  63959. procedure TPORTG_PORTG.setRG8(thebits : TBits_1); inline;
  63960. begin
  63961. if thebits = 0 then
  63962. pTDefRegMap(@Self)^.clr := $00000100
  63963. else
  63964. pTDefRegMap(@Self)^.&set := $00000100;
  63965. end;
  63966. function TPORTG_PORTG.getRG8 : TBits_1; inline;
  63967. begin
  63968. getRG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  63969. end;
  63970. procedure TPORTG_PORTG.setRG9; inline;
  63971. begin
  63972. pTDefRegMap(@Self)^.&set := $00000200;
  63973. end;
  63974. procedure TPORTG_PORTG.clearRG9; inline;
  63975. begin
  63976. pTDefRegMap(@Self)^.clr := $00000200;
  63977. end;
  63978. procedure TPORTG_PORTG.setRG9(thebits : TBits_1); inline;
  63979. begin
  63980. if thebits = 0 then
  63981. pTDefRegMap(@Self)^.clr := $00000200
  63982. else
  63983. pTDefRegMap(@Self)^.&set := $00000200;
  63984. end;
  63985. function TPORTG_PORTG.getRG9 : TBits_1; inline;
  63986. begin
  63987. getRG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  63988. end;
  63989. procedure TPORTG_PORTG.setRG12; inline;
  63990. begin
  63991. pTDefRegMap(@Self)^.&set := $00001000;
  63992. end;
  63993. procedure TPORTG_PORTG.clearRG12; inline;
  63994. begin
  63995. pTDefRegMap(@Self)^.clr := $00001000;
  63996. end;
  63997. procedure TPORTG_PORTG.setRG12(thebits : TBits_1); inline;
  63998. begin
  63999. if thebits = 0 then
  64000. pTDefRegMap(@Self)^.clr := $00001000
  64001. else
  64002. pTDefRegMap(@Self)^.&set := $00001000;
  64003. end;
  64004. function TPORTG_PORTG.getRG12 : TBits_1; inline;
  64005. begin
  64006. getRG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64007. end;
  64008. procedure TPORTG_PORTG.setRG13; inline;
  64009. begin
  64010. pTDefRegMap(@Self)^.&set := $00002000;
  64011. end;
  64012. procedure TPORTG_PORTG.clearRG13; inline;
  64013. begin
  64014. pTDefRegMap(@Self)^.clr := $00002000;
  64015. end;
  64016. procedure TPORTG_PORTG.setRG13(thebits : TBits_1); inline;
  64017. begin
  64018. if thebits = 0 then
  64019. pTDefRegMap(@Self)^.clr := $00002000
  64020. else
  64021. pTDefRegMap(@Self)^.&set := $00002000;
  64022. end;
  64023. function TPORTG_PORTG.getRG13 : TBits_1; inline;
  64024. begin
  64025. getRG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64026. end;
  64027. procedure TPORTG_PORTG.setRG14; inline;
  64028. begin
  64029. pTDefRegMap(@Self)^.&set := $00004000;
  64030. end;
  64031. procedure TPORTG_PORTG.clearRG14; inline;
  64032. begin
  64033. pTDefRegMap(@Self)^.clr := $00004000;
  64034. end;
  64035. procedure TPORTG_PORTG.setRG14(thebits : TBits_1); inline;
  64036. begin
  64037. if thebits = 0 then
  64038. pTDefRegMap(@Self)^.clr := $00004000
  64039. else
  64040. pTDefRegMap(@Self)^.&set := $00004000;
  64041. end;
  64042. function TPORTG_PORTG.getRG14 : TBits_1; inline;
  64043. begin
  64044. getRG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64045. end;
  64046. procedure TPORTG_PORTG.setRG15; inline;
  64047. begin
  64048. pTDefRegMap(@Self)^.&set := $00008000;
  64049. end;
  64050. procedure TPORTG_PORTG.clearRG15; inline;
  64051. begin
  64052. pTDefRegMap(@Self)^.clr := $00008000;
  64053. end;
  64054. procedure TPORTG_PORTG.setRG15(thebits : TBits_1); inline;
  64055. begin
  64056. if thebits = 0 then
  64057. pTDefRegMap(@Self)^.clr := $00008000
  64058. else
  64059. pTDefRegMap(@Self)^.&set := $00008000;
  64060. end;
  64061. function TPORTG_PORTG.getRG15 : TBits_1; inline;
  64062. begin
  64063. getRG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64064. end;
  64065. procedure TPORTG_PORTG.setw(thebits : TBits_32); inline;
  64066. begin
  64067. pTDefRegMap(@Self)^.val := thebits;
  64068. end;
  64069. function TPORTG_PORTG.getw : TBits_32; inline;
  64070. begin
  64071. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64072. end;
  64073. procedure TPORTG_LATG.setLATG0; inline;
  64074. begin
  64075. pTDefRegMap(@Self)^.&set := $00000001;
  64076. end;
  64077. procedure TPORTG_LATG.clearLATG0; inline;
  64078. begin
  64079. pTDefRegMap(@Self)^.clr := $00000001;
  64080. end;
  64081. procedure TPORTG_LATG.setLATG0(thebits : TBits_1); inline;
  64082. begin
  64083. if thebits = 0 then
  64084. pTDefRegMap(@Self)^.clr := $00000001
  64085. else
  64086. pTDefRegMap(@Self)^.&set := $00000001;
  64087. end;
  64088. function TPORTG_LATG.getLATG0 : TBits_1; inline;
  64089. begin
  64090. getLATG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64091. end;
  64092. procedure TPORTG_LATG.setLATG1; inline;
  64093. begin
  64094. pTDefRegMap(@Self)^.&set := $00000002;
  64095. end;
  64096. procedure TPORTG_LATG.clearLATG1; inline;
  64097. begin
  64098. pTDefRegMap(@Self)^.clr := $00000002;
  64099. end;
  64100. procedure TPORTG_LATG.setLATG1(thebits : TBits_1); inline;
  64101. begin
  64102. if thebits = 0 then
  64103. pTDefRegMap(@Self)^.clr := $00000002
  64104. else
  64105. pTDefRegMap(@Self)^.&set := $00000002;
  64106. end;
  64107. function TPORTG_LATG.getLATG1 : TBits_1; inline;
  64108. begin
  64109. getLATG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64110. end;
  64111. procedure TPORTG_LATG.setLATG2; inline;
  64112. begin
  64113. pTDefRegMap(@Self)^.&set := $00000004;
  64114. end;
  64115. procedure TPORTG_LATG.clearLATG2; inline;
  64116. begin
  64117. pTDefRegMap(@Self)^.clr := $00000004;
  64118. end;
  64119. procedure TPORTG_LATG.setLATG2(thebits : TBits_1); inline;
  64120. begin
  64121. if thebits = 0 then
  64122. pTDefRegMap(@Self)^.clr := $00000004
  64123. else
  64124. pTDefRegMap(@Self)^.&set := $00000004;
  64125. end;
  64126. function TPORTG_LATG.getLATG2 : TBits_1; inline;
  64127. begin
  64128. getLATG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64129. end;
  64130. procedure TPORTG_LATG.setLATG3; inline;
  64131. begin
  64132. pTDefRegMap(@Self)^.&set := $00000008;
  64133. end;
  64134. procedure TPORTG_LATG.clearLATG3; inline;
  64135. begin
  64136. pTDefRegMap(@Self)^.clr := $00000008;
  64137. end;
  64138. procedure TPORTG_LATG.setLATG3(thebits : TBits_1); inline;
  64139. begin
  64140. if thebits = 0 then
  64141. pTDefRegMap(@Self)^.clr := $00000008
  64142. else
  64143. pTDefRegMap(@Self)^.&set := $00000008;
  64144. end;
  64145. function TPORTG_LATG.getLATG3 : TBits_1; inline;
  64146. begin
  64147. getLATG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64148. end;
  64149. procedure TPORTG_LATG.setLATG6; inline;
  64150. begin
  64151. pTDefRegMap(@Self)^.&set := $00000040;
  64152. end;
  64153. procedure TPORTG_LATG.clearLATG6; inline;
  64154. begin
  64155. pTDefRegMap(@Self)^.clr := $00000040;
  64156. end;
  64157. procedure TPORTG_LATG.setLATG6(thebits : TBits_1); inline;
  64158. begin
  64159. if thebits = 0 then
  64160. pTDefRegMap(@Self)^.clr := $00000040
  64161. else
  64162. pTDefRegMap(@Self)^.&set := $00000040;
  64163. end;
  64164. function TPORTG_LATG.getLATG6 : TBits_1; inline;
  64165. begin
  64166. getLATG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64167. end;
  64168. procedure TPORTG_LATG.setLATG7; inline;
  64169. begin
  64170. pTDefRegMap(@Self)^.&set := $00000080;
  64171. end;
  64172. procedure TPORTG_LATG.clearLATG7; inline;
  64173. begin
  64174. pTDefRegMap(@Self)^.clr := $00000080;
  64175. end;
  64176. procedure TPORTG_LATG.setLATG7(thebits : TBits_1); inline;
  64177. begin
  64178. if thebits = 0 then
  64179. pTDefRegMap(@Self)^.clr := $00000080
  64180. else
  64181. pTDefRegMap(@Self)^.&set := $00000080;
  64182. end;
  64183. function TPORTG_LATG.getLATG7 : TBits_1; inline;
  64184. begin
  64185. getLATG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64186. end;
  64187. procedure TPORTG_LATG.setLATG8; inline;
  64188. begin
  64189. pTDefRegMap(@Self)^.&set := $00000100;
  64190. end;
  64191. procedure TPORTG_LATG.clearLATG8; inline;
  64192. begin
  64193. pTDefRegMap(@Self)^.clr := $00000100;
  64194. end;
  64195. procedure TPORTG_LATG.setLATG8(thebits : TBits_1); inline;
  64196. begin
  64197. if thebits = 0 then
  64198. pTDefRegMap(@Self)^.clr := $00000100
  64199. else
  64200. pTDefRegMap(@Self)^.&set := $00000100;
  64201. end;
  64202. function TPORTG_LATG.getLATG8 : TBits_1; inline;
  64203. begin
  64204. getLATG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64205. end;
  64206. procedure TPORTG_LATG.setLATG9; inline;
  64207. begin
  64208. pTDefRegMap(@Self)^.&set := $00000200;
  64209. end;
  64210. procedure TPORTG_LATG.clearLATG9; inline;
  64211. begin
  64212. pTDefRegMap(@Self)^.clr := $00000200;
  64213. end;
  64214. procedure TPORTG_LATG.setLATG9(thebits : TBits_1); inline;
  64215. begin
  64216. if thebits = 0 then
  64217. pTDefRegMap(@Self)^.clr := $00000200
  64218. else
  64219. pTDefRegMap(@Self)^.&set := $00000200;
  64220. end;
  64221. function TPORTG_LATG.getLATG9 : TBits_1; inline;
  64222. begin
  64223. getLATG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64224. end;
  64225. procedure TPORTG_LATG.setLATG12; inline;
  64226. begin
  64227. pTDefRegMap(@Self)^.&set := $00001000;
  64228. end;
  64229. procedure TPORTG_LATG.clearLATG12; inline;
  64230. begin
  64231. pTDefRegMap(@Self)^.clr := $00001000;
  64232. end;
  64233. procedure TPORTG_LATG.setLATG12(thebits : TBits_1); inline;
  64234. begin
  64235. if thebits = 0 then
  64236. pTDefRegMap(@Self)^.clr := $00001000
  64237. else
  64238. pTDefRegMap(@Self)^.&set := $00001000;
  64239. end;
  64240. function TPORTG_LATG.getLATG12 : TBits_1; inline;
  64241. begin
  64242. getLATG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64243. end;
  64244. procedure TPORTG_LATG.setLATG13; inline;
  64245. begin
  64246. pTDefRegMap(@Self)^.&set := $00002000;
  64247. end;
  64248. procedure TPORTG_LATG.clearLATG13; inline;
  64249. begin
  64250. pTDefRegMap(@Self)^.clr := $00002000;
  64251. end;
  64252. procedure TPORTG_LATG.setLATG13(thebits : TBits_1); inline;
  64253. begin
  64254. if thebits = 0 then
  64255. pTDefRegMap(@Self)^.clr := $00002000
  64256. else
  64257. pTDefRegMap(@Self)^.&set := $00002000;
  64258. end;
  64259. function TPORTG_LATG.getLATG13 : TBits_1; inline;
  64260. begin
  64261. getLATG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64262. end;
  64263. procedure TPORTG_LATG.setLATG14; inline;
  64264. begin
  64265. pTDefRegMap(@Self)^.&set := $00004000;
  64266. end;
  64267. procedure TPORTG_LATG.clearLATG14; inline;
  64268. begin
  64269. pTDefRegMap(@Self)^.clr := $00004000;
  64270. end;
  64271. procedure TPORTG_LATG.setLATG14(thebits : TBits_1); inline;
  64272. begin
  64273. if thebits = 0 then
  64274. pTDefRegMap(@Self)^.clr := $00004000
  64275. else
  64276. pTDefRegMap(@Self)^.&set := $00004000;
  64277. end;
  64278. function TPORTG_LATG.getLATG14 : TBits_1; inline;
  64279. begin
  64280. getLATG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64281. end;
  64282. procedure TPORTG_LATG.setLATG15; inline;
  64283. begin
  64284. pTDefRegMap(@Self)^.&set := $00008000;
  64285. end;
  64286. procedure TPORTG_LATG.clearLATG15; inline;
  64287. begin
  64288. pTDefRegMap(@Self)^.clr := $00008000;
  64289. end;
  64290. procedure TPORTG_LATG.setLATG15(thebits : TBits_1); inline;
  64291. begin
  64292. if thebits = 0 then
  64293. pTDefRegMap(@Self)^.clr := $00008000
  64294. else
  64295. pTDefRegMap(@Self)^.&set := $00008000;
  64296. end;
  64297. function TPORTG_LATG.getLATG15 : TBits_1; inline;
  64298. begin
  64299. getLATG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64300. end;
  64301. procedure TPORTG_LATG.setw(thebits : TBits_32); inline;
  64302. begin
  64303. pTDefRegMap(@Self)^.val := thebits;
  64304. end;
  64305. function TPORTG_LATG.getw : TBits_32; inline;
  64306. begin
  64307. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64308. end;
  64309. procedure TPORTG_ODCG.setODCG0; inline;
  64310. begin
  64311. pTDefRegMap(@Self)^.&set := $00000001;
  64312. end;
  64313. procedure TPORTG_ODCG.clearODCG0; inline;
  64314. begin
  64315. pTDefRegMap(@Self)^.clr := $00000001;
  64316. end;
  64317. procedure TPORTG_ODCG.setODCG0(thebits : TBits_1); inline;
  64318. begin
  64319. if thebits = 0 then
  64320. pTDefRegMap(@Self)^.clr := $00000001
  64321. else
  64322. pTDefRegMap(@Self)^.&set := $00000001;
  64323. end;
  64324. function TPORTG_ODCG.getODCG0 : TBits_1; inline;
  64325. begin
  64326. getODCG0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64327. end;
  64328. procedure TPORTG_ODCG.setODCG1; inline;
  64329. begin
  64330. pTDefRegMap(@Self)^.&set := $00000002;
  64331. end;
  64332. procedure TPORTG_ODCG.clearODCG1; inline;
  64333. begin
  64334. pTDefRegMap(@Self)^.clr := $00000002;
  64335. end;
  64336. procedure TPORTG_ODCG.setODCG1(thebits : TBits_1); inline;
  64337. begin
  64338. if thebits = 0 then
  64339. pTDefRegMap(@Self)^.clr := $00000002
  64340. else
  64341. pTDefRegMap(@Self)^.&set := $00000002;
  64342. end;
  64343. function TPORTG_ODCG.getODCG1 : TBits_1; inline;
  64344. begin
  64345. getODCG1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64346. end;
  64347. procedure TPORTG_ODCG.setODCG2; inline;
  64348. begin
  64349. pTDefRegMap(@Self)^.&set := $00000004;
  64350. end;
  64351. procedure TPORTG_ODCG.clearODCG2; inline;
  64352. begin
  64353. pTDefRegMap(@Self)^.clr := $00000004;
  64354. end;
  64355. procedure TPORTG_ODCG.setODCG2(thebits : TBits_1); inline;
  64356. begin
  64357. if thebits = 0 then
  64358. pTDefRegMap(@Self)^.clr := $00000004
  64359. else
  64360. pTDefRegMap(@Self)^.&set := $00000004;
  64361. end;
  64362. function TPORTG_ODCG.getODCG2 : TBits_1; inline;
  64363. begin
  64364. getODCG2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64365. end;
  64366. procedure TPORTG_ODCG.setODCG3; inline;
  64367. begin
  64368. pTDefRegMap(@Self)^.&set := $00000008;
  64369. end;
  64370. procedure TPORTG_ODCG.clearODCG3; inline;
  64371. begin
  64372. pTDefRegMap(@Self)^.clr := $00000008;
  64373. end;
  64374. procedure TPORTG_ODCG.setODCG3(thebits : TBits_1); inline;
  64375. begin
  64376. if thebits = 0 then
  64377. pTDefRegMap(@Self)^.clr := $00000008
  64378. else
  64379. pTDefRegMap(@Self)^.&set := $00000008;
  64380. end;
  64381. function TPORTG_ODCG.getODCG3 : TBits_1; inline;
  64382. begin
  64383. getODCG3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64384. end;
  64385. procedure TPORTG_ODCG.setODCG6; inline;
  64386. begin
  64387. pTDefRegMap(@Self)^.&set := $00000040;
  64388. end;
  64389. procedure TPORTG_ODCG.clearODCG6; inline;
  64390. begin
  64391. pTDefRegMap(@Self)^.clr := $00000040;
  64392. end;
  64393. procedure TPORTG_ODCG.setODCG6(thebits : TBits_1); inline;
  64394. begin
  64395. if thebits = 0 then
  64396. pTDefRegMap(@Self)^.clr := $00000040
  64397. else
  64398. pTDefRegMap(@Self)^.&set := $00000040;
  64399. end;
  64400. function TPORTG_ODCG.getODCG6 : TBits_1; inline;
  64401. begin
  64402. getODCG6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64403. end;
  64404. procedure TPORTG_ODCG.setODCG7; inline;
  64405. begin
  64406. pTDefRegMap(@Self)^.&set := $00000080;
  64407. end;
  64408. procedure TPORTG_ODCG.clearODCG7; inline;
  64409. begin
  64410. pTDefRegMap(@Self)^.clr := $00000080;
  64411. end;
  64412. procedure TPORTG_ODCG.setODCG7(thebits : TBits_1); inline;
  64413. begin
  64414. if thebits = 0 then
  64415. pTDefRegMap(@Self)^.clr := $00000080
  64416. else
  64417. pTDefRegMap(@Self)^.&set := $00000080;
  64418. end;
  64419. function TPORTG_ODCG.getODCG7 : TBits_1; inline;
  64420. begin
  64421. getODCG7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64422. end;
  64423. procedure TPORTG_ODCG.setODCG8; inline;
  64424. begin
  64425. pTDefRegMap(@Self)^.&set := $00000100;
  64426. end;
  64427. procedure TPORTG_ODCG.clearODCG8; inline;
  64428. begin
  64429. pTDefRegMap(@Self)^.clr := $00000100;
  64430. end;
  64431. procedure TPORTG_ODCG.setODCG8(thebits : TBits_1); inline;
  64432. begin
  64433. if thebits = 0 then
  64434. pTDefRegMap(@Self)^.clr := $00000100
  64435. else
  64436. pTDefRegMap(@Self)^.&set := $00000100;
  64437. end;
  64438. function TPORTG_ODCG.getODCG8 : TBits_1; inline;
  64439. begin
  64440. getODCG8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64441. end;
  64442. procedure TPORTG_ODCG.setODCG9; inline;
  64443. begin
  64444. pTDefRegMap(@Self)^.&set := $00000200;
  64445. end;
  64446. procedure TPORTG_ODCG.clearODCG9; inline;
  64447. begin
  64448. pTDefRegMap(@Self)^.clr := $00000200;
  64449. end;
  64450. procedure TPORTG_ODCG.setODCG9(thebits : TBits_1); inline;
  64451. begin
  64452. if thebits = 0 then
  64453. pTDefRegMap(@Self)^.clr := $00000200
  64454. else
  64455. pTDefRegMap(@Self)^.&set := $00000200;
  64456. end;
  64457. function TPORTG_ODCG.getODCG9 : TBits_1; inline;
  64458. begin
  64459. getODCG9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64460. end;
  64461. procedure TPORTG_ODCG.setODCG12; inline;
  64462. begin
  64463. pTDefRegMap(@Self)^.&set := $00001000;
  64464. end;
  64465. procedure TPORTG_ODCG.clearODCG12; inline;
  64466. begin
  64467. pTDefRegMap(@Self)^.clr := $00001000;
  64468. end;
  64469. procedure TPORTG_ODCG.setODCG12(thebits : TBits_1); inline;
  64470. begin
  64471. if thebits = 0 then
  64472. pTDefRegMap(@Self)^.clr := $00001000
  64473. else
  64474. pTDefRegMap(@Self)^.&set := $00001000;
  64475. end;
  64476. function TPORTG_ODCG.getODCG12 : TBits_1; inline;
  64477. begin
  64478. getODCG12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64479. end;
  64480. procedure TPORTG_ODCG.setODCG13; inline;
  64481. begin
  64482. pTDefRegMap(@Self)^.&set := $00002000;
  64483. end;
  64484. procedure TPORTG_ODCG.clearODCG13; inline;
  64485. begin
  64486. pTDefRegMap(@Self)^.clr := $00002000;
  64487. end;
  64488. procedure TPORTG_ODCG.setODCG13(thebits : TBits_1); inline;
  64489. begin
  64490. if thebits = 0 then
  64491. pTDefRegMap(@Self)^.clr := $00002000
  64492. else
  64493. pTDefRegMap(@Self)^.&set := $00002000;
  64494. end;
  64495. function TPORTG_ODCG.getODCG13 : TBits_1; inline;
  64496. begin
  64497. getODCG13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64498. end;
  64499. procedure TPORTG_ODCG.setODCG14; inline;
  64500. begin
  64501. pTDefRegMap(@Self)^.&set := $00004000;
  64502. end;
  64503. procedure TPORTG_ODCG.clearODCG14; inline;
  64504. begin
  64505. pTDefRegMap(@Self)^.clr := $00004000;
  64506. end;
  64507. procedure TPORTG_ODCG.setODCG14(thebits : TBits_1); inline;
  64508. begin
  64509. if thebits = 0 then
  64510. pTDefRegMap(@Self)^.clr := $00004000
  64511. else
  64512. pTDefRegMap(@Self)^.&set := $00004000;
  64513. end;
  64514. function TPORTG_ODCG.getODCG14 : TBits_1; inline;
  64515. begin
  64516. getODCG14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64517. end;
  64518. procedure TPORTG_ODCG.setODCG15; inline;
  64519. begin
  64520. pTDefRegMap(@Self)^.&set := $00008000;
  64521. end;
  64522. procedure TPORTG_ODCG.clearODCG15; inline;
  64523. begin
  64524. pTDefRegMap(@Self)^.clr := $00008000;
  64525. end;
  64526. procedure TPORTG_ODCG.setODCG15(thebits : TBits_1); inline;
  64527. begin
  64528. if thebits = 0 then
  64529. pTDefRegMap(@Self)^.clr := $00008000
  64530. else
  64531. pTDefRegMap(@Self)^.&set := $00008000;
  64532. end;
  64533. function TPORTG_ODCG.getODCG15 : TBits_1; inline;
  64534. begin
  64535. getODCG15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64536. end;
  64537. procedure TPORTG_ODCG.setw(thebits : TBits_32); inline;
  64538. begin
  64539. pTDefRegMap(@Self)^.val := thebits;
  64540. end;
  64541. function TPORTG_ODCG.getw : TBits_32; inline;
  64542. begin
  64543. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64544. end;
  64545. procedure TPORTG_CNCON.setSIDL; inline;
  64546. begin
  64547. pTDefRegMap(@Self)^.&set := $00002000;
  64548. end;
  64549. procedure TPORTG_CNCON.clearSIDL; inline;
  64550. begin
  64551. pTDefRegMap(@Self)^.clr := $00002000;
  64552. end;
  64553. procedure TPORTG_CNCON.setSIDL(thebits : TBits_1); inline;
  64554. begin
  64555. if thebits = 0 then
  64556. pTDefRegMap(@Self)^.clr := $00002000
  64557. else
  64558. pTDefRegMap(@Self)^.&set := $00002000;
  64559. end;
  64560. function TPORTG_CNCON.getSIDL : TBits_1; inline;
  64561. begin
  64562. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64563. end;
  64564. procedure TPORTG_CNCON.setON; inline;
  64565. begin
  64566. pTDefRegMap(@Self)^.&set := $00008000;
  64567. end;
  64568. procedure TPORTG_CNCON.clearON; inline;
  64569. begin
  64570. pTDefRegMap(@Self)^.clr := $00008000;
  64571. end;
  64572. procedure TPORTG_CNCON.setON(thebits : TBits_1); inline;
  64573. begin
  64574. if thebits = 0 then
  64575. pTDefRegMap(@Self)^.clr := $00008000
  64576. else
  64577. pTDefRegMap(@Self)^.&set := $00008000;
  64578. end;
  64579. function TPORTG_CNCON.getON : TBits_1; inline;
  64580. begin
  64581. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64582. end;
  64583. procedure TPORTG_CNCON.setw(thebits : TBits_32); inline;
  64584. begin
  64585. pTDefRegMap(@Self)^.val := thebits;
  64586. end;
  64587. function TPORTG_CNCON.getw : TBits_32; inline;
  64588. begin
  64589. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  64590. end;
  64591. procedure TPORTG_CNEN.setCNEN0; inline;
  64592. begin
  64593. pTDefRegMap(@Self)^.&set := $00000001;
  64594. end;
  64595. procedure TPORTG_CNEN.clearCNEN0; inline;
  64596. begin
  64597. pTDefRegMap(@Self)^.clr := $00000001;
  64598. end;
  64599. procedure TPORTG_CNEN.setCNEN0(thebits : TBits_1); inline;
  64600. begin
  64601. if thebits = 0 then
  64602. pTDefRegMap(@Self)^.clr := $00000001
  64603. else
  64604. pTDefRegMap(@Self)^.&set := $00000001;
  64605. end;
  64606. function TPORTG_CNEN.getCNEN0 : TBits_1; inline;
  64607. begin
  64608. getCNEN0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  64609. end;
  64610. procedure TPORTG_CNEN.setCNEN1; inline;
  64611. begin
  64612. pTDefRegMap(@Self)^.&set := $00000002;
  64613. end;
  64614. procedure TPORTG_CNEN.clearCNEN1; inline;
  64615. begin
  64616. pTDefRegMap(@Self)^.clr := $00000002;
  64617. end;
  64618. procedure TPORTG_CNEN.setCNEN1(thebits : TBits_1); inline;
  64619. begin
  64620. if thebits = 0 then
  64621. pTDefRegMap(@Self)^.clr := $00000002
  64622. else
  64623. pTDefRegMap(@Self)^.&set := $00000002;
  64624. end;
  64625. function TPORTG_CNEN.getCNEN1 : TBits_1; inline;
  64626. begin
  64627. getCNEN1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  64628. end;
  64629. procedure TPORTG_CNEN.setCNEN2; inline;
  64630. begin
  64631. pTDefRegMap(@Self)^.&set := $00000004;
  64632. end;
  64633. procedure TPORTG_CNEN.clearCNEN2; inline;
  64634. begin
  64635. pTDefRegMap(@Self)^.clr := $00000004;
  64636. end;
  64637. procedure TPORTG_CNEN.setCNEN2(thebits : TBits_1); inline;
  64638. begin
  64639. if thebits = 0 then
  64640. pTDefRegMap(@Self)^.clr := $00000004
  64641. else
  64642. pTDefRegMap(@Self)^.&set := $00000004;
  64643. end;
  64644. function TPORTG_CNEN.getCNEN2 : TBits_1; inline;
  64645. begin
  64646. getCNEN2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  64647. end;
  64648. procedure TPORTG_CNEN.setCNEN3; inline;
  64649. begin
  64650. pTDefRegMap(@Self)^.&set := $00000008;
  64651. end;
  64652. procedure TPORTG_CNEN.clearCNEN3; inline;
  64653. begin
  64654. pTDefRegMap(@Self)^.clr := $00000008;
  64655. end;
  64656. procedure TPORTG_CNEN.setCNEN3(thebits : TBits_1); inline;
  64657. begin
  64658. if thebits = 0 then
  64659. pTDefRegMap(@Self)^.clr := $00000008
  64660. else
  64661. pTDefRegMap(@Self)^.&set := $00000008;
  64662. end;
  64663. function TPORTG_CNEN.getCNEN3 : TBits_1; inline;
  64664. begin
  64665. getCNEN3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  64666. end;
  64667. procedure TPORTG_CNEN.setCNEN4; inline;
  64668. begin
  64669. pTDefRegMap(@Self)^.&set := $00000010;
  64670. end;
  64671. procedure TPORTG_CNEN.clearCNEN4; inline;
  64672. begin
  64673. pTDefRegMap(@Self)^.clr := $00000010;
  64674. end;
  64675. procedure TPORTG_CNEN.setCNEN4(thebits : TBits_1); inline;
  64676. begin
  64677. if thebits = 0 then
  64678. pTDefRegMap(@Self)^.clr := $00000010
  64679. else
  64680. pTDefRegMap(@Self)^.&set := $00000010;
  64681. end;
  64682. function TPORTG_CNEN.getCNEN4 : TBits_1; inline;
  64683. begin
  64684. getCNEN4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  64685. end;
  64686. procedure TPORTG_CNEN.setCNEN5; inline;
  64687. begin
  64688. pTDefRegMap(@Self)^.&set := $00000020;
  64689. end;
  64690. procedure TPORTG_CNEN.clearCNEN5; inline;
  64691. begin
  64692. pTDefRegMap(@Self)^.clr := $00000020;
  64693. end;
  64694. procedure TPORTG_CNEN.setCNEN5(thebits : TBits_1); inline;
  64695. begin
  64696. if thebits = 0 then
  64697. pTDefRegMap(@Self)^.clr := $00000020
  64698. else
  64699. pTDefRegMap(@Self)^.&set := $00000020;
  64700. end;
  64701. function TPORTG_CNEN.getCNEN5 : TBits_1; inline;
  64702. begin
  64703. getCNEN5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  64704. end;
  64705. procedure TPORTG_CNEN.setCNEN6; inline;
  64706. begin
  64707. pTDefRegMap(@Self)^.&set := $00000040;
  64708. end;
  64709. procedure TPORTG_CNEN.clearCNEN6; inline;
  64710. begin
  64711. pTDefRegMap(@Self)^.clr := $00000040;
  64712. end;
  64713. procedure TPORTG_CNEN.setCNEN6(thebits : TBits_1); inline;
  64714. begin
  64715. if thebits = 0 then
  64716. pTDefRegMap(@Self)^.clr := $00000040
  64717. else
  64718. pTDefRegMap(@Self)^.&set := $00000040;
  64719. end;
  64720. function TPORTG_CNEN.getCNEN6 : TBits_1; inline;
  64721. begin
  64722. getCNEN6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  64723. end;
  64724. procedure TPORTG_CNEN.setCNEN7; inline;
  64725. begin
  64726. pTDefRegMap(@Self)^.&set := $00000080;
  64727. end;
  64728. procedure TPORTG_CNEN.clearCNEN7; inline;
  64729. begin
  64730. pTDefRegMap(@Self)^.clr := $00000080;
  64731. end;
  64732. procedure TPORTG_CNEN.setCNEN7(thebits : TBits_1); inline;
  64733. begin
  64734. if thebits = 0 then
  64735. pTDefRegMap(@Self)^.clr := $00000080
  64736. else
  64737. pTDefRegMap(@Self)^.&set := $00000080;
  64738. end;
  64739. function TPORTG_CNEN.getCNEN7 : TBits_1; inline;
  64740. begin
  64741. getCNEN7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  64742. end;
  64743. procedure TPORTG_CNEN.setCNEN8; inline;
  64744. begin
  64745. pTDefRegMap(@Self)^.&set := $00000100;
  64746. end;
  64747. procedure TPORTG_CNEN.clearCNEN8; inline;
  64748. begin
  64749. pTDefRegMap(@Self)^.clr := $00000100;
  64750. end;
  64751. procedure TPORTG_CNEN.setCNEN8(thebits : TBits_1); inline;
  64752. begin
  64753. if thebits = 0 then
  64754. pTDefRegMap(@Self)^.clr := $00000100
  64755. else
  64756. pTDefRegMap(@Self)^.&set := $00000100;
  64757. end;
  64758. function TPORTG_CNEN.getCNEN8 : TBits_1; inline;
  64759. begin
  64760. getCNEN8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  64761. end;
  64762. procedure TPORTG_CNEN.setCNEN9; inline;
  64763. begin
  64764. pTDefRegMap(@Self)^.&set := $00000200;
  64765. end;
  64766. procedure TPORTG_CNEN.clearCNEN9; inline;
  64767. begin
  64768. pTDefRegMap(@Self)^.clr := $00000200;
  64769. end;
  64770. procedure TPORTG_CNEN.setCNEN9(thebits : TBits_1); inline;
  64771. begin
  64772. if thebits = 0 then
  64773. pTDefRegMap(@Self)^.clr := $00000200
  64774. else
  64775. pTDefRegMap(@Self)^.&set := $00000200;
  64776. end;
  64777. function TPORTG_CNEN.getCNEN9 : TBits_1; inline;
  64778. begin
  64779. getCNEN9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  64780. end;
  64781. procedure TPORTG_CNEN.setCNEN10; inline;
  64782. begin
  64783. pTDefRegMap(@Self)^.&set := $00000400;
  64784. end;
  64785. procedure TPORTG_CNEN.clearCNEN10; inline;
  64786. begin
  64787. pTDefRegMap(@Self)^.clr := $00000400;
  64788. end;
  64789. procedure TPORTG_CNEN.setCNEN10(thebits : TBits_1); inline;
  64790. begin
  64791. if thebits = 0 then
  64792. pTDefRegMap(@Self)^.clr := $00000400
  64793. else
  64794. pTDefRegMap(@Self)^.&set := $00000400;
  64795. end;
  64796. function TPORTG_CNEN.getCNEN10 : TBits_1; inline;
  64797. begin
  64798. getCNEN10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  64799. end;
  64800. procedure TPORTG_CNEN.setCNEN11; inline;
  64801. begin
  64802. pTDefRegMap(@Self)^.&set := $00000800;
  64803. end;
  64804. procedure TPORTG_CNEN.clearCNEN11; inline;
  64805. begin
  64806. pTDefRegMap(@Self)^.clr := $00000800;
  64807. end;
  64808. procedure TPORTG_CNEN.setCNEN11(thebits : TBits_1); inline;
  64809. begin
  64810. if thebits = 0 then
  64811. pTDefRegMap(@Self)^.clr := $00000800
  64812. else
  64813. pTDefRegMap(@Self)^.&set := $00000800;
  64814. end;
  64815. function TPORTG_CNEN.getCNEN11 : TBits_1; inline;
  64816. begin
  64817. getCNEN11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  64818. end;
  64819. procedure TPORTG_CNEN.setCNEN12; inline;
  64820. begin
  64821. pTDefRegMap(@Self)^.&set := $00001000;
  64822. end;
  64823. procedure TPORTG_CNEN.clearCNEN12; inline;
  64824. begin
  64825. pTDefRegMap(@Self)^.clr := $00001000;
  64826. end;
  64827. procedure TPORTG_CNEN.setCNEN12(thebits : TBits_1); inline;
  64828. begin
  64829. if thebits = 0 then
  64830. pTDefRegMap(@Self)^.clr := $00001000
  64831. else
  64832. pTDefRegMap(@Self)^.&set := $00001000;
  64833. end;
  64834. function TPORTG_CNEN.getCNEN12 : TBits_1; inline;
  64835. begin
  64836. getCNEN12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  64837. end;
  64838. procedure TPORTG_CNEN.setCNEN13; inline;
  64839. begin
  64840. pTDefRegMap(@Self)^.&set := $00002000;
  64841. end;
  64842. procedure TPORTG_CNEN.clearCNEN13; inline;
  64843. begin
  64844. pTDefRegMap(@Self)^.clr := $00002000;
  64845. end;
  64846. procedure TPORTG_CNEN.setCNEN13(thebits : TBits_1); inline;
  64847. begin
  64848. if thebits = 0 then
  64849. pTDefRegMap(@Self)^.clr := $00002000
  64850. else
  64851. pTDefRegMap(@Self)^.&set := $00002000;
  64852. end;
  64853. function TPORTG_CNEN.getCNEN13 : TBits_1; inline;
  64854. begin
  64855. getCNEN13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  64856. end;
  64857. procedure TPORTG_CNEN.setCNEN14; inline;
  64858. begin
  64859. pTDefRegMap(@Self)^.&set := $00004000;
  64860. end;
  64861. procedure TPORTG_CNEN.clearCNEN14; inline;
  64862. begin
  64863. pTDefRegMap(@Self)^.clr := $00004000;
  64864. end;
  64865. procedure TPORTG_CNEN.setCNEN14(thebits : TBits_1); inline;
  64866. begin
  64867. if thebits = 0 then
  64868. pTDefRegMap(@Self)^.clr := $00004000
  64869. else
  64870. pTDefRegMap(@Self)^.&set := $00004000;
  64871. end;
  64872. function TPORTG_CNEN.getCNEN14 : TBits_1; inline;
  64873. begin
  64874. getCNEN14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  64875. end;
  64876. procedure TPORTG_CNEN.setCNEN15; inline;
  64877. begin
  64878. pTDefRegMap(@Self)^.&set := $00008000;
  64879. end;
  64880. procedure TPORTG_CNEN.clearCNEN15; inline;
  64881. begin
  64882. pTDefRegMap(@Self)^.clr := $00008000;
  64883. end;
  64884. procedure TPORTG_CNEN.setCNEN15(thebits : TBits_1); inline;
  64885. begin
  64886. if thebits = 0 then
  64887. pTDefRegMap(@Self)^.clr := $00008000
  64888. else
  64889. pTDefRegMap(@Self)^.&set := $00008000;
  64890. end;
  64891. function TPORTG_CNEN.getCNEN15 : TBits_1; inline;
  64892. begin
  64893. getCNEN15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  64894. end;
  64895. procedure TPORTG_CNEN.setCNEN16; inline;
  64896. begin
  64897. pTDefRegMap(@Self)^.&set := $00010000;
  64898. end;
  64899. procedure TPORTG_CNEN.clearCNEN16; inline;
  64900. begin
  64901. pTDefRegMap(@Self)^.clr := $00010000;
  64902. end;
  64903. procedure TPORTG_CNEN.setCNEN16(thebits : TBits_1); inline;
  64904. begin
  64905. if thebits = 0 then
  64906. pTDefRegMap(@Self)^.clr := $00010000
  64907. else
  64908. pTDefRegMap(@Self)^.&set := $00010000;
  64909. end;
  64910. function TPORTG_CNEN.getCNEN16 : TBits_1; inline;
  64911. begin
  64912. getCNEN16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  64913. end;
  64914. procedure TPORTG_CNEN.setCNEN17; inline;
  64915. begin
  64916. pTDefRegMap(@Self)^.&set := $00020000;
  64917. end;
  64918. procedure TPORTG_CNEN.clearCNEN17; inline;
  64919. begin
  64920. pTDefRegMap(@Self)^.clr := $00020000;
  64921. end;
  64922. procedure TPORTG_CNEN.setCNEN17(thebits : TBits_1); inline;
  64923. begin
  64924. if thebits = 0 then
  64925. pTDefRegMap(@Self)^.clr := $00020000
  64926. else
  64927. pTDefRegMap(@Self)^.&set := $00020000;
  64928. end;
  64929. function TPORTG_CNEN.getCNEN17 : TBits_1; inline;
  64930. begin
  64931. getCNEN17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  64932. end;
  64933. procedure TPORTG_CNEN.setCNEN18; inline;
  64934. begin
  64935. pTDefRegMap(@Self)^.&set := $00040000;
  64936. end;
  64937. procedure TPORTG_CNEN.clearCNEN18; inline;
  64938. begin
  64939. pTDefRegMap(@Self)^.clr := $00040000;
  64940. end;
  64941. procedure TPORTG_CNEN.setCNEN18(thebits : TBits_1); inline;
  64942. begin
  64943. if thebits = 0 then
  64944. pTDefRegMap(@Self)^.clr := $00040000
  64945. else
  64946. pTDefRegMap(@Self)^.&set := $00040000;
  64947. end;
  64948. function TPORTG_CNEN.getCNEN18 : TBits_1; inline;
  64949. begin
  64950. getCNEN18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  64951. end;
  64952. procedure TPORTG_CNEN.setCNEN19; inline;
  64953. begin
  64954. pTDefRegMap(@Self)^.&set := $00080000;
  64955. end;
  64956. procedure TPORTG_CNEN.clearCNEN19; inline;
  64957. begin
  64958. pTDefRegMap(@Self)^.clr := $00080000;
  64959. end;
  64960. procedure TPORTG_CNEN.setCNEN19(thebits : TBits_1); inline;
  64961. begin
  64962. if thebits = 0 then
  64963. pTDefRegMap(@Self)^.clr := $00080000
  64964. else
  64965. pTDefRegMap(@Self)^.&set := $00080000;
  64966. end;
  64967. function TPORTG_CNEN.getCNEN19 : TBits_1; inline;
  64968. begin
  64969. getCNEN19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  64970. end;
  64971. procedure TPORTG_CNEN.setCNEN20; inline;
  64972. begin
  64973. pTDefRegMap(@Self)^.&set := $00100000;
  64974. end;
  64975. procedure TPORTG_CNEN.clearCNEN20; inline;
  64976. begin
  64977. pTDefRegMap(@Self)^.clr := $00100000;
  64978. end;
  64979. procedure TPORTG_CNEN.setCNEN20(thebits : TBits_1); inline;
  64980. begin
  64981. if thebits = 0 then
  64982. pTDefRegMap(@Self)^.clr := $00100000
  64983. else
  64984. pTDefRegMap(@Self)^.&set := $00100000;
  64985. end;
  64986. function TPORTG_CNEN.getCNEN20 : TBits_1; inline;
  64987. begin
  64988. getCNEN20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  64989. end;
  64990. procedure TPORTG_CNEN.setCNEN21; inline;
  64991. begin
  64992. pTDefRegMap(@Self)^.&set := $00200000;
  64993. end;
  64994. procedure TPORTG_CNEN.clearCNEN21; inline;
  64995. begin
  64996. pTDefRegMap(@Self)^.clr := $00200000;
  64997. end;
  64998. procedure TPORTG_CNEN.setCNEN21(thebits : TBits_1); inline;
  64999. begin
  65000. if thebits = 0 then
  65001. pTDefRegMap(@Self)^.clr := $00200000
  65002. else
  65003. pTDefRegMap(@Self)^.&set := $00200000;
  65004. end;
  65005. function TPORTG_CNEN.getCNEN21 : TBits_1; inline;
  65006. begin
  65007. getCNEN21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  65008. end;
  65009. procedure TPORTG_CNEN.setw(thebits : TBits_32); inline;
  65010. begin
  65011. pTDefRegMap(@Self)^.val := thebits;
  65012. end;
  65013. function TPORTG_CNEN.getw : TBits_32; inline;
  65014. begin
  65015. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65016. end;
  65017. procedure TPORTG_CNPUE.setCNPUE0; inline;
  65018. begin
  65019. pTDefRegMap(@Self)^.&set := $00000001;
  65020. end;
  65021. procedure TPORTG_CNPUE.clearCNPUE0; inline;
  65022. begin
  65023. pTDefRegMap(@Self)^.clr := $00000001;
  65024. end;
  65025. procedure TPORTG_CNPUE.setCNPUE0(thebits : TBits_1); inline;
  65026. begin
  65027. if thebits = 0 then
  65028. pTDefRegMap(@Self)^.clr := $00000001
  65029. else
  65030. pTDefRegMap(@Self)^.&set := $00000001;
  65031. end;
  65032. function TPORTG_CNPUE.getCNPUE0 : TBits_1; inline;
  65033. begin
  65034. getCNPUE0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65035. end;
  65036. procedure TPORTG_CNPUE.setCNPUE1; inline;
  65037. begin
  65038. pTDefRegMap(@Self)^.&set := $00000002;
  65039. end;
  65040. procedure TPORTG_CNPUE.clearCNPUE1; inline;
  65041. begin
  65042. pTDefRegMap(@Self)^.clr := $00000002;
  65043. end;
  65044. procedure TPORTG_CNPUE.setCNPUE1(thebits : TBits_1); inline;
  65045. begin
  65046. if thebits = 0 then
  65047. pTDefRegMap(@Self)^.clr := $00000002
  65048. else
  65049. pTDefRegMap(@Self)^.&set := $00000002;
  65050. end;
  65051. function TPORTG_CNPUE.getCNPUE1 : TBits_1; inline;
  65052. begin
  65053. getCNPUE1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65054. end;
  65055. procedure TPORTG_CNPUE.setCNPUE2; inline;
  65056. begin
  65057. pTDefRegMap(@Self)^.&set := $00000004;
  65058. end;
  65059. procedure TPORTG_CNPUE.clearCNPUE2; inline;
  65060. begin
  65061. pTDefRegMap(@Self)^.clr := $00000004;
  65062. end;
  65063. procedure TPORTG_CNPUE.setCNPUE2(thebits : TBits_1); inline;
  65064. begin
  65065. if thebits = 0 then
  65066. pTDefRegMap(@Self)^.clr := $00000004
  65067. else
  65068. pTDefRegMap(@Self)^.&set := $00000004;
  65069. end;
  65070. function TPORTG_CNPUE.getCNPUE2 : TBits_1; inline;
  65071. begin
  65072. getCNPUE2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65073. end;
  65074. procedure TPORTG_CNPUE.setCNPUE3; inline;
  65075. begin
  65076. pTDefRegMap(@Self)^.&set := $00000008;
  65077. end;
  65078. procedure TPORTG_CNPUE.clearCNPUE3; inline;
  65079. begin
  65080. pTDefRegMap(@Self)^.clr := $00000008;
  65081. end;
  65082. procedure TPORTG_CNPUE.setCNPUE3(thebits : TBits_1); inline;
  65083. begin
  65084. if thebits = 0 then
  65085. pTDefRegMap(@Self)^.clr := $00000008
  65086. else
  65087. pTDefRegMap(@Self)^.&set := $00000008;
  65088. end;
  65089. function TPORTG_CNPUE.getCNPUE3 : TBits_1; inline;
  65090. begin
  65091. getCNPUE3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65092. end;
  65093. procedure TPORTG_CNPUE.setCNPUE4; inline;
  65094. begin
  65095. pTDefRegMap(@Self)^.&set := $00000010;
  65096. end;
  65097. procedure TPORTG_CNPUE.clearCNPUE4; inline;
  65098. begin
  65099. pTDefRegMap(@Self)^.clr := $00000010;
  65100. end;
  65101. procedure TPORTG_CNPUE.setCNPUE4(thebits : TBits_1); inline;
  65102. begin
  65103. if thebits = 0 then
  65104. pTDefRegMap(@Self)^.clr := $00000010
  65105. else
  65106. pTDefRegMap(@Self)^.&set := $00000010;
  65107. end;
  65108. function TPORTG_CNPUE.getCNPUE4 : TBits_1; inline;
  65109. begin
  65110. getCNPUE4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  65111. end;
  65112. procedure TPORTG_CNPUE.setCNPUE5; inline;
  65113. begin
  65114. pTDefRegMap(@Self)^.&set := $00000020;
  65115. end;
  65116. procedure TPORTG_CNPUE.clearCNPUE5; inline;
  65117. begin
  65118. pTDefRegMap(@Self)^.clr := $00000020;
  65119. end;
  65120. procedure TPORTG_CNPUE.setCNPUE5(thebits : TBits_1); inline;
  65121. begin
  65122. if thebits = 0 then
  65123. pTDefRegMap(@Self)^.clr := $00000020
  65124. else
  65125. pTDefRegMap(@Self)^.&set := $00000020;
  65126. end;
  65127. function TPORTG_CNPUE.getCNPUE5 : TBits_1; inline;
  65128. begin
  65129. getCNPUE5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  65130. end;
  65131. procedure TPORTG_CNPUE.setCNPUE6; inline;
  65132. begin
  65133. pTDefRegMap(@Self)^.&set := $00000040;
  65134. end;
  65135. procedure TPORTG_CNPUE.clearCNPUE6; inline;
  65136. begin
  65137. pTDefRegMap(@Self)^.clr := $00000040;
  65138. end;
  65139. procedure TPORTG_CNPUE.setCNPUE6(thebits : TBits_1); inline;
  65140. begin
  65141. if thebits = 0 then
  65142. pTDefRegMap(@Self)^.clr := $00000040
  65143. else
  65144. pTDefRegMap(@Self)^.&set := $00000040;
  65145. end;
  65146. function TPORTG_CNPUE.getCNPUE6 : TBits_1; inline;
  65147. begin
  65148. getCNPUE6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  65149. end;
  65150. procedure TPORTG_CNPUE.setCNPUE7; inline;
  65151. begin
  65152. pTDefRegMap(@Self)^.&set := $00000080;
  65153. end;
  65154. procedure TPORTG_CNPUE.clearCNPUE7; inline;
  65155. begin
  65156. pTDefRegMap(@Self)^.clr := $00000080;
  65157. end;
  65158. procedure TPORTG_CNPUE.setCNPUE7(thebits : TBits_1); inline;
  65159. begin
  65160. if thebits = 0 then
  65161. pTDefRegMap(@Self)^.clr := $00000080
  65162. else
  65163. pTDefRegMap(@Self)^.&set := $00000080;
  65164. end;
  65165. function TPORTG_CNPUE.getCNPUE7 : TBits_1; inline;
  65166. begin
  65167. getCNPUE7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  65168. end;
  65169. procedure TPORTG_CNPUE.setCNPUE8; inline;
  65170. begin
  65171. pTDefRegMap(@Self)^.&set := $00000100;
  65172. end;
  65173. procedure TPORTG_CNPUE.clearCNPUE8; inline;
  65174. begin
  65175. pTDefRegMap(@Self)^.clr := $00000100;
  65176. end;
  65177. procedure TPORTG_CNPUE.setCNPUE8(thebits : TBits_1); inline;
  65178. begin
  65179. if thebits = 0 then
  65180. pTDefRegMap(@Self)^.clr := $00000100
  65181. else
  65182. pTDefRegMap(@Self)^.&set := $00000100;
  65183. end;
  65184. function TPORTG_CNPUE.getCNPUE8 : TBits_1; inline;
  65185. begin
  65186. getCNPUE8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  65187. end;
  65188. procedure TPORTG_CNPUE.setCNPUE9; inline;
  65189. begin
  65190. pTDefRegMap(@Self)^.&set := $00000200;
  65191. end;
  65192. procedure TPORTG_CNPUE.clearCNPUE9; inline;
  65193. begin
  65194. pTDefRegMap(@Self)^.clr := $00000200;
  65195. end;
  65196. procedure TPORTG_CNPUE.setCNPUE9(thebits : TBits_1); inline;
  65197. begin
  65198. if thebits = 0 then
  65199. pTDefRegMap(@Self)^.clr := $00000200
  65200. else
  65201. pTDefRegMap(@Self)^.&set := $00000200;
  65202. end;
  65203. function TPORTG_CNPUE.getCNPUE9 : TBits_1; inline;
  65204. begin
  65205. getCNPUE9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  65206. end;
  65207. procedure TPORTG_CNPUE.setCNPUE10; inline;
  65208. begin
  65209. pTDefRegMap(@Self)^.&set := $00000400;
  65210. end;
  65211. procedure TPORTG_CNPUE.clearCNPUE10; inline;
  65212. begin
  65213. pTDefRegMap(@Self)^.clr := $00000400;
  65214. end;
  65215. procedure TPORTG_CNPUE.setCNPUE10(thebits : TBits_1); inline;
  65216. begin
  65217. if thebits = 0 then
  65218. pTDefRegMap(@Self)^.clr := $00000400
  65219. else
  65220. pTDefRegMap(@Self)^.&set := $00000400;
  65221. end;
  65222. function TPORTG_CNPUE.getCNPUE10 : TBits_1; inline;
  65223. begin
  65224. getCNPUE10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  65225. end;
  65226. procedure TPORTG_CNPUE.setCNPUE11; inline;
  65227. begin
  65228. pTDefRegMap(@Self)^.&set := $00000800;
  65229. end;
  65230. procedure TPORTG_CNPUE.clearCNPUE11; inline;
  65231. begin
  65232. pTDefRegMap(@Self)^.clr := $00000800;
  65233. end;
  65234. procedure TPORTG_CNPUE.setCNPUE11(thebits : TBits_1); inline;
  65235. begin
  65236. if thebits = 0 then
  65237. pTDefRegMap(@Self)^.clr := $00000800
  65238. else
  65239. pTDefRegMap(@Self)^.&set := $00000800;
  65240. end;
  65241. function TPORTG_CNPUE.getCNPUE11 : TBits_1; inline;
  65242. begin
  65243. getCNPUE11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  65244. end;
  65245. procedure TPORTG_CNPUE.setCNPUE12; inline;
  65246. begin
  65247. pTDefRegMap(@Self)^.&set := $00001000;
  65248. end;
  65249. procedure TPORTG_CNPUE.clearCNPUE12; inline;
  65250. begin
  65251. pTDefRegMap(@Self)^.clr := $00001000;
  65252. end;
  65253. procedure TPORTG_CNPUE.setCNPUE12(thebits : TBits_1); inline;
  65254. begin
  65255. if thebits = 0 then
  65256. pTDefRegMap(@Self)^.clr := $00001000
  65257. else
  65258. pTDefRegMap(@Self)^.&set := $00001000;
  65259. end;
  65260. function TPORTG_CNPUE.getCNPUE12 : TBits_1; inline;
  65261. begin
  65262. getCNPUE12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65263. end;
  65264. procedure TPORTG_CNPUE.setCNPUE13; inline;
  65265. begin
  65266. pTDefRegMap(@Self)^.&set := $00002000;
  65267. end;
  65268. procedure TPORTG_CNPUE.clearCNPUE13; inline;
  65269. begin
  65270. pTDefRegMap(@Self)^.clr := $00002000;
  65271. end;
  65272. procedure TPORTG_CNPUE.setCNPUE13(thebits : TBits_1); inline;
  65273. begin
  65274. if thebits = 0 then
  65275. pTDefRegMap(@Self)^.clr := $00002000
  65276. else
  65277. pTDefRegMap(@Self)^.&set := $00002000;
  65278. end;
  65279. function TPORTG_CNPUE.getCNPUE13 : TBits_1; inline;
  65280. begin
  65281. getCNPUE13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65282. end;
  65283. procedure TPORTG_CNPUE.setCNPUE14; inline;
  65284. begin
  65285. pTDefRegMap(@Self)^.&set := $00004000;
  65286. end;
  65287. procedure TPORTG_CNPUE.clearCNPUE14; inline;
  65288. begin
  65289. pTDefRegMap(@Self)^.clr := $00004000;
  65290. end;
  65291. procedure TPORTG_CNPUE.setCNPUE14(thebits : TBits_1); inline;
  65292. begin
  65293. if thebits = 0 then
  65294. pTDefRegMap(@Self)^.clr := $00004000
  65295. else
  65296. pTDefRegMap(@Self)^.&set := $00004000;
  65297. end;
  65298. function TPORTG_CNPUE.getCNPUE14 : TBits_1; inline;
  65299. begin
  65300. getCNPUE14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65301. end;
  65302. procedure TPORTG_CNPUE.setCNPUE15; inline;
  65303. begin
  65304. pTDefRegMap(@Self)^.&set := $00008000;
  65305. end;
  65306. procedure TPORTG_CNPUE.clearCNPUE15; inline;
  65307. begin
  65308. pTDefRegMap(@Self)^.clr := $00008000;
  65309. end;
  65310. procedure TPORTG_CNPUE.setCNPUE15(thebits : TBits_1); inline;
  65311. begin
  65312. if thebits = 0 then
  65313. pTDefRegMap(@Self)^.clr := $00008000
  65314. else
  65315. pTDefRegMap(@Self)^.&set := $00008000;
  65316. end;
  65317. function TPORTG_CNPUE.getCNPUE15 : TBits_1; inline;
  65318. begin
  65319. getCNPUE15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65320. end;
  65321. procedure TPORTG_CNPUE.setCNPUE16; inline;
  65322. begin
  65323. pTDefRegMap(@Self)^.&set := $00010000;
  65324. end;
  65325. procedure TPORTG_CNPUE.clearCNPUE16; inline;
  65326. begin
  65327. pTDefRegMap(@Self)^.clr := $00010000;
  65328. end;
  65329. procedure TPORTG_CNPUE.setCNPUE16(thebits : TBits_1); inline;
  65330. begin
  65331. if thebits = 0 then
  65332. pTDefRegMap(@Self)^.clr := $00010000
  65333. else
  65334. pTDefRegMap(@Self)^.&set := $00010000;
  65335. end;
  65336. function TPORTG_CNPUE.getCNPUE16 : TBits_1; inline;
  65337. begin
  65338. getCNPUE16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  65339. end;
  65340. procedure TPORTG_CNPUE.setCNPUE17; inline;
  65341. begin
  65342. pTDefRegMap(@Self)^.&set := $00020000;
  65343. end;
  65344. procedure TPORTG_CNPUE.clearCNPUE17; inline;
  65345. begin
  65346. pTDefRegMap(@Self)^.clr := $00020000;
  65347. end;
  65348. procedure TPORTG_CNPUE.setCNPUE17(thebits : TBits_1); inline;
  65349. begin
  65350. if thebits = 0 then
  65351. pTDefRegMap(@Self)^.clr := $00020000
  65352. else
  65353. pTDefRegMap(@Self)^.&set := $00020000;
  65354. end;
  65355. function TPORTG_CNPUE.getCNPUE17 : TBits_1; inline;
  65356. begin
  65357. getCNPUE17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  65358. end;
  65359. procedure TPORTG_CNPUE.setCNPUE18; inline;
  65360. begin
  65361. pTDefRegMap(@Self)^.&set := $00040000;
  65362. end;
  65363. procedure TPORTG_CNPUE.clearCNPUE18; inline;
  65364. begin
  65365. pTDefRegMap(@Self)^.clr := $00040000;
  65366. end;
  65367. procedure TPORTG_CNPUE.setCNPUE18(thebits : TBits_1); inline;
  65368. begin
  65369. if thebits = 0 then
  65370. pTDefRegMap(@Self)^.clr := $00040000
  65371. else
  65372. pTDefRegMap(@Self)^.&set := $00040000;
  65373. end;
  65374. function TPORTG_CNPUE.getCNPUE18 : TBits_1; inline;
  65375. begin
  65376. getCNPUE18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  65377. end;
  65378. procedure TPORTG_CNPUE.setCNPUE19; inline;
  65379. begin
  65380. pTDefRegMap(@Self)^.&set := $00080000;
  65381. end;
  65382. procedure TPORTG_CNPUE.clearCNPUE19; inline;
  65383. begin
  65384. pTDefRegMap(@Self)^.clr := $00080000;
  65385. end;
  65386. procedure TPORTG_CNPUE.setCNPUE19(thebits : TBits_1); inline;
  65387. begin
  65388. if thebits = 0 then
  65389. pTDefRegMap(@Self)^.clr := $00080000
  65390. else
  65391. pTDefRegMap(@Self)^.&set := $00080000;
  65392. end;
  65393. function TPORTG_CNPUE.getCNPUE19 : TBits_1; inline;
  65394. begin
  65395. getCNPUE19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  65396. end;
  65397. procedure TPORTG_CNPUE.setCNPUE20; inline;
  65398. begin
  65399. pTDefRegMap(@Self)^.&set := $00100000;
  65400. end;
  65401. procedure TPORTG_CNPUE.clearCNPUE20; inline;
  65402. begin
  65403. pTDefRegMap(@Self)^.clr := $00100000;
  65404. end;
  65405. procedure TPORTG_CNPUE.setCNPUE20(thebits : TBits_1); inline;
  65406. begin
  65407. if thebits = 0 then
  65408. pTDefRegMap(@Self)^.clr := $00100000
  65409. else
  65410. pTDefRegMap(@Self)^.&set := $00100000;
  65411. end;
  65412. function TPORTG_CNPUE.getCNPUE20 : TBits_1; inline;
  65413. begin
  65414. getCNPUE20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  65415. end;
  65416. procedure TPORTG_CNPUE.setCNPUE21; inline;
  65417. begin
  65418. pTDefRegMap(@Self)^.&set := $00200000;
  65419. end;
  65420. procedure TPORTG_CNPUE.clearCNPUE21; inline;
  65421. begin
  65422. pTDefRegMap(@Self)^.clr := $00200000;
  65423. end;
  65424. procedure TPORTG_CNPUE.setCNPUE21(thebits : TBits_1); inline;
  65425. begin
  65426. if thebits = 0 then
  65427. pTDefRegMap(@Self)^.clr := $00200000
  65428. else
  65429. pTDefRegMap(@Self)^.&set := $00200000;
  65430. end;
  65431. function TPORTG_CNPUE.getCNPUE21 : TBits_1; inline;
  65432. begin
  65433. getCNPUE21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  65434. end;
  65435. procedure TPORTG_CNPUE.setw(thebits : TBits_32); inline;
  65436. begin
  65437. pTDefRegMap(@Self)^.val := thebits;
  65438. end;
  65439. function TPORTG_CNPUE.getw : TBits_32; inline;
  65440. begin
  65441. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65442. end;
  65443. procedure TCAN1_C1CON.setDNCNT(thebits : TBits_5); inline;
  65444. begin
  65445. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  65446. end;
  65447. function TCAN1_C1CON.getDNCNT : TBits_5; inline;
  65448. begin
  65449. getDNCNT := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  65450. end;
  65451. procedure TCAN1_C1CON.setCANBUSY; inline;
  65452. begin
  65453. pTDefRegMap(@Self)^.&set := $00000800;
  65454. end;
  65455. procedure TCAN1_C1CON.clearCANBUSY; inline;
  65456. begin
  65457. pTDefRegMap(@Self)^.clr := $00000800;
  65458. end;
  65459. procedure TCAN1_C1CON.setCANBUSY(thebits : TBits_1); inline;
  65460. begin
  65461. if thebits = 0 then
  65462. pTDefRegMap(@Self)^.clr := $00000800
  65463. else
  65464. pTDefRegMap(@Self)^.&set := $00000800;
  65465. end;
  65466. function TCAN1_C1CON.getCANBUSY : TBits_1; inline;
  65467. begin
  65468. getCANBUSY := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  65469. end;
  65470. procedure TCAN1_C1CON.setSIDL; inline;
  65471. begin
  65472. pTDefRegMap(@Self)^.&set := $00002000;
  65473. end;
  65474. procedure TCAN1_C1CON.clearSIDL; inline;
  65475. begin
  65476. pTDefRegMap(@Self)^.clr := $00002000;
  65477. end;
  65478. procedure TCAN1_C1CON.setSIDL(thebits : TBits_1); inline;
  65479. begin
  65480. if thebits = 0 then
  65481. pTDefRegMap(@Self)^.clr := $00002000
  65482. else
  65483. pTDefRegMap(@Self)^.&set := $00002000;
  65484. end;
  65485. function TCAN1_C1CON.getSIDL : TBits_1; inline;
  65486. begin
  65487. getSIDL := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65488. end;
  65489. procedure TCAN1_C1CON.setON; inline;
  65490. begin
  65491. pTDefRegMap(@Self)^.&set := $00008000;
  65492. end;
  65493. procedure TCAN1_C1CON.clearON; inline;
  65494. begin
  65495. pTDefRegMap(@Self)^.clr := $00008000;
  65496. end;
  65497. procedure TCAN1_C1CON.setON(thebits : TBits_1); inline;
  65498. begin
  65499. if thebits = 0 then
  65500. pTDefRegMap(@Self)^.clr := $00008000
  65501. else
  65502. pTDefRegMap(@Self)^.&set := $00008000;
  65503. end;
  65504. function TCAN1_C1CON.getON : TBits_1; inline;
  65505. begin
  65506. getON := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65507. end;
  65508. procedure TCAN1_C1CON.setCANCAP; inline;
  65509. begin
  65510. pTDefRegMap(@Self)^.&set := $00100000;
  65511. end;
  65512. procedure TCAN1_C1CON.clearCANCAP; inline;
  65513. begin
  65514. pTDefRegMap(@Self)^.clr := $00100000;
  65515. end;
  65516. procedure TCAN1_C1CON.setCANCAP(thebits : TBits_1); inline;
  65517. begin
  65518. if thebits = 0 then
  65519. pTDefRegMap(@Self)^.clr := $00100000
  65520. else
  65521. pTDefRegMap(@Self)^.&set := $00100000;
  65522. end;
  65523. function TCAN1_C1CON.getCANCAP : TBits_1; inline;
  65524. begin
  65525. getCANCAP := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  65526. end;
  65527. procedure TCAN1_C1CON.setOPMOD(thebits : TBits_3); inline;
  65528. begin
  65529. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF1FFFFF or ( thebits shl 21 );
  65530. end;
  65531. function TCAN1_C1CON.getOPMOD : TBits_3; inline;
  65532. begin
  65533. getOPMOD := (pTDefRegMap(@Self)^.val and $00E00000) shr 21;
  65534. end;
  65535. procedure TCAN1_C1CON.setREQOP(thebits : TBits_3); inline;
  65536. begin
  65537. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $F8FFFFFF or ( thebits shl 24 );
  65538. end;
  65539. function TCAN1_C1CON.getREQOP : TBits_3; inline;
  65540. begin
  65541. getREQOP := (pTDefRegMap(@Self)^.val and $07000000) shr 24;
  65542. end;
  65543. procedure TCAN1_C1CON.setABAT; inline;
  65544. begin
  65545. pTDefRegMap(@Self)^.&set := $08000000;
  65546. end;
  65547. procedure TCAN1_C1CON.clearABAT; inline;
  65548. begin
  65549. pTDefRegMap(@Self)^.clr := $08000000;
  65550. end;
  65551. procedure TCAN1_C1CON.setABAT(thebits : TBits_1); inline;
  65552. begin
  65553. if thebits = 0 then
  65554. pTDefRegMap(@Self)^.clr := $08000000
  65555. else
  65556. pTDefRegMap(@Self)^.&set := $08000000;
  65557. end;
  65558. function TCAN1_C1CON.getABAT : TBits_1; inline;
  65559. begin
  65560. getABAT := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  65561. end;
  65562. procedure TCAN1_C1CON.setw(thebits : TBits_32); inline;
  65563. begin
  65564. pTDefRegMap(@Self)^.val := thebits;
  65565. end;
  65566. function TCAN1_C1CON.getw : TBits_32; inline;
  65567. begin
  65568. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65569. end;
  65570. procedure TCAN1_C1CFG.setBRP(thebits : TBits_6); inline;
  65571. begin
  65572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFC0 or ( thebits shl 0 );
  65573. end;
  65574. function TCAN1_C1CFG.getBRP : TBits_6; inline;
  65575. begin
  65576. getBRP := (pTDefRegMap(@Self)^.val and $0000003F) shr 0;
  65577. end;
  65578. procedure TCAN1_C1CFG.setSJW(thebits : TBits_2); inline;
  65579. begin
  65580. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF3F or ( thebits shl 6 );
  65581. end;
  65582. function TCAN1_C1CFG.getSJW : TBits_2; inline;
  65583. begin
  65584. getSJW := (pTDefRegMap(@Self)^.val and $000000C0) shr 6;
  65585. end;
  65586. procedure TCAN1_C1CFG.setPRSEG(thebits : TBits_3); inline;
  65587. begin
  65588. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  65589. end;
  65590. function TCAN1_C1CFG.getPRSEG : TBits_3; inline;
  65591. begin
  65592. getPRSEG := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  65593. end;
  65594. procedure TCAN1_C1CFG.setSEG1PH(thebits : TBits_3); inline;
  65595. begin
  65596. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFC7FF or ( thebits shl 11 );
  65597. end;
  65598. function TCAN1_C1CFG.getSEG1PH : TBits_3; inline;
  65599. begin
  65600. getSEG1PH := (pTDefRegMap(@Self)^.val and $00003800) shr 11;
  65601. end;
  65602. procedure TCAN1_C1CFG.setSAM; inline;
  65603. begin
  65604. pTDefRegMap(@Self)^.&set := $00004000;
  65605. end;
  65606. procedure TCAN1_C1CFG.clearSAM; inline;
  65607. begin
  65608. pTDefRegMap(@Self)^.clr := $00004000;
  65609. end;
  65610. procedure TCAN1_C1CFG.setSAM(thebits : TBits_1); inline;
  65611. begin
  65612. if thebits = 0 then
  65613. pTDefRegMap(@Self)^.clr := $00004000
  65614. else
  65615. pTDefRegMap(@Self)^.&set := $00004000;
  65616. end;
  65617. function TCAN1_C1CFG.getSAM : TBits_1; inline;
  65618. begin
  65619. getSAM := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65620. end;
  65621. procedure TCAN1_C1CFG.setSEG2PHTS; inline;
  65622. begin
  65623. pTDefRegMap(@Self)^.&set := $00008000;
  65624. end;
  65625. procedure TCAN1_C1CFG.clearSEG2PHTS; inline;
  65626. begin
  65627. pTDefRegMap(@Self)^.clr := $00008000;
  65628. end;
  65629. procedure TCAN1_C1CFG.setSEG2PHTS(thebits : TBits_1); inline;
  65630. begin
  65631. if thebits = 0 then
  65632. pTDefRegMap(@Self)^.clr := $00008000
  65633. else
  65634. pTDefRegMap(@Self)^.&set := $00008000;
  65635. end;
  65636. function TCAN1_C1CFG.getSEG2PHTS : TBits_1; inline;
  65637. begin
  65638. getSEG2PHTS := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65639. end;
  65640. procedure TCAN1_C1CFG.setSEG2PH(thebits : TBits_3); inline;
  65641. begin
  65642. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  65643. end;
  65644. function TCAN1_C1CFG.getSEG2PH : TBits_3; inline;
  65645. begin
  65646. getSEG2PH := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  65647. end;
  65648. procedure TCAN1_C1CFG.setWAKFIL; inline;
  65649. begin
  65650. pTDefRegMap(@Self)^.&set := $00400000;
  65651. end;
  65652. procedure TCAN1_C1CFG.clearWAKFIL; inline;
  65653. begin
  65654. pTDefRegMap(@Self)^.clr := $00400000;
  65655. end;
  65656. procedure TCAN1_C1CFG.setWAKFIL(thebits : TBits_1); inline;
  65657. begin
  65658. if thebits = 0 then
  65659. pTDefRegMap(@Self)^.clr := $00400000
  65660. else
  65661. pTDefRegMap(@Self)^.&set := $00400000;
  65662. end;
  65663. function TCAN1_C1CFG.getWAKFIL : TBits_1; inline;
  65664. begin
  65665. getWAKFIL := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  65666. end;
  65667. procedure TCAN1_C1CFG.setw(thebits : TBits_32); inline;
  65668. begin
  65669. pTDefRegMap(@Self)^.val := thebits;
  65670. end;
  65671. function TCAN1_C1CFG.getw : TBits_32; inline;
  65672. begin
  65673. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  65674. end;
  65675. procedure TCAN1_C1INT.setTBIF; inline;
  65676. begin
  65677. pTDefRegMap(@Self)^.&set := $00000001;
  65678. end;
  65679. procedure TCAN1_C1INT.clearTBIF; inline;
  65680. begin
  65681. pTDefRegMap(@Self)^.clr := $00000001;
  65682. end;
  65683. procedure TCAN1_C1INT.setTBIF(thebits : TBits_1); inline;
  65684. begin
  65685. if thebits = 0 then
  65686. pTDefRegMap(@Self)^.clr := $00000001
  65687. else
  65688. pTDefRegMap(@Self)^.&set := $00000001;
  65689. end;
  65690. function TCAN1_C1INT.getTBIF : TBits_1; inline;
  65691. begin
  65692. getTBIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  65693. end;
  65694. procedure TCAN1_C1INT.setRBIF; inline;
  65695. begin
  65696. pTDefRegMap(@Self)^.&set := $00000002;
  65697. end;
  65698. procedure TCAN1_C1INT.clearRBIF; inline;
  65699. begin
  65700. pTDefRegMap(@Self)^.clr := $00000002;
  65701. end;
  65702. procedure TCAN1_C1INT.setRBIF(thebits : TBits_1); inline;
  65703. begin
  65704. if thebits = 0 then
  65705. pTDefRegMap(@Self)^.clr := $00000002
  65706. else
  65707. pTDefRegMap(@Self)^.&set := $00000002;
  65708. end;
  65709. function TCAN1_C1INT.getRBIF : TBits_1; inline;
  65710. begin
  65711. getRBIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  65712. end;
  65713. procedure TCAN1_C1INT.setCTMRIF; inline;
  65714. begin
  65715. pTDefRegMap(@Self)^.&set := $00000004;
  65716. end;
  65717. procedure TCAN1_C1INT.clearCTMRIF; inline;
  65718. begin
  65719. pTDefRegMap(@Self)^.clr := $00000004;
  65720. end;
  65721. procedure TCAN1_C1INT.setCTMRIF(thebits : TBits_1); inline;
  65722. begin
  65723. if thebits = 0 then
  65724. pTDefRegMap(@Self)^.clr := $00000004
  65725. else
  65726. pTDefRegMap(@Self)^.&set := $00000004;
  65727. end;
  65728. function TCAN1_C1INT.getCTMRIF : TBits_1; inline;
  65729. begin
  65730. getCTMRIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  65731. end;
  65732. procedure TCAN1_C1INT.setMODIF; inline;
  65733. begin
  65734. pTDefRegMap(@Self)^.&set := $00000008;
  65735. end;
  65736. procedure TCAN1_C1INT.clearMODIF; inline;
  65737. begin
  65738. pTDefRegMap(@Self)^.clr := $00000008;
  65739. end;
  65740. procedure TCAN1_C1INT.setMODIF(thebits : TBits_1); inline;
  65741. begin
  65742. if thebits = 0 then
  65743. pTDefRegMap(@Self)^.clr := $00000008
  65744. else
  65745. pTDefRegMap(@Self)^.&set := $00000008;
  65746. end;
  65747. function TCAN1_C1INT.getMODIF : TBits_1; inline;
  65748. begin
  65749. getMODIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  65750. end;
  65751. procedure TCAN1_C1INT.setRBOVIF; inline;
  65752. begin
  65753. pTDefRegMap(@Self)^.&set := $00000800;
  65754. end;
  65755. procedure TCAN1_C1INT.clearRBOVIF; inline;
  65756. begin
  65757. pTDefRegMap(@Self)^.clr := $00000800;
  65758. end;
  65759. procedure TCAN1_C1INT.setRBOVIF(thebits : TBits_1); inline;
  65760. begin
  65761. if thebits = 0 then
  65762. pTDefRegMap(@Self)^.clr := $00000800
  65763. else
  65764. pTDefRegMap(@Self)^.&set := $00000800;
  65765. end;
  65766. function TCAN1_C1INT.getRBOVIF : TBits_1; inline;
  65767. begin
  65768. getRBOVIF := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  65769. end;
  65770. procedure TCAN1_C1INT.setSERRIF; inline;
  65771. begin
  65772. pTDefRegMap(@Self)^.&set := $00001000;
  65773. end;
  65774. procedure TCAN1_C1INT.clearSERRIF; inline;
  65775. begin
  65776. pTDefRegMap(@Self)^.clr := $00001000;
  65777. end;
  65778. procedure TCAN1_C1INT.setSERRIF(thebits : TBits_1); inline;
  65779. begin
  65780. if thebits = 0 then
  65781. pTDefRegMap(@Self)^.clr := $00001000
  65782. else
  65783. pTDefRegMap(@Self)^.&set := $00001000;
  65784. end;
  65785. function TCAN1_C1INT.getSERRIF : TBits_1; inline;
  65786. begin
  65787. getSERRIF := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  65788. end;
  65789. procedure TCAN1_C1INT.setCERRIF; inline;
  65790. begin
  65791. pTDefRegMap(@Self)^.&set := $00002000;
  65792. end;
  65793. procedure TCAN1_C1INT.clearCERRIF; inline;
  65794. begin
  65795. pTDefRegMap(@Self)^.clr := $00002000;
  65796. end;
  65797. procedure TCAN1_C1INT.setCERRIF(thebits : TBits_1); inline;
  65798. begin
  65799. if thebits = 0 then
  65800. pTDefRegMap(@Self)^.clr := $00002000
  65801. else
  65802. pTDefRegMap(@Self)^.&set := $00002000;
  65803. end;
  65804. function TCAN1_C1INT.getCERRIF : TBits_1; inline;
  65805. begin
  65806. getCERRIF := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  65807. end;
  65808. procedure TCAN1_C1INT.setWAKIF; inline;
  65809. begin
  65810. pTDefRegMap(@Self)^.&set := $00004000;
  65811. end;
  65812. procedure TCAN1_C1INT.clearWAKIF; inline;
  65813. begin
  65814. pTDefRegMap(@Self)^.clr := $00004000;
  65815. end;
  65816. procedure TCAN1_C1INT.setWAKIF(thebits : TBits_1); inline;
  65817. begin
  65818. if thebits = 0 then
  65819. pTDefRegMap(@Self)^.clr := $00004000
  65820. else
  65821. pTDefRegMap(@Self)^.&set := $00004000;
  65822. end;
  65823. function TCAN1_C1INT.getWAKIF : TBits_1; inline;
  65824. begin
  65825. getWAKIF := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  65826. end;
  65827. procedure TCAN1_C1INT.setIVRIF; inline;
  65828. begin
  65829. pTDefRegMap(@Self)^.&set := $00008000;
  65830. end;
  65831. procedure TCAN1_C1INT.clearIVRIF; inline;
  65832. begin
  65833. pTDefRegMap(@Self)^.clr := $00008000;
  65834. end;
  65835. procedure TCAN1_C1INT.setIVRIF(thebits : TBits_1); inline;
  65836. begin
  65837. if thebits = 0 then
  65838. pTDefRegMap(@Self)^.clr := $00008000
  65839. else
  65840. pTDefRegMap(@Self)^.&set := $00008000;
  65841. end;
  65842. function TCAN1_C1INT.getIVRIF : TBits_1; inline;
  65843. begin
  65844. getIVRIF := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  65845. end;
  65846. procedure TCAN1_C1INT.setTBIE; inline;
  65847. begin
  65848. pTDefRegMap(@Self)^.&set := $00010000;
  65849. end;
  65850. procedure TCAN1_C1INT.clearTBIE; inline;
  65851. begin
  65852. pTDefRegMap(@Self)^.clr := $00010000;
  65853. end;
  65854. procedure TCAN1_C1INT.setTBIE(thebits : TBits_1); inline;
  65855. begin
  65856. if thebits = 0 then
  65857. pTDefRegMap(@Self)^.clr := $00010000
  65858. else
  65859. pTDefRegMap(@Self)^.&set := $00010000;
  65860. end;
  65861. function TCAN1_C1INT.getTBIE : TBits_1; inline;
  65862. begin
  65863. getTBIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  65864. end;
  65865. procedure TCAN1_C1INT.setRBIE; inline;
  65866. begin
  65867. pTDefRegMap(@Self)^.&set := $00020000;
  65868. end;
  65869. procedure TCAN1_C1INT.clearRBIE; inline;
  65870. begin
  65871. pTDefRegMap(@Self)^.clr := $00020000;
  65872. end;
  65873. procedure TCAN1_C1INT.setRBIE(thebits : TBits_1); inline;
  65874. begin
  65875. if thebits = 0 then
  65876. pTDefRegMap(@Self)^.clr := $00020000
  65877. else
  65878. pTDefRegMap(@Self)^.&set := $00020000;
  65879. end;
  65880. function TCAN1_C1INT.getRBIE : TBits_1; inline;
  65881. begin
  65882. getRBIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  65883. end;
  65884. procedure TCAN1_C1INT.setCTMRIE; inline;
  65885. begin
  65886. pTDefRegMap(@Self)^.&set := $00040000;
  65887. end;
  65888. procedure TCAN1_C1INT.clearCTMRIE; inline;
  65889. begin
  65890. pTDefRegMap(@Self)^.clr := $00040000;
  65891. end;
  65892. procedure TCAN1_C1INT.setCTMRIE(thebits : TBits_1); inline;
  65893. begin
  65894. if thebits = 0 then
  65895. pTDefRegMap(@Self)^.clr := $00040000
  65896. else
  65897. pTDefRegMap(@Self)^.&set := $00040000;
  65898. end;
  65899. function TCAN1_C1INT.getCTMRIE : TBits_1; inline;
  65900. begin
  65901. getCTMRIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  65902. end;
  65903. procedure TCAN1_C1INT.setMODIE; inline;
  65904. begin
  65905. pTDefRegMap(@Self)^.&set := $00080000;
  65906. end;
  65907. procedure TCAN1_C1INT.clearMODIE; inline;
  65908. begin
  65909. pTDefRegMap(@Self)^.clr := $00080000;
  65910. end;
  65911. procedure TCAN1_C1INT.setMODIE(thebits : TBits_1); inline;
  65912. begin
  65913. if thebits = 0 then
  65914. pTDefRegMap(@Self)^.clr := $00080000
  65915. else
  65916. pTDefRegMap(@Self)^.&set := $00080000;
  65917. end;
  65918. function TCAN1_C1INT.getMODIE : TBits_1; inline;
  65919. begin
  65920. getMODIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  65921. end;
  65922. procedure TCAN1_C1INT.setRBOVIE; inline;
  65923. begin
  65924. pTDefRegMap(@Self)^.&set := $08000000;
  65925. end;
  65926. procedure TCAN1_C1INT.clearRBOVIE; inline;
  65927. begin
  65928. pTDefRegMap(@Self)^.clr := $08000000;
  65929. end;
  65930. procedure TCAN1_C1INT.setRBOVIE(thebits : TBits_1); inline;
  65931. begin
  65932. if thebits = 0 then
  65933. pTDefRegMap(@Self)^.clr := $08000000
  65934. else
  65935. pTDefRegMap(@Self)^.&set := $08000000;
  65936. end;
  65937. function TCAN1_C1INT.getRBOVIE : TBits_1; inline;
  65938. begin
  65939. getRBOVIE := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  65940. end;
  65941. procedure TCAN1_C1INT.setSERRIE; inline;
  65942. begin
  65943. pTDefRegMap(@Self)^.&set := $10000000;
  65944. end;
  65945. procedure TCAN1_C1INT.clearSERRIE; inline;
  65946. begin
  65947. pTDefRegMap(@Self)^.clr := $10000000;
  65948. end;
  65949. procedure TCAN1_C1INT.setSERRIE(thebits : TBits_1); inline;
  65950. begin
  65951. if thebits = 0 then
  65952. pTDefRegMap(@Self)^.clr := $10000000
  65953. else
  65954. pTDefRegMap(@Self)^.&set := $10000000;
  65955. end;
  65956. function TCAN1_C1INT.getSERRIE : TBits_1; inline;
  65957. begin
  65958. getSERRIE := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  65959. end;
  65960. procedure TCAN1_C1INT.setCERRIE; inline;
  65961. begin
  65962. pTDefRegMap(@Self)^.&set := $20000000;
  65963. end;
  65964. procedure TCAN1_C1INT.clearCERRIE; inline;
  65965. begin
  65966. pTDefRegMap(@Self)^.clr := $20000000;
  65967. end;
  65968. procedure TCAN1_C1INT.setCERRIE(thebits : TBits_1); inline;
  65969. begin
  65970. if thebits = 0 then
  65971. pTDefRegMap(@Self)^.clr := $20000000
  65972. else
  65973. pTDefRegMap(@Self)^.&set := $20000000;
  65974. end;
  65975. function TCAN1_C1INT.getCERRIE : TBits_1; inline;
  65976. begin
  65977. getCERRIE := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  65978. end;
  65979. procedure TCAN1_C1INT.setWAKIE; inline;
  65980. begin
  65981. pTDefRegMap(@Self)^.&set := $40000000;
  65982. end;
  65983. procedure TCAN1_C1INT.clearWAKIE; inline;
  65984. begin
  65985. pTDefRegMap(@Self)^.clr := $40000000;
  65986. end;
  65987. procedure TCAN1_C1INT.setWAKIE(thebits : TBits_1); inline;
  65988. begin
  65989. if thebits = 0 then
  65990. pTDefRegMap(@Self)^.clr := $40000000
  65991. else
  65992. pTDefRegMap(@Self)^.&set := $40000000;
  65993. end;
  65994. function TCAN1_C1INT.getWAKIE : TBits_1; inline;
  65995. begin
  65996. getWAKIE := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  65997. end;
  65998. procedure TCAN1_C1INT.setIVRIE; inline;
  65999. begin
  66000. pTDefRegMap(@Self)^.&set := $80000000;
  66001. end;
  66002. procedure TCAN1_C1INT.clearIVRIE; inline;
  66003. begin
  66004. pTDefRegMap(@Self)^.clr := $80000000;
  66005. end;
  66006. procedure TCAN1_C1INT.setIVRIE(thebits : TBits_1); inline;
  66007. begin
  66008. if thebits = 0 then
  66009. pTDefRegMap(@Self)^.clr := $80000000
  66010. else
  66011. pTDefRegMap(@Self)^.&set := $80000000;
  66012. end;
  66013. function TCAN1_C1INT.getIVRIE : TBits_1; inline;
  66014. begin
  66015. getIVRIE := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  66016. end;
  66017. procedure TCAN1_C1INT.setw(thebits : TBits_32); inline;
  66018. begin
  66019. pTDefRegMap(@Self)^.val := thebits;
  66020. end;
  66021. function TCAN1_C1INT.getw : TBits_32; inline;
  66022. begin
  66023. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66024. end;
  66025. procedure TCAN1_C1VEC.setICODE(thebits : TBits_7); inline;
  66026. begin
  66027. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF80 or ( thebits shl 0 );
  66028. end;
  66029. function TCAN1_C1VEC.getICODE : TBits_7; inline;
  66030. begin
  66031. getICODE := (pTDefRegMap(@Self)^.val and $0000007F) shr 0;
  66032. end;
  66033. procedure TCAN1_C1VEC.setFILHIT(thebits : TBits_5); inline;
  66034. begin
  66035. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  66036. end;
  66037. function TCAN1_C1VEC.getFILHIT : TBits_5; inline;
  66038. begin
  66039. getFILHIT := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  66040. end;
  66041. procedure TCAN1_C1VEC.setw(thebits : TBits_32); inline;
  66042. begin
  66043. pTDefRegMap(@Self)^.val := thebits;
  66044. end;
  66045. function TCAN1_C1VEC.getw : TBits_32; inline;
  66046. begin
  66047. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66048. end;
  66049. procedure TCAN1_C1TREC.setRERRCNT(thebits : TBits_8); inline;
  66050. begin
  66051. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF00 or ( thebits shl 0 );
  66052. end;
  66053. function TCAN1_C1TREC.getRERRCNT : TBits_8; inline;
  66054. begin
  66055. getRERRCNT := (pTDefRegMap(@Self)^.val and $000000FF) shr 0;
  66056. end;
  66057. procedure TCAN1_C1TREC.setTERRCNT(thebits : TBits_8); inline;
  66058. begin
  66059. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF00FF or ( thebits shl 8 );
  66060. end;
  66061. function TCAN1_C1TREC.getTERRCNT : TBits_8; inline;
  66062. begin
  66063. getTERRCNT := (pTDefRegMap(@Self)^.val and $0000FF00) shr 8;
  66064. end;
  66065. procedure TCAN1_C1TREC.setEWARN; inline;
  66066. begin
  66067. pTDefRegMap(@Self)^.&set := $00010000;
  66068. end;
  66069. procedure TCAN1_C1TREC.clearEWARN; inline;
  66070. begin
  66071. pTDefRegMap(@Self)^.clr := $00010000;
  66072. end;
  66073. procedure TCAN1_C1TREC.setEWARN(thebits : TBits_1); inline;
  66074. begin
  66075. if thebits = 0 then
  66076. pTDefRegMap(@Self)^.clr := $00010000
  66077. else
  66078. pTDefRegMap(@Self)^.&set := $00010000;
  66079. end;
  66080. function TCAN1_C1TREC.getEWARN : TBits_1; inline;
  66081. begin
  66082. getEWARN := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  66083. end;
  66084. procedure TCAN1_C1TREC.setRXWARN; inline;
  66085. begin
  66086. pTDefRegMap(@Self)^.&set := $00020000;
  66087. end;
  66088. procedure TCAN1_C1TREC.clearRXWARN; inline;
  66089. begin
  66090. pTDefRegMap(@Self)^.clr := $00020000;
  66091. end;
  66092. procedure TCAN1_C1TREC.setRXWARN(thebits : TBits_1); inline;
  66093. begin
  66094. if thebits = 0 then
  66095. pTDefRegMap(@Self)^.clr := $00020000
  66096. else
  66097. pTDefRegMap(@Self)^.&set := $00020000;
  66098. end;
  66099. function TCAN1_C1TREC.getRXWARN : TBits_1; inline;
  66100. begin
  66101. getRXWARN := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  66102. end;
  66103. procedure TCAN1_C1TREC.setTXWARN; inline;
  66104. begin
  66105. pTDefRegMap(@Self)^.&set := $00040000;
  66106. end;
  66107. procedure TCAN1_C1TREC.clearTXWARN; inline;
  66108. begin
  66109. pTDefRegMap(@Self)^.clr := $00040000;
  66110. end;
  66111. procedure TCAN1_C1TREC.setTXWARN(thebits : TBits_1); inline;
  66112. begin
  66113. if thebits = 0 then
  66114. pTDefRegMap(@Self)^.clr := $00040000
  66115. else
  66116. pTDefRegMap(@Self)^.&set := $00040000;
  66117. end;
  66118. function TCAN1_C1TREC.getTXWARN : TBits_1; inline;
  66119. begin
  66120. getTXWARN := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  66121. end;
  66122. procedure TCAN1_C1TREC.setRXBP; inline;
  66123. begin
  66124. pTDefRegMap(@Self)^.&set := $00080000;
  66125. end;
  66126. procedure TCAN1_C1TREC.clearRXBP; inline;
  66127. begin
  66128. pTDefRegMap(@Self)^.clr := $00080000;
  66129. end;
  66130. procedure TCAN1_C1TREC.setRXBP(thebits : TBits_1); inline;
  66131. begin
  66132. if thebits = 0 then
  66133. pTDefRegMap(@Self)^.clr := $00080000
  66134. else
  66135. pTDefRegMap(@Self)^.&set := $00080000;
  66136. end;
  66137. function TCAN1_C1TREC.getRXBP : TBits_1; inline;
  66138. begin
  66139. getRXBP := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  66140. end;
  66141. procedure TCAN1_C1TREC.setTXBP; inline;
  66142. begin
  66143. pTDefRegMap(@Self)^.&set := $00100000;
  66144. end;
  66145. procedure TCAN1_C1TREC.clearTXBP; inline;
  66146. begin
  66147. pTDefRegMap(@Self)^.clr := $00100000;
  66148. end;
  66149. procedure TCAN1_C1TREC.setTXBP(thebits : TBits_1); inline;
  66150. begin
  66151. if thebits = 0 then
  66152. pTDefRegMap(@Self)^.clr := $00100000
  66153. else
  66154. pTDefRegMap(@Self)^.&set := $00100000;
  66155. end;
  66156. function TCAN1_C1TREC.getTXBP : TBits_1; inline;
  66157. begin
  66158. getTXBP := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  66159. end;
  66160. procedure TCAN1_C1TREC.setTXBO; inline;
  66161. begin
  66162. pTDefRegMap(@Self)^.&set := $00200000;
  66163. end;
  66164. procedure TCAN1_C1TREC.clearTXBO; inline;
  66165. begin
  66166. pTDefRegMap(@Self)^.clr := $00200000;
  66167. end;
  66168. procedure TCAN1_C1TREC.setTXBO(thebits : TBits_1); inline;
  66169. begin
  66170. if thebits = 0 then
  66171. pTDefRegMap(@Self)^.clr := $00200000
  66172. else
  66173. pTDefRegMap(@Self)^.&set := $00200000;
  66174. end;
  66175. function TCAN1_C1TREC.getTXBO : TBits_1; inline;
  66176. begin
  66177. getTXBO := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  66178. end;
  66179. procedure TCAN1_C1TREC.setw(thebits : TBits_32); inline;
  66180. begin
  66181. pTDefRegMap(@Self)^.val := thebits;
  66182. end;
  66183. function TCAN1_C1TREC.getw : TBits_32; inline;
  66184. begin
  66185. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66186. end;
  66187. procedure TCAN1_C1FSTAT.setFIFOIP(thebits : TBits_32); inline;
  66188. begin
  66189. pTDefRegMap(@Self)^.val := thebits;
  66190. end;
  66191. function TCAN1_C1FSTAT.getFIFOIP : TBits_32; inline;
  66192. begin
  66193. getFIFOIP := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66194. end;
  66195. procedure TCAN1_C1FSTAT.setFIFOIP0; inline;
  66196. begin
  66197. pTDefRegMap(@Self)^.&set := $00000001;
  66198. end;
  66199. procedure TCAN1_C1FSTAT.clearFIFOIP0; inline;
  66200. begin
  66201. pTDefRegMap(@Self)^.clr := $00000001;
  66202. end;
  66203. procedure TCAN1_C1FSTAT.setFIFOIP0(thebits : TBits_1); inline;
  66204. begin
  66205. if thebits = 0 then
  66206. pTDefRegMap(@Self)^.clr := $00000001
  66207. else
  66208. pTDefRegMap(@Self)^.&set := $00000001;
  66209. end;
  66210. function TCAN1_C1FSTAT.getFIFOIP0 : TBits_1; inline;
  66211. begin
  66212. getFIFOIP0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66213. end;
  66214. procedure TCAN1_C1FSTAT.setFIFOIP1; inline;
  66215. begin
  66216. pTDefRegMap(@Self)^.&set := $00000002;
  66217. end;
  66218. procedure TCAN1_C1FSTAT.clearFIFOIP1; inline;
  66219. begin
  66220. pTDefRegMap(@Self)^.clr := $00000002;
  66221. end;
  66222. procedure TCAN1_C1FSTAT.setFIFOIP1(thebits : TBits_1); inline;
  66223. begin
  66224. if thebits = 0 then
  66225. pTDefRegMap(@Self)^.clr := $00000002
  66226. else
  66227. pTDefRegMap(@Self)^.&set := $00000002;
  66228. end;
  66229. function TCAN1_C1FSTAT.getFIFOIP1 : TBits_1; inline;
  66230. begin
  66231. getFIFOIP1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66232. end;
  66233. procedure TCAN1_C1FSTAT.setFIFOIP2; inline;
  66234. begin
  66235. pTDefRegMap(@Self)^.&set := $00000004;
  66236. end;
  66237. procedure TCAN1_C1FSTAT.clearFIFOIP2; inline;
  66238. begin
  66239. pTDefRegMap(@Self)^.clr := $00000004;
  66240. end;
  66241. procedure TCAN1_C1FSTAT.setFIFOIP2(thebits : TBits_1); inline;
  66242. begin
  66243. if thebits = 0 then
  66244. pTDefRegMap(@Self)^.clr := $00000004
  66245. else
  66246. pTDefRegMap(@Self)^.&set := $00000004;
  66247. end;
  66248. function TCAN1_C1FSTAT.getFIFOIP2 : TBits_1; inline;
  66249. begin
  66250. getFIFOIP2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66251. end;
  66252. procedure TCAN1_C1FSTAT.setFIFOIP3; inline;
  66253. begin
  66254. pTDefRegMap(@Self)^.&set := $00000008;
  66255. end;
  66256. procedure TCAN1_C1FSTAT.clearFIFOIP3; inline;
  66257. begin
  66258. pTDefRegMap(@Self)^.clr := $00000008;
  66259. end;
  66260. procedure TCAN1_C1FSTAT.setFIFOIP3(thebits : TBits_1); inline;
  66261. begin
  66262. if thebits = 0 then
  66263. pTDefRegMap(@Self)^.clr := $00000008
  66264. else
  66265. pTDefRegMap(@Self)^.&set := $00000008;
  66266. end;
  66267. function TCAN1_C1FSTAT.getFIFOIP3 : TBits_1; inline;
  66268. begin
  66269. getFIFOIP3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66270. end;
  66271. procedure TCAN1_C1FSTAT.setFIFOIP4; inline;
  66272. begin
  66273. pTDefRegMap(@Self)^.&set := $00000010;
  66274. end;
  66275. procedure TCAN1_C1FSTAT.clearFIFOIP4; inline;
  66276. begin
  66277. pTDefRegMap(@Self)^.clr := $00000010;
  66278. end;
  66279. procedure TCAN1_C1FSTAT.setFIFOIP4(thebits : TBits_1); inline;
  66280. begin
  66281. if thebits = 0 then
  66282. pTDefRegMap(@Self)^.clr := $00000010
  66283. else
  66284. pTDefRegMap(@Self)^.&set := $00000010;
  66285. end;
  66286. function TCAN1_C1FSTAT.getFIFOIP4 : TBits_1; inline;
  66287. begin
  66288. getFIFOIP4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66289. end;
  66290. procedure TCAN1_C1FSTAT.setFIFOIP5; inline;
  66291. begin
  66292. pTDefRegMap(@Self)^.&set := $00000020;
  66293. end;
  66294. procedure TCAN1_C1FSTAT.clearFIFOIP5; inline;
  66295. begin
  66296. pTDefRegMap(@Self)^.clr := $00000020;
  66297. end;
  66298. procedure TCAN1_C1FSTAT.setFIFOIP5(thebits : TBits_1); inline;
  66299. begin
  66300. if thebits = 0 then
  66301. pTDefRegMap(@Self)^.clr := $00000020
  66302. else
  66303. pTDefRegMap(@Self)^.&set := $00000020;
  66304. end;
  66305. function TCAN1_C1FSTAT.getFIFOIP5 : TBits_1; inline;
  66306. begin
  66307. getFIFOIP5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66308. end;
  66309. procedure TCAN1_C1FSTAT.setFIFOIP6; inline;
  66310. begin
  66311. pTDefRegMap(@Self)^.&set := $00000040;
  66312. end;
  66313. procedure TCAN1_C1FSTAT.clearFIFOIP6; inline;
  66314. begin
  66315. pTDefRegMap(@Self)^.clr := $00000040;
  66316. end;
  66317. procedure TCAN1_C1FSTAT.setFIFOIP6(thebits : TBits_1); inline;
  66318. begin
  66319. if thebits = 0 then
  66320. pTDefRegMap(@Self)^.clr := $00000040
  66321. else
  66322. pTDefRegMap(@Self)^.&set := $00000040;
  66323. end;
  66324. function TCAN1_C1FSTAT.getFIFOIP6 : TBits_1; inline;
  66325. begin
  66326. getFIFOIP6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  66327. end;
  66328. procedure TCAN1_C1FSTAT.setFIFOIP7; inline;
  66329. begin
  66330. pTDefRegMap(@Self)^.&set := $00000080;
  66331. end;
  66332. procedure TCAN1_C1FSTAT.clearFIFOIP7; inline;
  66333. begin
  66334. pTDefRegMap(@Self)^.clr := $00000080;
  66335. end;
  66336. procedure TCAN1_C1FSTAT.setFIFOIP7(thebits : TBits_1); inline;
  66337. begin
  66338. if thebits = 0 then
  66339. pTDefRegMap(@Self)^.clr := $00000080
  66340. else
  66341. pTDefRegMap(@Self)^.&set := $00000080;
  66342. end;
  66343. function TCAN1_C1FSTAT.getFIFOIP7 : TBits_1; inline;
  66344. begin
  66345. getFIFOIP7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  66346. end;
  66347. procedure TCAN1_C1FSTAT.setFIFOIP8; inline;
  66348. begin
  66349. pTDefRegMap(@Self)^.&set := $00000100;
  66350. end;
  66351. procedure TCAN1_C1FSTAT.clearFIFOIP8; inline;
  66352. begin
  66353. pTDefRegMap(@Self)^.clr := $00000100;
  66354. end;
  66355. procedure TCAN1_C1FSTAT.setFIFOIP8(thebits : TBits_1); inline;
  66356. begin
  66357. if thebits = 0 then
  66358. pTDefRegMap(@Self)^.clr := $00000100
  66359. else
  66360. pTDefRegMap(@Self)^.&set := $00000100;
  66361. end;
  66362. function TCAN1_C1FSTAT.getFIFOIP8 : TBits_1; inline;
  66363. begin
  66364. getFIFOIP8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66365. end;
  66366. procedure TCAN1_C1FSTAT.setFIFOIP9; inline;
  66367. begin
  66368. pTDefRegMap(@Self)^.&set := $00000200;
  66369. end;
  66370. procedure TCAN1_C1FSTAT.clearFIFOIP9; inline;
  66371. begin
  66372. pTDefRegMap(@Self)^.clr := $00000200;
  66373. end;
  66374. procedure TCAN1_C1FSTAT.setFIFOIP9(thebits : TBits_1); inline;
  66375. begin
  66376. if thebits = 0 then
  66377. pTDefRegMap(@Self)^.clr := $00000200
  66378. else
  66379. pTDefRegMap(@Self)^.&set := $00000200;
  66380. end;
  66381. function TCAN1_C1FSTAT.getFIFOIP9 : TBits_1; inline;
  66382. begin
  66383. getFIFOIP9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  66384. end;
  66385. procedure TCAN1_C1FSTAT.setFIFOIP10; inline;
  66386. begin
  66387. pTDefRegMap(@Self)^.&set := $00000400;
  66388. end;
  66389. procedure TCAN1_C1FSTAT.clearFIFOIP10; inline;
  66390. begin
  66391. pTDefRegMap(@Self)^.clr := $00000400;
  66392. end;
  66393. procedure TCAN1_C1FSTAT.setFIFOIP10(thebits : TBits_1); inline;
  66394. begin
  66395. if thebits = 0 then
  66396. pTDefRegMap(@Self)^.clr := $00000400
  66397. else
  66398. pTDefRegMap(@Self)^.&set := $00000400;
  66399. end;
  66400. function TCAN1_C1FSTAT.getFIFOIP10 : TBits_1; inline;
  66401. begin
  66402. getFIFOIP10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  66403. end;
  66404. procedure TCAN1_C1FSTAT.setFIFOIP11; inline;
  66405. begin
  66406. pTDefRegMap(@Self)^.&set := $00000800;
  66407. end;
  66408. procedure TCAN1_C1FSTAT.clearFIFOIP11; inline;
  66409. begin
  66410. pTDefRegMap(@Self)^.clr := $00000800;
  66411. end;
  66412. procedure TCAN1_C1FSTAT.setFIFOIP11(thebits : TBits_1); inline;
  66413. begin
  66414. if thebits = 0 then
  66415. pTDefRegMap(@Self)^.clr := $00000800
  66416. else
  66417. pTDefRegMap(@Self)^.&set := $00000800;
  66418. end;
  66419. function TCAN1_C1FSTAT.getFIFOIP11 : TBits_1; inline;
  66420. begin
  66421. getFIFOIP11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  66422. end;
  66423. procedure TCAN1_C1FSTAT.setFIFOIP12; inline;
  66424. begin
  66425. pTDefRegMap(@Self)^.&set := $00001000;
  66426. end;
  66427. procedure TCAN1_C1FSTAT.clearFIFOIP12; inline;
  66428. begin
  66429. pTDefRegMap(@Self)^.clr := $00001000;
  66430. end;
  66431. procedure TCAN1_C1FSTAT.setFIFOIP12(thebits : TBits_1); inline;
  66432. begin
  66433. if thebits = 0 then
  66434. pTDefRegMap(@Self)^.clr := $00001000
  66435. else
  66436. pTDefRegMap(@Self)^.&set := $00001000;
  66437. end;
  66438. function TCAN1_C1FSTAT.getFIFOIP12 : TBits_1; inline;
  66439. begin
  66440. getFIFOIP12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  66441. end;
  66442. procedure TCAN1_C1FSTAT.setFIFOIP13; inline;
  66443. begin
  66444. pTDefRegMap(@Self)^.&set := $00002000;
  66445. end;
  66446. procedure TCAN1_C1FSTAT.clearFIFOIP13; inline;
  66447. begin
  66448. pTDefRegMap(@Self)^.clr := $00002000;
  66449. end;
  66450. procedure TCAN1_C1FSTAT.setFIFOIP13(thebits : TBits_1); inline;
  66451. begin
  66452. if thebits = 0 then
  66453. pTDefRegMap(@Self)^.clr := $00002000
  66454. else
  66455. pTDefRegMap(@Self)^.&set := $00002000;
  66456. end;
  66457. function TCAN1_C1FSTAT.getFIFOIP13 : TBits_1; inline;
  66458. begin
  66459. getFIFOIP13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  66460. end;
  66461. procedure TCAN1_C1FSTAT.setFIFOIP14; inline;
  66462. begin
  66463. pTDefRegMap(@Self)^.&set := $00004000;
  66464. end;
  66465. procedure TCAN1_C1FSTAT.clearFIFOIP14; inline;
  66466. begin
  66467. pTDefRegMap(@Self)^.clr := $00004000;
  66468. end;
  66469. procedure TCAN1_C1FSTAT.setFIFOIP14(thebits : TBits_1); inline;
  66470. begin
  66471. if thebits = 0 then
  66472. pTDefRegMap(@Self)^.clr := $00004000
  66473. else
  66474. pTDefRegMap(@Self)^.&set := $00004000;
  66475. end;
  66476. function TCAN1_C1FSTAT.getFIFOIP14 : TBits_1; inline;
  66477. begin
  66478. getFIFOIP14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  66479. end;
  66480. procedure TCAN1_C1FSTAT.setFIFOIP15; inline;
  66481. begin
  66482. pTDefRegMap(@Self)^.&set := $00008000;
  66483. end;
  66484. procedure TCAN1_C1FSTAT.clearFIFOIP15; inline;
  66485. begin
  66486. pTDefRegMap(@Self)^.clr := $00008000;
  66487. end;
  66488. procedure TCAN1_C1FSTAT.setFIFOIP15(thebits : TBits_1); inline;
  66489. begin
  66490. if thebits = 0 then
  66491. pTDefRegMap(@Self)^.clr := $00008000
  66492. else
  66493. pTDefRegMap(@Self)^.&set := $00008000;
  66494. end;
  66495. function TCAN1_C1FSTAT.getFIFOIP15 : TBits_1; inline;
  66496. begin
  66497. getFIFOIP15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  66498. end;
  66499. procedure TCAN1_C1FSTAT.setFIFOIP16; inline;
  66500. begin
  66501. pTDefRegMap(@Self)^.&set := $00010000;
  66502. end;
  66503. procedure TCAN1_C1FSTAT.clearFIFOIP16; inline;
  66504. begin
  66505. pTDefRegMap(@Self)^.clr := $00010000;
  66506. end;
  66507. procedure TCAN1_C1FSTAT.setFIFOIP16(thebits : TBits_1); inline;
  66508. begin
  66509. if thebits = 0 then
  66510. pTDefRegMap(@Self)^.clr := $00010000
  66511. else
  66512. pTDefRegMap(@Self)^.&set := $00010000;
  66513. end;
  66514. function TCAN1_C1FSTAT.getFIFOIP16 : TBits_1; inline;
  66515. begin
  66516. getFIFOIP16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  66517. end;
  66518. procedure TCAN1_C1FSTAT.setFIFOIP17; inline;
  66519. begin
  66520. pTDefRegMap(@Self)^.&set := $00020000;
  66521. end;
  66522. procedure TCAN1_C1FSTAT.clearFIFOIP17; inline;
  66523. begin
  66524. pTDefRegMap(@Self)^.clr := $00020000;
  66525. end;
  66526. procedure TCAN1_C1FSTAT.setFIFOIP17(thebits : TBits_1); inline;
  66527. begin
  66528. if thebits = 0 then
  66529. pTDefRegMap(@Self)^.clr := $00020000
  66530. else
  66531. pTDefRegMap(@Self)^.&set := $00020000;
  66532. end;
  66533. function TCAN1_C1FSTAT.getFIFOIP17 : TBits_1; inline;
  66534. begin
  66535. getFIFOIP17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  66536. end;
  66537. procedure TCAN1_C1FSTAT.setFIFOIP18; inline;
  66538. begin
  66539. pTDefRegMap(@Self)^.&set := $00040000;
  66540. end;
  66541. procedure TCAN1_C1FSTAT.clearFIFOIP18; inline;
  66542. begin
  66543. pTDefRegMap(@Self)^.clr := $00040000;
  66544. end;
  66545. procedure TCAN1_C1FSTAT.setFIFOIP18(thebits : TBits_1); inline;
  66546. begin
  66547. if thebits = 0 then
  66548. pTDefRegMap(@Self)^.clr := $00040000
  66549. else
  66550. pTDefRegMap(@Self)^.&set := $00040000;
  66551. end;
  66552. function TCAN1_C1FSTAT.getFIFOIP18 : TBits_1; inline;
  66553. begin
  66554. getFIFOIP18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  66555. end;
  66556. procedure TCAN1_C1FSTAT.setFIFOIP19; inline;
  66557. begin
  66558. pTDefRegMap(@Self)^.&set := $00080000;
  66559. end;
  66560. procedure TCAN1_C1FSTAT.clearFIFOIP19; inline;
  66561. begin
  66562. pTDefRegMap(@Self)^.clr := $00080000;
  66563. end;
  66564. procedure TCAN1_C1FSTAT.setFIFOIP19(thebits : TBits_1); inline;
  66565. begin
  66566. if thebits = 0 then
  66567. pTDefRegMap(@Self)^.clr := $00080000
  66568. else
  66569. pTDefRegMap(@Self)^.&set := $00080000;
  66570. end;
  66571. function TCAN1_C1FSTAT.getFIFOIP19 : TBits_1; inline;
  66572. begin
  66573. getFIFOIP19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  66574. end;
  66575. procedure TCAN1_C1FSTAT.setFIFOIP20; inline;
  66576. begin
  66577. pTDefRegMap(@Self)^.&set := $00100000;
  66578. end;
  66579. procedure TCAN1_C1FSTAT.clearFIFOIP20; inline;
  66580. begin
  66581. pTDefRegMap(@Self)^.clr := $00100000;
  66582. end;
  66583. procedure TCAN1_C1FSTAT.setFIFOIP20(thebits : TBits_1); inline;
  66584. begin
  66585. if thebits = 0 then
  66586. pTDefRegMap(@Self)^.clr := $00100000
  66587. else
  66588. pTDefRegMap(@Self)^.&set := $00100000;
  66589. end;
  66590. function TCAN1_C1FSTAT.getFIFOIP20 : TBits_1; inline;
  66591. begin
  66592. getFIFOIP20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  66593. end;
  66594. procedure TCAN1_C1FSTAT.setFIFOIP21; inline;
  66595. begin
  66596. pTDefRegMap(@Self)^.&set := $00200000;
  66597. end;
  66598. procedure TCAN1_C1FSTAT.clearFIFOIP21; inline;
  66599. begin
  66600. pTDefRegMap(@Self)^.clr := $00200000;
  66601. end;
  66602. procedure TCAN1_C1FSTAT.setFIFOIP21(thebits : TBits_1); inline;
  66603. begin
  66604. if thebits = 0 then
  66605. pTDefRegMap(@Self)^.clr := $00200000
  66606. else
  66607. pTDefRegMap(@Self)^.&set := $00200000;
  66608. end;
  66609. function TCAN1_C1FSTAT.getFIFOIP21 : TBits_1; inline;
  66610. begin
  66611. getFIFOIP21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  66612. end;
  66613. procedure TCAN1_C1FSTAT.setFIFOIP22; inline;
  66614. begin
  66615. pTDefRegMap(@Self)^.&set := $00400000;
  66616. end;
  66617. procedure TCAN1_C1FSTAT.clearFIFOIP22; inline;
  66618. begin
  66619. pTDefRegMap(@Self)^.clr := $00400000;
  66620. end;
  66621. procedure TCAN1_C1FSTAT.setFIFOIP22(thebits : TBits_1); inline;
  66622. begin
  66623. if thebits = 0 then
  66624. pTDefRegMap(@Self)^.clr := $00400000
  66625. else
  66626. pTDefRegMap(@Self)^.&set := $00400000;
  66627. end;
  66628. function TCAN1_C1FSTAT.getFIFOIP22 : TBits_1; inline;
  66629. begin
  66630. getFIFOIP22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  66631. end;
  66632. procedure TCAN1_C1FSTAT.setFIFOIP23; inline;
  66633. begin
  66634. pTDefRegMap(@Self)^.&set := $00800000;
  66635. end;
  66636. procedure TCAN1_C1FSTAT.clearFIFOIP23; inline;
  66637. begin
  66638. pTDefRegMap(@Self)^.clr := $00800000;
  66639. end;
  66640. procedure TCAN1_C1FSTAT.setFIFOIP23(thebits : TBits_1); inline;
  66641. begin
  66642. if thebits = 0 then
  66643. pTDefRegMap(@Self)^.clr := $00800000
  66644. else
  66645. pTDefRegMap(@Self)^.&set := $00800000;
  66646. end;
  66647. function TCAN1_C1FSTAT.getFIFOIP23 : TBits_1; inline;
  66648. begin
  66649. getFIFOIP23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  66650. end;
  66651. procedure TCAN1_C1FSTAT.setFIFOIP24; inline;
  66652. begin
  66653. pTDefRegMap(@Self)^.&set := $01000000;
  66654. end;
  66655. procedure TCAN1_C1FSTAT.clearFIFOIP24; inline;
  66656. begin
  66657. pTDefRegMap(@Self)^.clr := $01000000;
  66658. end;
  66659. procedure TCAN1_C1FSTAT.setFIFOIP24(thebits : TBits_1); inline;
  66660. begin
  66661. if thebits = 0 then
  66662. pTDefRegMap(@Self)^.clr := $01000000
  66663. else
  66664. pTDefRegMap(@Self)^.&set := $01000000;
  66665. end;
  66666. function TCAN1_C1FSTAT.getFIFOIP24 : TBits_1; inline;
  66667. begin
  66668. getFIFOIP24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  66669. end;
  66670. procedure TCAN1_C1FSTAT.setFIFOIP25; inline;
  66671. begin
  66672. pTDefRegMap(@Self)^.&set := $02000000;
  66673. end;
  66674. procedure TCAN1_C1FSTAT.clearFIFOIP25; inline;
  66675. begin
  66676. pTDefRegMap(@Self)^.clr := $02000000;
  66677. end;
  66678. procedure TCAN1_C1FSTAT.setFIFOIP25(thebits : TBits_1); inline;
  66679. begin
  66680. if thebits = 0 then
  66681. pTDefRegMap(@Self)^.clr := $02000000
  66682. else
  66683. pTDefRegMap(@Self)^.&set := $02000000;
  66684. end;
  66685. function TCAN1_C1FSTAT.getFIFOIP25 : TBits_1; inline;
  66686. begin
  66687. getFIFOIP25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  66688. end;
  66689. procedure TCAN1_C1FSTAT.setFIFOIP26; inline;
  66690. begin
  66691. pTDefRegMap(@Self)^.&set := $04000000;
  66692. end;
  66693. procedure TCAN1_C1FSTAT.clearFIFOIP26; inline;
  66694. begin
  66695. pTDefRegMap(@Self)^.clr := $04000000;
  66696. end;
  66697. procedure TCAN1_C1FSTAT.setFIFOIP26(thebits : TBits_1); inline;
  66698. begin
  66699. if thebits = 0 then
  66700. pTDefRegMap(@Self)^.clr := $04000000
  66701. else
  66702. pTDefRegMap(@Self)^.&set := $04000000;
  66703. end;
  66704. function TCAN1_C1FSTAT.getFIFOIP26 : TBits_1; inline;
  66705. begin
  66706. getFIFOIP26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  66707. end;
  66708. procedure TCAN1_C1FSTAT.setFIFOIP27; inline;
  66709. begin
  66710. pTDefRegMap(@Self)^.&set := $08000000;
  66711. end;
  66712. procedure TCAN1_C1FSTAT.clearFIFOIP27; inline;
  66713. begin
  66714. pTDefRegMap(@Self)^.clr := $08000000;
  66715. end;
  66716. procedure TCAN1_C1FSTAT.setFIFOIP27(thebits : TBits_1); inline;
  66717. begin
  66718. if thebits = 0 then
  66719. pTDefRegMap(@Self)^.clr := $08000000
  66720. else
  66721. pTDefRegMap(@Self)^.&set := $08000000;
  66722. end;
  66723. function TCAN1_C1FSTAT.getFIFOIP27 : TBits_1; inline;
  66724. begin
  66725. getFIFOIP27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  66726. end;
  66727. procedure TCAN1_C1FSTAT.setFIFOIP28; inline;
  66728. begin
  66729. pTDefRegMap(@Self)^.&set := $10000000;
  66730. end;
  66731. procedure TCAN1_C1FSTAT.clearFIFOIP28; inline;
  66732. begin
  66733. pTDefRegMap(@Self)^.clr := $10000000;
  66734. end;
  66735. procedure TCAN1_C1FSTAT.setFIFOIP28(thebits : TBits_1); inline;
  66736. begin
  66737. if thebits = 0 then
  66738. pTDefRegMap(@Self)^.clr := $10000000
  66739. else
  66740. pTDefRegMap(@Self)^.&set := $10000000;
  66741. end;
  66742. function TCAN1_C1FSTAT.getFIFOIP28 : TBits_1; inline;
  66743. begin
  66744. getFIFOIP28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  66745. end;
  66746. procedure TCAN1_C1FSTAT.setFIFOIP29; inline;
  66747. begin
  66748. pTDefRegMap(@Self)^.&set := $20000000;
  66749. end;
  66750. procedure TCAN1_C1FSTAT.clearFIFOIP29; inline;
  66751. begin
  66752. pTDefRegMap(@Self)^.clr := $20000000;
  66753. end;
  66754. procedure TCAN1_C1FSTAT.setFIFOIP29(thebits : TBits_1); inline;
  66755. begin
  66756. if thebits = 0 then
  66757. pTDefRegMap(@Self)^.clr := $20000000
  66758. else
  66759. pTDefRegMap(@Self)^.&set := $20000000;
  66760. end;
  66761. function TCAN1_C1FSTAT.getFIFOIP29 : TBits_1; inline;
  66762. begin
  66763. getFIFOIP29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  66764. end;
  66765. procedure TCAN1_C1FSTAT.setFIFOIP30; inline;
  66766. begin
  66767. pTDefRegMap(@Self)^.&set := $40000000;
  66768. end;
  66769. procedure TCAN1_C1FSTAT.clearFIFOIP30; inline;
  66770. begin
  66771. pTDefRegMap(@Self)^.clr := $40000000;
  66772. end;
  66773. procedure TCAN1_C1FSTAT.setFIFOIP30(thebits : TBits_1); inline;
  66774. begin
  66775. if thebits = 0 then
  66776. pTDefRegMap(@Self)^.clr := $40000000
  66777. else
  66778. pTDefRegMap(@Self)^.&set := $40000000;
  66779. end;
  66780. function TCAN1_C1FSTAT.getFIFOIP30 : TBits_1; inline;
  66781. begin
  66782. getFIFOIP30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  66783. end;
  66784. procedure TCAN1_C1FSTAT.setFIFOIP31; inline;
  66785. begin
  66786. pTDefRegMap(@Self)^.&set := $80000000;
  66787. end;
  66788. procedure TCAN1_C1FSTAT.clearFIFOIP31; inline;
  66789. begin
  66790. pTDefRegMap(@Self)^.clr := $80000000;
  66791. end;
  66792. procedure TCAN1_C1FSTAT.setFIFOIP31(thebits : TBits_1); inline;
  66793. begin
  66794. if thebits = 0 then
  66795. pTDefRegMap(@Self)^.clr := $80000000
  66796. else
  66797. pTDefRegMap(@Self)^.&set := $80000000;
  66798. end;
  66799. function TCAN1_C1FSTAT.getFIFOIP31 : TBits_1; inline;
  66800. begin
  66801. getFIFOIP31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  66802. end;
  66803. procedure TCAN1_C1FSTAT.setw(thebits : TBits_32); inline;
  66804. begin
  66805. pTDefRegMap(@Self)^.val := thebits;
  66806. end;
  66807. function TCAN1_C1FSTAT.getw : TBits_32; inline;
  66808. begin
  66809. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66810. end;
  66811. procedure TCAN1_C1RXOVF.setRXOVF(thebits : TBits_32); inline;
  66812. begin
  66813. pTDefRegMap(@Self)^.val := thebits;
  66814. end;
  66815. function TCAN1_C1RXOVF.getRXOVF : TBits_32; inline;
  66816. begin
  66817. getRXOVF := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  66818. end;
  66819. procedure TCAN1_C1RXOVF.setRXOVF0; inline;
  66820. begin
  66821. pTDefRegMap(@Self)^.&set := $00000001;
  66822. end;
  66823. procedure TCAN1_C1RXOVF.clearRXOVF0; inline;
  66824. begin
  66825. pTDefRegMap(@Self)^.clr := $00000001;
  66826. end;
  66827. procedure TCAN1_C1RXOVF.setRXOVF0(thebits : TBits_1); inline;
  66828. begin
  66829. if thebits = 0 then
  66830. pTDefRegMap(@Self)^.clr := $00000001
  66831. else
  66832. pTDefRegMap(@Self)^.&set := $00000001;
  66833. end;
  66834. function TCAN1_C1RXOVF.getRXOVF0 : TBits_1; inline;
  66835. begin
  66836. getRXOVF0 := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  66837. end;
  66838. procedure TCAN1_C1RXOVF.setRXOVF1; inline;
  66839. begin
  66840. pTDefRegMap(@Self)^.&set := $00000002;
  66841. end;
  66842. procedure TCAN1_C1RXOVF.clearRXOVF1; inline;
  66843. begin
  66844. pTDefRegMap(@Self)^.clr := $00000002;
  66845. end;
  66846. procedure TCAN1_C1RXOVF.setRXOVF1(thebits : TBits_1); inline;
  66847. begin
  66848. if thebits = 0 then
  66849. pTDefRegMap(@Self)^.clr := $00000002
  66850. else
  66851. pTDefRegMap(@Self)^.&set := $00000002;
  66852. end;
  66853. function TCAN1_C1RXOVF.getRXOVF1 : TBits_1; inline;
  66854. begin
  66855. getRXOVF1 := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  66856. end;
  66857. procedure TCAN1_C1RXOVF.setRXOVF2; inline;
  66858. begin
  66859. pTDefRegMap(@Self)^.&set := $00000004;
  66860. end;
  66861. procedure TCAN1_C1RXOVF.clearRXOVF2; inline;
  66862. begin
  66863. pTDefRegMap(@Self)^.clr := $00000004;
  66864. end;
  66865. procedure TCAN1_C1RXOVF.setRXOVF2(thebits : TBits_1); inline;
  66866. begin
  66867. if thebits = 0 then
  66868. pTDefRegMap(@Self)^.clr := $00000004
  66869. else
  66870. pTDefRegMap(@Self)^.&set := $00000004;
  66871. end;
  66872. function TCAN1_C1RXOVF.getRXOVF2 : TBits_1; inline;
  66873. begin
  66874. getRXOVF2 := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  66875. end;
  66876. procedure TCAN1_C1RXOVF.setRXOVF3; inline;
  66877. begin
  66878. pTDefRegMap(@Self)^.&set := $00000008;
  66879. end;
  66880. procedure TCAN1_C1RXOVF.clearRXOVF3; inline;
  66881. begin
  66882. pTDefRegMap(@Self)^.clr := $00000008;
  66883. end;
  66884. procedure TCAN1_C1RXOVF.setRXOVF3(thebits : TBits_1); inline;
  66885. begin
  66886. if thebits = 0 then
  66887. pTDefRegMap(@Self)^.clr := $00000008
  66888. else
  66889. pTDefRegMap(@Self)^.&set := $00000008;
  66890. end;
  66891. function TCAN1_C1RXOVF.getRXOVF3 : TBits_1; inline;
  66892. begin
  66893. getRXOVF3 := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  66894. end;
  66895. procedure TCAN1_C1RXOVF.setRXOVF4; inline;
  66896. begin
  66897. pTDefRegMap(@Self)^.&set := $00000010;
  66898. end;
  66899. procedure TCAN1_C1RXOVF.clearRXOVF4; inline;
  66900. begin
  66901. pTDefRegMap(@Self)^.clr := $00000010;
  66902. end;
  66903. procedure TCAN1_C1RXOVF.setRXOVF4(thebits : TBits_1); inline;
  66904. begin
  66905. if thebits = 0 then
  66906. pTDefRegMap(@Self)^.clr := $00000010
  66907. else
  66908. pTDefRegMap(@Self)^.&set := $00000010;
  66909. end;
  66910. function TCAN1_C1RXOVF.getRXOVF4 : TBits_1; inline;
  66911. begin
  66912. getRXOVF4 := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  66913. end;
  66914. procedure TCAN1_C1RXOVF.setRXOVF5; inline;
  66915. begin
  66916. pTDefRegMap(@Self)^.&set := $00000020;
  66917. end;
  66918. procedure TCAN1_C1RXOVF.clearRXOVF5; inline;
  66919. begin
  66920. pTDefRegMap(@Self)^.clr := $00000020;
  66921. end;
  66922. procedure TCAN1_C1RXOVF.setRXOVF5(thebits : TBits_1); inline;
  66923. begin
  66924. if thebits = 0 then
  66925. pTDefRegMap(@Self)^.clr := $00000020
  66926. else
  66927. pTDefRegMap(@Self)^.&set := $00000020;
  66928. end;
  66929. function TCAN1_C1RXOVF.getRXOVF5 : TBits_1; inline;
  66930. begin
  66931. getRXOVF5 := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  66932. end;
  66933. procedure TCAN1_C1RXOVF.setRXOVF6; inline;
  66934. begin
  66935. pTDefRegMap(@Self)^.&set := $00000040;
  66936. end;
  66937. procedure TCAN1_C1RXOVF.clearRXOVF6; inline;
  66938. begin
  66939. pTDefRegMap(@Self)^.clr := $00000040;
  66940. end;
  66941. procedure TCAN1_C1RXOVF.setRXOVF6(thebits : TBits_1); inline;
  66942. begin
  66943. if thebits = 0 then
  66944. pTDefRegMap(@Self)^.clr := $00000040
  66945. else
  66946. pTDefRegMap(@Self)^.&set := $00000040;
  66947. end;
  66948. function TCAN1_C1RXOVF.getRXOVF6 : TBits_1; inline;
  66949. begin
  66950. getRXOVF6 := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  66951. end;
  66952. procedure TCAN1_C1RXOVF.setRXOVF7; inline;
  66953. begin
  66954. pTDefRegMap(@Self)^.&set := $00000080;
  66955. end;
  66956. procedure TCAN1_C1RXOVF.clearRXOVF7; inline;
  66957. begin
  66958. pTDefRegMap(@Self)^.clr := $00000080;
  66959. end;
  66960. procedure TCAN1_C1RXOVF.setRXOVF7(thebits : TBits_1); inline;
  66961. begin
  66962. if thebits = 0 then
  66963. pTDefRegMap(@Self)^.clr := $00000080
  66964. else
  66965. pTDefRegMap(@Self)^.&set := $00000080;
  66966. end;
  66967. function TCAN1_C1RXOVF.getRXOVF7 : TBits_1; inline;
  66968. begin
  66969. getRXOVF7 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  66970. end;
  66971. procedure TCAN1_C1RXOVF.setRXOVF8; inline;
  66972. begin
  66973. pTDefRegMap(@Self)^.&set := $00000100;
  66974. end;
  66975. procedure TCAN1_C1RXOVF.clearRXOVF8; inline;
  66976. begin
  66977. pTDefRegMap(@Self)^.clr := $00000100;
  66978. end;
  66979. procedure TCAN1_C1RXOVF.setRXOVF8(thebits : TBits_1); inline;
  66980. begin
  66981. if thebits = 0 then
  66982. pTDefRegMap(@Self)^.clr := $00000100
  66983. else
  66984. pTDefRegMap(@Self)^.&set := $00000100;
  66985. end;
  66986. function TCAN1_C1RXOVF.getRXOVF8 : TBits_1; inline;
  66987. begin
  66988. getRXOVF8 := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  66989. end;
  66990. procedure TCAN1_C1RXOVF.setRXOVF9; inline;
  66991. begin
  66992. pTDefRegMap(@Self)^.&set := $00000200;
  66993. end;
  66994. procedure TCAN1_C1RXOVF.clearRXOVF9; inline;
  66995. begin
  66996. pTDefRegMap(@Self)^.clr := $00000200;
  66997. end;
  66998. procedure TCAN1_C1RXOVF.setRXOVF9(thebits : TBits_1); inline;
  66999. begin
  67000. if thebits = 0 then
  67001. pTDefRegMap(@Self)^.clr := $00000200
  67002. else
  67003. pTDefRegMap(@Self)^.&set := $00000200;
  67004. end;
  67005. function TCAN1_C1RXOVF.getRXOVF9 : TBits_1; inline;
  67006. begin
  67007. getRXOVF9 := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  67008. end;
  67009. procedure TCAN1_C1RXOVF.setRXOVF10; inline;
  67010. begin
  67011. pTDefRegMap(@Self)^.&set := $00000400;
  67012. end;
  67013. procedure TCAN1_C1RXOVF.clearRXOVF10; inline;
  67014. begin
  67015. pTDefRegMap(@Self)^.clr := $00000400;
  67016. end;
  67017. procedure TCAN1_C1RXOVF.setRXOVF10(thebits : TBits_1); inline;
  67018. begin
  67019. if thebits = 0 then
  67020. pTDefRegMap(@Self)^.clr := $00000400
  67021. else
  67022. pTDefRegMap(@Self)^.&set := $00000400;
  67023. end;
  67024. function TCAN1_C1RXOVF.getRXOVF10 : TBits_1; inline;
  67025. begin
  67026. getRXOVF10 := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  67027. end;
  67028. procedure TCAN1_C1RXOVF.setRXOVF11; inline;
  67029. begin
  67030. pTDefRegMap(@Self)^.&set := $00000800;
  67031. end;
  67032. procedure TCAN1_C1RXOVF.clearRXOVF11; inline;
  67033. begin
  67034. pTDefRegMap(@Self)^.clr := $00000800;
  67035. end;
  67036. procedure TCAN1_C1RXOVF.setRXOVF11(thebits : TBits_1); inline;
  67037. begin
  67038. if thebits = 0 then
  67039. pTDefRegMap(@Self)^.clr := $00000800
  67040. else
  67041. pTDefRegMap(@Self)^.&set := $00000800;
  67042. end;
  67043. function TCAN1_C1RXOVF.getRXOVF11 : TBits_1; inline;
  67044. begin
  67045. getRXOVF11 := (pTDefRegMap(@Self)^.val and $00000800) shr 11;
  67046. end;
  67047. procedure TCAN1_C1RXOVF.setRXOVF12; inline;
  67048. begin
  67049. pTDefRegMap(@Self)^.&set := $00001000;
  67050. end;
  67051. procedure TCAN1_C1RXOVF.clearRXOVF12; inline;
  67052. begin
  67053. pTDefRegMap(@Self)^.clr := $00001000;
  67054. end;
  67055. procedure TCAN1_C1RXOVF.setRXOVF12(thebits : TBits_1); inline;
  67056. begin
  67057. if thebits = 0 then
  67058. pTDefRegMap(@Self)^.clr := $00001000
  67059. else
  67060. pTDefRegMap(@Self)^.&set := $00001000;
  67061. end;
  67062. function TCAN1_C1RXOVF.getRXOVF12 : TBits_1; inline;
  67063. begin
  67064. getRXOVF12 := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  67065. end;
  67066. procedure TCAN1_C1RXOVF.setRXOVF13; inline;
  67067. begin
  67068. pTDefRegMap(@Self)^.&set := $00002000;
  67069. end;
  67070. procedure TCAN1_C1RXOVF.clearRXOVF13; inline;
  67071. begin
  67072. pTDefRegMap(@Self)^.clr := $00002000;
  67073. end;
  67074. procedure TCAN1_C1RXOVF.setRXOVF13(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 TCAN1_C1RXOVF.getRXOVF13 : TBits_1; inline;
  67082. begin
  67083. getRXOVF13 := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  67084. end;
  67085. procedure TCAN1_C1RXOVF.setRXOVF14; inline;
  67086. begin
  67087. pTDefRegMap(@Self)^.&set := $00004000;
  67088. end;
  67089. procedure TCAN1_C1RXOVF.clearRXOVF14; inline;
  67090. begin
  67091. pTDefRegMap(@Self)^.clr := $00004000;
  67092. end;
  67093. procedure TCAN1_C1RXOVF.setRXOVF14(thebits : TBits_1); inline;
  67094. begin
  67095. if thebits = 0 then
  67096. pTDefRegMap(@Self)^.clr := $00004000
  67097. else
  67098. pTDefRegMap(@Self)^.&set := $00004000;
  67099. end;
  67100. function TCAN1_C1RXOVF.getRXOVF14 : TBits_1; inline;
  67101. begin
  67102. getRXOVF14 := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  67103. end;
  67104. procedure TCAN1_C1RXOVF.setRXOVF15; inline;
  67105. begin
  67106. pTDefRegMap(@Self)^.&set := $00008000;
  67107. end;
  67108. procedure TCAN1_C1RXOVF.clearRXOVF15; inline;
  67109. begin
  67110. pTDefRegMap(@Self)^.clr := $00008000;
  67111. end;
  67112. procedure TCAN1_C1RXOVF.setRXOVF15(thebits : TBits_1); inline;
  67113. begin
  67114. if thebits = 0 then
  67115. pTDefRegMap(@Self)^.clr := $00008000
  67116. else
  67117. pTDefRegMap(@Self)^.&set := $00008000;
  67118. end;
  67119. function TCAN1_C1RXOVF.getRXOVF15 : TBits_1; inline;
  67120. begin
  67121. getRXOVF15 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67122. end;
  67123. procedure TCAN1_C1RXOVF.setRXOVF16; inline;
  67124. begin
  67125. pTDefRegMap(@Self)^.&set := $00010000;
  67126. end;
  67127. procedure TCAN1_C1RXOVF.clearRXOVF16; inline;
  67128. begin
  67129. pTDefRegMap(@Self)^.clr := $00010000;
  67130. end;
  67131. procedure TCAN1_C1RXOVF.setRXOVF16(thebits : TBits_1); inline;
  67132. begin
  67133. if thebits = 0 then
  67134. pTDefRegMap(@Self)^.clr := $00010000
  67135. else
  67136. pTDefRegMap(@Self)^.&set := $00010000;
  67137. end;
  67138. function TCAN1_C1RXOVF.getRXOVF16 : TBits_1; inline;
  67139. begin
  67140. getRXOVF16 := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  67141. end;
  67142. procedure TCAN1_C1RXOVF.setRXOVF17; inline;
  67143. begin
  67144. pTDefRegMap(@Self)^.&set := $00020000;
  67145. end;
  67146. procedure TCAN1_C1RXOVF.clearRXOVF17; inline;
  67147. begin
  67148. pTDefRegMap(@Self)^.clr := $00020000;
  67149. end;
  67150. procedure TCAN1_C1RXOVF.setRXOVF17(thebits : TBits_1); inline;
  67151. begin
  67152. if thebits = 0 then
  67153. pTDefRegMap(@Self)^.clr := $00020000
  67154. else
  67155. pTDefRegMap(@Self)^.&set := $00020000;
  67156. end;
  67157. function TCAN1_C1RXOVF.getRXOVF17 : TBits_1; inline;
  67158. begin
  67159. getRXOVF17 := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  67160. end;
  67161. procedure TCAN1_C1RXOVF.setRXOVF18; inline;
  67162. begin
  67163. pTDefRegMap(@Self)^.&set := $00040000;
  67164. end;
  67165. procedure TCAN1_C1RXOVF.clearRXOVF18; inline;
  67166. begin
  67167. pTDefRegMap(@Self)^.clr := $00040000;
  67168. end;
  67169. procedure TCAN1_C1RXOVF.setRXOVF18(thebits : TBits_1); inline;
  67170. begin
  67171. if thebits = 0 then
  67172. pTDefRegMap(@Self)^.clr := $00040000
  67173. else
  67174. pTDefRegMap(@Self)^.&set := $00040000;
  67175. end;
  67176. function TCAN1_C1RXOVF.getRXOVF18 : TBits_1; inline;
  67177. begin
  67178. getRXOVF18 := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  67179. end;
  67180. procedure TCAN1_C1RXOVF.setRXOVF19; inline;
  67181. begin
  67182. pTDefRegMap(@Self)^.&set := $00080000;
  67183. end;
  67184. procedure TCAN1_C1RXOVF.clearRXOVF19; inline;
  67185. begin
  67186. pTDefRegMap(@Self)^.clr := $00080000;
  67187. end;
  67188. procedure TCAN1_C1RXOVF.setRXOVF19(thebits : TBits_1); inline;
  67189. begin
  67190. if thebits = 0 then
  67191. pTDefRegMap(@Self)^.clr := $00080000
  67192. else
  67193. pTDefRegMap(@Self)^.&set := $00080000;
  67194. end;
  67195. function TCAN1_C1RXOVF.getRXOVF19 : TBits_1; inline;
  67196. begin
  67197. getRXOVF19 := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  67198. end;
  67199. procedure TCAN1_C1RXOVF.setRXOVF20; inline;
  67200. begin
  67201. pTDefRegMap(@Self)^.&set := $00100000;
  67202. end;
  67203. procedure TCAN1_C1RXOVF.clearRXOVF20; inline;
  67204. begin
  67205. pTDefRegMap(@Self)^.clr := $00100000;
  67206. end;
  67207. procedure TCAN1_C1RXOVF.setRXOVF20(thebits : TBits_1); inline;
  67208. begin
  67209. if thebits = 0 then
  67210. pTDefRegMap(@Self)^.clr := $00100000
  67211. else
  67212. pTDefRegMap(@Self)^.&set := $00100000;
  67213. end;
  67214. function TCAN1_C1RXOVF.getRXOVF20 : TBits_1; inline;
  67215. begin
  67216. getRXOVF20 := (pTDefRegMap(@Self)^.val and $00100000) shr 20;
  67217. end;
  67218. procedure TCAN1_C1RXOVF.setRXOVF21; inline;
  67219. begin
  67220. pTDefRegMap(@Self)^.&set := $00200000;
  67221. end;
  67222. procedure TCAN1_C1RXOVF.clearRXOVF21; inline;
  67223. begin
  67224. pTDefRegMap(@Self)^.clr := $00200000;
  67225. end;
  67226. procedure TCAN1_C1RXOVF.setRXOVF21(thebits : TBits_1); inline;
  67227. begin
  67228. if thebits = 0 then
  67229. pTDefRegMap(@Self)^.clr := $00200000
  67230. else
  67231. pTDefRegMap(@Self)^.&set := $00200000;
  67232. end;
  67233. function TCAN1_C1RXOVF.getRXOVF21 : TBits_1; inline;
  67234. begin
  67235. getRXOVF21 := (pTDefRegMap(@Self)^.val and $00200000) shr 21;
  67236. end;
  67237. procedure TCAN1_C1RXOVF.setRXOVF22; inline;
  67238. begin
  67239. pTDefRegMap(@Self)^.&set := $00400000;
  67240. end;
  67241. procedure TCAN1_C1RXOVF.clearRXOVF22; inline;
  67242. begin
  67243. pTDefRegMap(@Self)^.clr := $00400000;
  67244. end;
  67245. procedure TCAN1_C1RXOVF.setRXOVF22(thebits : TBits_1); inline;
  67246. begin
  67247. if thebits = 0 then
  67248. pTDefRegMap(@Self)^.clr := $00400000
  67249. else
  67250. pTDefRegMap(@Self)^.&set := $00400000;
  67251. end;
  67252. function TCAN1_C1RXOVF.getRXOVF22 : TBits_1; inline;
  67253. begin
  67254. getRXOVF22 := (pTDefRegMap(@Self)^.val and $00400000) shr 22;
  67255. end;
  67256. procedure TCAN1_C1RXOVF.setRXOVF23; inline;
  67257. begin
  67258. pTDefRegMap(@Self)^.&set := $00800000;
  67259. end;
  67260. procedure TCAN1_C1RXOVF.clearRXOVF23; inline;
  67261. begin
  67262. pTDefRegMap(@Self)^.clr := $00800000;
  67263. end;
  67264. procedure TCAN1_C1RXOVF.setRXOVF23(thebits : TBits_1); inline;
  67265. begin
  67266. if thebits = 0 then
  67267. pTDefRegMap(@Self)^.clr := $00800000
  67268. else
  67269. pTDefRegMap(@Self)^.&set := $00800000;
  67270. end;
  67271. function TCAN1_C1RXOVF.getRXOVF23 : TBits_1; inline;
  67272. begin
  67273. getRXOVF23 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  67274. end;
  67275. procedure TCAN1_C1RXOVF.setRXOVF24; inline;
  67276. begin
  67277. pTDefRegMap(@Self)^.&set := $01000000;
  67278. end;
  67279. procedure TCAN1_C1RXOVF.clearRXOVF24; inline;
  67280. begin
  67281. pTDefRegMap(@Self)^.clr := $01000000;
  67282. end;
  67283. procedure TCAN1_C1RXOVF.setRXOVF24(thebits : TBits_1); inline;
  67284. begin
  67285. if thebits = 0 then
  67286. pTDefRegMap(@Self)^.clr := $01000000
  67287. else
  67288. pTDefRegMap(@Self)^.&set := $01000000;
  67289. end;
  67290. function TCAN1_C1RXOVF.getRXOVF24 : TBits_1; inline;
  67291. begin
  67292. getRXOVF24 := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  67293. end;
  67294. procedure TCAN1_C1RXOVF.setRXOVF25; inline;
  67295. begin
  67296. pTDefRegMap(@Self)^.&set := $02000000;
  67297. end;
  67298. procedure TCAN1_C1RXOVF.clearRXOVF25; inline;
  67299. begin
  67300. pTDefRegMap(@Self)^.clr := $02000000;
  67301. end;
  67302. procedure TCAN1_C1RXOVF.setRXOVF25(thebits : TBits_1); inline;
  67303. begin
  67304. if thebits = 0 then
  67305. pTDefRegMap(@Self)^.clr := $02000000
  67306. else
  67307. pTDefRegMap(@Self)^.&set := $02000000;
  67308. end;
  67309. function TCAN1_C1RXOVF.getRXOVF25 : TBits_1; inline;
  67310. begin
  67311. getRXOVF25 := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  67312. end;
  67313. procedure TCAN1_C1RXOVF.setRXOVF26; inline;
  67314. begin
  67315. pTDefRegMap(@Self)^.&set := $04000000;
  67316. end;
  67317. procedure TCAN1_C1RXOVF.clearRXOVF26; inline;
  67318. begin
  67319. pTDefRegMap(@Self)^.clr := $04000000;
  67320. end;
  67321. procedure TCAN1_C1RXOVF.setRXOVF26(thebits : TBits_1); inline;
  67322. begin
  67323. if thebits = 0 then
  67324. pTDefRegMap(@Self)^.clr := $04000000
  67325. else
  67326. pTDefRegMap(@Self)^.&set := $04000000;
  67327. end;
  67328. function TCAN1_C1RXOVF.getRXOVF26 : TBits_1; inline;
  67329. begin
  67330. getRXOVF26 := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  67331. end;
  67332. procedure TCAN1_C1RXOVF.setRXOVF27; inline;
  67333. begin
  67334. pTDefRegMap(@Self)^.&set := $08000000;
  67335. end;
  67336. procedure TCAN1_C1RXOVF.clearRXOVF27; inline;
  67337. begin
  67338. pTDefRegMap(@Self)^.clr := $08000000;
  67339. end;
  67340. procedure TCAN1_C1RXOVF.setRXOVF27(thebits : TBits_1); inline;
  67341. begin
  67342. if thebits = 0 then
  67343. pTDefRegMap(@Self)^.clr := $08000000
  67344. else
  67345. pTDefRegMap(@Self)^.&set := $08000000;
  67346. end;
  67347. function TCAN1_C1RXOVF.getRXOVF27 : TBits_1; inline;
  67348. begin
  67349. getRXOVF27 := (pTDefRegMap(@Self)^.val and $08000000) shr 27;
  67350. end;
  67351. procedure TCAN1_C1RXOVF.setRXOVF28; inline;
  67352. begin
  67353. pTDefRegMap(@Self)^.&set := $10000000;
  67354. end;
  67355. procedure TCAN1_C1RXOVF.clearRXOVF28; inline;
  67356. begin
  67357. pTDefRegMap(@Self)^.clr := $10000000;
  67358. end;
  67359. procedure TCAN1_C1RXOVF.setRXOVF28(thebits : TBits_1); inline;
  67360. begin
  67361. if thebits = 0 then
  67362. pTDefRegMap(@Self)^.clr := $10000000
  67363. else
  67364. pTDefRegMap(@Self)^.&set := $10000000;
  67365. end;
  67366. function TCAN1_C1RXOVF.getRXOVF28 : TBits_1; inline;
  67367. begin
  67368. getRXOVF28 := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  67369. end;
  67370. procedure TCAN1_C1RXOVF.setRXOVF29; inline;
  67371. begin
  67372. pTDefRegMap(@Self)^.&set := $20000000;
  67373. end;
  67374. procedure TCAN1_C1RXOVF.clearRXOVF29; inline;
  67375. begin
  67376. pTDefRegMap(@Self)^.clr := $20000000;
  67377. end;
  67378. procedure TCAN1_C1RXOVF.setRXOVF29(thebits : TBits_1); inline;
  67379. begin
  67380. if thebits = 0 then
  67381. pTDefRegMap(@Self)^.clr := $20000000
  67382. else
  67383. pTDefRegMap(@Self)^.&set := $20000000;
  67384. end;
  67385. function TCAN1_C1RXOVF.getRXOVF29 : TBits_1; inline;
  67386. begin
  67387. getRXOVF29 := (pTDefRegMap(@Self)^.val and $20000000) shr 29;
  67388. end;
  67389. procedure TCAN1_C1RXOVF.setRXOVF30; inline;
  67390. begin
  67391. pTDefRegMap(@Self)^.&set := $40000000;
  67392. end;
  67393. procedure TCAN1_C1RXOVF.clearRXOVF30; inline;
  67394. begin
  67395. pTDefRegMap(@Self)^.clr := $40000000;
  67396. end;
  67397. procedure TCAN1_C1RXOVF.setRXOVF30(thebits : TBits_1); inline;
  67398. begin
  67399. if thebits = 0 then
  67400. pTDefRegMap(@Self)^.clr := $40000000
  67401. else
  67402. pTDefRegMap(@Self)^.&set := $40000000;
  67403. end;
  67404. function TCAN1_C1RXOVF.getRXOVF30 : TBits_1; inline;
  67405. begin
  67406. getRXOVF30 := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  67407. end;
  67408. procedure TCAN1_C1RXOVF.setRXOVF31; inline;
  67409. begin
  67410. pTDefRegMap(@Self)^.&set := $80000000;
  67411. end;
  67412. procedure TCAN1_C1RXOVF.clearRXOVF31; inline;
  67413. begin
  67414. pTDefRegMap(@Self)^.clr := $80000000;
  67415. end;
  67416. procedure TCAN1_C1RXOVF.setRXOVF31(thebits : TBits_1); inline;
  67417. begin
  67418. if thebits = 0 then
  67419. pTDefRegMap(@Self)^.clr := $80000000
  67420. else
  67421. pTDefRegMap(@Self)^.&set := $80000000;
  67422. end;
  67423. function TCAN1_C1RXOVF.getRXOVF31 : TBits_1; inline;
  67424. begin
  67425. getRXOVF31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  67426. end;
  67427. procedure TCAN1_C1RXOVF.setw(thebits : TBits_32); inline;
  67428. begin
  67429. pTDefRegMap(@Self)^.val := thebits;
  67430. end;
  67431. function TCAN1_C1RXOVF.getw : TBits_32; inline;
  67432. begin
  67433. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67434. end;
  67435. procedure TCAN1_C1TMR.setCANTSPRE(thebits : TBits_16); inline;
  67436. begin
  67437. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  67438. end;
  67439. function TCAN1_C1TMR.getCANTSPRE : TBits_16; inline;
  67440. begin
  67441. getCANTSPRE := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  67442. end;
  67443. procedure TCAN1_C1TMR.setCANTS(thebits : TBits_16); inline;
  67444. begin
  67445. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $0000FFFF or ( thebits shl 16 );
  67446. end;
  67447. function TCAN1_C1TMR.getCANTS : TBits_16; inline;
  67448. begin
  67449. getCANTS := (pTDefRegMap(@Self)^.val and $FFFF0000) shr 16;
  67450. end;
  67451. procedure TCAN1_C1TMR.setw(thebits : TBits_32); inline;
  67452. begin
  67453. pTDefRegMap(@Self)^.val := thebits;
  67454. end;
  67455. function TCAN1_C1TMR.getw : TBits_32; inline;
  67456. begin
  67457. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67458. end;
  67459. procedure TCAN1_C1RXM0.setEID(thebits : TBits_18); inline;
  67460. begin
  67461. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  67462. end;
  67463. function TCAN1_C1RXM0.getEID : TBits_18; inline;
  67464. begin
  67465. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  67466. end;
  67467. procedure TCAN1_C1RXM0.setMIDE; inline;
  67468. begin
  67469. pTDefRegMap(@Self)^.&set := $00080000;
  67470. end;
  67471. procedure TCAN1_C1RXM0.clearMIDE; inline;
  67472. begin
  67473. pTDefRegMap(@Self)^.clr := $00080000;
  67474. end;
  67475. procedure TCAN1_C1RXM0.setMIDE(thebits : TBits_1); inline;
  67476. begin
  67477. if thebits = 0 then
  67478. pTDefRegMap(@Self)^.clr := $00080000
  67479. else
  67480. pTDefRegMap(@Self)^.&set := $00080000;
  67481. end;
  67482. function TCAN1_C1RXM0.getMIDE : TBits_1; inline;
  67483. begin
  67484. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  67485. end;
  67486. procedure TCAN1_C1RXM0.setSID(thebits : TBits_11); inline;
  67487. begin
  67488. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  67489. end;
  67490. function TCAN1_C1RXM0.getSID : TBits_11; inline;
  67491. begin
  67492. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  67493. end;
  67494. procedure TCAN1_C1RXM0.setw(thebits : TBits_32); inline;
  67495. begin
  67496. pTDefRegMap(@Self)^.val := thebits;
  67497. end;
  67498. function TCAN1_C1RXM0.getw : TBits_32; inline;
  67499. begin
  67500. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67501. end;
  67502. procedure TCAN1_C1RXM1.setEID(thebits : TBits_18); inline;
  67503. begin
  67504. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  67505. end;
  67506. function TCAN1_C1RXM1.getEID : TBits_18; inline;
  67507. begin
  67508. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  67509. end;
  67510. procedure TCAN1_C1RXM1.setMIDE; inline;
  67511. begin
  67512. pTDefRegMap(@Self)^.&set := $00080000;
  67513. end;
  67514. procedure TCAN1_C1RXM1.clearMIDE; inline;
  67515. begin
  67516. pTDefRegMap(@Self)^.clr := $00080000;
  67517. end;
  67518. procedure TCAN1_C1RXM1.setMIDE(thebits : TBits_1); inline;
  67519. begin
  67520. if thebits = 0 then
  67521. pTDefRegMap(@Self)^.clr := $00080000
  67522. else
  67523. pTDefRegMap(@Self)^.&set := $00080000;
  67524. end;
  67525. function TCAN1_C1RXM1.getMIDE : TBits_1; inline;
  67526. begin
  67527. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  67528. end;
  67529. procedure TCAN1_C1RXM1.setSID(thebits : TBits_11); inline;
  67530. begin
  67531. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  67532. end;
  67533. function TCAN1_C1RXM1.getSID : TBits_11; inline;
  67534. begin
  67535. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  67536. end;
  67537. procedure TCAN1_C1RXM1.setw(thebits : TBits_32); inline;
  67538. begin
  67539. pTDefRegMap(@Self)^.val := thebits;
  67540. end;
  67541. function TCAN1_C1RXM1.getw : TBits_32; inline;
  67542. begin
  67543. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67544. end;
  67545. procedure TCAN1_C1RXM2.setEID(thebits : TBits_18); inline;
  67546. begin
  67547. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  67548. end;
  67549. function TCAN1_C1RXM2.getEID : TBits_18; inline;
  67550. begin
  67551. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  67552. end;
  67553. procedure TCAN1_C1RXM2.setMIDE; inline;
  67554. begin
  67555. pTDefRegMap(@Self)^.&set := $00080000;
  67556. end;
  67557. procedure TCAN1_C1RXM2.clearMIDE; inline;
  67558. begin
  67559. pTDefRegMap(@Self)^.clr := $00080000;
  67560. end;
  67561. procedure TCAN1_C1RXM2.setMIDE(thebits : TBits_1); inline;
  67562. begin
  67563. if thebits = 0 then
  67564. pTDefRegMap(@Self)^.clr := $00080000
  67565. else
  67566. pTDefRegMap(@Self)^.&set := $00080000;
  67567. end;
  67568. function TCAN1_C1RXM2.getMIDE : TBits_1; inline;
  67569. begin
  67570. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  67571. end;
  67572. procedure TCAN1_C1RXM2.setSID(thebits : TBits_11); inline;
  67573. begin
  67574. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  67575. end;
  67576. function TCAN1_C1RXM2.getSID : TBits_11; inline;
  67577. begin
  67578. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  67579. end;
  67580. procedure TCAN1_C1RXM2.setw(thebits : TBits_32); inline;
  67581. begin
  67582. pTDefRegMap(@Self)^.val := thebits;
  67583. end;
  67584. function TCAN1_C1RXM2.getw : TBits_32; inline;
  67585. begin
  67586. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67587. end;
  67588. procedure TCAN1_C1RXM3.setEID(thebits : TBits_18); inline;
  67589. begin
  67590. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  67591. end;
  67592. function TCAN1_C1RXM3.getEID : TBits_18; inline;
  67593. begin
  67594. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  67595. end;
  67596. procedure TCAN1_C1RXM3.setMIDE; inline;
  67597. begin
  67598. pTDefRegMap(@Self)^.&set := $00080000;
  67599. end;
  67600. procedure TCAN1_C1RXM3.clearMIDE; inline;
  67601. begin
  67602. pTDefRegMap(@Self)^.clr := $00080000;
  67603. end;
  67604. procedure TCAN1_C1RXM3.setMIDE(thebits : TBits_1); inline;
  67605. begin
  67606. if thebits = 0 then
  67607. pTDefRegMap(@Self)^.clr := $00080000
  67608. else
  67609. pTDefRegMap(@Self)^.&set := $00080000;
  67610. end;
  67611. function TCAN1_C1RXM3.getMIDE : TBits_1; inline;
  67612. begin
  67613. getMIDE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  67614. end;
  67615. procedure TCAN1_C1RXM3.setSID(thebits : TBits_11); inline;
  67616. begin
  67617. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  67618. end;
  67619. function TCAN1_C1RXM3.getSID : TBits_11; inline;
  67620. begin
  67621. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  67622. end;
  67623. procedure TCAN1_C1RXM3.setw(thebits : TBits_32); inline;
  67624. begin
  67625. pTDefRegMap(@Self)^.val := thebits;
  67626. end;
  67627. function TCAN1_C1RXM3.getw : TBits_32; inline;
  67628. begin
  67629. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67630. end;
  67631. procedure TCAN1_C1FLTCON0.setFSEL0(thebits : TBits_5); inline;
  67632. begin
  67633. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  67634. end;
  67635. function TCAN1_C1FLTCON0.getFSEL0 : TBits_5; inline;
  67636. begin
  67637. getFSEL0 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  67638. end;
  67639. procedure TCAN1_C1FLTCON0.setMSEL0(thebits : TBits_2); inline;
  67640. begin
  67641. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  67642. end;
  67643. function TCAN1_C1FLTCON0.getMSEL0 : TBits_2; inline;
  67644. begin
  67645. getMSEL0 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  67646. end;
  67647. procedure TCAN1_C1FLTCON0.setFLTEN0; inline;
  67648. begin
  67649. pTDefRegMap(@Self)^.&set := $00000080;
  67650. end;
  67651. procedure TCAN1_C1FLTCON0.clearFLTEN0; inline;
  67652. begin
  67653. pTDefRegMap(@Self)^.clr := $00000080;
  67654. end;
  67655. procedure TCAN1_C1FLTCON0.setFLTEN0(thebits : TBits_1); inline;
  67656. begin
  67657. if thebits = 0 then
  67658. pTDefRegMap(@Self)^.clr := $00000080
  67659. else
  67660. pTDefRegMap(@Self)^.&set := $00000080;
  67661. end;
  67662. function TCAN1_C1FLTCON0.getFLTEN0 : TBits_1; inline;
  67663. begin
  67664. getFLTEN0 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67665. end;
  67666. procedure TCAN1_C1FLTCON0.setFSEL1(thebits : TBits_5); inline;
  67667. begin
  67668. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  67669. end;
  67670. function TCAN1_C1FLTCON0.getFSEL1 : TBits_5; inline;
  67671. begin
  67672. getFSEL1 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  67673. end;
  67674. procedure TCAN1_C1FLTCON0.setMSEL1(thebits : TBits_2); inline;
  67675. begin
  67676. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  67677. end;
  67678. function TCAN1_C1FLTCON0.getMSEL1 : TBits_2; inline;
  67679. begin
  67680. getMSEL1 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  67681. end;
  67682. procedure TCAN1_C1FLTCON0.setFLTEN1; inline;
  67683. begin
  67684. pTDefRegMap(@Self)^.&set := $00008000;
  67685. end;
  67686. procedure TCAN1_C1FLTCON0.clearFLTEN1; inline;
  67687. begin
  67688. pTDefRegMap(@Self)^.clr := $00008000;
  67689. end;
  67690. procedure TCAN1_C1FLTCON0.setFLTEN1(thebits : TBits_1); inline;
  67691. begin
  67692. if thebits = 0 then
  67693. pTDefRegMap(@Self)^.clr := $00008000
  67694. else
  67695. pTDefRegMap(@Self)^.&set := $00008000;
  67696. end;
  67697. function TCAN1_C1FLTCON0.getFLTEN1 : TBits_1; inline;
  67698. begin
  67699. getFLTEN1 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67700. end;
  67701. procedure TCAN1_C1FLTCON0.setFSEL2(thebits : TBits_5); inline;
  67702. begin
  67703. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  67704. end;
  67705. function TCAN1_C1FLTCON0.getFSEL2 : TBits_5; inline;
  67706. begin
  67707. getFSEL2 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  67708. end;
  67709. procedure TCAN1_C1FLTCON0.setMSEL2(thebits : TBits_2); inline;
  67710. begin
  67711. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  67712. end;
  67713. function TCAN1_C1FLTCON0.getMSEL2 : TBits_2; inline;
  67714. begin
  67715. getMSEL2 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  67716. end;
  67717. procedure TCAN1_C1FLTCON0.setFLTEN2; inline;
  67718. begin
  67719. pTDefRegMap(@Self)^.&set := $00800000;
  67720. end;
  67721. procedure TCAN1_C1FLTCON0.clearFLTEN2; inline;
  67722. begin
  67723. pTDefRegMap(@Self)^.clr := $00800000;
  67724. end;
  67725. procedure TCAN1_C1FLTCON0.setFLTEN2(thebits : TBits_1); inline;
  67726. begin
  67727. if thebits = 0 then
  67728. pTDefRegMap(@Self)^.clr := $00800000
  67729. else
  67730. pTDefRegMap(@Self)^.&set := $00800000;
  67731. end;
  67732. function TCAN1_C1FLTCON0.getFLTEN2 : TBits_1; inline;
  67733. begin
  67734. getFLTEN2 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  67735. end;
  67736. procedure TCAN1_C1FLTCON0.setFSEL3(thebits : TBits_5); inline;
  67737. begin
  67738. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  67739. end;
  67740. function TCAN1_C1FLTCON0.getFSEL3 : TBits_5; inline;
  67741. begin
  67742. getFSEL3 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  67743. end;
  67744. procedure TCAN1_C1FLTCON0.setMSEL3(thebits : TBits_2); inline;
  67745. begin
  67746. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  67747. end;
  67748. function TCAN1_C1FLTCON0.getMSEL3 : TBits_2; inline;
  67749. begin
  67750. getMSEL3 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  67751. end;
  67752. procedure TCAN1_C1FLTCON0.setFLTEN3; inline;
  67753. begin
  67754. pTDefRegMap(@Self)^.&set := $80000000;
  67755. end;
  67756. procedure TCAN1_C1FLTCON0.clearFLTEN3; inline;
  67757. begin
  67758. pTDefRegMap(@Self)^.clr := $80000000;
  67759. end;
  67760. procedure TCAN1_C1FLTCON0.setFLTEN3(thebits : TBits_1); inline;
  67761. begin
  67762. if thebits = 0 then
  67763. pTDefRegMap(@Self)^.clr := $80000000
  67764. else
  67765. pTDefRegMap(@Self)^.&set := $80000000;
  67766. end;
  67767. function TCAN1_C1FLTCON0.getFLTEN3 : TBits_1; inline;
  67768. begin
  67769. getFLTEN3 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  67770. end;
  67771. procedure TCAN1_C1FLTCON0.setw(thebits : TBits_32); inline;
  67772. begin
  67773. pTDefRegMap(@Self)^.val := thebits;
  67774. end;
  67775. function TCAN1_C1FLTCON0.getw : TBits_32; inline;
  67776. begin
  67777. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67778. end;
  67779. procedure TCAN1_C1FLTCON1.setFSEL4(thebits : TBits_5); inline;
  67780. begin
  67781. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  67782. end;
  67783. function TCAN1_C1FLTCON1.getFSEL4 : TBits_5; inline;
  67784. begin
  67785. getFSEL4 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  67786. end;
  67787. procedure TCAN1_C1FLTCON1.setMSEL4(thebits : TBits_2); inline;
  67788. begin
  67789. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  67790. end;
  67791. function TCAN1_C1FLTCON1.getMSEL4 : TBits_2; inline;
  67792. begin
  67793. getMSEL4 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  67794. end;
  67795. procedure TCAN1_C1FLTCON1.setFLTEN4; inline;
  67796. begin
  67797. pTDefRegMap(@Self)^.&set := $00000080;
  67798. end;
  67799. procedure TCAN1_C1FLTCON1.clearFLTEN4; inline;
  67800. begin
  67801. pTDefRegMap(@Self)^.clr := $00000080;
  67802. end;
  67803. procedure TCAN1_C1FLTCON1.setFLTEN4(thebits : TBits_1); inline;
  67804. begin
  67805. if thebits = 0 then
  67806. pTDefRegMap(@Self)^.clr := $00000080
  67807. else
  67808. pTDefRegMap(@Self)^.&set := $00000080;
  67809. end;
  67810. function TCAN1_C1FLTCON1.getFLTEN4 : TBits_1; inline;
  67811. begin
  67812. getFLTEN4 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67813. end;
  67814. procedure TCAN1_C1FLTCON1.setFSEL5(thebits : TBits_5); inline;
  67815. begin
  67816. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  67817. end;
  67818. function TCAN1_C1FLTCON1.getFSEL5 : TBits_5; inline;
  67819. begin
  67820. getFSEL5 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  67821. end;
  67822. procedure TCAN1_C1FLTCON1.setMSEL5(thebits : TBits_2); inline;
  67823. begin
  67824. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  67825. end;
  67826. function TCAN1_C1FLTCON1.getMSEL5 : TBits_2; inline;
  67827. begin
  67828. getMSEL5 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  67829. end;
  67830. procedure TCAN1_C1FLTCON1.setFLTEN5; inline;
  67831. begin
  67832. pTDefRegMap(@Self)^.&set := $00008000;
  67833. end;
  67834. procedure TCAN1_C1FLTCON1.clearFLTEN5; inline;
  67835. begin
  67836. pTDefRegMap(@Self)^.clr := $00008000;
  67837. end;
  67838. procedure TCAN1_C1FLTCON1.setFLTEN5(thebits : TBits_1); inline;
  67839. begin
  67840. if thebits = 0 then
  67841. pTDefRegMap(@Self)^.clr := $00008000
  67842. else
  67843. pTDefRegMap(@Self)^.&set := $00008000;
  67844. end;
  67845. function TCAN1_C1FLTCON1.getFLTEN5 : TBits_1; inline;
  67846. begin
  67847. getFLTEN5 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67848. end;
  67849. procedure TCAN1_C1FLTCON1.setFSEL6(thebits : TBits_5); inline;
  67850. begin
  67851. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  67852. end;
  67853. function TCAN1_C1FLTCON1.getFSEL6 : TBits_5; inline;
  67854. begin
  67855. getFSEL6 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  67856. end;
  67857. procedure TCAN1_C1FLTCON1.setMSEL6(thebits : TBits_2); inline;
  67858. begin
  67859. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  67860. end;
  67861. function TCAN1_C1FLTCON1.getMSEL6 : TBits_2; inline;
  67862. begin
  67863. getMSEL6 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  67864. end;
  67865. procedure TCAN1_C1FLTCON1.setFLTEN6; inline;
  67866. begin
  67867. pTDefRegMap(@Self)^.&set := $00800000;
  67868. end;
  67869. procedure TCAN1_C1FLTCON1.clearFLTEN6; inline;
  67870. begin
  67871. pTDefRegMap(@Self)^.clr := $00800000;
  67872. end;
  67873. procedure TCAN1_C1FLTCON1.setFLTEN6(thebits : TBits_1); inline;
  67874. begin
  67875. if thebits = 0 then
  67876. pTDefRegMap(@Self)^.clr := $00800000
  67877. else
  67878. pTDefRegMap(@Self)^.&set := $00800000;
  67879. end;
  67880. function TCAN1_C1FLTCON1.getFLTEN6 : TBits_1; inline;
  67881. begin
  67882. getFLTEN6 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  67883. end;
  67884. procedure TCAN1_C1FLTCON1.setFSEL7(thebits : TBits_5); inline;
  67885. begin
  67886. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  67887. end;
  67888. function TCAN1_C1FLTCON1.getFSEL7 : TBits_5; inline;
  67889. begin
  67890. getFSEL7 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  67891. end;
  67892. procedure TCAN1_C1FLTCON1.setMSEL7(thebits : TBits_2); inline;
  67893. begin
  67894. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  67895. end;
  67896. function TCAN1_C1FLTCON1.getMSEL7 : TBits_2; inline;
  67897. begin
  67898. getMSEL7 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  67899. end;
  67900. procedure TCAN1_C1FLTCON1.setFLTEN7; inline;
  67901. begin
  67902. pTDefRegMap(@Self)^.&set := $80000000;
  67903. end;
  67904. procedure TCAN1_C1FLTCON1.clearFLTEN7; inline;
  67905. begin
  67906. pTDefRegMap(@Self)^.clr := $80000000;
  67907. end;
  67908. procedure TCAN1_C1FLTCON1.setFLTEN7(thebits : TBits_1); inline;
  67909. begin
  67910. if thebits = 0 then
  67911. pTDefRegMap(@Self)^.clr := $80000000
  67912. else
  67913. pTDefRegMap(@Self)^.&set := $80000000;
  67914. end;
  67915. function TCAN1_C1FLTCON1.getFLTEN7 : TBits_1; inline;
  67916. begin
  67917. getFLTEN7 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  67918. end;
  67919. procedure TCAN1_C1FLTCON1.setw(thebits : TBits_32); inline;
  67920. begin
  67921. pTDefRegMap(@Self)^.val := thebits;
  67922. end;
  67923. function TCAN1_C1FLTCON1.getw : TBits_32; inline;
  67924. begin
  67925. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  67926. end;
  67927. procedure TCAN1_C1FLTCON2.setFSEL8(thebits : TBits_5); inline;
  67928. begin
  67929. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  67930. end;
  67931. function TCAN1_C1FLTCON2.getFSEL8 : TBits_5; inline;
  67932. begin
  67933. getFSEL8 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  67934. end;
  67935. procedure TCAN1_C1FLTCON2.setMSEL8(thebits : TBits_2); inline;
  67936. begin
  67937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  67938. end;
  67939. function TCAN1_C1FLTCON2.getMSEL8 : TBits_2; inline;
  67940. begin
  67941. getMSEL8 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  67942. end;
  67943. procedure TCAN1_C1FLTCON2.setFLTEN8; inline;
  67944. begin
  67945. pTDefRegMap(@Self)^.&set := $00000080;
  67946. end;
  67947. procedure TCAN1_C1FLTCON2.clearFLTEN8; inline;
  67948. begin
  67949. pTDefRegMap(@Self)^.clr := $00000080;
  67950. end;
  67951. procedure TCAN1_C1FLTCON2.setFLTEN8(thebits : TBits_1); inline;
  67952. begin
  67953. if thebits = 0 then
  67954. pTDefRegMap(@Self)^.clr := $00000080
  67955. else
  67956. pTDefRegMap(@Self)^.&set := $00000080;
  67957. end;
  67958. function TCAN1_C1FLTCON2.getFLTEN8 : TBits_1; inline;
  67959. begin
  67960. getFLTEN8 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  67961. end;
  67962. procedure TCAN1_C1FLTCON2.setFSEL9(thebits : TBits_5); inline;
  67963. begin
  67964. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  67965. end;
  67966. function TCAN1_C1FLTCON2.getFSEL9 : TBits_5; inline;
  67967. begin
  67968. getFSEL9 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  67969. end;
  67970. procedure TCAN1_C1FLTCON2.setMSEL9(thebits : TBits_2); inline;
  67971. begin
  67972. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  67973. end;
  67974. function TCAN1_C1FLTCON2.getMSEL9 : TBits_2; inline;
  67975. begin
  67976. getMSEL9 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  67977. end;
  67978. procedure TCAN1_C1FLTCON2.setFLTEN9; inline;
  67979. begin
  67980. pTDefRegMap(@Self)^.&set := $00008000;
  67981. end;
  67982. procedure TCAN1_C1FLTCON2.clearFLTEN9; inline;
  67983. begin
  67984. pTDefRegMap(@Self)^.clr := $00008000;
  67985. end;
  67986. procedure TCAN1_C1FLTCON2.setFLTEN9(thebits : TBits_1); inline;
  67987. begin
  67988. if thebits = 0 then
  67989. pTDefRegMap(@Self)^.clr := $00008000
  67990. else
  67991. pTDefRegMap(@Self)^.&set := $00008000;
  67992. end;
  67993. function TCAN1_C1FLTCON2.getFLTEN9 : TBits_1; inline;
  67994. begin
  67995. getFLTEN9 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  67996. end;
  67997. procedure TCAN1_C1FLTCON2.setFSEL10(thebits : TBits_5); inline;
  67998. begin
  67999. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  68000. end;
  68001. function TCAN1_C1FLTCON2.getFSEL10 : TBits_5; inline;
  68002. begin
  68003. getFSEL10 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  68004. end;
  68005. procedure TCAN1_C1FLTCON2.setMSEL10(thebits : TBits_2); inline;
  68006. begin
  68007. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  68008. end;
  68009. function TCAN1_C1FLTCON2.getMSEL10 : TBits_2; inline;
  68010. begin
  68011. getMSEL10 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  68012. end;
  68013. procedure TCAN1_C1FLTCON2.setFLTEN10; inline;
  68014. begin
  68015. pTDefRegMap(@Self)^.&set := $00800000;
  68016. end;
  68017. procedure TCAN1_C1FLTCON2.clearFLTEN10; inline;
  68018. begin
  68019. pTDefRegMap(@Self)^.clr := $00800000;
  68020. end;
  68021. procedure TCAN1_C1FLTCON2.setFLTEN10(thebits : TBits_1); inline;
  68022. begin
  68023. if thebits = 0 then
  68024. pTDefRegMap(@Self)^.clr := $00800000
  68025. else
  68026. pTDefRegMap(@Self)^.&set := $00800000;
  68027. end;
  68028. function TCAN1_C1FLTCON2.getFLTEN10 : TBits_1; inline;
  68029. begin
  68030. getFLTEN10 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  68031. end;
  68032. procedure TCAN1_C1FLTCON2.setFSEL11(thebits : TBits_5); inline;
  68033. begin
  68034. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  68035. end;
  68036. function TCAN1_C1FLTCON2.getFSEL11 : TBits_5; inline;
  68037. begin
  68038. getFSEL11 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  68039. end;
  68040. procedure TCAN1_C1FLTCON2.setMSEL11(thebits : TBits_2); inline;
  68041. begin
  68042. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  68043. end;
  68044. function TCAN1_C1FLTCON2.getMSEL11 : TBits_2; inline;
  68045. begin
  68046. getMSEL11 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  68047. end;
  68048. procedure TCAN1_C1FLTCON2.setFLTEN11; inline;
  68049. begin
  68050. pTDefRegMap(@Self)^.&set := $80000000;
  68051. end;
  68052. procedure TCAN1_C1FLTCON2.clearFLTEN11; inline;
  68053. begin
  68054. pTDefRegMap(@Self)^.clr := $80000000;
  68055. end;
  68056. procedure TCAN1_C1FLTCON2.setFLTEN11(thebits : TBits_1); inline;
  68057. begin
  68058. if thebits = 0 then
  68059. pTDefRegMap(@Self)^.clr := $80000000
  68060. else
  68061. pTDefRegMap(@Self)^.&set := $80000000;
  68062. end;
  68063. function TCAN1_C1FLTCON2.getFLTEN11 : TBits_1; inline;
  68064. begin
  68065. getFLTEN11 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  68066. end;
  68067. procedure TCAN1_C1FLTCON2.setw(thebits : TBits_32); inline;
  68068. begin
  68069. pTDefRegMap(@Self)^.val := thebits;
  68070. end;
  68071. function TCAN1_C1FLTCON2.getw : TBits_32; inline;
  68072. begin
  68073. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68074. end;
  68075. procedure TCAN1_C1FLTCON3.setFSEL12(thebits : TBits_5); inline;
  68076. begin
  68077. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  68078. end;
  68079. function TCAN1_C1FLTCON3.getFSEL12 : TBits_5; inline;
  68080. begin
  68081. getFSEL12 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  68082. end;
  68083. procedure TCAN1_C1FLTCON3.setMSEL12(thebits : TBits_2); inline;
  68084. begin
  68085. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  68086. end;
  68087. function TCAN1_C1FLTCON3.getMSEL12 : TBits_2; inline;
  68088. begin
  68089. getMSEL12 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  68090. end;
  68091. procedure TCAN1_C1FLTCON3.setFLTEN12; inline;
  68092. begin
  68093. pTDefRegMap(@Self)^.&set := $00000080;
  68094. end;
  68095. procedure TCAN1_C1FLTCON3.clearFLTEN12; inline;
  68096. begin
  68097. pTDefRegMap(@Self)^.clr := $00000080;
  68098. end;
  68099. procedure TCAN1_C1FLTCON3.setFLTEN12(thebits : TBits_1); inline;
  68100. begin
  68101. if thebits = 0 then
  68102. pTDefRegMap(@Self)^.clr := $00000080
  68103. else
  68104. pTDefRegMap(@Self)^.&set := $00000080;
  68105. end;
  68106. function TCAN1_C1FLTCON3.getFLTEN12 : TBits_1; inline;
  68107. begin
  68108. getFLTEN12 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68109. end;
  68110. procedure TCAN1_C1FLTCON3.setFSEL13(thebits : TBits_5); inline;
  68111. begin
  68112. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  68113. end;
  68114. function TCAN1_C1FLTCON3.getFSEL13 : TBits_5; inline;
  68115. begin
  68116. getFSEL13 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  68117. end;
  68118. procedure TCAN1_C1FLTCON3.setMSEL13(thebits : TBits_2); inline;
  68119. begin
  68120. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  68121. end;
  68122. function TCAN1_C1FLTCON3.getMSEL13 : TBits_2; inline;
  68123. begin
  68124. getMSEL13 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  68125. end;
  68126. procedure TCAN1_C1FLTCON3.setFLTEN13; inline;
  68127. begin
  68128. pTDefRegMap(@Self)^.&set := $00008000;
  68129. end;
  68130. procedure TCAN1_C1FLTCON3.clearFLTEN13; inline;
  68131. begin
  68132. pTDefRegMap(@Self)^.clr := $00008000;
  68133. end;
  68134. procedure TCAN1_C1FLTCON3.setFLTEN13(thebits : TBits_1); inline;
  68135. begin
  68136. if thebits = 0 then
  68137. pTDefRegMap(@Self)^.clr := $00008000
  68138. else
  68139. pTDefRegMap(@Self)^.&set := $00008000;
  68140. end;
  68141. function TCAN1_C1FLTCON3.getFLTEN13 : TBits_1; inline;
  68142. begin
  68143. getFLTEN13 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68144. end;
  68145. procedure TCAN1_C1FLTCON3.setFSEL14(thebits : TBits_5); inline;
  68146. begin
  68147. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  68148. end;
  68149. function TCAN1_C1FLTCON3.getFSEL14 : TBits_5; inline;
  68150. begin
  68151. getFSEL14 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  68152. end;
  68153. procedure TCAN1_C1FLTCON3.setMSEL14(thebits : TBits_2); inline;
  68154. begin
  68155. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  68156. end;
  68157. function TCAN1_C1FLTCON3.getMSEL14 : TBits_2; inline;
  68158. begin
  68159. getMSEL14 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  68160. end;
  68161. procedure TCAN1_C1FLTCON3.setFLTEN14; inline;
  68162. begin
  68163. pTDefRegMap(@Self)^.&set := $00800000;
  68164. end;
  68165. procedure TCAN1_C1FLTCON3.clearFLTEN14; inline;
  68166. begin
  68167. pTDefRegMap(@Self)^.clr := $00800000;
  68168. end;
  68169. procedure TCAN1_C1FLTCON3.setFLTEN14(thebits : TBits_1); inline;
  68170. begin
  68171. if thebits = 0 then
  68172. pTDefRegMap(@Self)^.clr := $00800000
  68173. else
  68174. pTDefRegMap(@Self)^.&set := $00800000;
  68175. end;
  68176. function TCAN1_C1FLTCON3.getFLTEN14 : TBits_1; inline;
  68177. begin
  68178. getFLTEN14 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  68179. end;
  68180. procedure TCAN1_C1FLTCON3.setFSEL15(thebits : TBits_5); inline;
  68181. begin
  68182. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  68183. end;
  68184. function TCAN1_C1FLTCON3.getFSEL15 : TBits_5; inline;
  68185. begin
  68186. getFSEL15 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  68187. end;
  68188. procedure TCAN1_C1FLTCON3.setMSEL15(thebits : TBits_2); inline;
  68189. begin
  68190. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  68191. end;
  68192. function TCAN1_C1FLTCON3.getMSEL15 : TBits_2; inline;
  68193. begin
  68194. getMSEL15 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  68195. end;
  68196. procedure TCAN1_C1FLTCON3.setFLTEN15; inline;
  68197. begin
  68198. pTDefRegMap(@Self)^.&set := $80000000;
  68199. end;
  68200. procedure TCAN1_C1FLTCON3.clearFLTEN15; inline;
  68201. begin
  68202. pTDefRegMap(@Self)^.clr := $80000000;
  68203. end;
  68204. procedure TCAN1_C1FLTCON3.setFLTEN15(thebits : TBits_1); inline;
  68205. begin
  68206. if thebits = 0 then
  68207. pTDefRegMap(@Self)^.clr := $80000000
  68208. else
  68209. pTDefRegMap(@Self)^.&set := $80000000;
  68210. end;
  68211. function TCAN1_C1FLTCON3.getFLTEN15 : TBits_1; inline;
  68212. begin
  68213. getFLTEN15 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  68214. end;
  68215. procedure TCAN1_C1FLTCON3.setw(thebits : TBits_32); inline;
  68216. begin
  68217. pTDefRegMap(@Self)^.val := thebits;
  68218. end;
  68219. function TCAN1_C1FLTCON3.getw : TBits_32; inline;
  68220. begin
  68221. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68222. end;
  68223. procedure TCAN1_C1FLTCON4.setFSEL16(thebits : TBits_5); inline;
  68224. begin
  68225. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  68226. end;
  68227. function TCAN1_C1FLTCON4.getFSEL16 : TBits_5; inline;
  68228. begin
  68229. getFSEL16 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  68230. end;
  68231. procedure TCAN1_C1FLTCON4.setMSEL16(thebits : TBits_2); inline;
  68232. begin
  68233. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  68234. end;
  68235. function TCAN1_C1FLTCON4.getMSEL16 : TBits_2; inline;
  68236. begin
  68237. getMSEL16 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  68238. end;
  68239. procedure TCAN1_C1FLTCON4.setFLTEN16; inline;
  68240. begin
  68241. pTDefRegMap(@Self)^.&set := $00000080;
  68242. end;
  68243. procedure TCAN1_C1FLTCON4.clearFLTEN16; inline;
  68244. begin
  68245. pTDefRegMap(@Self)^.clr := $00000080;
  68246. end;
  68247. procedure TCAN1_C1FLTCON4.setFLTEN16(thebits : TBits_1); inline;
  68248. begin
  68249. if thebits = 0 then
  68250. pTDefRegMap(@Self)^.clr := $00000080
  68251. else
  68252. pTDefRegMap(@Self)^.&set := $00000080;
  68253. end;
  68254. function TCAN1_C1FLTCON4.getFLTEN16 : TBits_1; inline;
  68255. begin
  68256. getFLTEN16 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68257. end;
  68258. procedure TCAN1_C1FLTCON4.setFSEL17(thebits : TBits_5); inline;
  68259. begin
  68260. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  68261. end;
  68262. function TCAN1_C1FLTCON4.getFSEL17 : TBits_5; inline;
  68263. begin
  68264. getFSEL17 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  68265. end;
  68266. procedure TCAN1_C1FLTCON4.setMSEL17(thebits : TBits_2); inline;
  68267. begin
  68268. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  68269. end;
  68270. function TCAN1_C1FLTCON4.getMSEL17 : TBits_2; inline;
  68271. begin
  68272. getMSEL17 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  68273. end;
  68274. procedure TCAN1_C1FLTCON4.setFLTEN17; inline;
  68275. begin
  68276. pTDefRegMap(@Self)^.&set := $00008000;
  68277. end;
  68278. procedure TCAN1_C1FLTCON4.clearFLTEN17; inline;
  68279. begin
  68280. pTDefRegMap(@Self)^.clr := $00008000;
  68281. end;
  68282. procedure TCAN1_C1FLTCON4.setFLTEN17(thebits : TBits_1); inline;
  68283. begin
  68284. if thebits = 0 then
  68285. pTDefRegMap(@Self)^.clr := $00008000
  68286. else
  68287. pTDefRegMap(@Self)^.&set := $00008000;
  68288. end;
  68289. function TCAN1_C1FLTCON4.getFLTEN17 : TBits_1; inline;
  68290. begin
  68291. getFLTEN17 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68292. end;
  68293. procedure TCAN1_C1FLTCON4.setFSEL18(thebits : TBits_5); inline;
  68294. begin
  68295. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  68296. end;
  68297. function TCAN1_C1FLTCON4.getFSEL18 : TBits_5; inline;
  68298. begin
  68299. getFSEL18 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  68300. end;
  68301. procedure TCAN1_C1FLTCON4.setMSEL18(thebits : TBits_2); inline;
  68302. begin
  68303. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  68304. end;
  68305. function TCAN1_C1FLTCON4.getMSEL18 : TBits_2; inline;
  68306. begin
  68307. getMSEL18 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  68308. end;
  68309. procedure TCAN1_C1FLTCON4.setFLTEN18; inline;
  68310. begin
  68311. pTDefRegMap(@Self)^.&set := $00800000;
  68312. end;
  68313. procedure TCAN1_C1FLTCON4.clearFLTEN18; inline;
  68314. begin
  68315. pTDefRegMap(@Self)^.clr := $00800000;
  68316. end;
  68317. procedure TCAN1_C1FLTCON4.setFLTEN18(thebits : TBits_1); inline;
  68318. begin
  68319. if thebits = 0 then
  68320. pTDefRegMap(@Self)^.clr := $00800000
  68321. else
  68322. pTDefRegMap(@Self)^.&set := $00800000;
  68323. end;
  68324. function TCAN1_C1FLTCON4.getFLTEN18 : TBits_1; inline;
  68325. begin
  68326. getFLTEN18 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  68327. end;
  68328. procedure TCAN1_C1FLTCON4.setFSEL19(thebits : TBits_5); inline;
  68329. begin
  68330. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  68331. end;
  68332. function TCAN1_C1FLTCON4.getFSEL19 : TBits_5; inline;
  68333. begin
  68334. getFSEL19 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  68335. end;
  68336. procedure TCAN1_C1FLTCON4.setMSEL19(thebits : TBits_2); inline;
  68337. begin
  68338. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  68339. end;
  68340. function TCAN1_C1FLTCON4.getMSEL19 : TBits_2; inline;
  68341. begin
  68342. getMSEL19 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  68343. end;
  68344. procedure TCAN1_C1FLTCON4.setFLTEN19; inline;
  68345. begin
  68346. pTDefRegMap(@Self)^.&set := $80000000;
  68347. end;
  68348. procedure TCAN1_C1FLTCON4.clearFLTEN19; inline;
  68349. begin
  68350. pTDefRegMap(@Self)^.clr := $80000000;
  68351. end;
  68352. procedure TCAN1_C1FLTCON4.setFLTEN19(thebits : TBits_1); inline;
  68353. begin
  68354. if thebits = 0 then
  68355. pTDefRegMap(@Self)^.clr := $80000000
  68356. else
  68357. pTDefRegMap(@Self)^.&set := $80000000;
  68358. end;
  68359. function TCAN1_C1FLTCON4.getFLTEN19 : TBits_1; inline;
  68360. begin
  68361. getFLTEN19 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  68362. end;
  68363. procedure TCAN1_C1FLTCON4.setw(thebits : TBits_32); inline;
  68364. begin
  68365. pTDefRegMap(@Self)^.val := thebits;
  68366. end;
  68367. function TCAN1_C1FLTCON4.getw : TBits_32; inline;
  68368. begin
  68369. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68370. end;
  68371. procedure TCAN1_C1FLTCON5.setFSEL20(thebits : TBits_5); inline;
  68372. begin
  68373. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  68374. end;
  68375. function TCAN1_C1FLTCON5.getFSEL20 : TBits_5; inline;
  68376. begin
  68377. getFSEL20 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  68378. end;
  68379. procedure TCAN1_C1FLTCON5.setMSEL20(thebits : TBits_2); inline;
  68380. begin
  68381. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  68382. end;
  68383. function TCAN1_C1FLTCON5.getMSEL20 : TBits_2; inline;
  68384. begin
  68385. getMSEL20 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  68386. end;
  68387. procedure TCAN1_C1FLTCON5.setFLTEN20; inline;
  68388. begin
  68389. pTDefRegMap(@Self)^.&set := $00000080;
  68390. end;
  68391. procedure TCAN1_C1FLTCON5.clearFLTEN20; inline;
  68392. begin
  68393. pTDefRegMap(@Self)^.clr := $00000080;
  68394. end;
  68395. procedure TCAN1_C1FLTCON5.setFLTEN20(thebits : TBits_1); inline;
  68396. begin
  68397. if thebits = 0 then
  68398. pTDefRegMap(@Self)^.clr := $00000080
  68399. else
  68400. pTDefRegMap(@Self)^.&set := $00000080;
  68401. end;
  68402. function TCAN1_C1FLTCON5.getFLTEN20 : TBits_1; inline;
  68403. begin
  68404. getFLTEN20 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68405. end;
  68406. procedure TCAN1_C1FLTCON5.setFSEL21(thebits : TBits_5); inline;
  68407. begin
  68408. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  68409. end;
  68410. function TCAN1_C1FLTCON5.getFSEL21 : TBits_5; inline;
  68411. begin
  68412. getFSEL21 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  68413. end;
  68414. procedure TCAN1_C1FLTCON5.setMSEL21(thebits : TBits_2); inline;
  68415. begin
  68416. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  68417. end;
  68418. function TCAN1_C1FLTCON5.getMSEL21 : TBits_2; inline;
  68419. begin
  68420. getMSEL21 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  68421. end;
  68422. procedure TCAN1_C1FLTCON5.setFLTEN21; inline;
  68423. begin
  68424. pTDefRegMap(@Self)^.&set := $00008000;
  68425. end;
  68426. procedure TCAN1_C1FLTCON5.clearFLTEN21; inline;
  68427. begin
  68428. pTDefRegMap(@Self)^.clr := $00008000;
  68429. end;
  68430. procedure TCAN1_C1FLTCON5.setFLTEN21(thebits : TBits_1); inline;
  68431. begin
  68432. if thebits = 0 then
  68433. pTDefRegMap(@Self)^.clr := $00008000
  68434. else
  68435. pTDefRegMap(@Self)^.&set := $00008000;
  68436. end;
  68437. function TCAN1_C1FLTCON5.getFLTEN21 : TBits_1; inline;
  68438. begin
  68439. getFLTEN21 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68440. end;
  68441. procedure TCAN1_C1FLTCON5.setFSEL22(thebits : TBits_5); inline;
  68442. begin
  68443. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  68444. end;
  68445. function TCAN1_C1FLTCON5.getFSEL22 : TBits_5; inline;
  68446. begin
  68447. getFSEL22 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  68448. end;
  68449. procedure TCAN1_C1FLTCON5.setMSEL22(thebits : TBits_2); inline;
  68450. begin
  68451. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  68452. end;
  68453. function TCAN1_C1FLTCON5.getMSEL22 : TBits_2; inline;
  68454. begin
  68455. getMSEL22 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  68456. end;
  68457. procedure TCAN1_C1FLTCON5.setFLTEN22; inline;
  68458. begin
  68459. pTDefRegMap(@Self)^.&set := $00800000;
  68460. end;
  68461. procedure TCAN1_C1FLTCON5.clearFLTEN22; inline;
  68462. begin
  68463. pTDefRegMap(@Self)^.clr := $00800000;
  68464. end;
  68465. procedure TCAN1_C1FLTCON5.setFLTEN22(thebits : TBits_1); inline;
  68466. begin
  68467. if thebits = 0 then
  68468. pTDefRegMap(@Self)^.clr := $00800000
  68469. else
  68470. pTDefRegMap(@Self)^.&set := $00800000;
  68471. end;
  68472. function TCAN1_C1FLTCON5.getFLTEN22 : TBits_1; inline;
  68473. begin
  68474. getFLTEN22 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  68475. end;
  68476. procedure TCAN1_C1FLTCON5.setFSEL23(thebits : TBits_5); inline;
  68477. begin
  68478. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  68479. end;
  68480. function TCAN1_C1FLTCON5.getFSEL23 : TBits_5; inline;
  68481. begin
  68482. getFSEL23 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  68483. end;
  68484. procedure TCAN1_C1FLTCON5.setMSEL23(thebits : TBits_2); inline;
  68485. begin
  68486. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  68487. end;
  68488. function TCAN1_C1FLTCON5.getMSEL23 : TBits_2; inline;
  68489. begin
  68490. getMSEL23 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  68491. end;
  68492. procedure TCAN1_C1FLTCON5.setFLTEN23; inline;
  68493. begin
  68494. pTDefRegMap(@Self)^.&set := $80000000;
  68495. end;
  68496. procedure TCAN1_C1FLTCON5.clearFLTEN23; inline;
  68497. begin
  68498. pTDefRegMap(@Self)^.clr := $80000000;
  68499. end;
  68500. procedure TCAN1_C1FLTCON5.setFLTEN23(thebits : TBits_1); inline;
  68501. begin
  68502. if thebits = 0 then
  68503. pTDefRegMap(@Self)^.clr := $80000000
  68504. else
  68505. pTDefRegMap(@Self)^.&set := $80000000;
  68506. end;
  68507. function TCAN1_C1FLTCON5.getFLTEN23 : TBits_1; inline;
  68508. begin
  68509. getFLTEN23 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  68510. end;
  68511. procedure TCAN1_C1FLTCON5.setw(thebits : TBits_32); inline;
  68512. begin
  68513. pTDefRegMap(@Self)^.val := thebits;
  68514. end;
  68515. function TCAN1_C1FLTCON5.getw : TBits_32; inline;
  68516. begin
  68517. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68518. end;
  68519. procedure TCAN1_C1FLTCON6.setFSEL24(thebits : TBits_5); inline;
  68520. begin
  68521. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  68522. end;
  68523. function TCAN1_C1FLTCON6.getFSEL24 : TBits_5; inline;
  68524. begin
  68525. getFSEL24 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  68526. end;
  68527. procedure TCAN1_C1FLTCON6.setMSEL24(thebits : TBits_2); inline;
  68528. begin
  68529. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  68530. end;
  68531. function TCAN1_C1FLTCON6.getMSEL24 : TBits_2; inline;
  68532. begin
  68533. getMSEL24 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  68534. end;
  68535. procedure TCAN1_C1FLTCON6.setFLTEN24; inline;
  68536. begin
  68537. pTDefRegMap(@Self)^.&set := $00000080;
  68538. end;
  68539. procedure TCAN1_C1FLTCON6.clearFLTEN24; inline;
  68540. begin
  68541. pTDefRegMap(@Self)^.clr := $00000080;
  68542. end;
  68543. procedure TCAN1_C1FLTCON6.setFLTEN24(thebits : TBits_1); inline;
  68544. begin
  68545. if thebits = 0 then
  68546. pTDefRegMap(@Self)^.clr := $00000080
  68547. else
  68548. pTDefRegMap(@Self)^.&set := $00000080;
  68549. end;
  68550. function TCAN1_C1FLTCON6.getFLTEN24 : TBits_1; inline;
  68551. begin
  68552. getFLTEN24 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68553. end;
  68554. procedure TCAN1_C1FLTCON6.setFSEL25(thebits : TBits_5); inline;
  68555. begin
  68556. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  68557. end;
  68558. function TCAN1_C1FLTCON6.getFSEL25 : TBits_5; inline;
  68559. begin
  68560. getFSEL25 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  68561. end;
  68562. procedure TCAN1_C1FLTCON6.setMSEL25(thebits : TBits_2); inline;
  68563. begin
  68564. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  68565. end;
  68566. function TCAN1_C1FLTCON6.getMSEL25 : TBits_2; inline;
  68567. begin
  68568. getMSEL25 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  68569. end;
  68570. procedure TCAN1_C1FLTCON6.setFLTEN25; inline;
  68571. begin
  68572. pTDefRegMap(@Self)^.&set := $00008000;
  68573. end;
  68574. procedure TCAN1_C1FLTCON6.clearFLTEN25; inline;
  68575. begin
  68576. pTDefRegMap(@Self)^.clr := $00008000;
  68577. end;
  68578. procedure TCAN1_C1FLTCON6.setFLTEN25(thebits : TBits_1); inline;
  68579. begin
  68580. if thebits = 0 then
  68581. pTDefRegMap(@Self)^.clr := $00008000
  68582. else
  68583. pTDefRegMap(@Self)^.&set := $00008000;
  68584. end;
  68585. function TCAN1_C1FLTCON6.getFLTEN25 : TBits_1; inline;
  68586. begin
  68587. getFLTEN25 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68588. end;
  68589. procedure TCAN1_C1FLTCON6.setFSEL26(thebits : TBits_5); inline;
  68590. begin
  68591. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  68592. end;
  68593. function TCAN1_C1FLTCON6.getFSEL26 : TBits_5; inline;
  68594. begin
  68595. getFSEL26 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  68596. end;
  68597. procedure TCAN1_C1FLTCON6.setMSEL26(thebits : TBits_2); inline;
  68598. begin
  68599. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  68600. end;
  68601. function TCAN1_C1FLTCON6.getMSEL26 : TBits_2; inline;
  68602. begin
  68603. getMSEL26 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  68604. end;
  68605. procedure TCAN1_C1FLTCON6.setFLTEN26; inline;
  68606. begin
  68607. pTDefRegMap(@Self)^.&set := $00800000;
  68608. end;
  68609. procedure TCAN1_C1FLTCON6.clearFLTEN26; inline;
  68610. begin
  68611. pTDefRegMap(@Self)^.clr := $00800000;
  68612. end;
  68613. procedure TCAN1_C1FLTCON6.setFLTEN26(thebits : TBits_1); inline;
  68614. begin
  68615. if thebits = 0 then
  68616. pTDefRegMap(@Self)^.clr := $00800000
  68617. else
  68618. pTDefRegMap(@Self)^.&set := $00800000;
  68619. end;
  68620. function TCAN1_C1FLTCON6.getFLTEN26 : TBits_1; inline;
  68621. begin
  68622. getFLTEN26 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  68623. end;
  68624. procedure TCAN1_C1FLTCON6.setFSEL27(thebits : TBits_5); inline;
  68625. begin
  68626. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  68627. end;
  68628. function TCAN1_C1FLTCON6.getFSEL27 : TBits_5; inline;
  68629. begin
  68630. getFSEL27 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  68631. end;
  68632. procedure TCAN1_C1FLTCON6.setMSEL27(thebits : TBits_2); inline;
  68633. begin
  68634. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  68635. end;
  68636. function TCAN1_C1FLTCON6.getMSEL27 : TBits_2; inline;
  68637. begin
  68638. getMSEL27 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  68639. end;
  68640. procedure TCAN1_C1FLTCON6.setFLTEN27; inline;
  68641. begin
  68642. pTDefRegMap(@Self)^.&set := $80000000;
  68643. end;
  68644. procedure TCAN1_C1FLTCON6.clearFLTEN27; inline;
  68645. begin
  68646. pTDefRegMap(@Self)^.clr := $80000000;
  68647. end;
  68648. procedure TCAN1_C1FLTCON6.setFLTEN27(thebits : TBits_1); inline;
  68649. begin
  68650. if thebits = 0 then
  68651. pTDefRegMap(@Self)^.clr := $80000000
  68652. else
  68653. pTDefRegMap(@Self)^.&set := $80000000;
  68654. end;
  68655. function TCAN1_C1FLTCON6.getFLTEN27 : TBits_1; inline;
  68656. begin
  68657. getFLTEN27 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  68658. end;
  68659. procedure TCAN1_C1FLTCON6.setw(thebits : TBits_32); inline;
  68660. begin
  68661. pTDefRegMap(@Self)^.val := thebits;
  68662. end;
  68663. function TCAN1_C1FLTCON6.getw : TBits_32; inline;
  68664. begin
  68665. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68666. end;
  68667. procedure TCAN1_C1FLTCON7.setFSEL28(thebits : TBits_5); inline;
  68668. begin
  68669. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  68670. end;
  68671. function TCAN1_C1FLTCON7.getFSEL28 : TBits_5; inline;
  68672. begin
  68673. getFSEL28 := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  68674. end;
  68675. procedure TCAN1_C1FLTCON7.setMSEL28(thebits : TBits_2); inline;
  68676. begin
  68677. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF9F or ( thebits shl 5 );
  68678. end;
  68679. function TCAN1_C1FLTCON7.getMSEL28 : TBits_2; inline;
  68680. begin
  68681. getMSEL28 := (pTDefRegMap(@Self)^.val and $00000060) shr 5;
  68682. end;
  68683. procedure TCAN1_C1FLTCON7.setFLTEN28; inline;
  68684. begin
  68685. pTDefRegMap(@Self)^.&set := $00000080;
  68686. end;
  68687. procedure TCAN1_C1FLTCON7.clearFLTEN28; inline;
  68688. begin
  68689. pTDefRegMap(@Self)^.clr := $00000080;
  68690. end;
  68691. procedure TCAN1_C1FLTCON7.setFLTEN28(thebits : TBits_1); inline;
  68692. begin
  68693. if thebits = 0 then
  68694. pTDefRegMap(@Self)^.clr := $00000080
  68695. else
  68696. pTDefRegMap(@Self)^.&set := $00000080;
  68697. end;
  68698. function TCAN1_C1FLTCON7.getFLTEN28 : TBits_1; inline;
  68699. begin
  68700. getFLTEN28 := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  68701. end;
  68702. procedure TCAN1_C1FLTCON7.setFSEL29(thebits : TBits_5); inline;
  68703. begin
  68704. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFE0FF or ( thebits shl 8 );
  68705. end;
  68706. function TCAN1_C1FLTCON7.getFSEL29 : TBits_5; inline;
  68707. begin
  68708. getFSEL29 := (pTDefRegMap(@Self)^.val and $00001F00) shr 8;
  68709. end;
  68710. procedure TCAN1_C1FLTCON7.setMSEL29(thebits : TBits_2); inline;
  68711. begin
  68712. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF9FFF or ( thebits shl 13 );
  68713. end;
  68714. function TCAN1_C1FLTCON7.getMSEL29 : TBits_2; inline;
  68715. begin
  68716. getMSEL29 := (pTDefRegMap(@Self)^.val and $00006000) shr 13;
  68717. end;
  68718. procedure TCAN1_C1FLTCON7.setFLTEN29; inline;
  68719. begin
  68720. pTDefRegMap(@Self)^.&set := $00008000;
  68721. end;
  68722. procedure TCAN1_C1FLTCON7.clearFLTEN29; inline;
  68723. begin
  68724. pTDefRegMap(@Self)^.clr := $00008000;
  68725. end;
  68726. procedure TCAN1_C1FLTCON7.setFLTEN29(thebits : TBits_1); inline;
  68727. begin
  68728. if thebits = 0 then
  68729. pTDefRegMap(@Self)^.clr := $00008000
  68730. else
  68731. pTDefRegMap(@Self)^.&set := $00008000;
  68732. end;
  68733. function TCAN1_C1FLTCON7.getFLTEN29 : TBits_1; inline;
  68734. begin
  68735. getFLTEN29 := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  68736. end;
  68737. procedure TCAN1_C1FLTCON7.setFSEL30(thebits : TBits_5); inline;
  68738. begin
  68739. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  68740. end;
  68741. function TCAN1_C1FLTCON7.getFSEL30 : TBits_5; inline;
  68742. begin
  68743. getFSEL30 := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  68744. end;
  68745. procedure TCAN1_C1FLTCON7.setMSEL30(thebits : TBits_2); inline;
  68746. begin
  68747. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FF9FFFFF or ( thebits shl 21 );
  68748. end;
  68749. function TCAN1_C1FLTCON7.getMSEL30 : TBits_2; inline;
  68750. begin
  68751. getMSEL30 := (pTDefRegMap(@Self)^.val and $00600000) shr 21;
  68752. end;
  68753. procedure TCAN1_C1FLTCON7.setFLTEN30; inline;
  68754. begin
  68755. pTDefRegMap(@Self)^.&set := $00800000;
  68756. end;
  68757. procedure TCAN1_C1FLTCON7.clearFLTEN30; inline;
  68758. begin
  68759. pTDefRegMap(@Self)^.clr := $00800000;
  68760. end;
  68761. procedure TCAN1_C1FLTCON7.setFLTEN30(thebits : TBits_1); inline;
  68762. begin
  68763. if thebits = 0 then
  68764. pTDefRegMap(@Self)^.clr := $00800000
  68765. else
  68766. pTDefRegMap(@Self)^.&set := $00800000;
  68767. end;
  68768. function TCAN1_C1FLTCON7.getFLTEN30 : TBits_1; inline;
  68769. begin
  68770. getFLTEN30 := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  68771. end;
  68772. procedure TCAN1_C1FLTCON7.setFSEL31(thebits : TBits_5); inline;
  68773. begin
  68774. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $E0FFFFFF or ( thebits shl 24 );
  68775. end;
  68776. function TCAN1_C1FLTCON7.getFSEL31 : TBits_5; inline;
  68777. begin
  68778. getFSEL31 := (pTDefRegMap(@Self)^.val and $1F000000) shr 24;
  68779. end;
  68780. procedure TCAN1_C1FLTCON7.setMSEL31(thebits : TBits_2); inline;
  68781. begin
  68782. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $9FFFFFFF or ( thebits shl 29 );
  68783. end;
  68784. function TCAN1_C1FLTCON7.getMSEL31 : TBits_2; inline;
  68785. begin
  68786. getMSEL31 := (pTDefRegMap(@Self)^.val and $60000000) shr 29;
  68787. end;
  68788. procedure TCAN1_C1FLTCON7.setFLTEN31; inline;
  68789. begin
  68790. pTDefRegMap(@Self)^.&set := $80000000;
  68791. end;
  68792. procedure TCAN1_C1FLTCON7.clearFLTEN31; inline;
  68793. begin
  68794. pTDefRegMap(@Self)^.clr := $80000000;
  68795. end;
  68796. procedure TCAN1_C1FLTCON7.setFLTEN31(thebits : TBits_1); inline;
  68797. begin
  68798. if thebits = 0 then
  68799. pTDefRegMap(@Self)^.clr := $80000000
  68800. else
  68801. pTDefRegMap(@Self)^.&set := $80000000;
  68802. end;
  68803. function TCAN1_C1FLTCON7.getFLTEN31 : TBits_1; inline;
  68804. begin
  68805. getFLTEN31 := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  68806. end;
  68807. procedure TCAN1_C1FLTCON7.setw(thebits : TBits_32); inline;
  68808. begin
  68809. pTDefRegMap(@Self)^.val := thebits;
  68810. end;
  68811. function TCAN1_C1FLTCON7.getw : TBits_32; inline;
  68812. begin
  68813. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68814. end;
  68815. procedure TCAN1_C1RXF0.setEID(thebits : TBits_18); inline;
  68816. begin
  68817. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  68818. end;
  68819. function TCAN1_C1RXF0.getEID : TBits_18; inline;
  68820. begin
  68821. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  68822. end;
  68823. procedure TCAN1_C1RXF0.setEXID; inline;
  68824. begin
  68825. pTDefRegMap(@Self)^.&set := $00080000;
  68826. end;
  68827. procedure TCAN1_C1RXF0.clearEXID; inline;
  68828. begin
  68829. pTDefRegMap(@Self)^.clr := $00080000;
  68830. end;
  68831. procedure TCAN1_C1RXF0.setEXID(thebits : TBits_1); inline;
  68832. begin
  68833. if thebits = 0 then
  68834. pTDefRegMap(@Self)^.clr := $00080000
  68835. else
  68836. pTDefRegMap(@Self)^.&set := $00080000;
  68837. end;
  68838. function TCAN1_C1RXF0.getEXID : TBits_1; inline;
  68839. begin
  68840. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  68841. end;
  68842. procedure TCAN1_C1RXF0.setSID(thebits : TBits_11); inline;
  68843. begin
  68844. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  68845. end;
  68846. function TCAN1_C1RXF0.getSID : TBits_11; inline;
  68847. begin
  68848. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  68849. end;
  68850. procedure TCAN1_C1RXF0.setw(thebits : TBits_32); inline;
  68851. begin
  68852. pTDefRegMap(@Self)^.val := thebits;
  68853. end;
  68854. function TCAN1_C1RXF0.getw : TBits_32; inline;
  68855. begin
  68856. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68857. end;
  68858. procedure TCAN1_C1RXF1.setEID(thebits : TBits_18); inline;
  68859. begin
  68860. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  68861. end;
  68862. function TCAN1_C1RXF1.getEID : TBits_18; inline;
  68863. begin
  68864. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  68865. end;
  68866. procedure TCAN1_C1RXF1.setEXID; inline;
  68867. begin
  68868. pTDefRegMap(@Self)^.&set := $00080000;
  68869. end;
  68870. procedure TCAN1_C1RXF1.clearEXID; inline;
  68871. begin
  68872. pTDefRegMap(@Self)^.clr := $00080000;
  68873. end;
  68874. procedure TCAN1_C1RXF1.setEXID(thebits : TBits_1); inline;
  68875. begin
  68876. if thebits = 0 then
  68877. pTDefRegMap(@Self)^.clr := $00080000
  68878. else
  68879. pTDefRegMap(@Self)^.&set := $00080000;
  68880. end;
  68881. function TCAN1_C1RXF1.getEXID : TBits_1; inline;
  68882. begin
  68883. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  68884. end;
  68885. procedure TCAN1_C1RXF1.setSID(thebits : TBits_11); inline;
  68886. begin
  68887. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  68888. end;
  68889. function TCAN1_C1RXF1.getSID : TBits_11; inline;
  68890. begin
  68891. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  68892. end;
  68893. procedure TCAN1_C1RXF1.setw(thebits : TBits_32); inline;
  68894. begin
  68895. pTDefRegMap(@Self)^.val := thebits;
  68896. end;
  68897. function TCAN1_C1RXF1.getw : TBits_32; inline;
  68898. begin
  68899. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68900. end;
  68901. procedure TCAN1_C1RXF2.setEID(thebits : TBits_18); inline;
  68902. begin
  68903. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  68904. end;
  68905. function TCAN1_C1RXF2.getEID : TBits_18; inline;
  68906. begin
  68907. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  68908. end;
  68909. procedure TCAN1_C1RXF2.setEXID; inline;
  68910. begin
  68911. pTDefRegMap(@Self)^.&set := $00080000;
  68912. end;
  68913. procedure TCAN1_C1RXF2.clearEXID; inline;
  68914. begin
  68915. pTDefRegMap(@Self)^.clr := $00080000;
  68916. end;
  68917. procedure TCAN1_C1RXF2.setEXID(thebits : TBits_1); inline;
  68918. begin
  68919. if thebits = 0 then
  68920. pTDefRegMap(@Self)^.clr := $00080000
  68921. else
  68922. pTDefRegMap(@Self)^.&set := $00080000;
  68923. end;
  68924. function TCAN1_C1RXF2.getEXID : TBits_1; inline;
  68925. begin
  68926. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  68927. end;
  68928. procedure TCAN1_C1RXF2.setSID(thebits : TBits_11); inline;
  68929. begin
  68930. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  68931. end;
  68932. function TCAN1_C1RXF2.getSID : TBits_11; inline;
  68933. begin
  68934. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  68935. end;
  68936. procedure TCAN1_C1RXF2.setw(thebits : TBits_32); inline;
  68937. begin
  68938. pTDefRegMap(@Self)^.val := thebits;
  68939. end;
  68940. function TCAN1_C1RXF2.getw : TBits_32; inline;
  68941. begin
  68942. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68943. end;
  68944. procedure TCAN1_C1RXF3.setEID(thebits : TBits_18); inline;
  68945. begin
  68946. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  68947. end;
  68948. function TCAN1_C1RXF3.getEID : TBits_18; inline;
  68949. begin
  68950. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  68951. end;
  68952. procedure TCAN1_C1RXF3.setEXID; inline;
  68953. begin
  68954. pTDefRegMap(@Self)^.&set := $00080000;
  68955. end;
  68956. procedure TCAN1_C1RXF3.clearEXID; inline;
  68957. begin
  68958. pTDefRegMap(@Self)^.clr := $00080000;
  68959. end;
  68960. procedure TCAN1_C1RXF3.setEXID(thebits : TBits_1); inline;
  68961. begin
  68962. if thebits = 0 then
  68963. pTDefRegMap(@Self)^.clr := $00080000
  68964. else
  68965. pTDefRegMap(@Self)^.&set := $00080000;
  68966. end;
  68967. function TCAN1_C1RXF3.getEXID : TBits_1; inline;
  68968. begin
  68969. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  68970. end;
  68971. procedure TCAN1_C1RXF3.setSID(thebits : TBits_11); inline;
  68972. begin
  68973. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  68974. end;
  68975. function TCAN1_C1RXF3.getSID : TBits_11; inline;
  68976. begin
  68977. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  68978. end;
  68979. procedure TCAN1_C1RXF3.setw(thebits : TBits_32); inline;
  68980. begin
  68981. pTDefRegMap(@Self)^.val := thebits;
  68982. end;
  68983. function TCAN1_C1RXF3.getw : TBits_32; inline;
  68984. begin
  68985. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  68986. end;
  68987. procedure TCAN1_C1RXF4.setEID(thebits : TBits_18); inline;
  68988. begin
  68989. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  68990. end;
  68991. function TCAN1_C1RXF4.getEID : TBits_18; inline;
  68992. begin
  68993. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  68994. end;
  68995. procedure TCAN1_C1RXF4.setEXID; inline;
  68996. begin
  68997. pTDefRegMap(@Self)^.&set := $00080000;
  68998. end;
  68999. procedure TCAN1_C1RXF4.clearEXID; inline;
  69000. begin
  69001. pTDefRegMap(@Self)^.clr := $00080000;
  69002. end;
  69003. procedure TCAN1_C1RXF4.setEXID(thebits : TBits_1); inline;
  69004. begin
  69005. if thebits = 0 then
  69006. pTDefRegMap(@Self)^.clr := $00080000
  69007. else
  69008. pTDefRegMap(@Self)^.&set := $00080000;
  69009. end;
  69010. function TCAN1_C1RXF4.getEXID : TBits_1; inline;
  69011. begin
  69012. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69013. end;
  69014. procedure TCAN1_C1RXF4.setSID(thebits : TBits_11); inline;
  69015. begin
  69016. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69017. end;
  69018. function TCAN1_C1RXF4.getSID : TBits_11; inline;
  69019. begin
  69020. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69021. end;
  69022. procedure TCAN1_C1RXF4.setw(thebits : TBits_32); inline;
  69023. begin
  69024. pTDefRegMap(@Self)^.val := thebits;
  69025. end;
  69026. function TCAN1_C1RXF4.getw : TBits_32; inline;
  69027. begin
  69028. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69029. end;
  69030. procedure TCAN1_C1RXF5.setEID(thebits : TBits_18); inline;
  69031. begin
  69032. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69033. end;
  69034. function TCAN1_C1RXF5.getEID : TBits_18; inline;
  69035. begin
  69036. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69037. end;
  69038. procedure TCAN1_C1RXF5.setEXID; inline;
  69039. begin
  69040. pTDefRegMap(@Self)^.&set := $00080000;
  69041. end;
  69042. procedure TCAN1_C1RXF5.clearEXID; inline;
  69043. begin
  69044. pTDefRegMap(@Self)^.clr := $00080000;
  69045. end;
  69046. procedure TCAN1_C1RXF5.setEXID(thebits : TBits_1); inline;
  69047. begin
  69048. if thebits = 0 then
  69049. pTDefRegMap(@Self)^.clr := $00080000
  69050. else
  69051. pTDefRegMap(@Self)^.&set := $00080000;
  69052. end;
  69053. function TCAN1_C1RXF5.getEXID : TBits_1; inline;
  69054. begin
  69055. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69056. end;
  69057. procedure TCAN1_C1RXF5.setSID(thebits : TBits_11); inline;
  69058. begin
  69059. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69060. end;
  69061. function TCAN1_C1RXF5.getSID : TBits_11; inline;
  69062. begin
  69063. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69064. end;
  69065. procedure TCAN1_C1RXF5.setw(thebits : TBits_32); inline;
  69066. begin
  69067. pTDefRegMap(@Self)^.val := thebits;
  69068. end;
  69069. function TCAN1_C1RXF5.getw : TBits_32; inline;
  69070. begin
  69071. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69072. end;
  69073. procedure TCAN1_C1RXF6.setEID(thebits : TBits_18); inline;
  69074. begin
  69075. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69076. end;
  69077. function TCAN1_C1RXF6.getEID : TBits_18; inline;
  69078. begin
  69079. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69080. end;
  69081. procedure TCAN1_C1RXF6.setEXID; inline;
  69082. begin
  69083. pTDefRegMap(@Self)^.&set := $00080000;
  69084. end;
  69085. procedure TCAN1_C1RXF6.clearEXID; inline;
  69086. begin
  69087. pTDefRegMap(@Self)^.clr := $00080000;
  69088. end;
  69089. procedure TCAN1_C1RXF6.setEXID(thebits : TBits_1); inline;
  69090. begin
  69091. if thebits = 0 then
  69092. pTDefRegMap(@Self)^.clr := $00080000
  69093. else
  69094. pTDefRegMap(@Self)^.&set := $00080000;
  69095. end;
  69096. function TCAN1_C1RXF6.getEXID : TBits_1; inline;
  69097. begin
  69098. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69099. end;
  69100. procedure TCAN1_C1RXF6.setSID(thebits : TBits_11); inline;
  69101. begin
  69102. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69103. end;
  69104. function TCAN1_C1RXF6.getSID : TBits_11; inline;
  69105. begin
  69106. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69107. end;
  69108. procedure TCAN1_C1RXF6.setw(thebits : TBits_32); inline;
  69109. begin
  69110. pTDefRegMap(@Self)^.val := thebits;
  69111. end;
  69112. function TCAN1_C1RXF6.getw : TBits_32; inline;
  69113. begin
  69114. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69115. end;
  69116. procedure TCAN1_C1RXF7.setEID(thebits : TBits_18); inline;
  69117. begin
  69118. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69119. end;
  69120. function TCAN1_C1RXF7.getEID : TBits_18; inline;
  69121. begin
  69122. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69123. end;
  69124. procedure TCAN1_C1RXF7.setEXID; inline;
  69125. begin
  69126. pTDefRegMap(@Self)^.&set := $00080000;
  69127. end;
  69128. procedure TCAN1_C1RXF7.clearEXID; inline;
  69129. begin
  69130. pTDefRegMap(@Self)^.clr := $00080000;
  69131. end;
  69132. procedure TCAN1_C1RXF7.setEXID(thebits : TBits_1); inline;
  69133. begin
  69134. if thebits = 0 then
  69135. pTDefRegMap(@Self)^.clr := $00080000
  69136. else
  69137. pTDefRegMap(@Self)^.&set := $00080000;
  69138. end;
  69139. function TCAN1_C1RXF7.getEXID : TBits_1; inline;
  69140. begin
  69141. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69142. end;
  69143. procedure TCAN1_C1RXF7.setSID(thebits : TBits_11); inline;
  69144. begin
  69145. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69146. end;
  69147. function TCAN1_C1RXF7.getSID : TBits_11; inline;
  69148. begin
  69149. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69150. end;
  69151. procedure TCAN1_C1RXF7.setw(thebits : TBits_32); inline;
  69152. begin
  69153. pTDefRegMap(@Self)^.val := thebits;
  69154. end;
  69155. function TCAN1_C1RXF7.getw : TBits_32; inline;
  69156. begin
  69157. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69158. end;
  69159. procedure TCAN1_C1RXF8.setEID(thebits : TBits_18); inline;
  69160. begin
  69161. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69162. end;
  69163. function TCAN1_C1RXF8.getEID : TBits_18; inline;
  69164. begin
  69165. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69166. end;
  69167. procedure TCAN1_C1RXF8.setEXID; inline;
  69168. begin
  69169. pTDefRegMap(@Self)^.&set := $00080000;
  69170. end;
  69171. procedure TCAN1_C1RXF8.clearEXID; inline;
  69172. begin
  69173. pTDefRegMap(@Self)^.clr := $00080000;
  69174. end;
  69175. procedure TCAN1_C1RXF8.setEXID(thebits : TBits_1); inline;
  69176. begin
  69177. if thebits = 0 then
  69178. pTDefRegMap(@Self)^.clr := $00080000
  69179. else
  69180. pTDefRegMap(@Self)^.&set := $00080000;
  69181. end;
  69182. function TCAN1_C1RXF8.getEXID : TBits_1; inline;
  69183. begin
  69184. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69185. end;
  69186. procedure TCAN1_C1RXF8.setSID(thebits : TBits_11); inline;
  69187. begin
  69188. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69189. end;
  69190. function TCAN1_C1RXF8.getSID : TBits_11; inline;
  69191. begin
  69192. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69193. end;
  69194. procedure TCAN1_C1RXF8.setw(thebits : TBits_32); inline;
  69195. begin
  69196. pTDefRegMap(@Self)^.val := thebits;
  69197. end;
  69198. function TCAN1_C1RXF8.getw : TBits_32; inline;
  69199. begin
  69200. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69201. end;
  69202. procedure TCAN1_C1RXF9.setEID(thebits : TBits_18); inline;
  69203. begin
  69204. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69205. end;
  69206. function TCAN1_C1RXF9.getEID : TBits_18; inline;
  69207. begin
  69208. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69209. end;
  69210. procedure TCAN1_C1RXF9.setEXID; inline;
  69211. begin
  69212. pTDefRegMap(@Self)^.&set := $00080000;
  69213. end;
  69214. procedure TCAN1_C1RXF9.clearEXID; inline;
  69215. begin
  69216. pTDefRegMap(@Self)^.clr := $00080000;
  69217. end;
  69218. procedure TCAN1_C1RXF9.setEXID(thebits : TBits_1); inline;
  69219. begin
  69220. if thebits = 0 then
  69221. pTDefRegMap(@Self)^.clr := $00080000
  69222. else
  69223. pTDefRegMap(@Self)^.&set := $00080000;
  69224. end;
  69225. function TCAN1_C1RXF9.getEXID : TBits_1; inline;
  69226. begin
  69227. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69228. end;
  69229. procedure TCAN1_C1RXF9.setSID(thebits : TBits_11); inline;
  69230. begin
  69231. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69232. end;
  69233. function TCAN1_C1RXF9.getSID : TBits_11; inline;
  69234. begin
  69235. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69236. end;
  69237. procedure TCAN1_C1RXF9.setw(thebits : TBits_32); inline;
  69238. begin
  69239. pTDefRegMap(@Self)^.val := thebits;
  69240. end;
  69241. function TCAN1_C1RXF9.getw : TBits_32; inline;
  69242. begin
  69243. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69244. end;
  69245. procedure TCAN1_C1RXF10.setEID(thebits : TBits_18); inline;
  69246. begin
  69247. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69248. end;
  69249. function TCAN1_C1RXF10.getEID : TBits_18; inline;
  69250. begin
  69251. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69252. end;
  69253. procedure TCAN1_C1RXF10.setEXID; inline;
  69254. begin
  69255. pTDefRegMap(@Self)^.&set := $00080000;
  69256. end;
  69257. procedure TCAN1_C1RXF10.clearEXID; inline;
  69258. begin
  69259. pTDefRegMap(@Self)^.clr := $00080000;
  69260. end;
  69261. procedure TCAN1_C1RXF10.setEXID(thebits : TBits_1); inline;
  69262. begin
  69263. if thebits = 0 then
  69264. pTDefRegMap(@Self)^.clr := $00080000
  69265. else
  69266. pTDefRegMap(@Self)^.&set := $00080000;
  69267. end;
  69268. function TCAN1_C1RXF10.getEXID : TBits_1; inline;
  69269. begin
  69270. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69271. end;
  69272. procedure TCAN1_C1RXF10.setSID(thebits : TBits_11); inline;
  69273. begin
  69274. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69275. end;
  69276. function TCAN1_C1RXF10.getSID : TBits_11; inline;
  69277. begin
  69278. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69279. end;
  69280. procedure TCAN1_C1RXF10.setw(thebits : TBits_32); inline;
  69281. begin
  69282. pTDefRegMap(@Self)^.val := thebits;
  69283. end;
  69284. function TCAN1_C1RXF10.getw : TBits_32; inline;
  69285. begin
  69286. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69287. end;
  69288. procedure TCAN1_C1RXF11.setEID(thebits : TBits_18); inline;
  69289. begin
  69290. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69291. end;
  69292. function TCAN1_C1RXF11.getEID : TBits_18; inline;
  69293. begin
  69294. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69295. end;
  69296. procedure TCAN1_C1RXF11.setEXID; inline;
  69297. begin
  69298. pTDefRegMap(@Self)^.&set := $00080000;
  69299. end;
  69300. procedure TCAN1_C1RXF11.clearEXID; inline;
  69301. begin
  69302. pTDefRegMap(@Self)^.clr := $00080000;
  69303. end;
  69304. procedure TCAN1_C1RXF11.setEXID(thebits : TBits_1); inline;
  69305. begin
  69306. if thebits = 0 then
  69307. pTDefRegMap(@Self)^.clr := $00080000
  69308. else
  69309. pTDefRegMap(@Self)^.&set := $00080000;
  69310. end;
  69311. function TCAN1_C1RXF11.getEXID : TBits_1; inline;
  69312. begin
  69313. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69314. end;
  69315. procedure TCAN1_C1RXF11.setSID(thebits : TBits_11); inline;
  69316. begin
  69317. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69318. end;
  69319. function TCAN1_C1RXF11.getSID : TBits_11; inline;
  69320. begin
  69321. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69322. end;
  69323. procedure TCAN1_C1RXF11.setw(thebits : TBits_32); inline;
  69324. begin
  69325. pTDefRegMap(@Self)^.val := thebits;
  69326. end;
  69327. function TCAN1_C1RXF11.getw : TBits_32; inline;
  69328. begin
  69329. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69330. end;
  69331. procedure TCAN1_C1RXF12.setEID(thebits : TBits_18); inline;
  69332. begin
  69333. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69334. end;
  69335. function TCAN1_C1RXF12.getEID : TBits_18; inline;
  69336. begin
  69337. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69338. end;
  69339. procedure TCAN1_C1RXF12.setEXID; inline;
  69340. begin
  69341. pTDefRegMap(@Self)^.&set := $00080000;
  69342. end;
  69343. procedure TCAN1_C1RXF12.clearEXID; inline;
  69344. begin
  69345. pTDefRegMap(@Self)^.clr := $00080000;
  69346. end;
  69347. procedure TCAN1_C1RXF12.setEXID(thebits : TBits_1); inline;
  69348. begin
  69349. if thebits = 0 then
  69350. pTDefRegMap(@Self)^.clr := $00080000
  69351. else
  69352. pTDefRegMap(@Self)^.&set := $00080000;
  69353. end;
  69354. function TCAN1_C1RXF12.getEXID : TBits_1; inline;
  69355. begin
  69356. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69357. end;
  69358. procedure TCAN1_C1RXF12.setSID(thebits : TBits_11); inline;
  69359. begin
  69360. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69361. end;
  69362. function TCAN1_C1RXF12.getSID : TBits_11; inline;
  69363. begin
  69364. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69365. end;
  69366. procedure TCAN1_C1RXF12.setw(thebits : TBits_32); inline;
  69367. begin
  69368. pTDefRegMap(@Self)^.val := thebits;
  69369. end;
  69370. function TCAN1_C1RXF12.getw : TBits_32; inline;
  69371. begin
  69372. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69373. end;
  69374. procedure TCAN1_C1RXF13.setEID(thebits : TBits_18); inline;
  69375. begin
  69376. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69377. end;
  69378. function TCAN1_C1RXF13.getEID : TBits_18; inline;
  69379. begin
  69380. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69381. end;
  69382. procedure TCAN1_C1RXF13.setEXID; inline;
  69383. begin
  69384. pTDefRegMap(@Self)^.&set := $00080000;
  69385. end;
  69386. procedure TCAN1_C1RXF13.clearEXID; inline;
  69387. begin
  69388. pTDefRegMap(@Self)^.clr := $00080000;
  69389. end;
  69390. procedure TCAN1_C1RXF13.setEXID(thebits : TBits_1); inline;
  69391. begin
  69392. if thebits = 0 then
  69393. pTDefRegMap(@Self)^.clr := $00080000
  69394. else
  69395. pTDefRegMap(@Self)^.&set := $00080000;
  69396. end;
  69397. function TCAN1_C1RXF13.getEXID : TBits_1; inline;
  69398. begin
  69399. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69400. end;
  69401. procedure TCAN1_C1RXF13.setSID(thebits : TBits_11); inline;
  69402. begin
  69403. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69404. end;
  69405. function TCAN1_C1RXF13.getSID : TBits_11; inline;
  69406. begin
  69407. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69408. end;
  69409. procedure TCAN1_C1RXF13.setw(thebits : TBits_32); inline;
  69410. begin
  69411. pTDefRegMap(@Self)^.val := thebits;
  69412. end;
  69413. function TCAN1_C1RXF13.getw : TBits_32; inline;
  69414. begin
  69415. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69416. end;
  69417. procedure TCAN1_C1RXF14.setEID(thebits : TBits_18); inline;
  69418. begin
  69419. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69420. end;
  69421. function TCAN1_C1RXF14.getEID : TBits_18; inline;
  69422. begin
  69423. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69424. end;
  69425. procedure TCAN1_C1RXF14.setEXID; inline;
  69426. begin
  69427. pTDefRegMap(@Self)^.&set := $00080000;
  69428. end;
  69429. procedure TCAN1_C1RXF14.clearEXID; inline;
  69430. begin
  69431. pTDefRegMap(@Self)^.clr := $00080000;
  69432. end;
  69433. procedure TCAN1_C1RXF14.setEXID(thebits : TBits_1); inline;
  69434. begin
  69435. if thebits = 0 then
  69436. pTDefRegMap(@Self)^.clr := $00080000
  69437. else
  69438. pTDefRegMap(@Self)^.&set := $00080000;
  69439. end;
  69440. function TCAN1_C1RXF14.getEXID : TBits_1; inline;
  69441. begin
  69442. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69443. end;
  69444. procedure TCAN1_C1RXF14.setSID(thebits : TBits_11); inline;
  69445. begin
  69446. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69447. end;
  69448. function TCAN1_C1RXF14.getSID : TBits_11; inline;
  69449. begin
  69450. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69451. end;
  69452. procedure TCAN1_C1RXF14.setw(thebits : TBits_32); inline;
  69453. begin
  69454. pTDefRegMap(@Self)^.val := thebits;
  69455. end;
  69456. function TCAN1_C1RXF14.getw : TBits_32; inline;
  69457. begin
  69458. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69459. end;
  69460. procedure TCAN1_C1RXF15.setEID(thebits : TBits_18); inline;
  69461. begin
  69462. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69463. end;
  69464. function TCAN1_C1RXF15.getEID : TBits_18; inline;
  69465. begin
  69466. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69467. end;
  69468. procedure TCAN1_C1RXF15.setEXID; inline;
  69469. begin
  69470. pTDefRegMap(@Self)^.&set := $00080000;
  69471. end;
  69472. procedure TCAN1_C1RXF15.clearEXID; inline;
  69473. begin
  69474. pTDefRegMap(@Self)^.clr := $00080000;
  69475. end;
  69476. procedure TCAN1_C1RXF15.setEXID(thebits : TBits_1); inline;
  69477. begin
  69478. if thebits = 0 then
  69479. pTDefRegMap(@Self)^.clr := $00080000
  69480. else
  69481. pTDefRegMap(@Self)^.&set := $00080000;
  69482. end;
  69483. function TCAN1_C1RXF15.getEXID : TBits_1; inline;
  69484. begin
  69485. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69486. end;
  69487. procedure TCAN1_C1RXF15.setSID(thebits : TBits_11); inline;
  69488. begin
  69489. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69490. end;
  69491. function TCAN1_C1RXF15.getSID : TBits_11; inline;
  69492. begin
  69493. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69494. end;
  69495. procedure TCAN1_C1RXF15.setw(thebits : TBits_32); inline;
  69496. begin
  69497. pTDefRegMap(@Self)^.val := thebits;
  69498. end;
  69499. function TCAN1_C1RXF15.getw : TBits_32; inline;
  69500. begin
  69501. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69502. end;
  69503. procedure TCAN1_C1RXF16.setEID(thebits : TBits_18); inline;
  69504. begin
  69505. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69506. end;
  69507. function TCAN1_C1RXF16.getEID : TBits_18; inline;
  69508. begin
  69509. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69510. end;
  69511. procedure TCAN1_C1RXF16.setEXID; inline;
  69512. begin
  69513. pTDefRegMap(@Self)^.&set := $00080000;
  69514. end;
  69515. procedure TCAN1_C1RXF16.clearEXID; inline;
  69516. begin
  69517. pTDefRegMap(@Self)^.clr := $00080000;
  69518. end;
  69519. procedure TCAN1_C1RXF16.setEXID(thebits : TBits_1); inline;
  69520. begin
  69521. if thebits = 0 then
  69522. pTDefRegMap(@Self)^.clr := $00080000
  69523. else
  69524. pTDefRegMap(@Self)^.&set := $00080000;
  69525. end;
  69526. function TCAN1_C1RXF16.getEXID : TBits_1; inline;
  69527. begin
  69528. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69529. end;
  69530. procedure TCAN1_C1RXF16.setSID(thebits : TBits_11); inline;
  69531. begin
  69532. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69533. end;
  69534. function TCAN1_C1RXF16.getSID : TBits_11; inline;
  69535. begin
  69536. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69537. end;
  69538. procedure TCAN1_C1RXF16.setw(thebits : TBits_32); inline;
  69539. begin
  69540. pTDefRegMap(@Self)^.val := thebits;
  69541. end;
  69542. function TCAN1_C1RXF16.getw : TBits_32; inline;
  69543. begin
  69544. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69545. end;
  69546. procedure TCAN1_C1RXF17.setEID(thebits : TBits_18); inline;
  69547. begin
  69548. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69549. end;
  69550. function TCAN1_C1RXF17.getEID : TBits_18; inline;
  69551. begin
  69552. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69553. end;
  69554. procedure TCAN1_C1RXF17.setEXID; inline;
  69555. begin
  69556. pTDefRegMap(@Self)^.&set := $00080000;
  69557. end;
  69558. procedure TCAN1_C1RXF17.clearEXID; inline;
  69559. begin
  69560. pTDefRegMap(@Self)^.clr := $00080000;
  69561. end;
  69562. procedure TCAN1_C1RXF17.setEXID(thebits : TBits_1); inline;
  69563. begin
  69564. if thebits = 0 then
  69565. pTDefRegMap(@Self)^.clr := $00080000
  69566. else
  69567. pTDefRegMap(@Self)^.&set := $00080000;
  69568. end;
  69569. function TCAN1_C1RXF17.getEXID : TBits_1; inline;
  69570. begin
  69571. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69572. end;
  69573. procedure TCAN1_C1RXF17.setSID(thebits : TBits_11); inline;
  69574. begin
  69575. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69576. end;
  69577. function TCAN1_C1RXF17.getSID : TBits_11; inline;
  69578. begin
  69579. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69580. end;
  69581. procedure TCAN1_C1RXF17.setw(thebits : TBits_32); inline;
  69582. begin
  69583. pTDefRegMap(@Self)^.val := thebits;
  69584. end;
  69585. function TCAN1_C1RXF17.getw : TBits_32; inline;
  69586. begin
  69587. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69588. end;
  69589. procedure TCAN1_C1RXF18.setEID(thebits : TBits_18); inline;
  69590. begin
  69591. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69592. end;
  69593. function TCAN1_C1RXF18.getEID : TBits_18; inline;
  69594. begin
  69595. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69596. end;
  69597. procedure TCAN1_C1RXF18.setEXID; inline;
  69598. begin
  69599. pTDefRegMap(@Self)^.&set := $00080000;
  69600. end;
  69601. procedure TCAN1_C1RXF18.clearEXID; inline;
  69602. begin
  69603. pTDefRegMap(@Self)^.clr := $00080000;
  69604. end;
  69605. procedure TCAN1_C1RXF18.setEXID(thebits : TBits_1); inline;
  69606. begin
  69607. if thebits = 0 then
  69608. pTDefRegMap(@Self)^.clr := $00080000
  69609. else
  69610. pTDefRegMap(@Self)^.&set := $00080000;
  69611. end;
  69612. function TCAN1_C1RXF18.getEXID : TBits_1; inline;
  69613. begin
  69614. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69615. end;
  69616. procedure TCAN1_C1RXF18.setSID(thebits : TBits_11); inline;
  69617. begin
  69618. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69619. end;
  69620. function TCAN1_C1RXF18.getSID : TBits_11; inline;
  69621. begin
  69622. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69623. end;
  69624. procedure TCAN1_C1RXF18.setw(thebits : TBits_32); inline;
  69625. begin
  69626. pTDefRegMap(@Self)^.val := thebits;
  69627. end;
  69628. function TCAN1_C1RXF18.getw : TBits_32; inline;
  69629. begin
  69630. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69631. end;
  69632. procedure TCAN1_C1RXF19.setEID(thebits : TBits_18); inline;
  69633. begin
  69634. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69635. end;
  69636. function TCAN1_C1RXF19.getEID : TBits_18; inline;
  69637. begin
  69638. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69639. end;
  69640. procedure TCAN1_C1RXF19.setEXID; inline;
  69641. begin
  69642. pTDefRegMap(@Self)^.&set := $00080000;
  69643. end;
  69644. procedure TCAN1_C1RXF19.clearEXID; inline;
  69645. begin
  69646. pTDefRegMap(@Self)^.clr := $00080000;
  69647. end;
  69648. procedure TCAN1_C1RXF19.setEXID(thebits : TBits_1); inline;
  69649. begin
  69650. if thebits = 0 then
  69651. pTDefRegMap(@Self)^.clr := $00080000
  69652. else
  69653. pTDefRegMap(@Self)^.&set := $00080000;
  69654. end;
  69655. function TCAN1_C1RXF19.getEXID : TBits_1; inline;
  69656. begin
  69657. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69658. end;
  69659. procedure TCAN1_C1RXF19.setSID(thebits : TBits_11); inline;
  69660. begin
  69661. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69662. end;
  69663. function TCAN1_C1RXF19.getSID : TBits_11; inline;
  69664. begin
  69665. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69666. end;
  69667. procedure TCAN1_C1RXF19.setw(thebits : TBits_32); inline;
  69668. begin
  69669. pTDefRegMap(@Self)^.val := thebits;
  69670. end;
  69671. function TCAN1_C1RXF19.getw : TBits_32; inline;
  69672. begin
  69673. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69674. end;
  69675. procedure TCAN1_C1RXF20.setEID(thebits : TBits_18); inline;
  69676. begin
  69677. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69678. end;
  69679. function TCAN1_C1RXF20.getEID : TBits_18; inline;
  69680. begin
  69681. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69682. end;
  69683. procedure TCAN1_C1RXF20.setEXID; inline;
  69684. begin
  69685. pTDefRegMap(@Self)^.&set := $00080000;
  69686. end;
  69687. procedure TCAN1_C1RXF20.clearEXID; inline;
  69688. begin
  69689. pTDefRegMap(@Self)^.clr := $00080000;
  69690. end;
  69691. procedure TCAN1_C1RXF20.setEXID(thebits : TBits_1); inline;
  69692. begin
  69693. if thebits = 0 then
  69694. pTDefRegMap(@Self)^.clr := $00080000
  69695. else
  69696. pTDefRegMap(@Self)^.&set := $00080000;
  69697. end;
  69698. function TCAN1_C1RXF20.getEXID : TBits_1; inline;
  69699. begin
  69700. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69701. end;
  69702. procedure TCAN1_C1RXF20.setSID(thebits : TBits_11); inline;
  69703. begin
  69704. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69705. end;
  69706. function TCAN1_C1RXF20.getSID : TBits_11; inline;
  69707. begin
  69708. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69709. end;
  69710. procedure TCAN1_C1RXF20.setw(thebits : TBits_32); inline;
  69711. begin
  69712. pTDefRegMap(@Self)^.val := thebits;
  69713. end;
  69714. function TCAN1_C1RXF20.getw : TBits_32; inline;
  69715. begin
  69716. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69717. end;
  69718. procedure TCAN1_C1RXF21.setEID(thebits : TBits_18); inline;
  69719. begin
  69720. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69721. end;
  69722. function TCAN1_C1RXF21.getEID : TBits_18; inline;
  69723. begin
  69724. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69725. end;
  69726. procedure TCAN1_C1RXF21.setEXID; inline;
  69727. begin
  69728. pTDefRegMap(@Self)^.&set := $00080000;
  69729. end;
  69730. procedure TCAN1_C1RXF21.clearEXID; inline;
  69731. begin
  69732. pTDefRegMap(@Self)^.clr := $00080000;
  69733. end;
  69734. procedure TCAN1_C1RXF21.setEXID(thebits : TBits_1); inline;
  69735. begin
  69736. if thebits = 0 then
  69737. pTDefRegMap(@Self)^.clr := $00080000
  69738. else
  69739. pTDefRegMap(@Self)^.&set := $00080000;
  69740. end;
  69741. function TCAN1_C1RXF21.getEXID : TBits_1; inline;
  69742. begin
  69743. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69744. end;
  69745. procedure TCAN1_C1RXF21.setSID(thebits : TBits_11); inline;
  69746. begin
  69747. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69748. end;
  69749. function TCAN1_C1RXF21.getSID : TBits_11; inline;
  69750. begin
  69751. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69752. end;
  69753. procedure TCAN1_C1RXF21.setw(thebits : TBits_32); inline;
  69754. begin
  69755. pTDefRegMap(@Self)^.val := thebits;
  69756. end;
  69757. function TCAN1_C1RXF21.getw : TBits_32; inline;
  69758. begin
  69759. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69760. end;
  69761. procedure TCAN1_C1RXF22.setEID(thebits : TBits_18); inline;
  69762. begin
  69763. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69764. end;
  69765. function TCAN1_C1RXF22.getEID : TBits_18; inline;
  69766. begin
  69767. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69768. end;
  69769. procedure TCAN1_C1RXF22.setEXID; inline;
  69770. begin
  69771. pTDefRegMap(@Self)^.&set := $00080000;
  69772. end;
  69773. procedure TCAN1_C1RXF22.clearEXID; inline;
  69774. begin
  69775. pTDefRegMap(@Self)^.clr := $00080000;
  69776. end;
  69777. procedure TCAN1_C1RXF22.setEXID(thebits : TBits_1); inline;
  69778. begin
  69779. if thebits = 0 then
  69780. pTDefRegMap(@Self)^.clr := $00080000
  69781. else
  69782. pTDefRegMap(@Self)^.&set := $00080000;
  69783. end;
  69784. function TCAN1_C1RXF22.getEXID : TBits_1; inline;
  69785. begin
  69786. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69787. end;
  69788. procedure TCAN1_C1RXF22.setSID(thebits : TBits_11); inline;
  69789. begin
  69790. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69791. end;
  69792. function TCAN1_C1RXF22.getSID : TBits_11; inline;
  69793. begin
  69794. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69795. end;
  69796. procedure TCAN1_C1RXF22.setw(thebits : TBits_32); inline;
  69797. begin
  69798. pTDefRegMap(@Self)^.val := thebits;
  69799. end;
  69800. function TCAN1_C1RXF22.getw : TBits_32; inline;
  69801. begin
  69802. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69803. end;
  69804. procedure TCAN1_C1RXF23.setEID(thebits : TBits_18); inline;
  69805. begin
  69806. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69807. end;
  69808. function TCAN1_C1RXF23.getEID : TBits_18; inline;
  69809. begin
  69810. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69811. end;
  69812. procedure TCAN1_C1RXF23.setEXID; inline;
  69813. begin
  69814. pTDefRegMap(@Self)^.&set := $00080000;
  69815. end;
  69816. procedure TCAN1_C1RXF23.clearEXID; inline;
  69817. begin
  69818. pTDefRegMap(@Self)^.clr := $00080000;
  69819. end;
  69820. procedure TCAN1_C1RXF23.setEXID(thebits : TBits_1); inline;
  69821. begin
  69822. if thebits = 0 then
  69823. pTDefRegMap(@Self)^.clr := $00080000
  69824. else
  69825. pTDefRegMap(@Self)^.&set := $00080000;
  69826. end;
  69827. function TCAN1_C1RXF23.getEXID : TBits_1; inline;
  69828. begin
  69829. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69830. end;
  69831. procedure TCAN1_C1RXF23.setSID(thebits : TBits_11); inline;
  69832. begin
  69833. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69834. end;
  69835. function TCAN1_C1RXF23.getSID : TBits_11; inline;
  69836. begin
  69837. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69838. end;
  69839. procedure TCAN1_C1RXF23.setw(thebits : TBits_32); inline;
  69840. begin
  69841. pTDefRegMap(@Self)^.val := thebits;
  69842. end;
  69843. function TCAN1_C1RXF23.getw : TBits_32; inline;
  69844. begin
  69845. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69846. end;
  69847. procedure TCAN1_C1RXF24.setEID(thebits : TBits_18); inline;
  69848. begin
  69849. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69850. end;
  69851. function TCAN1_C1RXF24.getEID : TBits_18; inline;
  69852. begin
  69853. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69854. end;
  69855. procedure TCAN1_C1RXF24.setEXID; inline;
  69856. begin
  69857. pTDefRegMap(@Self)^.&set := $00080000;
  69858. end;
  69859. procedure TCAN1_C1RXF24.clearEXID; inline;
  69860. begin
  69861. pTDefRegMap(@Self)^.clr := $00080000;
  69862. end;
  69863. procedure TCAN1_C1RXF24.setEXID(thebits : TBits_1); inline;
  69864. begin
  69865. if thebits = 0 then
  69866. pTDefRegMap(@Self)^.clr := $00080000
  69867. else
  69868. pTDefRegMap(@Self)^.&set := $00080000;
  69869. end;
  69870. function TCAN1_C1RXF24.getEXID : TBits_1; inline;
  69871. begin
  69872. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69873. end;
  69874. procedure TCAN1_C1RXF24.setSID(thebits : TBits_11); inline;
  69875. begin
  69876. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69877. end;
  69878. function TCAN1_C1RXF24.getSID : TBits_11; inline;
  69879. begin
  69880. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69881. end;
  69882. procedure TCAN1_C1RXF24.setw(thebits : TBits_32); inline;
  69883. begin
  69884. pTDefRegMap(@Self)^.val := thebits;
  69885. end;
  69886. function TCAN1_C1RXF24.getw : TBits_32; inline;
  69887. begin
  69888. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69889. end;
  69890. procedure TCAN1_C1RXF25.setEID(thebits : TBits_18); inline;
  69891. begin
  69892. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69893. end;
  69894. function TCAN1_C1RXF25.getEID : TBits_18; inline;
  69895. begin
  69896. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69897. end;
  69898. procedure TCAN1_C1RXF25.setEXID; inline;
  69899. begin
  69900. pTDefRegMap(@Self)^.&set := $00080000;
  69901. end;
  69902. procedure TCAN1_C1RXF25.clearEXID; inline;
  69903. begin
  69904. pTDefRegMap(@Self)^.clr := $00080000;
  69905. end;
  69906. procedure TCAN1_C1RXF25.setEXID(thebits : TBits_1); inline;
  69907. begin
  69908. if thebits = 0 then
  69909. pTDefRegMap(@Self)^.clr := $00080000
  69910. else
  69911. pTDefRegMap(@Self)^.&set := $00080000;
  69912. end;
  69913. function TCAN1_C1RXF25.getEXID : TBits_1; inline;
  69914. begin
  69915. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69916. end;
  69917. procedure TCAN1_C1RXF25.setSID(thebits : TBits_11); inline;
  69918. begin
  69919. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69920. end;
  69921. function TCAN1_C1RXF25.getSID : TBits_11; inline;
  69922. begin
  69923. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69924. end;
  69925. procedure TCAN1_C1RXF25.setw(thebits : TBits_32); inline;
  69926. begin
  69927. pTDefRegMap(@Self)^.val := thebits;
  69928. end;
  69929. function TCAN1_C1RXF25.getw : TBits_32; inline;
  69930. begin
  69931. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69932. end;
  69933. procedure TCAN1_C1RXF26.setEID(thebits : TBits_18); inline;
  69934. begin
  69935. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69936. end;
  69937. function TCAN1_C1RXF26.getEID : TBits_18; inline;
  69938. begin
  69939. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69940. end;
  69941. procedure TCAN1_C1RXF26.setEXID; inline;
  69942. begin
  69943. pTDefRegMap(@Self)^.&set := $00080000;
  69944. end;
  69945. procedure TCAN1_C1RXF26.clearEXID; inline;
  69946. begin
  69947. pTDefRegMap(@Self)^.clr := $00080000;
  69948. end;
  69949. procedure TCAN1_C1RXF26.setEXID(thebits : TBits_1); inline;
  69950. begin
  69951. if thebits = 0 then
  69952. pTDefRegMap(@Self)^.clr := $00080000
  69953. else
  69954. pTDefRegMap(@Self)^.&set := $00080000;
  69955. end;
  69956. function TCAN1_C1RXF26.getEXID : TBits_1; inline;
  69957. begin
  69958. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  69959. end;
  69960. procedure TCAN1_C1RXF26.setSID(thebits : TBits_11); inline;
  69961. begin
  69962. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  69963. end;
  69964. function TCAN1_C1RXF26.getSID : TBits_11; inline;
  69965. begin
  69966. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  69967. end;
  69968. procedure TCAN1_C1RXF26.setw(thebits : TBits_32); inline;
  69969. begin
  69970. pTDefRegMap(@Self)^.val := thebits;
  69971. end;
  69972. function TCAN1_C1RXF26.getw : TBits_32; inline;
  69973. begin
  69974. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  69975. end;
  69976. procedure TCAN1_C1RXF27.setEID(thebits : TBits_18); inline;
  69977. begin
  69978. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  69979. end;
  69980. function TCAN1_C1RXF27.getEID : TBits_18; inline;
  69981. begin
  69982. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  69983. end;
  69984. procedure TCAN1_C1RXF27.setEXID; inline;
  69985. begin
  69986. pTDefRegMap(@Self)^.&set := $00080000;
  69987. end;
  69988. procedure TCAN1_C1RXF27.clearEXID; inline;
  69989. begin
  69990. pTDefRegMap(@Self)^.clr := $00080000;
  69991. end;
  69992. procedure TCAN1_C1RXF27.setEXID(thebits : TBits_1); inline;
  69993. begin
  69994. if thebits = 0 then
  69995. pTDefRegMap(@Self)^.clr := $00080000
  69996. else
  69997. pTDefRegMap(@Self)^.&set := $00080000;
  69998. end;
  69999. function TCAN1_C1RXF27.getEXID : TBits_1; inline;
  70000. begin
  70001. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70002. end;
  70003. procedure TCAN1_C1RXF27.setSID(thebits : TBits_11); inline;
  70004. begin
  70005. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70006. end;
  70007. function TCAN1_C1RXF27.getSID : TBits_11; inline;
  70008. begin
  70009. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70010. end;
  70011. procedure TCAN1_C1RXF27.setw(thebits : TBits_32); inline;
  70012. begin
  70013. pTDefRegMap(@Self)^.val := thebits;
  70014. end;
  70015. function TCAN1_C1RXF27.getw : TBits_32; inline;
  70016. begin
  70017. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70018. end;
  70019. procedure TCAN1_C1RXF28.setEID(thebits : TBits_18); inline;
  70020. begin
  70021. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70022. end;
  70023. function TCAN1_C1RXF28.getEID : TBits_18; inline;
  70024. begin
  70025. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  70026. end;
  70027. procedure TCAN1_C1RXF28.setEXID; inline;
  70028. begin
  70029. pTDefRegMap(@Self)^.&set := $00080000;
  70030. end;
  70031. procedure TCAN1_C1RXF28.clearEXID; inline;
  70032. begin
  70033. pTDefRegMap(@Self)^.clr := $00080000;
  70034. end;
  70035. procedure TCAN1_C1RXF28.setEXID(thebits : TBits_1); inline;
  70036. begin
  70037. if thebits = 0 then
  70038. pTDefRegMap(@Self)^.clr := $00080000
  70039. else
  70040. pTDefRegMap(@Self)^.&set := $00080000;
  70041. end;
  70042. function TCAN1_C1RXF28.getEXID : TBits_1; inline;
  70043. begin
  70044. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70045. end;
  70046. procedure TCAN1_C1RXF28.setSID(thebits : TBits_11); inline;
  70047. begin
  70048. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70049. end;
  70050. function TCAN1_C1RXF28.getSID : TBits_11; inline;
  70051. begin
  70052. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70053. end;
  70054. procedure TCAN1_C1RXF28.setw(thebits : TBits_32); inline;
  70055. begin
  70056. pTDefRegMap(@Self)^.val := thebits;
  70057. end;
  70058. function TCAN1_C1RXF28.getw : TBits_32; inline;
  70059. begin
  70060. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70061. end;
  70062. procedure TCAN1_C1RXF29.setEID(thebits : TBits_18); inline;
  70063. begin
  70064. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70065. end;
  70066. function TCAN1_C1RXF29.getEID : TBits_18; inline;
  70067. begin
  70068. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  70069. end;
  70070. procedure TCAN1_C1RXF29.setEXID; inline;
  70071. begin
  70072. pTDefRegMap(@Self)^.&set := $00080000;
  70073. end;
  70074. procedure TCAN1_C1RXF29.clearEXID; inline;
  70075. begin
  70076. pTDefRegMap(@Self)^.clr := $00080000;
  70077. end;
  70078. procedure TCAN1_C1RXF29.setEXID(thebits : TBits_1); inline;
  70079. begin
  70080. if thebits = 0 then
  70081. pTDefRegMap(@Self)^.clr := $00080000
  70082. else
  70083. pTDefRegMap(@Self)^.&set := $00080000;
  70084. end;
  70085. function TCAN1_C1RXF29.getEXID : TBits_1; inline;
  70086. begin
  70087. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70088. end;
  70089. procedure TCAN1_C1RXF29.setSID(thebits : TBits_11); inline;
  70090. begin
  70091. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70092. end;
  70093. function TCAN1_C1RXF29.getSID : TBits_11; inline;
  70094. begin
  70095. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70096. end;
  70097. procedure TCAN1_C1RXF29.setw(thebits : TBits_32); inline;
  70098. begin
  70099. pTDefRegMap(@Self)^.val := thebits;
  70100. end;
  70101. function TCAN1_C1RXF29.getw : TBits_32; inline;
  70102. begin
  70103. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70104. end;
  70105. procedure TCAN1_C1RXF30.setEID(thebits : TBits_18); inline;
  70106. begin
  70107. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70108. end;
  70109. function TCAN1_C1RXF30.getEID : TBits_18; inline;
  70110. begin
  70111. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  70112. end;
  70113. procedure TCAN1_C1RXF30.setEXID; inline;
  70114. begin
  70115. pTDefRegMap(@Self)^.&set := $00080000;
  70116. end;
  70117. procedure TCAN1_C1RXF30.clearEXID; inline;
  70118. begin
  70119. pTDefRegMap(@Self)^.clr := $00080000;
  70120. end;
  70121. procedure TCAN1_C1RXF30.setEXID(thebits : TBits_1); inline;
  70122. begin
  70123. if thebits = 0 then
  70124. pTDefRegMap(@Self)^.clr := $00080000
  70125. else
  70126. pTDefRegMap(@Self)^.&set := $00080000;
  70127. end;
  70128. function TCAN1_C1RXF30.getEXID : TBits_1; inline;
  70129. begin
  70130. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70131. end;
  70132. procedure TCAN1_C1RXF30.setSID(thebits : TBits_11); inline;
  70133. begin
  70134. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70135. end;
  70136. function TCAN1_C1RXF30.getSID : TBits_11; inline;
  70137. begin
  70138. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70139. end;
  70140. procedure TCAN1_C1RXF30.setw(thebits : TBits_32); inline;
  70141. begin
  70142. pTDefRegMap(@Self)^.val := thebits;
  70143. end;
  70144. function TCAN1_C1RXF30.getw : TBits_32; inline;
  70145. begin
  70146. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70147. end;
  70148. procedure TCAN1_C1RXF31.setEID(thebits : TBits_18); inline;
  70149. begin
  70150. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFC0000 or ( thebits shl 0 );
  70151. end;
  70152. function TCAN1_C1RXF31.getEID : TBits_18; inline;
  70153. begin
  70154. getEID := (pTDefRegMap(@Self)^.val and $0003FFFF) shr 0;
  70155. end;
  70156. procedure TCAN1_C1RXF31.setEXID; inline;
  70157. begin
  70158. pTDefRegMap(@Self)^.&set := $00080000;
  70159. end;
  70160. procedure TCAN1_C1RXF31.clearEXID; inline;
  70161. begin
  70162. pTDefRegMap(@Self)^.clr := $00080000;
  70163. end;
  70164. procedure TCAN1_C1RXF31.setEXID(thebits : TBits_1); inline;
  70165. begin
  70166. if thebits = 0 then
  70167. pTDefRegMap(@Self)^.clr := $00080000
  70168. else
  70169. pTDefRegMap(@Self)^.&set := $00080000;
  70170. end;
  70171. function TCAN1_C1RXF31.getEXID : TBits_1; inline;
  70172. begin
  70173. getEXID := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70174. end;
  70175. procedure TCAN1_C1RXF31.setSID(thebits : TBits_11); inline;
  70176. begin
  70177. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $001FFFFF or ( thebits shl 21 );
  70178. end;
  70179. function TCAN1_C1RXF31.getSID : TBits_11; inline;
  70180. begin
  70181. getSID := (pTDefRegMap(@Self)^.val and $FFE00000) shr 21;
  70182. end;
  70183. procedure TCAN1_C1RXF31.setw(thebits : TBits_32); inline;
  70184. begin
  70185. pTDefRegMap(@Self)^.val := thebits;
  70186. end;
  70187. function TCAN1_C1RXF31.getw : TBits_32; inline;
  70188. begin
  70189. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70190. end;
  70191. procedure TCAN1_C1FIFOCON0.setTXPRI(thebits : TBits_2); inline;
  70192. begin
  70193. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  70194. end;
  70195. function TCAN1_C1FIFOCON0.getTXPRI : TBits_2; inline;
  70196. begin
  70197. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  70198. end;
  70199. procedure TCAN1_C1FIFOCON0.setRTREN; inline;
  70200. begin
  70201. pTDefRegMap(@Self)^.&set := $00000004;
  70202. end;
  70203. procedure TCAN1_C1FIFOCON0.clearRTREN; inline;
  70204. begin
  70205. pTDefRegMap(@Self)^.clr := $00000004;
  70206. end;
  70207. procedure TCAN1_C1FIFOCON0.setRTREN(thebits : TBits_1); inline;
  70208. begin
  70209. if thebits = 0 then
  70210. pTDefRegMap(@Self)^.clr := $00000004
  70211. else
  70212. pTDefRegMap(@Self)^.&set := $00000004;
  70213. end;
  70214. function TCAN1_C1FIFOCON0.getRTREN : TBits_1; inline;
  70215. begin
  70216. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70217. end;
  70218. procedure TCAN1_C1FIFOCON0.setTXREQ; inline;
  70219. begin
  70220. pTDefRegMap(@Self)^.&set := $00000008;
  70221. end;
  70222. procedure TCAN1_C1FIFOCON0.clearTXREQ; inline;
  70223. begin
  70224. pTDefRegMap(@Self)^.clr := $00000008;
  70225. end;
  70226. procedure TCAN1_C1FIFOCON0.setTXREQ(thebits : TBits_1); inline;
  70227. begin
  70228. if thebits = 0 then
  70229. pTDefRegMap(@Self)^.clr := $00000008
  70230. else
  70231. pTDefRegMap(@Self)^.&set := $00000008;
  70232. end;
  70233. function TCAN1_C1FIFOCON0.getTXREQ : TBits_1; inline;
  70234. begin
  70235. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70236. end;
  70237. procedure TCAN1_C1FIFOCON0.setTXERR; inline;
  70238. begin
  70239. pTDefRegMap(@Self)^.&set := $00000010;
  70240. end;
  70241. procedure TCAN1_C1FIFOCON0.clearTXERR; inline;
  70242. begin
  70243. pTDefRegMap(@Self)^.clr := $00000010;
  70244. end;
  70245. procedure TCAN1_C1FIFOCON0.setTXERR(thebits : TBits_1); inline;
  70246. begin
  70247. if thebits = 0 then
  70248. pTDefRegMap(@Self)^.clr := $00000010
  70249. else
  70250. pTDefRegMap(@Self)^.&set := $00000010;
  70251. end;
  70252. function TCAN1_C1FIFOCON0.getTXERR : TBits_1; inline;
  70253. begin
  70254. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  70255. end;
  70256. procedure TCAN1_C1FIFOCON0.setTXLARB; inline;
  70257. begin
  70258. pTDefRegMap(@Self)^.&set := $00000020;
  70259. end;
  70260. procedure TCAN1_C1FIFOCON0.clearTXLARB; inline;
  70261. begin
  70262. pTDefRegMap(@Self)^.clr := $00000020;
  70263. end;
  70264. procedure TCAN1_C1FIFOCON0.setTXLARB(thebits : TBits_1); inline;
  70265. begin
  70266. if thebits = 0 then
  70267. pTDefRegMap(@Self)^.clr := $00000020
  70268. else
  70269. pTDefRegMap(@Self)^.&set := $00000020;
  70270. end;
  70271. function TCAN1_C1FIFOCON0.getTXLARB : TBits_1; inline;
  70272. begin
  70273. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  70274. end;
  70275. procedure TCAN1_C1FIFOCON0.setTXABAT; inline;
  70276. begin
  70277. pTDefRegMap(@Self)^.&set := $00000040;
  70278. end;
  70279. procedure TCAN1_C1FIFOCON0.clearTXABAT; inline;
  70280. begin
  70281. pTDefRegMap(@Self)^.clr := $00000040;
  70282. end;
  70283. procedure TCAN1_C1FIFOCON0.setTXABAT(thebits : TBits_1); inline;
  70284. begin
  70285. if thebits = 0 then
  70286. pTDefRegMap(@Self)^.clr := $00000040
  70287. else
  70288. pTDefRegMap(@Self)^.&set := $00000040;
  70289. end;
  70290. function TCAN1_C1FIFOCON0.getTXABAT : TBits_1; inline;
  70291. begin
  70292. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  70293. end;
  70294. procedure TCAN1_C1FIFOCON0.setTXEN; inline;
  70295. begin
  70296. pTDefRegMap(@Self)^.&set := $00000080;
  70297. end;
  70298. procedure TCAN1_C1FIFOCON0.clearTXEN; inline;
  70299. begin
  70300. pTDefRegMap(@Self)^.clr := $00000080;
  70301. end;
  70302. procedure TCAN1_C1FIFOCON0.setTXEN(thebits : TBits_1); inline;
  70303. begin
  70304. if thebits = 0 then
  70305. pTDefRegMap(@Self)^.clr := $00000080
  70306. else
  70307. pTDefRegMap(@Self)^.&set := $00000080;
  70308. end;
  70309. function TCAN1_C1FIFOCON0.getTXEN : TBits_1; inline;
  70310. begin
  70311. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  70312. end;
  70313. procedure TCAN1_C1FIFOCON0.setDONLY; inline;
  70314. begin
  70315. pTDefRegMap(@Self)^.&set := $00001000;
  70316. end;
  70317. procedure TCAN1_C1FIFOCON0.clearDONLY; inline;
  70318. begin
  70319. pTDefRegMap(@Self)^.clr := $00001000;
  70320. end;
  70321. procedure TCAN1_C1FIFOCON0.setDONLY(thebits : TBits_1); inline;
  70322. begin
  70323. if thebits = 0 then
  70324. pTDefRegMap(@Self)^.clr := $00001000
  70325. else
  70326. pTDefRegMap(@Self)^.&set := $00001000;
  70327. end;
  70328. function TCAN1_C1FIFOCON0.getDONLY : TBits_1; inline;
  70329. begin
  70330. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  70331. end;
  70332. procedure TCAN1_C1FIFOCON0.setUINC; inline;
  70333. begin
  70334. pTDefRegMap(@Self)^.&set := $00002000;
  70335. end;
  70336. procedure TCAN1_C1FIFOCON0.clearUINC; inline;
  70337. begin
  70338. pTDefRegMap(@Self)^.clr := $00002000;
  70339. end;
  70340. procedure TCAN1_C1FIFOCON0.setUINC(thebits : TBits_1); inline;
  70341. begin
  70342. if thebits = 0 then
  70343. pTDefRegMap(@Self)^.clr := $00002000
  70344. else
  70345. pTDefRegMap(@Self)^.&set := $00002000;
  70346. end;
  70347. function TCAN1_C1FIFOCON0.getUINC : TBits_1; inline;
  70348. begin
  70349. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  70350. end;
  70351. procedure TCAN1_C1FIFOCON0.setFRESET; inline;
  70352. begin
  70353. pTDefRegMap(@Self)^.&set := $00004000;
  70354. end;
  70355. procedure TCAN1_C1FIFOCON0.clearFRESET; inline;
  70356. begin
  70357. pTDefRegMap(@Self)^.clr := $00004000;
  70358. end;
  70359. procedure TCAN1_C1FIFOCON0.setFRESET(thebits : TBits_1); inline;
  70360. begin
  70361. if thebits = 0 then
  70362. pTDefRegMap(@Self)^.clr := $00004000
  70363. else
  70364. pTDefRegMap(@Self)^.&set := $00004000;
  70365. end;
  70366. function TCAN1_C1FIFOCON0.getFRESET : TBits_1; inline;
  70367. begin
  70368. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  70369. end;
  70370. procedure TCAN1_C1FIFOCON0.setFSIZE(thebits : TBits_5); inline;
  70371. begin
  70372. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  70373. end;
  70374. function TCAN1_C1FIFOCON0.getFSIZE : TBits_5; inline;
  70375. begin
  70376. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  70377. end;
  70378. procedure TCAN1_C1FIFOCON0.setw(thebits : TBits_32); inline;
  70379. begin
  70380. pTDefRegMap(@Self)^.val := thebits;
  70381. end;
  70382. function TCAN1_C1FIFOCON0.getw : TBits_32; inline;
  70383. begin
  70384. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70385. end;
  70386. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIF; inline;
  70387. begin
  70388. pTDefRegMap(@Self)^.&set := $00000001;
  70389. end;
  70390. procedure TCAN1_C1FIFOINT0.clearRXNEMPTYIF; inline;
  70391. begin
  70392. pTDefRegMap(@Self)^.clr := $00000001;
  70393. end;
  70394. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIF(thebits : TBits_1); inline;
  70395. begin
  70396. if thebits = 0 then
  70397. pTDefRegMap(@Self)^.clr := $00000001
  70398. else
  70399. pTDefRegMap(@Self)^.&set := $00000001;
  70400. end;
  70401. function TCAN1_C1FIFOINT0.getRXNEMPTYIF : TBits_1; inline;
  70402. begin
  70403. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  70404. end;
  70405. procedure TCAN1_C1FIFOINT0.setRXHALFIF; inline;
  70406. begin
  70407. pTDefRegMap(@Self)^.&set := $00000002;
  70408. end;
  70409. procedure TCAN1_C1FIFOINT0.clearRXHALFIF; inline;
  70410. begin
  70411. pTDefRegMap(@Self)^.clr := $00000002;
  70412. end;
  70413. procedure TCAN1_C1FIFOINT0.setRXHALFIF(thebits : TBits_1); inline;
  70414. begin
  70415. if thebits = 0 then
  70416. pTDefRegMap(@Self)^.clr := $00000002
  70417. else
  70418. pTDefRegMap(@Self)^.&set := $00000002;
  70419. end;
  70420. function TCAN1_C1FIFOINT0.getRXHALFIF : TBits_1; inline;
  70421. begin
  70422. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  70423. end;
  70424. procedure TCAN1_C1FIFOINT0.setRXFULLIF; inline;
  70425. begin
  70426. pTDefRegMap(@Self)^.&set := $00000004;
  70427. end;
  70428. procedure TCAN1_C1FIFOINT0.clearRXFULLIF; inline;
  70429. begin
  70430. pTDefRegMap(@Self)^.clr := $00000004;
  70431. end;
  70432. procedure TCAN1_C1FIFOINT0.setRXFULLIF(thebits : TBits_1); inline;
  70433. begin
  70434. if thebits = 0 then
  70435. pTDefRegMap(@Self)^.clr := $00000004
  70436. else
  70437. pTDefRegMap(@Self)^.&set := $00000004;
  70438. end;
  70439. function TCAN1_C1FIFOINT0.getRXFULLIF : TBits_1; inline;
  70440. begin
  70441. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70442. end;
  70443. procedure TCAN1_C1FIFOINT0.setRXOVFLIF; inline;
  70444. begin
  70445. pTDefRegMap(@Self)^.&set := $00000008;
  70446. end;
  70447. procedure TCAN1_C1FIFOINT0.clearRXOVFLIF; inline;
  70448. begin
  70449. pTDefRegMap(@Self)^.clr := $00000008;
  70450. end;
  70451. procedure TCAN1_C1FIFOINT0.setRXOVFLIF(thebits : TBits_1); inline;
  70452. begin
  70453. if thebits = 0 then
  70454. pTDefRegMap(@Self)^.clr := $00000008
  70455. else
  70456. pTDefRegMap(@Self)^.&set := $00000008;
  70457. end;
  70458. function TCAN1_C1FIFOINT0.getRXOVFLIF : TBits_1; inline;
  70459. begin
  70460. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70461. end;
  70462. procedure TCAN1_C1FIFOINT0.setTXEMPTYIF; inline;
  70463. begin
  70464. pTDefRegMap(@Self)^.&set := $00000100;
  70465. end;
  70466. procedure TCAN1_C1FIFOINT0.clearTXEMPTYIF; inline;
  70467. begin
  70468. pTDefRegMap(@Self)^.clr := $00000100;
  70469. end;
  70470. procedure TCAN1_C1FIFOINT0.setTXEMPTYIF(thebits : TBits_1); inline;
  70471. begin
  70472. if thebits = 0 then
  70473. pTDefRegMap(@Self)^.clr := $00000100
  70474. else
  70475. pTDefRegMap(@Self)^.&set := $00000100;
  70476. end;
  70477. function TCAN1_C1FIFOINT0.getTXEMPTYIF : TBits_1; inline;
  70478. begin
  70479. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  70480. end;
  70481. procedure TCAN1_C1FIFOINT0.setTXHALFIF; inline;
  70482. begin
  70483. pTDefRegMap(@Self)^.&set := $00000200;
  70484. end;
  70485. procedure TCAN1_C1FIFOINT0.clearTXHALFIF; inline;
  70486. begin
  70487. pTDefRegMap(@Self)^.clr := $00000200;
  70488. end;
  70489. procedure TCAN1_C1FIFOINT0.setTXHALFIF(thebits : TBits_1); inline;
  70490. begin
  70491. if thebits = 0 then
  70492. pTDefRegMap(@Self)^.clr := $00000200
  70493. else
  70494. pTDefRegMap(@Self)^.&set := $00000200;
  70495. end;
  70496. function TCAN1_C1FIFOINT0.getTXHALFIF : TBits_1; inline;
  70497. begin
  70498. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  70499. end;
  70500. procedure TCAN1_C1FIFOINT0.setTXNFULLIF; inline;
  70501. begin
  70502. pTDefRegMap(@Self)^.&set := $00000400;
  70503. end;
  70504. procedure TCAN1_C1FIFOINT0.clearTXNFULLIF; inline;
  70505. begin
  70506. pTDefRegMap(@Self)^.clr := $00000400;
  70507. end;
  70508. procedure TCAN1_C1FIFOINT0.setTXNFULLIF(thebits : TBits_1); inline;
  70509. begin
  70510. if thebits = 0 then
  70511. pTDefRegMap(@Self)^.clr := $00000400
  70512. else
  70513. pTDefRegMap(@Self)^.&set := $00000400;
  70514. end;
  70515. function TCAN1_C1FIFOINT0.getTXNFULLIF : TBits_1; inline;
  70516. begin
  70517. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  70518. end;
  70519. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIE; inline;
  70520. begin
  70521. pTDefRegMap(@Self)^.&set := $00010000;
  70522. end;
  70523. procedure TCAN1_C1FIFOINT0.clearRXNEMPTYIE; inline;
  70524. begin
  70525. pTDefRegMap(@Self)^.clr := $00010000;
  70526. end;
  70527. procedure TCAN1_C1FIFOINT0.setRXNEMPTYIE(thebits : TBits_1); inline;
  70528. begin
  70529. if thebits = 0 then
  70530. pTDefRegMap(@Self)^.clr := $00010000
  70531. else
  70532. pTDefRegMap(@Self)^.&set := $00010000;
  70533. end;
  70534. function TCAN1_C1FIFOINT0.getRXNEMPTYIE : TBits_1; inline;
  70535. begin
  70536. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  70537. end;
  70538. procedure TCAN1_C1FIFOINT0.setRXHALFIE; inline;
  70539. begin
  70540. pTDefRegMap(@Self)^.&set := $00020000;
  70541. end;
  70542. procedure TCAN1_C1FIFOINT0.clearRXHALFIE; inline;
  70543. begin
  70544. pTDefRegMap(@Self)^.clr := $00020000;
  70545. end;
  70546. procedure TCAN1_C1FIFOINT0.setRXHALFIE(thebits : TBits_1); inline;
  70547. begin
  70548. if thebits = 0 then
  70549. pTDefRegMap(@Self)^.clr := $00020000
  70550. else
  70551. pTDefRegMap(@Self)^.&set := $00020000;
  70552. end;
  70553. function TCAN1_C1FIFOINT0.getRXHALFIE : TBits_1; inline;
  70554. begin
  70555. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  70556. end;
  70557. procedure TCAN1_C1FIFOINT0.setRXFULLIE; inline;
  70558. begin
  70559. pTDefRegMap(@Self)^.&set := $00040000;
  70560. end;
  70561. procedure TCAN1_C1FIFOINT0.clearRXFULLIE; inline;
  70562. begin
  70563. pTDefRegMap(@Self)^.clr := $00040000;
  70564. end;
  70565. procedure TCAN1_C1FIFOINT0.setRXFULLIE(thebits : TBits_1); inline;
  70566. begin
  70567. if thebits = 0 then
  70568. pTDefRegMap(@Self)^.clr := $00040000
  70569. else
  70570. pTDefRegMap(@Self)^.&set := $00040000;
  70571. end;
  70572. function TCAN1_C1FIFOINT0.getRXFULLIE : TBits_1; inline;
  70573. begin
  70574. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  70575. end;
  70576. procedure TCAN1_C1FIFOINT0.setRXOVFLIE; inline;
  70577. begin
  70578. pTDefRegMap(@Self)^.&set := $00080000;
  70579. end;
  70580. procedure TCAN1_C1FIFOINT0.clearRXOVFLIE; inline;
  70581. begin
  70582. pTDefRegMap(@Self)^.clr := $00080000;
  70583. end;
  70584. procedure TCAN1_C1FIFOINT0.setRXOVFLIE(thebits : TBits_1); inline;
  70585. begin
  70586. if thebits = 0 then
  70587. pTDefRegMap(@Self)^.clr := $00080000
  70588. else
  70589. pTDefRegMap(@Self)^.&set := $00080000;
  70590. end;
  70591. function TCAN1_C1FIFOINT0.getRXOVFLIE : TBits_1; inline;
  70592. begin
  70593. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  70594. end;
  70595. procedure TCAN1_C1FIFOINT0.setTXEMPTYIE; inline;
  70596. begin
  70597. pTDefRegMap(@Self)^.&set := $01000000;
  70598. end;
  70599. procedure TCAN1_C1FIFOINT0.clearTXEMPTYIE; inline;
  70600. begin
  70601. pTDefRegMap(@Self)^.clr := $01000000;
  70602. end;
  70603. procedure TCAN1_C1FIFOINT0.setTXEMPTYIE(thebits : TBits_1); inline;
  70604. begin
  70605. if thebits = 0 then
  70606. pTDefRegMap(@Self)^.clr := $01000000
  70607. else
  70608. pTDefRegMap(@Self)^.&set := $01000000;
  70609. end;
  70610. function TCAN1_C1FIFOINT0.getTXEMPTYIE : TBits_1; inline;
  70611. begin
  70612. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  70613. end;
  70614. procedure TCAN1_C1FIFOINT0.setTXHALFIE; inline;
  70615. begin
  70616. pTDefRegMap(@Self)^.&set := $02000000;
  70617. end;
  70618. procedure TCAN1_C1FIFOINT0.clearTXHALFIE; inline;
  70619. begin
  70620. pTDefRegMap(@Self)^.clr := $02000000;
  70621. end;
  70622. procedure TCAN1_C1FIFOINT0.setTXHALFIE(thebits : TBits_1); inline;
  70623. begin
  70624. if thebits = 0 then
  70625. pTDefRegMap(@Self)^.clr := $02000000
  70626. else
  70627. pTDefRegMap(@Self)^.&set := $02000000;
  70628. end;
  70629. function TCAN1_C1FIFOINT0.getTXHALFIE : TBits_1; inline;
  70630. begin
  70631. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  70632. end;
  70633. procedure TCAN1_C1FIFOINT0.setTXNFULLIE; inline;
  70634. begin
  70635. pTDefRegMap(@Self)^.&set := $04000000;
  70636. end;
  70637. procedure TCAN1_C1FIFOINT0.clearTXNFULLIE; inline;
  70638. begin
  70639. pTDefRegMap(@Self)^.clr := $04000000;
  70640. end;
  70641. procedure TCAN1_C1FIFOINT0.setTXNFULLIE(thebits : TBits_1); inline;
  70642. begin
  70643. if thebits = 0 then
  70644. pTDefRegMap(@Self)^.clr := $04000000
  70645. else
  70646. pTDefRegMap(@Self)^.&set := $04000000;
  70647. end;
  70648. function TCAN1_C1FIFOINT0.getTXNFULLIE : TBits_1; inline;
  70649. begin
  70650. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  70651. end;
  70652. procedure TCAN1_C1FIFOINT0.setw(thebits : TBits_32); inline;
  70653. begin
  70654. pTDefRegMap(@Self)^.val := thebits;
  70655. end;
  70656. function TCAN1_C1FIFOINT0.getw : TBits_32; inline;
  70657. begin
  70658. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70659. end;
  70660. procedure TCAN1_C1FIFOCI0.setCFIFOCI(thebits : TBits_5); inline;
  70661. begin
  70662. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  70663. end;
  70664. function TCAN1_C1FIFOCI0.getCFIFOCI : TBits_5; inline;
  70665. begin
  70666. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  70667. end;
  70668. procedure TCAN1_C1FIFOCI0.setw(thebits : TBits_32); inline;
  70669. begin
  70670. pTDefRegMap(@Self)^.val := thebits;
  70671. end;
  70672. function TCAN1_C1FIFOCI0.getw : TBits_32; inline;
  70673. begin
  70674. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70675. end;
  70676. procedure TCAN1_C1FIFOCON1.setTXPRI(thebits : TBits_2); inline;
  70677. begin
  70678. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  70679. end;
  70680. function TCAN1_C1FIFOCON1.getTXPRI : TBits_2; inline;
  70681. begin
  70682. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  70683. end;
  70684. procedure TCAN1_C1FIFOCON1.setRTREN; inline;
  70685. begin
  70686. pTDefRegMap(@Self)^.&set := $00000004;
  70687. end;
  70688. procedure TCAN1_C1FIFOCON1.clearRTREN; inline;
  70689. begin
  70690. pTDefRegMap(@Self)^.clr := $00000004;
  70691. end;
  70692. procedure TCAN1_C1FIFOCON1.setRTREN(thebits : TBits_1); inline;
  70693. begin
  70694. if thebits = 0 then
  70695. pTDefRegMap(@Self)^.clr := $00000004
  70696. else
  70697. pTDefRegMap(@Self)^.&set := $00000004;
  70698. end;
  70699. function TCAN1_C1FIFOCON1.getRTREN : TBits_1; inline;
  70700. begin
  70701. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70702. end;
  70703. procedure TCAN1_C1FIFOCON1.setTXREQ; inline;
  70704. begin
  70705. pTDefRegMap(@Self)^.&set := $00000008;
  70706. end;
  70707. procedure TCAN1_C1FIFOCON1.clearTXREQ; inline;
  70708. begin
  70709. pTDefRegMap(@Self)^.clr := $00000008;
  70710. end;
  70711. procedure TCAN1_C1FIFOCON1.setTXREQ(thebits : TBits_1); inline;
  70712. begin
  70713. if thebits = 0 then
  70714. pTDefRegMap(@Self)^.clr := $00000008
  70715. else
  70716. pTDefRegMap(@Self)^.&set := $00000008;
  70717. end;
  70718. function TCAN1_C1FIFOCON1.getTXREQ : TBits_1; inline;
  70719. begin
  70720. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70721. end;
  70722. procedure TCAN1_C1FIFOCON1.setTXERR; inline;
  70723. begin
  70724. pTDefRegMap(@Self)^.&set := $00000010;
  70725. end;
  70726. procedure TCAN1_C1FIFOCON1.clearTXERR; inline;
  70727. begin
  70728. pTDefRegMap(@Self)^.clr := $00000010;
  70729. end;
  70730. procedure TCAN1_C1FIFOCON1.setTXERR(thebits : TBits_1); inline;
  70731. begin
  70732. if thebits = 0 then
  70733. pTDefRegMap(@Self)^.clr := $00000010
  70734. else
  70735. pTDefRegMap(@Self)^.&set := $00000010;
  70736. end;
  70737. function TCAN1_C1FIFOCON1.getTXERR : TBits_1; inline;
  70738. begin
  70739. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  70740. end;
  70741. procedure TCAN1_C1FIFOCON1.setTXLARB; inline;
  70742. begin
  70743. pTDefRegMap(@Self)^.&set := $00000020;
  70744. end;
  70745. procedure TCAN1_C1FIFOCON1.clearTXLARB; inline;
  70746. begin
  70747. pTDefRegMap(@Self)^.clr := $00000020;
  70748. end;
  70749. procedure TCAN1_C1FIFOCON1.setTXLARB(thebits : TBits_1); inline;
  70750. begin
  70751. if thebits = 0 then
  70752. pTDefRegMap(@Self)^.clr := $00000020
  70753. else
  70754. pTDefRegMap(@Self)^.&set := $00000020;
  70755. end;
  70756. function TCAN1_C1FIFOCON1.getTXLARB : TBits_1; inline;
  70757. begin
  70758. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  70759. end;
  70760. procedure TCAN1_C1FIFOCON1.setTXABAT; inline;
  70761. begin
  70762. pTDefRegMap(@Self)^.&set := $00000040;
  70763. end;
  70764. procedure TCAN1_C1FIFOCON1.clearTXABAT; inline;
  70765. begin
  70766. pTDefRegMap(@Self)^.clr := $00000040;
  70767. end;
  70768. procedure TCAN1_C1FIFOCON1.setTXABAT(thebits : TBits_1); inline;
  70769. begin
  70770. if thebits = 0 then
  70771. pTDefRegMap(@Self)^.clr := $00000040
  70772. else
  70773. pTDefRegMap(@Self)^.&set := $00000040;
  70774. end;
  70775. function TCAN1_C1FIFOCON1.getTXABAT : TBits_1; inline;
  70776. begin
  70777. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  70778. end;
  70779. procedure TCAN1_C1FIFOCON1.setTXEN; inline;
  70780. begin
  70781. pTDefRegMap(@Self)^.&set := $00000080;
  70782. end;
  70783. procedure TCAN1_C1FIFOCON1.clearTXEN; inline;
  70784. begin
  70785. pTDefRegMap(@Self)^.clr := $00000080;
  70786. end;
  70787. procedure TCAN1_C1FIFOCON1.setTXEN(thebits : TBits_1); inline;
  70788. begin
  70789. if thebits = 0 then
  70790. pTDefRegMap(@Self)^.clr := $00000080
  70791. else
  70792. pTDefRegMap(@Self)^.&set := $00000080;
  70793. end;
  70794. function TCAN1_C1FIFOCON1.getTXEN : TBits_1; inline;
  70795. begin
  70796. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  70797. end;
  70798. procedure TCAN1_C1FIFOCON1.setDONLY; inline;
  70799. begin
  70800. pTDefRegMap(@Self)^.&set := $00001000;
  70801. end;
  70802. procedure TCAN1_C1FIFOCON1.clearDONLY; inline;
  70803. begin
  70804. pTDefRegMap(@Self)^.clr := $00001000;
  70805. end;
  70806. procedure TCAN1_C1FIFOCON1.setDONLY(thebits : TBits_1); inline;
  70807. begin
  70808. if thebits = 0 then
  70809. pTDefRegMap(@Self)^.clr := $00001000
  70810. else
  70811. pTDefRegMap(@Self)^.&set := $00001000;
  70812. end;
  70813. function TCAN1_C1FIFOCON1.getDONLY : TBits_1; inline;
  70814. begin
  70815. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  70816. end;
  70817. procedure TCAN1_C1FIFOCON1.setUINC; inline;
  70818. begin
  70819. pTDefRegMap(@Self)^.&set := $00002000;
  70820. end;
  70821. procedure TCAN1_C1FIFOCON1.clearUINC; inline;
  70822. begin
  70823. pTDefRegMap(@Self)^.clr := $00002000;
  70824. end;
  70825. procedure TCAN1_C1FIFOCON1.setUINC(thebits : TBits_1); inline;
  70826. begin
  70827. if thebits = 0 then
  70828. pTDefRegMap(@Self)^.clr := $00002000
  70829. else
  70830. pTDefRegMap(@Self)^.&set := $00002000;
  70831. end;
  70832. function TCAN1_C1FIFOCON1.getUINC : TBits_1; inline;
  70833. begin
  70834. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  70835. end;
  70836. procedure TCAN1_C1FIFOCON1.setFRESET; inline;
  70837. begin
  70838. pTDefRegMap(@Self)^.&set := $00004000;
  70839. end;
  70840. procedure TCAN1_C1FIFOCON1.clearFRESET; inline;
  70841. begin
  70842. pTDefRegMap(@Self)^.clr := $00004000;
  70843. end;
  70844. procedure TCAN1_C1FIFOCON1.setFRESET(thebits : TBits_1); inline;
  70845. begin
  70846. if thebits = 0 then
  70847. pTDefRegMap(@Self)^.clr := $00004000
  70848. else
  70849. pTDefRegMap(@Self)^.&set := $00004000;
  70850. end;
  70851. function TCAN1_C1FIFOCON1.getFRESET : TBits_1; inline;
  70852. begin
  70853. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  70854. end;
  70855. procedure TCAN1_C1FIFOCON1.setFSIZE(thebits : TBits_5); inline;
  70856. begin
  70857. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  70858. end;
  70859. function TCAN1_C1FIFOCON1.getFSIZE : TBits_5; inline;
  70860. begin
  70861. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  70862. end;
  70863. procedure TCAN1_C1FIFOCON1.setw(thebits : TBits_32); inline;
  70864. begin
  70865. pTDefRegMap(@Self)^.val := thebits;
  70866. end;
  70867. function TCAN1_C1FIFOCON1.getw : TBits_32; inline;
  70868. begin
  70869. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  70870. end;
  70871. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIF; inline;
  70872. begin
  70873. pTDefRegMap(@Self)^.&set := $00000001;
  70874. end;
  70875. procedure TCAN1_C1FIFOINT1.clearRXNEMPTYIF; inline;
  70876. begin
  70877. pTDefRegMap(@Self)^.clr := $00000001;
  70878. end;
  70879. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIF(thebits : TBits_1); inline;
  70880. begin
  70881. if thebits = 0 then
  70882. pTDefRegMap(@Self)^.clr := $00000001
  70883. else
  70884. pTDefRegMap(@Self)^.&set := $00000001;
  70885. end;
  70886. function TCAN1_C1FIFOINT1.getRXNEMPTYIF : TBits_1; inline;
  70887. begin
  70888. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  70889. end;
  70890. procedure TCAN1_C1FIFOINT1.setRXHALFIF; inline;
  70891. begin
  70892. pTDefRegMap(@Self)^.&set := $00000002;
  70893. end;
  70894. procedure TCAN1_C1FIFOINT1.clearRXHALFIF; inline;
  70895. begin
  70896. pTDefRegMap(@Self)^.clr := $00000002;
  70897. end;
  70898. procedure TCAN1_C1FIFOINT1.setRXHALFIF(thebits : TBits_1); inline;
  70899. begin
  70900. if thebits = 0 then
  70901. pTDefRegMap(@Self)^.clr := $00000002
  70902. else
  70903. pTDefRegMap(@Self)^.&set := $00000002;
  70904. end;
  70905. function TCAN1_C1FIFOINT1.getRXHALFIF : TBits_1; inline;
  70906. begin
  70907. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  70908. end;
  70909. procedure TCAN1_C1FIFOINT1.setRXFULLIF; inline;
  70910. begin
  70911. pTDefRegMap(@Self)^.&set := $00000004;
  70912. end;
  70913. procedure TCAN1_C1FIFOINT1.clearRXFULLIF; inline;
  70914. begin
  70915. pTDefRegMap(@Self)^.clr := $00000004;
  70916. end;
  70917. procedure TCAN1_C1FIFOINT1.setRXFULLIF(thebits : TBits_1); inline;
  70918. begin
  70919. if thebits = 0 then
  70920. pTDefRegMap(@Self)^.clr := $00000004
  70921. else
  70922. pTDefRegMap(@Self)^.&set := $00000004;
  70923. end;
  70924. function TCAN1_C1FIFOINT1.getRXFULLIF : TBits_1; inline;
  70925. begin
  70926. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  70927. end;
  70928. procedure TCAN1_C1FIFOINT1.setRXOVFLIF; inline;
  70929. begin
  70930. pTDefRegMap(@Self)^.&set := $00000008;
  70931. end;
  70932. procedure TCAN1_C1FIFOINT1.clearRXOVFLIF; inline;
  70933. begin
  70934. pTDefRegMap(@Self)^.clr := $00000008;
  70935. end;
  70936. procedure TCAN1_C1FIFOINT1.setRXOVFLIF(thebits : TBits_1); inline;
  70937. begin
  70938. if thebits = 0 then
  70939. pTDefRegMap(@Self)^.clr := $00000008
  70940. else
  70941. pTDefRegMap(@Self)^.&set := $00000008;
  70942. end;
  70943. function TCAN1_C1FIFOINT1.getRXOVFLIF : TBits_1; inline;
  70944. begin
  70945. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  70946. end;
  70947. procedure TCAN1_C1FIFOINT1.setTXEMPTYIF; inline;
  70948. begin
  70949. pTDefRegMap(@Self)^.&set := $00000100;
  70950. end;
  70951. procedure TCAN1_C1FIFOINT1.clearTXEMPTYIF; inline;
  70952. begin
  70953. pTDefRegMap(@Self)^.clr := $00000100;
  70954. end;
  70955. procedure TCAN1_C1FIFOINT1.setTXEMPTYIF(thebits : TBits_1); inline;
  70956. begin
  70957. if thebits = 0 then
  70958. pTDefRegMap(@Self)^.clr := $00000100
  70959. else
  70960. pTDefRegMap(@Self)^.&set := $00000100;
  70961. end;
  70962. function TCAN1_C1FIFOINT1.getTXEMPTYIF : TBits_1; inline;
  70963. begin
  70964. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  70965. end;
  70966. procedure TCAN1_C1FIFOINT1.setTXHALFIF; inline;
  70967. begin
  70968. pTDefRegMap(@Self)^.&set := $00000200;
  70969. end;
  70970. procedure TCAN1_C1FIFOINT1.clearTXHALFIF; inline;
  70971. begin
  70972. pTDefRegMap(@Self)^.clr := $00000200;
  70973. end;
  70974. procedure TCAN1_C1FIFOINT1.setTXHALFIF(thebits : TBits_1); inline;
  70975. begin
  70976. if thebits = 0 then
  70977. pTDefRegMap(@Self)^.clr := $00000200
  70978. else
  70979. pTDefRegMap(@Self)^.&set := $00000200;
  70980. end;
  70981. function TCAN1_C1FIFOINT1.getTXHALFIF : TBits_1; inline;
  70982. begin
  70983. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  70984. end;
  70985. procedure TCAN1_C1FIFOINT1.setTXNFULLIF; inline;
  70986. begin
  70987. pTDefRegMap(@Self)^.&set := $00000400;
  70988. end;
  70989. procedure TCAN1_C1FIFOINT1.clearTXNFULLIF; inline;
  70990. begin
  70991. pTDefRegMap(@Self)^.clr := $00000400;
  70992. end;
  70993. procedure TCAN1_C1FIFOINT1.setTXNFULLIF(thebits : TBits_1); inline;
  70994. begin
  70995. if thebits = 0 then
  70996. pTDefRegMap(@Self)^.clr := $00000400
  70997. else
  70998. pTDefRegMap(@Self)^.&set := $00000400;
  70999. end;
  71000. function TCAN1_C1FIFOINT1.getTXNFULLIF : TBits_1; inline;
  71001. begin
  71002. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  71003. end;
  71004. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIE; inline;
  71005. begin
  71006. pTDefRegMap(@Self)^.&set := $00010000;
  71007. end;
  71008. procedure TCAN1_C1FIFOINT1.clearRXNEMPTYIE; inline;
  71009. begin
  71010. pTDefRegMap(@Self)^.clr := $00010000;
  71011. end;
  71012. procedure TCAN1_C1FIFOINT1.setRXNEMPTYIE(thebits : TBits_1); inline;
  71013. begin
  71014. if thebits = 0 then
  71015. pTDefRegMap(@Self)^.clr := $00010000
  71016. else
  71017. pTDefRegMap(@Self)^.&set := $00010000;
  71018. end;
  71019. function TCAN1_C1FIFOINT1.getRXNEMPTYIE : TBits_1; inline;
  71020. begin
  71021. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  71022. end;
  71023. procedure TCAN1_C1FIFOINT1.setRXHALFIE; inline;
  71024. begin
  71025. pTDefRegMap(@Self)^.&set := $00020000;
  71026. end;
  71027. procedure TCAN1_C1FIFOINT1.clearRXHALFIE; inline;
  71028. begin
  71029. pTDefRegMap(@Self)^.clr := $00020000;
  71030. end;
  71031. procedure TCAN1_C1FIFOINT1.setRXHALFIE(thebits : TBits_1); inline;
  71032. begin
  71033. if thebits = 0 then
  71034. pTDefRegMap(@Self)^.clr := $00020000
  71035. else
  71036. pTDefRegMap(@Self)^.&set := $00020000;
  71037. end;
  71038. function TCAN1_C1FIFOINT1.getRXHALFIE : TBits_1; inline;
  71039. begin
  71040. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  71041. end;
  71042. procedure TCAN1_C1FIFOINT1.setRXFULLIE; inline;
  71043. begin
  71044. pTDefRegMap(@Self)^.&set := $00040000;
  71045. end;
  71046. procedure TCAN1_C1FIFOINT1.clearRXFULLIE; inline;
  71047. begin
  71048. pTDefRegMap(@Self)^.clr := $00040000;
  71049. end;
  71050. procedure TCAN1_C1FIFOINT1.setRXFULLIE(thebits : TBits_1); inline;
  71051. begin
  71052. if thebits = 0 then
  71053. pTDefRegMap(@Self)^.clr := $00040000
  71054. else
  71055. pTDefRegMap(@Self)^.&set := $00040000;
  71056. end;
  71057. function TCAN1_C1FIFOINT1.getRXFULLIE : TBits_1; inline;
  71058. begin
  71059. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  71060. end;
  71061. procedure TCAN1_C1FIFOINT1.setRXOVFLIE; inline;
  71062. begin
  71063. pTDefRegMap(@Self)^.&set := $00080000;
  71064. end;
  71065. procedure TCAN1_C1FIFOINT1.clearRXOVFLIE; inline;
  71066. begin
  71067. pTDefRegMap(@Self)^.clr := $00080000;
  71068. end;
  71069. procedure TCAN1_C1FIFOINT1.setRXOVFLIE(thebits : TBits_1); inline;
  71070. begin
  71071. if thebits = 0 then
  71072. pTDefRegMap(@Self)^.clr := $00080000
  71073. else
  71074. pTDefRegMap(@Self)^.&set := $00080000;
  71075. end;
  71076. function TCAN1_C1FIFOINT1.getRXOVFLIE : TBits_1; inline;
  71077. begin
  71078. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  71079. end;
  71080. procedure TCAN1_C1FIFOINT1.setTXEMPTYIE; inline;
  71081. begin
  71082. pTDefRegMap(@Self)^.&set := $01000000;
  71083. end;
  71084. procedure TCAN1_C1FIFOINT1.clearTXEMPTYIE; inline;
  71085. begin
  71086. pTDefRegMap(@Self)^.clr := $01000000;
  71087. end;
  71088. procedure TCAN1_C1FIFOINT1.setTXEMPTYIE(thebits : TBits_1); inline;
  71089. begin
  71090. if thebits = 0 then
  71091. pTDefRegMap(@Self)^.clr := $01000000
  71092. else
  71093. pTDefRegMap(@Self)^.&set := $01000000;
  71094. end;
  71095. function TCAN1_C1FIFOINT1.getTXEMPTYIE : TBits_1; inline;
  71096. begin
  71097. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  71098. end;
  71099. procedure TCAN1_C1FIFOINT1.setTXHALFIE; inline;
  71100. begin
  71101. pTDefRegMap(@Self)^.&set := $02000000;
  71102. end;
  71103. procedure TCAN1_C1FIFOINT1.clearTXHALFIE; inline;
  71104. begin
  71105. pTDefRegMap(@Self)^.clr := $02000000;
  71106. end;
  71107. procedure TCAN1_C1FIFOINT1.setTXHALFIE(thebits : TBits_1); inline;
  71108. begin
  71109. if thebits = 0 then
  71110. pTDefRegMap(@Self)^.clr := $02000000
  71111. else
  71112. pTDefRegMap(@Self)^.&set := $02000000;
  71113. end;
  71114. function TCAN1_C1FIFOINT1.getTXHALFIE : TBits_1; inline;
  71115. begin
  71116. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  71117. end;
  71118. procedure TCAN1_C1FIFOINT1.setTXNFULLIE; inline;
  71119. begin
  71120. pTDefRegMap(@Self)^.&set := $04000000;
  71121. end;
  71122. procedure TCAN1_C1FIFOINT1.clearTXNFULLIE; inline;
  71123. begin
  71124. pTDefRegMap(@Self)^.clr := $04000000;
  71125. end;
  71126. procedure TCAN1_C1FIFOINT1.setTXNFULLIE(thebits : TBits_1); inline;
  71127. begin
  71128. if thebits = 0 then
  71129. pTDefRegMap(@Self)^.clr := $04000000
  71130. else
  71131. pTDefRegMap(@Self)^.&set := $04000000;
  71132. end;
  71133. function TCAN1_C1FIFOINT1.getTXNFULLIE : TBits_1; inline;
  71134. begin
  71135. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  71136. end;
  71137. procedure TCAN1_C1FIFOINT1.setw(thebits : TBits_32); inline;
  71138. begin
  71139. pTDefRegMap(@Self)^.val := thebits;
  71140. end;
  71141. function TCAN1_C1FIFOINT1.getw : TBits_32; inline;
  71142. begin
  71143. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71144. end;
  71145. procedure TCAN1_C1FIFOCI1.setCFIFOCI(thebits : TBits_5); inline;
  71146. begin
  71147. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71148. end;
  71149. function TCAN1_C1FIFOCI1.getCFIFOCI : TBits_5; inline;
  71150. begin
  71151. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71152. end;
  71153. procedure TCAN1_C1FIFOCI1.setw(thebits : TBits_32); inline;
  71154. begin
  71155. pTDefRegMap(@Self)^.val := thebits;
  71156. end;
  71157. function TCAN1_C1FIFOCI1.getw : TBits_32; inline;
  71158. begin
  71159. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71160. end;
  71161. procedure TCAN1_C1FIFOCON2.setTXPRI(thebits : TBits_2); inline;
  71162. begin
  71163. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  71164. end;
  71165. function TCAN1_C1FIFOCON2.getTXPRI : TBits_2; inline;
  71166. begin
  71167. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  71168. end;
  71169. procedure TCAN1_C1FIFOCON2.setRTREN; inline;
  71170. begin
  71171. pTDefRegMap(@Self)^.&set := $00000004;
  71172. end;
  71173. procedure TCAN1_C1FIFOCON2.clearRTREN; inline;
  71174. begin
  71175. pTDefRegMap(@Self)^.clr := $00000004;
  71176. end;
  71177. procedure TCAN1_C1FIFOCON2.setRTREN(thebits : TBits_1); inline;
  71178. begin
  71179. if thebits = 0 then
  71180. pTDefRegMap(@Self)^.clr := $00000004
  71181. else
  71182. pTDefRegMap(@Self)^.&set := $00000004;
  71183. end;
  71184. function TCAN1_C1FIFOCON2.getRTREN : TBits_1; inline;
  71185. begin
  71186. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  71187. end;
  71188. procedure TCAN1_C1FIFOCON2.setTXREQ; inline;
  71189. begin
  71190. pTDefRegMap(@Self)^.&set := $00000008;
  71191. end;
  71192. procedure TCAN1_C1FIFOCON2.clearTXREQ; inline;
  71193. begin
  71194. pTDefRegMap(@Self)^.clr := $00000008;
  71195. end;
  71196. procedure TCAN1_C1FIFOCON2.setTXREQ(thebits : TBits_1); inline;
  71197. begin
  71198. if thebits = 0 then
  71199. pTDefRegMap(@Self)^.clr := $00000008
  71200. else
  71201. pTDefRegMap(@Self)^.&set := $00000008;
  71202. end;
  71203. function TCAN1_C1FIFOCON2.getTXREQ : TBits_1; inline;
  71204. begin
  71205. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  71206. end;
  71207. procedure TCAN1_C1FIFOCON2.setTXERR; inline;
  71208. begin
  71209. pTDefRegMap(@Self)^.&set := $00000010;
  71210. end;
  71211. procedure TCAN1_C1FIFOCON2.clearTXERR; inline;
  71212. begin
  71213. pTDefRegMap(@Self)^.clr := $00000010;
  71214. end;
  71215. procedure TCAN1_C1FIFOCON2.setTXERR(thebits : TBits_1); inline;
  71216. begin
  71217. if thebits = 0 then
  71218. pTDefRegMap(@Self)^.clr := $00000010
  71219. else
  71220. pTDefRegMap(@Self)^.&set := $00000010;
  71221. end;
  71222. function TCAN1_C1FIFOCON2.getTXERR : TBits_1; inline;
  71223. begin
  71224. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  71225. end;
  71226. procedure TCAN1_C1FIFOCON2.setTXLARB; inline;
  71227. begin
  71228. pTDefRegMap(@Self)^.&set := $00000020;
  71229. end;
  71230. procedure TCAN1_C1FIFOCON2.clearTXLARB; inline;
  71231. begin
  71232. pTDefRegMap(@Self)^.clr := $00000020;
  71233. end;
  71234. procedure TCAN1_C1FIFOCON2.setTXLARB(thebits : TBits_1); inline;
  71235. begin
  71236. if thebits = 0 then
  71237. pTDefRegMap(@Self)^.clr := $00000020
  71238. else
  71239. pTDefRegMap(@Self)^.&set := $00000020;
  71240. end;
  71241. function TCAN1_C1FIFOCON2.getTXLARB : TBits_1; inline;
  71242. begin
  71243. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  71244. end;
  71245. procedure TCAN1_C1FIFOCON2.setTXABAT; inline;
  71246. begin
  71247. pTDefRegMap(@Self)^.&set := $00000040;
  71248. end;
  71249. procedure TCAN1_C1FIFOCON2.clearTXABAT; inline;
  71250. begin
  71251. pTDefRegMap(@Self)^.clr := $00000040;
  71252. end;
  71253. procedure TCAN1_C1FIFOCON2.setTXABAT(thebits : TBits_1); inline;
  71254. begin
  71255. if thebits = 0 then
  71256. pTDefRegMap(@Self)^.clr := $00000040
  71257. else
  71258. pTDefRegMap(@Self)^.&set := $00000040;
  71259. end;
  71260. function TCAN1_C1FIFOCON2.getTXABAT : TBits_1; inline;
  71261. begin
  71262. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  71263. end;
  71264. procedure TCAN1_C1FIFOCON2.setTXEN; inline;
  71265. begin
  71266. pTDefRegMap(@Self)^.&set := $00000080;
  71267. end;
  71268. procedure TCAN1_C1FIFOCON2.clearTXEN; inline;
  71269. begin
  71270. pTDefRegMap(@Self)^.clr := $00000080;
  71271. end;
  71272. procedure TCAN1_C1FIFOCON2.setTXEN(thebits : TBits_1); inline;
  71273. begin
  71274. if thebits = 0 then
  71275. pTDefRegMap(@Self)^.clr := $00000080
  71276. else
  71277. pTDefRegMap(@Self)^.&set := $00000080;
  71278. end;
  71279. function TCAN1_C1FIFOCON2.getTXEN : TBits_1; inline;
  71280. begin
  71281. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71282. end;
  71283. procedure TCAN1_C1FIFOCON2.setDONLY; inline;
  71284. begin
  71285. pTDefRegMap(@Self)^.&set := $00001000;
  71286. end;
  71287. procedure TCAN1_C1FIFOCON2.clearDONLY; inline;
  71288. begin
  71289. pTDefRegMap(@Self)^.clr := $00001000;
  71290. end;
  71291. procedure TCAN1_C1FIFOCON2.setDONLY(thebits : TBits_1); inline;
  71292. begin
  71293. if thebits = 0 then
  71294. pTDefRegMap(@Self)^.clr := $00001000
  71295. else
  71296. pTDefRegMap(@Self)^.&set := $00001000;
  71297. end;
  71298. function TCAN1_C1FIFOCON2.getDONLY : TBits_1; inline;
  71299. begin
  71300. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  71301. end;
  71302. procedure TCAN1_C1FIFOCON2.setUINC; inline;
  71303. begin
  71304. pTDefRegMap(@Self)^.&set := $00002000;
  71305. end;
  71306. procedure TCAN1_C1FIFOCON2.clearUINC; inline;
  71307. begin
  71308. pTDefRegMap(@Self)^.clr := $00002000;
  71309. end;
  71310. procedure TCAN1_C1FIFOCON2.setUINC(thebits : TBits_1); inline;
  71311. begin
  71312. if thebits = 0 then
  71313. pTDefRegMap(@Self)^.clr := $00002000
  71314. else
  71315. pTDefRegMap(@Self)^.&set := $00002000;
  71316. end;
  71317. function TCAN1_C1FIFOCON2.getUINC : TBits_1; inline;
  71318. begin
  71319. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  71320. end;
  71321. procedure TCAN1_C1FIFOCON2.setFRESET; inline;
  71322. begin
  71323. pTDefRegMap(@Self)^.&set := $00004000;
  71324. end;
  71325. procedure TCAN1_C1FIFOCON2.clearFRESET; inline;
  71326. begin
  71327. pTDefRegMap(@Self)^.clr := $00004000;
  71328. end;
  71329. procedure TCAN1_C1FIFOCON2.setFRESET(thebits : TBits_1); inline;
  71330. begin
  71331. if thebits = 0 then
  71332. pTDefRegMap(@Self)^.clr := $00004000
  71333. else
  71334. pTDefRegMap(@Self)^.&set := $00004000;
  71335. end;
  71336. function TCAN1_C1FIFOCON2.getFRESET : TBits_1; inline;
  71337. begin
  71338. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  71339. end;
  71340. procedure TCAN1_C1FIFOCON2.setFSIZE(thebits : TBits_5); inline;
  71341. begin
  71342. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71343. end;
  71344. function TCAN1_C1FIFOCON2.getFSIZE : TBits_5; inline;
  71345. begin
  71346. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71347. end;
  71348. procedure TCAN1_C1FIFOCON2.setw(thebits : TBits_32); inline;
  71349. begin
  71350. pTDefRegMap(@Self)^.val := thebits;
  71351. end;
  71352. function TCAN1_C1FIFOCON2.getw : TBits_32; inline;
  71353. begin
  71354. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71355. end;
  71356. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIF; inline;
  71357. begin
  71358. pTDefRegMap(@Self)^.&set := $00000001;
  71359. end;
  71360. procedure TCAN1_C1FIFOINT2.clearRXNEMPTYIF; inline;
  71361. begin
  71362. pTDefRegMap(@Self)^.clr := $00000001;
  71363. end;
  71364. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIF(thebits : TBits_1); inline;
  71365. begin
  71366. if thebits = 0 then
  71367. pTDefRegMap(@Self)^.clr := $00000001
  71368. else
  71369. pTDefRegMap(@Self)^.&set := $00000001;
  71370. end;
  71371. function TCAN1_C1FIFOINT2.getRXNEMPTYIF : TBits_1; inline;
  71372. begin
  71373. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  71374. end;
  71375. procedure TCAN1_C1FIFOINT2.setRXHALFIF; inline;
  71376. begin
  71377. pTDefRegMap(@Self)^.&set := $00000002;
  71378. end;
  71379. procedure TCAN1_C1FIFOINT2.clearRXHALFIF; inline;
  71380. begin
  71381. pTDefRegMap(@Self)^.clr := $00000002;
  71382. end;
  71383. procedure TCAN1_C1FIFOINT2.setRXHALFIF(thebits : TBits_1); inline;
  71384. begin
  71385. if thebits = 0 then
  71386. pTDefRegMap(@Self)^.clr := $00000002
  71387. else
  71388. pTDefRegMap(@Self)^.&set := $00000002;
  71389. end;
  71390. function TCAN1_C1FIFOINT2.getRXHALFIF : TBits_1; inline;
  71391. begin
  71392. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  71393. end;
  71394. procedure TCAN1_C1FIFOINT2.setRXFULLIF; inline;
  71395. begin
  71396. pTDefRegMap(@Self)^.&set := $00000004;
  71397. end;
  71398. procedure TCAN1_C1FIFOINT2.clearRXFULLIF; inline;
  71399. begin
  71400. pTDefRegMap(@Self)^.clr := $00000004;
  71401. end;
  71402. procedure TCAN1_C1FIFOINT2.setRXFULLIF(thebits : TBits_1); inline;
  71403. begin
  71404. if thebits = 0 then
  71405. pTDefRegMap(@Self)^.clr := $00000004
  71406. else
  71407. pTDefRegMap(@Self)^.&set := $00000004;
  71408. end;
  71409. function TCAN1_C1FIFOINT2.getRXFULLIF : TBits_1; inline;
  71410. begin
  71411. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  71412. end;
  71413. procedure TCAN1_C1FIFOINT2.setRXOVFLIF; inline;
  71414. begin
  71415. pTDefRegMap(@Self)^.&set := $00000008;
  71416. end;
  71417. procedure TCAN1_C1FIFOINT2.clearRXOVFLIF; inline;
  71418. begin
  71419. pTDefRegMap(@Self)^.clr := $00000008;
  71420. end;
  71421. procedure TCAN1_C1FIFOINT2.setRXOVFLIF(thebits : TBits_1); inline;
  71422. begin
  71423. if thebits = 0 then
  71424. pTDefRegMap(@Self)^.clr := $00000008
  71425. else
  71426. pTDefRegMap(@Self)^.&set := $00000008;
  71427. end;
  71428. function TCAN1_C1FIFOINT2.getRXOVFLIF : TBits_1; inline;
  71429. begin
  71430. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  71431. end;
  71432. procedure TCAN1_C1FIFOINT2.setTXEMPTYIF; inline;
  71433. begin
  71434. pTDefRegMap(@Self)^.&set := $00000100;
  71435. end;
  71436. procedure TCAN1_C1FIFOINT2.clearTXEMPTYIF; inline;
  71437. begin
  71438. pTDefRegMap(@Self)^.clr := $00000100;
  71439. end;
  71440. procedure TCAN1_C1FIFOINT2.setTXEMPTYIF(thebits : TBits_1); inline;
  71441. begin
  71442. if thebits = 0 then
  71443. pTDefRegMap(@Self)^.clr := $00000100
  71444. else
  71445. pTDefRegMap(@Self)^.&set := $00000100;
  71446. end;
  71447. function TCAN1_C1FIFOINT2.getTXEMPTYIF : TBits_1; inline;
  71448. begin
  71449. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  71450. end;
  71451. procedure TCAN1_C1FIFOINT2.setTXHALFIF; inline;
  71452. begin
  71453. pTDefRegMap(@Self)^.&set := $00000200;
  71454. end;
  71455. procedure TCAN1_C1FIFOINT2.clearTXHALFIF; inline;
  71456. begin
  71457. pTDefRegMap(@Self)^.clr := $00000200;
  71458. end;
  71459. procedure TCAN1_C1FIFOINT2.setTXHALFIF(thebits : TBits_1); inline;
  71460. begin
  71461. if thebits = 0 then
  71462. pTDefRegMap(@Self)^.clr := $00000200
  71463. else
  71464. pTDefRegMap(@Self)^.&set := $00000200;
  71465. end;
  71466. function TCAN1_C1FIFOINT2.getTXHALFIF : TBits_1; inline;
  71467. begin
  71468. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  71469. end;
  71470. procedure TCAN1_C1FIFOINT2.setTXNFULLIF; inline;
  71471. begin
  71472. pTDefRegMap(@Self)^.&set := $00000400;
  71473. end;
  71474. procedure TCAN1_C1FIFOINT2.clearTXNFULLIF; inline;
  71475. begin
  71476. pTDefRegMap(@Self)^.clr := $00000400;
  71477. end;
  71478. procedure TCAN1_C1FIFOINT2.setTXNFULLIF(thebits : TBits_1); inline;
  71479. begin
  71480. if thebits = 0 then
  71481. pTDefRegMap(@Self)^.clr := $00000400
  71482. else
  71483. pTDefRegMap(@Self)^.&set := $00000400;
  71484. end;
  71485. function TCAN1_C1FIFOINT2.getTXNFULLIF : TBits_1; inline;
  71486. begin
  71487. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  71488. end;
  71489. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIE; inline;
  71490. begin
  71491. pTDefRegMap(@Self)^.&set := $00010000;
  71492. end;
  71493. procedure TCAN1_C1FIFOINT2.clearRXNEMPTYIE; inline;
  71494. begin
  71495. pTDefRegMap(@Self)^.clr := $00010000;
  71496. end;
  71497. procedure TCAN1_C1FIFOINT2.setRXNEMPTYIE(thebits : TBits_1); inline;
  71498. begin
  71499. if thebits = 0 then
  71500. pTDefRegMap(@Self)^.clr := $00010000
  71501. else
  71502. pTDefRegMap(@Self)^.&set := $00010000;
  71503. end;
  71504. function TCAN1_C1FIFOINT2.getRXNEMPTYIE : TBits_1; inline;
  71505. begin
  71506. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  71507. end;
  71508. procedure TCAN1_C1FIFOINT2.setRXHALFIE; inline;
  71509. begin
  71510. pTDefRegMap(@Self)^.&set := $00020000;
  71511. end;
  71512. procedure TCAN1_C1FIFOINT2.clearRXHALFIE; inline;
  71513. begin
  71514. pTDefRegMap(@Self)^.clr := $00020000;
  71515. end;
  71516. procedure TCAN1_C1FIFOINT2.setRXHALFIE(thebits : TBits_1); inline;
  71517. begin
  71518. if thebits = 0 then
  71519. pTDefRegMap(@Self)^.clr := $00020000
  71520. else
  71521. pTDefRegMap(@Self)^.&set := $00020000;
  71522. end;
  71523. function TCAN1_C1FIFOINT2.getRXHALFIE : TBits_1; inline;
  71524. begin
  71525. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  71526. end;
  71527. procedure TCAN1_C1FIFOINT2.setRXFULLIE; inline;
  71528. begin
  71529. pTDefRegMap(@Self)^.&set := $00040000;
  71530. end;
  71531. procedure TCAN1_C1FIFOINT2.clearRXFULLIE; inline;
  71532. begin
  71533. pTDefRegMap(@Self)^.clr := $00040000;
  71534. end;
  71535. procedure TCAN1_C1FIFOINT2.setRXFULLIE(thebits : TBits_1); inline;
  71536. begin
  71537. if thebits = 0 then
  71538. pTDefRegMap(@Self)^.clr := $00040000
  71539. else
  71540. pTDefRegMap(@Self)^.&set := $00040000;
  71541. end;
  71542. function TCAN1_C1FIFOINT2.getRXFULLIE : TBits_1; inline;
  71543. begin
  71544. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  71545. end;
  71546. procedure TCAN1_C1FIFOINT2.setRXOVFLIE; inline;
  71547. begin
  71548. pTDefRegMap(@Self)^.&set := $00080000;
  71549. end;
  71550. procedure TCAN1_C1FIFOINT2.clearRXOVFLIE; inline;
  71551. begin
  71552. pTDefRegMap(@Self)^.clr := $00080000;
  71553. end;
  71554. procedure TCAN1_C1FIFOINT2.setRXOVFLIE(thebits : TBits_1); inline;
  71555. begin
  71556. if thebits = 0 then
  71557. pTDefRegMap(@Self)^.clr := $00080000
  71558. else
  71559. pTDefRegMap(@Self)^.&set := $00080000;
  71560. end;
  71561. function TCAN1_C1FIFOINT2.getRXOVFLIE : TBits_1; inline;
  71562. begin
  71563. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  71564. end;
  71565. procedure TCAN1_C1FIFOINT2.setTXEMPTYIE; inline;
  71566. begin
  71567. pTDefRegMap(@Self)^.&set := $01000000;
  71568. end;
  71569. procedure TCAN1_C1FIFOINT2.clearTXEMPTYIE; inline;
  71570. begin
  71571. pTDefRegMap(@Self)^.clr := $01000000;
  71572. end;
  71573. procedure TCAN1_C1FIFOINT2.setTXEMPTYIE(thebits : TBits_1); inline;
  71574. begin
  71575. if thebits = 0 then
  71576. pTDefRegMap(@Self)^.clr := $01000000
  71577. else
  71578. pTDefRegMap(@Self)^.&set := $01000000;
  71579. end;
  71580. function TCAN1_C1FIFOINT2.getTXEMPTYIE : TBits_1; inline;
  71581. begin
  71582. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  71583. end;
  71584. procedure TCAN1_C1FIFOINT2.setTXHALFIE; inline;
  71585. begin
  71586. pTDefRegMap(@Self)^.&set := $02000000;
  71587. end;
  71588. procedure TCAN1_C1FIFOINT2.clearTXHALFIE; inline;
  71589. begin
  71590. pTDefRegMap(@Self)^.clr := $02000000;
  71591. end;
  71592. procedure TCAN1_C1FIFOINT2.setTXHALFIE(thebits : TBits_1); inline;
  71593. begin
  71594. if thebits = 0 then
  71595. pTDefRegMap(@Self)^.clr := $02000000
  71596. else
  71597. pTDefRegMap(@Self)^.&set := $02000000;
  71598. end;
  71599. function TCAN1_C1FIFOINT2.getTXHALFIE : TBits_1; inline;
  71600. begin
  71601. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  71602. end;
  71603. procedure TCAN1_C1FIFOINT2.setTXNFULLIE; inline;
  71604. begin
  71605. pTDefRegMap(@Self)^.&set := $04000000;
  71606. end;
  71607. procedure TCAN1_C1FIFOINT2.clearTXNFULLIE; inline;
  71608. begin
  71609. pTDefRegMap(@Self)^.clr := $04000000;
  71610. end;
  71611. procedure TCAN1_C1FIFOINT2.setTXNFULLIE(thebits : TBits_1); inline;
  71612. begin
  71613. if thebits = 0 then
  71614. pTDefRegMap(@Self)^.clr := $04000000
  71615. else
  71616. pTDefRegMap(@Self)^.&set := $04000000;
  71617. end;
  71618. function TCAN1_C1FIFOINT2.getTXNFULLIE : TBits_1; inline;
  71619. begin
  71620. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  71621. end;
  71622. procedure TCAN1_C1FIFOINT2.setw(thebits : TBits_32); inline;
  71623. begin
  71624. pTDefRegMap(@Self)^.val := thebits;
  71625. end;
  71626. function TCAN1_C1FIFOINT2.getw : TBits_32; inline;
  71627. begin
  71628. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71629. end;
  71630. procedure TCAN1_C1FIFOCI2.setCFIFOCI(thebits : TBits_5); inline;
  71631. begin
  71632. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  71633. end;
  71634. function TCAN1_C1FIFOCI2.getCFIFOCI : TBits_5; inline;
  71635. begin
  71636. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  71637. end;
  71638. procedure TCAN1_C1FIFOCI2.setw(thebits : TBits_32); inline;
  71639. begin
  71640. pTDefRegMap(@Self)^.val := thebits;
  71641. end;
  71642. function TCAN1_C1FIFOCI2.getw : TBits_32; inline;
  71643. begin
  71644. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71645. end;
  71646. procedure TCAN1_C1FIFOCON3.setTXPRI(thebits : TBits_2); inline;
  71647. begin
  71648. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  71649. end;
  71650. function TCAN1_C1FIFOCON3.getTXPRI : TBits_2; inline;
  71651. begin
  71652. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  71653. end;
  71654. procedure TCAN1_C1FIFOCON3.setRTREN; inline;
  71655. begin
  71656. pTDefRegMap(@Self)^.&set := $00000004;
  71657. end;
  71658. procedure TCAN1_C1FIFOCON3.clearRTREN; inline;
  71659. begin
  71660. pTDefRegMap(@Self)^.clr := $00000004;
  71661. end;
  71662. procedure TCAN1_C1FIFOCON3.setRTREN(thebits : TBits_1); inline;
  71663. begin
  71664. if thebits = 0 then
  71665. pTDefRegMap(@Self)^.clr := $00000004
  71666. else
  71667. pTDefRegMap(@Self)^.&set := $00000004;
  71668. end;
  71669. function TCAN1_C1FIFOCON3.getRTREN : TBits_1; inline;
  71670. begin
  71671. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  71672. end;
  71673. procedure TCAN1_C1FIFOCON3.setTXREQ; inline;
  71674. begin
  71675. pTDefRegMap(@Self)^.&set := $00000008;
  71676. end;
  71677. procedure TCAN1_C1FIFOCON3.clearTXREQ; inline;
  71678. begin
  71679. pTDefRegMap(@Self)^.clr := $00000008;
  71680. end;
  71681. procedure TCAN1_C1FIFOCON3.setTXREQ(thebits : TBits_1); inline;
  71682. begin
  71683. if thebits = 0 then
  71684. pTDefRegMap(@Self)^.clr := $00000008
  71685. else
  71686. pTDefRegMap(@Self)^.&set := $00000008;
  71687. end;
  71688. function TCAN1_C1FIFOCON3.getTXREQ : TBits_1; inline;
  71689. begin
  71690. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  71691. end;
  71692. procedure TCAN1_C1FIFOCON3.setTXERR; inline;
  71693. begin
  71694. pTDefRegMap(@Self)^.&set := $00000010;
  71695. end;
  71696. procedure TCAN1_C1FIFOCON3.clearTXERR; inline;
  71697. begin
  71698. pTDefRegMap(@Self)^.clr := $00000010;
  71699. end;
  71700. procedure TCAN1_C1FIFOCON3.setTXERR(thebits : TBits_1); inline;
  71701. begin
  71702. if thebits = 0 then
  71703. pTDefRegMap(@Self)^.clr := $00000010
  71704. else
  71705. pTDefRegMap(@Self)^.&set := $00000010;
  71706. end;
  71707. function TCAN1_C1FIFOCON3.getTXERR : TBits_1; inline;
  71708. begin
  71709. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  71710. end;
  71711. procedure TCAN1_C1FIFOCON3.setTXLARB; inline;
  71712. begin
  71713. pTDefRegMap(@Self)^.&set := $00000020;
  71714. end;
  71715. procedure TCAN1_C1FIFOCON3.clearTXLARB; inline;
  71716. begin
  71717. pTDefRegMap(@Self)^.clr := $00000020;
  71718. end;
  71719. procedure TCAN1_C1FIFOCON3.setTXLARB(thebits : TBits_1); inline;
  71720. begin
  71721. if thebits = 0 then
  71722. pTDefRegMap(@Self)^.clr := $00000020
  71723. else
  71724. pTDefRegMap(@Self)^.&set := $00000020;
  71725. end;
  71726. function TCAN1_C1FIFOCON3.getTXLARB : TBits_1; inline;
  71727. begin
  71728. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  71729. end;
  71730. procedure TCAN1_C1FIFOCON3.setTXABAT; inline;
  71731. begin
  71732. pTDefRegMap(@Self)^.&set := $00000040;
  71733. end;
  71734. procedure TCAN1_C1FIFOCON3.clearTXABAT; inline;
  71735. begin
  71736. pTDefRegMap(@Self)^.clr := $00000040;
  71737. end;
  71738. procedure TCAN1_C1FIFOCON3.setTXABAT(thebits : TBits_1); inline;
  71739. begin
  71740. if thebits = 0 then
  71741. pTDefRegMap(@Self)^.clr := $00000040
  71742. else
  71743. pTDefRegMap(@Self)^.&set := $00000040;
  71744. end;
  71745. function TCAN1_C1FIFOCON3.getTXABAT : TBits_1; inline;
  71746. begin
  71747. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  71748. end;
  71749. procedure TCAN1_C1FIFOCON3.setTXEN; inline;
  71750. begin
  71751. pTDefRegMap(@Self)^.&set := $00000080;
  71752. end;
  71753. procedure TCAN1_C1FIFOCON3.clearTXEN; inline;
  71754. begin
  71755. pTDefRegMap(@Self)^.clr := $00000080;
  71756. end;
  71757. procedure TCAN1_C1FIFOCON3.setTXEN(thebits : TBits_1); inline;
  71758. begin
  71759. if thebits = 0 then
  71760. pTDefRegMap(@Self)^.clr := $00000080
  71761. else
  71762. pTDefRegMap(@Self)^.&set := $00000080;
  71763. end;
  71764. function TCAN1_C1FIFOCON3.getTXEN : TBits_1; inline;
  71765. begin
  71766. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  71767. end;
  71768. procedure TCAN1_C1FIFOCON3.setDONLY; inline;
  71769. begin
  71770. pTDefRegMap(@Self)^.&set := $00001000;
  71771. end;
  71772. procedure TCAN1_C1FIFOCON3.clearDONLY; inline;
  71773. begin
  71774. pTDefRegMap(@Self)^.clr := $00001000;
  71775. end;
  71776. procedure TCAN1_C1FIFOCON3.setDONLY(thebits : TBits_1); inline;
  71777. begin
  71778. if thebits = 0 then
  71779. pTDefRegMap(@Self)^.clr := $00001000
  71780. else
  71781. pTDefRegMap(@Self)^.&set := $00001000;
  71782. end;
  71783. function TCAN1_C1FIFOCON3.getDONLY : TBits_1; inline;
  71784. begin
  71785. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  71786. end;
  71787. procedure TCAN1_C1FIFOCON3.setUINC; inline;
  71788. begin
  71789. pTDefRegMap(@Self)^.&set := $00002000;
  71790. end;
  71791. procedure TCAN1_C1FIFOCON3.clearUINC; inline;
  71792. begin
  71793. pTDefRegMap(@Self)^.clr := $00002000;
  71794. end;
  71795. procedure TCAN1_C1FIFOCON3.setUINC(thebits : TBits_1); inline;
  71796. begin
  71797. if thebits = 0 then
  71798. pTDefRegMap(@Self)^.clr := $00002000
  71799. else
  71800. pTDefRegMap(@Self)^.&set := $00002000;
  71801. end;
  71802. function TCAN1_C1FIFOCON3.getUINC : TBits_1; inline;
  71803. begin
  71804. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  71805. end;
  71806. procedure TCAN1_C1FIFOCON3.setFRESET; inline;
  71807. begin
  71808. pTDefRegMap(@Self)^.&set := $00004000;
  71809. end;
  71810. procedure TCAN1_C1FIFOCON3.clearFRESET; inline;
  71811. begin
  71812. pTDefRegMap(@Self)^.clr := $00004000;
  71813. end;
  71814. procedure TCAN1_C1FIFOCON3.setFRESET(thebits : TBits_1); inline;
  71815. begin
  71816. if thebits = 0 then
  71817. pTDefRegMap(@Self)^.clr := $00004000
  71818. else
  71819. pTDefRegMap(@Self)^.&set := $00004000;
  71820. end;
  71821. function TCAN1_C1FIFOCON3.getFRESET : TBits_1; inline;
  71822. begin
  71823. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  71824. end;
  71825. procedure TCAN1_C1FIFOCON3.setFSIZE(thebits : TBits_5); inline;
  71826. begin
  71827. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  71828. end;
  71829. function TCAN1_C1FIFOCON3.getFSIZE : TBits_5; inline;
  71830. begin
  71831. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  71832. end;
  71833. procedure TCAN1_C1FIFOCON3.setw(thebits : TBits_32); inline;
  71834. begin
  71835. pTDefRegMap(@Self)^.val := thebits;
  71836. end;
  71837. function TCAN1_C1FIFOCON3.getw : TBits_32; inline;
  71838. begin
  71839. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  71840. end;
  71841. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIF; inline;
  71842. begin
  71843. pTDefRegMap(@Self)^.&set := $00000001;
  71844. end;
  71845. procedure TCAN1_C1FIFOINT3.clearRXNEMPTYIF; inline;
  71846. begin
  71847. pTDefRegMap(@Self)^.clr := $00000001;
  71848. end;
  71849. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIF(thebits : TBits_1); inline;
  71850. begin
  71851. if thebits = 0 then
  71852. pTDefRegMap(@Self)^.clr := $00000001
  71853. else
  71854. pTDefRegMap(@Self)^.&set := $00000001;
  71855. end;
  71856. function TCAN1_C1FIFOINT3.getRXNEMPTYIF : TBits_1; inline;
  71857. begin
  71858. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  71859. end;
  71860. procedure TCAN1_C1FIFOINT3.setRXHALFIF; inline;
  71861. begin
  71862. pTDefRegMap(@Self)^.&set := $00000002;
  71863. end;
  71864. procedure TCAN1_C1FIFOINT3.clearRXHALFIF; inline;
  71865. begin
  71866. pTDefRegMap(@Self)^.clr := $00000002;
  71867. end;
  71868. procedure TCAN1_C1FIFOINT3.setRXHALFIF(thebits : TBits_1); inline;
  71869. begin
  71870. if thebits = 0 then
  71871. pTDefRegMap(@Self)^.clr := $00000002
  71872. else
  71873. pTDefRegMap(@Self)^.&set := $00000002;
  71874. end;
  71875. function TCAN1_C1FIFOINT3.getRXHALFIF : TBits_1; inline;
  71876. begin
  71877. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  71878. end;
  71879. procedure TCAN1_C1FIFOINT3.setRXFULLIF; inline;
  71880. begin
  71881. pTDefRegMap(@Self)^.&set := $00000004;
  71882. end;
  71883. procedure TCAN1_C1FIFOINT3.clearRXFULLIF; inline;
  71884. begin
  71885. pTDefRegMap(@Self)^.clr := $00000004;
  71886. end;
  71887. procedure TCAN1_C1FIFOINT3.setRXFULLIF(thebits : TBits_1); inline;
  71888. begin
  71889. if thebits = 0 then
  71890. pTDefRegMap(@Self)^.clr := $00000004
  71891. else
  71892. pTDefRegMap(@Self)^.&set := $00000004;
  71893. end;
  71894. function TCAN1_C1FIFOINT3.getRXFULLIF : TBits_1; inline;
  71895. begin
  71896. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  71897. end;
  71898. procedure TCAN1_C1FIFOINT3.setRXOVFLIF; inline;
  71899. begin
  71900. pTDefRegMap(@Self)^.&set := $00000008;
  71901. end;
  71902. procedure TCAN1_C1FIFOINT3.clearRXOVFLIF; inline;
  71903. begin
  71904. pTDefRegMap(@Self)^.clr := $00000008;
  71905. end;
  71906. procedure TCAN1_C1FIFOINT3.setRXOVFLIF(thebits : TBits_1); inline;
  71907. begin
  71908. if thebits = 0 then
  71909. pTDefRegMap(@Self)^.clr := $00000008
  71910. else
  71911. pTDefRegMap(@Self)^.&set := $00000008;
  71912. end;
  71913. function TCAN1_C1FIFOINT3.getRXOVFLIF : TBits_1; inline;
  71914. begin
  71915. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  71916. end;
  71917. procedure TCAN1_C1FIFOINT3.setTXEMPTYIF; inline;
  71918. begin
  71919. pTDefRegMap(@Self)^.&set := $00000100;
  71920. end;
  71921. procedure TCAN1_C1FIFOINT3.clearTXEMPTYIF; inline;
  71922. begin
  71923. pTDefRegMap(@Self)^.clr := $00000100;
  71924. end;
  71925. procedure TCAN1_C1FIFOINT3.setTXEMPTYIF(thebits : TBits_1); inline;
  71926. begin
  71927. if thebits = 0 then
  71928. pTDefRegMap(@Self)^.clr := $00000100
  71929. else
  71930. pTDefRegMap(@Self)^.&set := $00000100;
  71931. end;
  71932. function TCAN1_C1FIFOINT3.getTXEMPTYIF : TBits_1; inline;
  71933. begin
  71934. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  71935. end;
  71936. procedure TCAN1_C1FIFOINT3.setTXHALFIF; inline;
  71937. begin
  71938. pTDefRegMap(@Self)^.&set := $00000200;
  71939. end;
  71940. procedure TCAN1_C1FIFOINT3.clearTXHALFIF; inline;
  71941. begin
  71942. pTDefRegMap(@Self)^.clr := $00000200;
  71943. end;
  71944. procedure TCAN1_C1FIFOINT3.setTXHALFIF(thebits : TBits_1); inline;
  71945. begin
  71946. if thebits = 0 then
  71947. pTDefRegMap(@Self)^.clr := $00000200
  71948. else
  71949. pTDefRegMap(@Self)^.&set := $00000200;
  71950. end;
  71951. function TCAN1_C1FIFOINT3.getTXHALFIF : TBits_1; inline;
  71952. begin
  71953. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  71954. end;
  71955. procedure TCAN1_C1FIFOINT3.setTXNFULLIF; inline;
  71956. begin
  71957. pTDefRegMap(@Self)^.&set := $00000400;
  71958. end;
  71959. procedure TCAN1_C1FIFOINT3.clearTXNFULLIF; inline;
  71960. begin
  71961. pTDefRegMap(@Self)^.clr := $00000400;
  71962. end;
  71963. procedure TCAN1_C1FIFOINT3.setTXNFULLIF(thebits : TBits_1); inline;
  71964. begin
  71965. if thebits = 0 then
  71966. pTDefRegMap(@Self)^.clr := $00000400
  71967. else
  71968. pTDefRegMap(@Self)^.&set := $00000400;
  71969. end;
  71970. function TCAN1_C1FIFOINT3.getTXNFULLIF : TBits_1; inline;
  71971. begin
  71972. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  71973. end;
  71974. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIE; inline;
  71975. begin
  71976. pTDefRegMap(@Self)^.&set := $00010000;
  71977. end;
  71978. procedure TCAN1_C1FIFOINT3.clearRXNEMPTYIE; inline;
  71979. begin
  71980. pTDefRegMap(@Self)^.clr := $00010000;
  71981. end;
  71982. procedure TCAN1_C1FIFOINT3.setRXNEMPTYIE(thebits : TBits_1); inline;
  71983. begin
  71984. if thebits = 0 then
  71985. pTDefRegMap(@Self)^.clr := $00010000
  71986. else
  71987. pTDefRegMap(@Self)^.&set := $00010000;
  71988. end;
  71989. function TCAN1_C1FIFOINT3.getRXNEMPTYIE : TBits_1; inline;
  71990. begin
  71991. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  71992. end;
  71993. procedure TCAN1_C1FIFOINT3.setRXHALFIE; inline;
  71994. begin
  71995. pTDefRegMap(@Self)^.&set := $00020000;
  71996. end;
  71997. procedure TCAN1_C1FIFOINT3.clearRXHALFIE; inline;
  71998. begin
  71999. pTDefRegMap(@Self)^.clr := $00020000;
  72000. end;
  72001. procedure TCAN1_C1FIFOINT3.setRXHALFIE(thebits : TBits_1); inline;
  72002. begin
  72003. if thebits = 0 then
  72004. pTDefRegMap(@Self)^.clr := $00020000
  72005. else
  72006. pTDefRegMap(@Self)^.&set := $00020000;
  72007. end;
  72008. function TCAN1_C1FIFOINT3.getRXHALFIE : TBits_1; inline;
  72009. begin
  72010. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  72011. end;
  72012. procedure TCAN1_C1FIFOINT3.setRXFULLIE; inline;
  72013. begin
  72014. pTDefRegMap(@Self)^.&set := $00040000;
  72015. end;
  72016. procedure TCAN1_C1FIFOINT3.clearRXFULLIE; inline;
  72017. begin
  72018. pTDefRegMap(@Self)^.clr := $00040000;
  72019. end;
  72020. procedure TCAN1_C1FIFOINT3.setRXFULLIE(thebits : TBits_1); inline;
  72021. begin
  72022. if thebits = 0 then
  72023. pTDefRegMap(@Self)^.clr := $00040000
  72024. else
  72025. pTDefRegMap(@Self)^.&set := $00040000;
  72026. end;
  72027. function TCAN1_C1FIFOINT3.getRXFULLIE : TBits_1; inline;
  72028. begin
  72029. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  72030. end;
  72031. procedure TCAN1_C1FIFOINT3.setRXOVFLIE; inline;
  72032. begin
  72033. pTDefRegMap(@Self)^.&set := $00080000;
  72034. end;
  72035. procedure TCAN1_C1FIFOINT3.clearRXOVFLIE; inline;
  72036. begin
  72037. pTDefRegMap(@Self)^.clr := $00080000;
  72038. end;
  72039. procedure TCAN1_C1FIFOINT3.setRXOVFLIE(thebits : TBits_1); inline;
  72040. begin
  72041. if thebits = 0 then
  72042. pTDefRegMap(@Self)^.clr := $00080000
  72043. else
  72044. pTDefRegMap(@Self)^.&set := $00080000;
  72045. end;
  72046. function TCAN1_C1FIFOINT3.getRXOVFLIE : TBits_1; inline;
  72047. begin
  72048. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72049. end;
  72050. procedure TCAN1_C1FIFOINT3.setTXEMPTYIE; inline;
  72051. begin
  72052. pTDefRegMap(@Self)^.&set := $01000000;
  72053. end;
  72054. procedure TCAN1_C1FIFOINT3.clearTXEMPTYIE; inline;
  72055. begin
  72056. pTDefRegMap(@Self)^.clr := $01000000;
  72057. end;
  72058. procedure TCAN1_C1FIFOINT3.setTXEMPTYIE(thebits : TBits_1); inline;
  72059. begin
  72060. if thebits = 0 then
  72061. pTDefRegMap(@Self)^.clr := $01000000
  72062. else
  72063. pTDefRegMap(@Self)^.&set := $01000000;
  72064. end;
  72065. function TCAN1_C1FIFOINT3.getTXEMPTYIE : TBits_1; inline;
  72066. begin
  72067. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  72068. end;
  72069. procedure TCAN1_C1FIFOINT3.setTXHALFIE; inline;
  72070. begin
  72071. pTDefRegMap(@Self)^.&set := $02000000;
  72072. end;
  72073. procedure TCAN1_C1FIFOINT3.clearTXHALFIE; inline;
  72074. begin
  72075. pTDefRegMap(@Self)^.clr := $02000000;
  72076. end;
  72077. procedure TCAN1_C1FIFOINT3.setTXHALFIE(thebits : TBits_1); inline;
  72078. begin
  72079. if thebits = 0 then
  72080. pTDefRegMap(@Self)^.clr := $02000000
  72081. else
  72082. pTDefRegMap(@Self)^.&set := $02000000;
  72083. end;
  72084. function TCAN1_C1FIFOINT3.getTXHALFIE : TBits_1; inline;
  72085. begin
  72086. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  72087. end;
  72088. procedure TCAN1_C1FIFOINT3.setTXNFULLIE; inline;
  72089. begin
  72090. pTDefRegMap(@Self)^.&set := $04000000;
  72091. end;
  72092. procedure TCAN1_C1FIFOINT3.clearTXNFULLIE; inline;
  72093. begin
  72094. pTDefRegMap(@Self)^.clr := $04000000;
  72095. end;
  72096. procedure TCAN1_C1FIFOINT3.setTXNFULLIE(thebits : TBits_1); inline;
  72097. begin
  72098. if thebits = 0 then
  72099. pTDefRegMap(@Self)^.clr := $04000000
  72100. else
  72101. pTDefRegMap(@Self)^.&set := $04000000;
  72102. end;
  72103. function TCAN1_C1FIFOINT3.getTXNFULLIE : TBits_1; inline;
  72104. begin
  72105. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  72106. end;
  72107. procedure TCAN1_C1FIFOINT3.setw(thebits : TBits_32); inline;
  72108. begin
  72109. pTDefRegMap(@Self)^.val := thebits;
  72110. end;
  72111. function TCAN1_C1FIFOINT3.getw : TBits_32; inline;
  72112. begin
  72113. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72114. end;
  72115. procedure TCAN1_C1FIFOCI3.setCFIFOCI(thebits : TBits_5); inline;
  72116. begin
  72117. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72118. end;
  72119. function TCAN1_C1FIFOCI3.getCFIFOCI : TBits_5; inline;
  72120. begin
  72121. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72122. end;
  72123. procedure TCAN1_C1FIFOCI3.setw(thebits : TBits_32); inline;
  72124. begin
  72125. pTDefRegMap(@Self)^.val := thebits;
  72126. end;
  72127. function TCAN1_C1FIFOCI3.getw : TBits_32; inline;
  72128. begin
  72129. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72130. end;
  72131. procedure TCAN1_C1FIFOCON4.setTXPRI(thebits : TBits_2); inline;
  72132. begin
  72133. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  72134. end;
  72135. function TCAN1_C1FIFOCON4.getTXPRI : TBits_2; inline;
  72136. begin
  72137. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  72138. end;
  72139. procedure TCAN1_C1FIFOCON4.setRTREN; inline;
  72140. begin
  72141. pTDefRegMap(@Self)^.&set := $00000004;
  72142. end;
  72143. procedure TCAN1_C1FIFOCON4.clearRTREN; inline;
  72144. begin
  72145. pTDefRegMap(@Self)^.clr := $00000004;
  72146. end;
  72147. procedure TCAN1_C1FIFOCON4.setRTREN(thebits : TBits_1); inline;
  72148. begin
  72149. if thebits = 0 then
  72150. pTDefRegMap(@Self)^.clr := $00000004
  72151. else
  72152. pTDefRegMap(@Self)^.&set := $00000004;
  72153. end;
  72154. function TCAN1_C1FIFOCON4.getRTREN : TBits_1; inline;
  72155. begin
  72156. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  72157. end;
  72158. procedure TCAN1_C1FIFOCON4.setTXREQ; inline;
  72159. begin
  72160. pTDefRegMap(@Self)^.&set := $00000008;
  72161. end;
  72162. procedure TCAN1_C1FIFOCON4.clearTXREQ; inline;
  72163. begin
  72164. pTDefRegMap(@Self)^.clr := $00000008;
  72165. end;
  72166. procedure TCAN1_C1FIFOCON4.setTXREQ(thebits : TBits_1); inline;
  72167. begin
  72168. if thebits = 0 then
  72169. pTDefRegMap(@Self)^.clr := $00000008
  72170. else
  72171. pTDefRegMap(@Self)^.&set := $00000008;
  72172. end;
  72173. function TCAN1_C1FIFOCON4.getTXREQ : TBits_1; inline;
  72174. begin
  72175. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  72176. end;
  72177. procedure TCAN1_C1FIFOCON4.setTXERR; inline;
  72178. begin
  72179. pTDefRegMap(@Self)^.&set := $00000010;
  72180. end;
  72181. procedure TCAN1_C1FIFOCON4.clearTXERR; inline;
  72182. begin
  72183. pTDefRegMap(@Self)^.clr := $00000010;
  72184. end;
  72185. procedure TCAN1_C1FIFOCON4.setTXERR(thebits : TBits_1); inline;
  72186. begin
  72187. if thebits = 0 then
  72188. pTDefRegMap(@Self)^.clr := $00000010
  72189. else
  72190. pTDefRegMap(@Self)^.&set := $00000010;
  72191. end;
  72192. function TCAN1_C1FIFOCON4.getTXERR : TBits_1; inline;
  72193. begin
  72194. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  72195. end;
  72196. procedure TCAN1_C1FIFOCON4.setTXLARB; inline;
  72197. begin
  72198. pTDefRegMap(@Self)^.&set := $00000020;
  72199. end;
  72200. procedure TCAN1_C1FIFOCON4.clearTXLARB; inline;
  72201. begin
  72202. pTDefRegMap(@Self)^.clr := $00000020;
  72203. end;
  72204. procedure TCAN1_C1FIFOCON4.setTXLARB(thebits : TBits_1); inline;
  72205. begin
  72206. if thebits = 0 then
  72207. pTDefRegMap(@Self)^.clr := $00000020
  72208. else
  72209. pTDefRegMap(@Self)^.&set := $00000020;
  72210. end;
  72211. function TCAN1_C1FIFOCON4.getTXLARB : TBits_1; inline;
  72212. begin
  72213. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  72214. end;
  72215. procedure TCAN1_C1FIFOCON4.setTXABAT; inline;
  72216. begin
  72217. pTDefRegMap(@Self)^.&set := $00000040;
  72218. end;
  72219. procedure TCAN1_C1FIFOCON4.clearTXABAT; inline;
  72220. begin
  72221. pTDefRegMap(@Self)^.clr := $00000040;
  72222. end;
  72223. procedure TCAN1_C1FIFOCON4.setTXABAT(thebits : TBits_1); inline;
  72224. begin
  72225. if thebits = 0 then
  72226. pTDefRegMap(@Self)^.clr := $00000040
  72227. else
  72228. pTDefRegMap(@Self)^.&set := $00000040;
  72229. end;
  72230. function TCAN1_C1FIFOCON4.getTXABAT : TBits_1; inline;
  72231. begin
  72232. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  72233. end;
  72234. procedure TCAN1_C1FIFOCON4.setTXEN; inline;
  72235. begin
  72236. pTDefRegMap(@Self)^.&set := $00000080;
  72237. end;
  72238. procedure TCAN1_C1FIFOCON4.clearTXEN; inline;
  72239. begin
  72240. pTDefRegMap(@Self)^.clr := $00000080;
  72241. end;
  72242. procedure TCAN1_C1FIFOCON4.setTXEN(thebits : TBits_1); inline;
  72243. begin
  72244. if thebits = 0 then
  72245. pTDefRegMap(@Self)^.clr := $00000080
  72246. else
  72247. pTDefRegMap(@Self)^.&set := $00000080;
  72248. end;
  72249. function TCAN1_C1FIFOCON4.getTXEN : TBits_1; inline;
  72250. begin
  72251. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72252. end;
  72253. procedure TCAN1_C1FIFOCON4.setDONLY; inline;
  72254. begin
  72255. pTDefRegMap(@Self)^.&set := $00001000;
  72256. end;
  72257. procedure TCAN1_C1FIFOCON4.clearDONLY; inline;
  72258. begin
  72259. pTDefRegMap(@Self)^.clr := $00001000;
  72260. end;
  72261. procedure TCAN1_C1FIFOCON4.setDONLY(thebits : TBits_1); inline;
  72262. begin
  72263. if thebits = 0 then
  72264. pTDefRegMap(@Self)^.clr := $00001000
  72265. else
  72266. pTDefRegMap(@Self)^.&set := $00001000;
  72267. end;
  72268. function TCAN1_C1FIFOCON4.getDONLY : TBits_1; inline;
  72269. begin
  72270. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  72271. end;
  72272. procedure TCAN1_C1FIFOCON4.setUINC; inline;
  72273. begin
  72274. pTDefRegMap(@Self)^.&set := $00002000;
  72275. end;
  72276. procedure TCAN1_C1FIFOCON4.clearUINC; inline;
  72277. begin
  72278. pTDefRegMap(@Self)^.clr := $00002000;
  72279. end;
  72280. procedure TCAN1_C1FIFOCON4.setUINC(thebits : TBits_1); inline;
  72281. begin
  72282. if thebits = 0 then
  72283. pTDefRegMap(@Self)^.clr := $00002000
  72284. else
  72285. pTDefRegMap(@Self)^.&set := $00002000;
  72286. end;
  72287. function TCAN1_C1FIFOCON4.getUINC : TBits_1; inline;
  72288. begin
  72289. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  72290. end;
  72291. procedure TCAN1_C1FIFOCON4.setFRESET; inline;
  72292. begin
  72293. pTDefRegMap(@Self)^.&set := $00004000;
  72294. end;
  72295. procedure TCAN1_C1FIFOCON4.clearFRESET; inline;
  72296. begin
  72297. pTDefRegMap(@Self)^.clr := $00004000;
  72298. end;
  72299. procedure TCAN1_C1FIFOCON4.setFRESET(thebits : TBits_1); inline;
  72300. begin
  72301. if thebits = 0 then
  72302. pTDefRegMap(@Self)^.clr := $00004000
  72303. else
  72304. pTDefRegMap(@Self)^.&set := $00004000;
  72305. end;
  72306. function TCAN1_C1FIFOCON4.getFRESET : TBits_1; inline;
  72307. begin
  72308. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  72309. end;
  72310. procedure TCAN1_C1FIFOCON4.setFSIZE(thebits : TBits_5); inline;
  72311. begin
  72312. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72313. end;
  72314. function TCAN1_C1FIFOCON4.getFSIZE : TBits_5; inline;
  72315. begin
  72316. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72317. end;
  72318. procedure TCAN1_C1FIFOCON4.setw(thebits : TBits_32); inline;
  72319. begin
  72320. pTDefRegMap(@Self)^.val := thebits;
  72321. end;
  72322. function TCAN1_C1FIFOCON4.getw : TBits_32; inline;
  72323. begin
  72324. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72325. end;
  72326. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIF; inline;
  72327. begin
  72328. pTDefRegMap(@Self)^.&set := $00000001;
  72329. end;
  72330. procedure TCAN1_C1FIFOINT4.clearRXNEMPTYIF; inline;
  72331. begin
  72332. pTDefRegMap(@Self)^.clr := $00000001;
  72333. end;
  72334. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIF(thebits : TBits_1); inline;
  72335. begin
  72336. if thebits = 0 then
  72337. pTDefRegMap(@Self)^.clr := $00000001
  72338. else
  72339. pTDefRegMap(@Self)^.&set := $00000001;
  72340. end;
  72341. function TCAN1_C1FIFOINT4.getRXNEMPTYIF : TBits_1; inline;
  72342. begin
  72343. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  72344. end;
  72345. procedure TCAN1_C1FIFOINT4.setRXHALFIF; inline;
  72346. begin
  72347. pTDefRegMap(@Self)^.&set := $00000002;
  72348. end;
  72349. procedure TCAN1_C1FIFOINT4.clearRXHALFIF; inline;
  72350. begin
  72351. pTDefRegMap(@Self)^.clr := $00000002;
  72352. end;
  72353. procedure TCAN1_C1FIFOINT4.setRXHALFIF(thebits : TBits_1); inline;
  72354. begin
  72355. if thebits = 0 then
  72356. pTDefRegMap(@Self)^.clr := $00000002
  72357. else
  72358. pTDefRegMap(@Self)^.&set := $00000002;
  72359. end;
  72360. function TCAN1_C1FIFOINT4.getRXHALFIF : TBits_1; inline;
  72361. begin
  72362. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  72363. end;
  72364. procedure TCAN1_C1FIFOINT4.setRXFULLIF; inline;
  72365. begin
  72366. pTDefRegMap(@Self)^.&set := $00000004;
  72367. end;
  72368. procedure TCAN1_C1FIFOINT4.clearRXFULLIF; inline;
  72369. begin
  72370. pTDefRegMap(@Self)^.clr := $00000004;
  72371. end;
  72372. procedure TCAN1_C1FIFOINT4.setRXFULLIF(thebits : TBits_1); inline;
  72373. begin
  72374. if thebits = 0 then
  72375. pTDefRegMap(@Self)^.clr := $00000004
  72376. else
  72377. pTDefRegMap(@Self)^.&set := $00000004;
  72378. end;
  72379. function TCAN1_C1FIFOINT4.getRXFULLIF : TBits_1; inline;
  72380. begin
  72381. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  72382. end;
  72383. procedure TCAN1_C1FIFOINT4.setRXOVFLIF; inline;
  72384. begin
  72385. pTDefRegMap(@Self)^.&set := $00000008;
  72386. end;
  72387. procedure TCAN1_C1FIFOINT4.clearRXOVFLIF; inline;
  72388. begin
  72389. pTDefRegMap(@Self)^.clr := $00000008;
  72390. end;
  72391. procedure TCAN1_C1FIFOINT4.setRXOVFLIF(thebits : TBits_1); inline;
  72392. begin
  72393. if thebits = 0 then
  72394. pTDefRegMap(@Self)^.clr := $00000008
  72395. else
  72396. pTDefRegMap(@Self)^.&set := $00000008;
  72397. end;
  72398. function TCAN1_C1FIFOINT4.getRXOVFLIF : TBits_1; inline;
  72399. begin
  72400. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  72401. end;
  72402. procedure TCAN1_C1FIFOINT4.setTXEMPTYIF; inline;
  72403. begin
  72404. pTDefRegMap(@Self)^.&set := $00000100;
  72405. end;
  72406. procedure TCAN1_C1FIFOINT4.clearTXEMPTYIF; inline;
  72407. begin
  72408. pTDefRegMap(@Self)^.clr := $00000100;
  72409. end;
  72410. procedure TCAN1_C1FIFOINT4.setTXEMPTYIF(thebits : TBits_1); inline;
  72411. begin
  72412. if thebits = 0 then
  72413. pTDefRegMap(@Self)^.clr := $00000100
  72414. else
  72415. pTDefRegMap(@Self)^.&set := $00000100;
  72416. end;
  72417. function TCAN1_C1FIFOINT4.getTXEMPTYIF : TBits_1; inline;
  72418. begin
  72419. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  72420. end;
  72421. procedure TCAN1_C1FIFOINT4.setTXHALFIF; inline;
  72422. begin
  72423. pTDefRegMap(@Self)^.&set := $00000200;
  72424. end;
  72425. procedure TCAN1_C1FIFOINT4.clearTXHALFIF; inline;
  72426. begin
  72427. pTDefRegMap(@Self)^.clr := $00000200;
  72428. end;
  72429. procedure TCAN1_C1FIFOINT4.setTXHALFIF(thebits : TBits_1); inline;
  72430. begin
  72431. if thebits = 0 then
  72432. pTDefRegMap(@Self)^.clr := $00000200
  72433. else
  72434. pTDefRegMap(@Self)^.&set := $00000200;
  72435. end;
  72436. function TCAN1_C1FIFOINT4.getTXHALFIF : TBits_1; inline;
  72437. begin
  72438. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  72439. end;
  72440. procedure TCAN1_C1FIFOINT4.setTXNFULLIF; inline;
  72441. begin
  72442. pTDefRegMap(@Self)^.&set := $00000400;
  72443. end;
  72444. procedure TCAN1_C1FIFOINT4.clearTXNFULLIF; inline;
  72445. begin
  72446. pTDefRegMap(@Self)^.clr := $00000400;
  72447. end;
  72448. procedure TCAN1_C1FIFOINT4.setTXNFULLIF(thebits : TBits_1); inline;
  72449. begin
  72450. if thebits = 0 then
  72451. pTDefRegMap(@Self)^.clr := $00000400
  72452. else
  72453. pTDefRegMap(@Self)^.&set := $00000400;
  72454. end;
  72455. function TCAN1_C1FIFOINT4.getTXNFULLIF : TBits_1; inline;
  72456. begin
  72457. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  72458. end;
  72459. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIE; inline;
  72460. begin
  72461. pTDefRegMap(@Self)^.&set := $00010000;
  72462. end;
  72463. procedure TCAN1_C1FIFOINT4.clearRXNEMPTYIE; inline;
  72464. begin
  72465. pTDefRegMap(@Self)^.clr := $00010000;
  72466. end;
  72467. procedure TCAN1_C1FIFOINT4.setRXNEMPTYIE(thebits : TBits_1); inline;
  72468. begin
  72469. if thebits = 0 then
  72470. pTDefRegMap(@Self)^.clr := $00010000
  72471. else
  72472. pTDefRegMap(@Self)^.&set := $00010000;
  72473. end;
  72474. function TCAN1_C1FIFOINT4.getRXNEMPTYIE : TBits_1; inline;
  72475. begin
  72476. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  72477. end;
  72478. procedure TCAN1_C1FIFOINT4.setRXHALFIE; inline;
  72479. begin
  72480. pTDefRegMap(@Self)^.&set := $00020000;
  72481. end;
  72482. procedure TCAN1_C1FIFOINT4.clearRXHALFIE; inline;
  72483. begin
  72484. pTDefRegMap(@Self)^.clr := $00020000;
  72485. end;
  72486. procedure TCAN1_C1FIFOINT4.setRXHALFIE(thebits : TBits_1); inline;
  72487. begin
  72488. if thebits = 0 then
  72489. pTDefRegMap(@Self)^.clr := $00020000
  72490. else
  72491. pTDefRegMap(@Self)^.&set := $00020000;
  72492. end;
  72493. function TCAN1_C1FIFOINT4.getRXHALFIE : TBits_1; inline;
  72494. begin
  72495. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  72496. end;
  72497. procedure TCAN1_C1FIFOINT4.setRXFULLIE; inline;
  72498. begin
  72499. pTDefRegMap(@Self)^.&set := $00040000;
  72500. end;
  72501. procedure TCAN1_C1FIFOINT4.clearRXFULLIE; inline;
  72502. begin
  72503. pTDefRegMap(@Self)^.clr := $00040000;
  72504. end;
  72505. procedure TCAN1_C1FIFOINT4.setRXFULLIE(thebits : TBits_1); inline;
  72506. begin
  72507. if thebits = 0 then
  72508. pTDefRegMap(@Self)^.clr := $00040000
  72509. else
  72510. pTDefRegMap(@Self)^.&set := $00040000;
  72511. end;
  72512. function TCAN1_C1FIFOINT4.getRXFULLIE : TBits_1; inline;
  72513. begin
  72514. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  72515. end;
  72516. procedure TCAN1_C1FIFOINT4.setRXOVFLIE; inline;
  72517. begin
  72518. pTDefRegMap(@Self)^.&set := $00080000;
  72519. end;
  72520. procedure TCAN1_C1FIFOINT4.clearRXOVFLIE; inline;
  72521. begin
  72522. pTDefRegMap(@Self)^.clr := $00080000;
  72523. end;
  72524. procedure TCAN1_C1FIFOINT4.setRXOVFLIE(thebits : TBits_1); inline;
  72525. begin
  72526. if thebits = 0 then
  72527. pTDefRegMap(@Self)^.clr := $00080000
  72528. else
  72529. pTDefRegMap(@Self)^.&set := $00080000;
  72530. end;
  72531. function TCAN1_C1FIFOINT4.getRXOVFLIE : TBits_1; inline;
  72532. begin
  72533. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  72534. end;
  72535. procedure TCAN1_C1FIFOINT4.setTXEMPTYIE; inline;
  72536. begin
  72537. pTDefRegMap(@Self)^.&set := $01000000;
  72538. end;
  72539. procedure TCAN1_C1FIFOINT4.clearTXEMPTYIE; inline;
  72540. begin
  72541. pTDefRegMap(@Self)^.clr := $01000000;
  72542. end;
  72543. procedure TCAN1_C1FIFOINT4.setTXEMPTYIE(thebits : TBits_1); inline;
  72544. begin
  72545. if thebits = 0 then
  72546. pTDefRegMap(@Self)^.clr := $01000000
  72547. else
  72548. pTDefRegMap(@Self)^.&set := $01000000;
  72549. end;
  72550. function TCAN1_C1FIFOINT4.getTXEMPTYIE : TBits_1; inline;
  72551. begin
  72552. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  72553. end;
  72554. procedure TCAN1_C1FIFOINT4.setTXHALFIE; inline;
  72555. begin
  72556. pTDefRegMap(@Self)^.&set := $02000000;
  72557. end;
  72558. procedure TCAN1_C1FIFOINT4.clearTXHALFIE; inline;
  72559. begin
  72560. pTDefRegMap(@Self)^.clr := $02000000;
  72561. end;
  72562. procedure TCAN1_C1FIFOINT4.setTXHALFIE(thebits : TBits_1); inline;
  72563. begin
  72564. if thebits = 0 then
  72565. pTDefRegMap(@Self)^.clr := $02000000
  72566. else
  72567. pTDefRegMap(@Self)^.&set := $02000000;
  72568. end;
  72569. function TCAN1_C1FIFOINT4.getTXHALFIE : TBits_1; inline;
  72570. begin
  72571. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  72572. end;
  72573. procedure TCAN1_C1FIFOINT4.setTXNFULLIE; inline;
  72574. begin
  72575. pTDefRegMap(@Self)^.&set := $04000000;
  72576. end;
  72577. procedure TCAN1_C1FIFOINT4.clearTXNFULLIE; inline;
  72578. begin
  72579. pTDefRegMap(@Self)^.clr := $04000000;
  72580. end;
  72581. procedure TCAN1_C1FIFOINT4.setTXNFULLIE(thebits : TBits_1); inline;
  72582. begin
  72583. if thebits = 0 then
  72584. pTDefRegMap(@Self)^.clr := $04000000
  72585. else
  72586. pTDefRegMap(@Self)^.&set := $04000000;
  72587. end;
  72588. function TCAN1_C1FIFOINT4.getTXNFULLIE : TBits_1; inline;
  72589. begin
  72590. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  72591. end;
  72592. procedure TCAN1_C1FIFOINT4.setw(thebits : TBits_32); inline;
  72593. begin
  72594. pTDefRegMap(@Self)^.val := thebits;
  72595. end;
  72596. function TCAN1_C1FIFOINT4.getw : TBits_32; inline;
  72597. begin
  72598. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72599. end;
  72600. procedure TCAN1_C1FIFOCI4.setCFIFOCI(thebits : TBits_5); inline;
  72601. begin
  72602. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  72603. end;
  72604. function TCAN1_C1FIFOCI4.getCFIFOCI : TBits_5; inline;
  72605. begin
  72606. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  72607. end;
  72608. procedure TCAN1_C1FIFOCI4.setw(thebits : TBits_32); inline;
  72609. begin
  72610. pTDefRegMap(@Self)^.val := thebits;
  72611. end;
  72612. function TCAN1_C1FIFOCI4.getw : TBits_32; inline;
  72613. begin
  72614. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72615. end;
  72616. procedure TCAN1_C1FIFOCON5.setTXPRI(thebits : TBits_2); inline;
  72617. begin
  72618. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  72619. end;
  72620. function TCAN1_C1FIFOCON5.getTXPRI : TBits_2; inline;
  72621. begin
  72622. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  72623. end;
  72624. procedure TCAN1_C1FIFOCON5.setRTREN; inline;
  72625. begin
  72626. pTDefRegMap(@Self)^.&set := $00000004;
  72627. end;
  72628. procedure TCAN1_C1FIFOCON5.clearRTREN; inline;
  72629. begin
  72630. pTDefRegMap(@Self)^.clr := $00000004;
  72631. end;
  72632. procedure TCAN1_C1FIFOCON5.setRTREN(thebits : TBits_1); inline;
  72633. begin
  72634. if thebits = 0 then
  72635. pTDefRegMap(@Self)^.clr := $00000004
  72636. else
  72637. pTDefRegMap(@Self)^.&set := $00000004;
  72638. end;
  72639. function TCAN1_C1FIFOCON5.getRTREN : TBits_1; inline;
  72640. begin
  72641. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  72642. end;
  72643. procedure TCAN1_C1FIFOCON5.setTXREQ; inline;
  72644. begin
  72645. pTDefRegMap(@Self)^.&set := $00000008;
  72646. end;
  72647. procedure TCAN1_C1FIFOCON5.clearTXREQ; inline;
  72648. begin
  72649. pTDefRegMap(@Self)^.clr := $00000008;
  72650. end;
  72651. procedure TCAN1_C1FIFOCON5.setTXREQ(thebits : TBits_1); inline;
  72652. begin
  72653. if thebits = 0 then
  72654. pTDefRegMap(@Self)^.clr := $00000008
  72655. else
  72656. pTDefRegMap(@Self)^.&set := $00000008;
  72657. end;
  72658. function TCAN1_C1FIFOCON5.getTXREQ : TBits_1; inline;
  72659. begin
  72660. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  72661. end;
  72662. procedure TCAN1_C1FIFOCON5.setTXERR; inline;
  72663. begin
  72664. pTDefRegMap(@Self)^.&set := $00000010;
  72665. end;
  72666. procedure TCAN1_C1FIFOCON5.clearTXERR; inline;
  72667. begin
  72668. pTDefRegMap(@Self)^.clr := $00000010;
  72669. end;
  72670. procedure TCAN1_C1FIFOCON5.setTXERR(thebits : TBits_1); inline;
  72671. begin
  72672. if thebits = 0 then
  72673. pTDefRegMap(@Self)^.clr := $00000010
  72674. else
  72675. pTDefRegMap(@Self)^.&set := $00000010;
  72676. end;
  72677. function TCAN1_C1FIFOCON5.getTXERR : TBits_1; inline;
  72678. begin
  72679. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  72680. end;
  72681. procedure TCAN1_C1FIFOCON5.setTXLARB; inline;
  72682. begin
  72683. pTDefRegMap(@Self)^.&set := $00000020;
  72684. end;
  72685. procedure TCAN1_C1FIFOCON5.clearTXLARB; inline;
  72686. begin
  72687. pTDefRegMap(@Self)^.clr := $00000020;
  72688. end;
  72689. procedure TCAN1_C1FIFOCON5.setTXLARB(thebits : TBits_1); inline;
  72690. begin
  72691. if thebits = 0 then
  72692. pTDefRegMap(@Self)^.clr := $00000020
  72693. else
  72694. pTDefRegMap(@Self)^.&set := $00000020;
  72695. end;
  72696. function TCAN1_C1FIFOCON5.getTXLARB : TBits_1; inline;
  72697. begin
  72698. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  72699. end;
  72700. procedure TCAN1_C1FIFOCON5.setTXABAT; inline;
  72701. begin
  72702. pTDefRegMap(@Self)^.&set := $00000040;
  72703. end;
  72704. procedure TCAN1_C1FIFOCON5.clearTXABAT; inline;
  72705. begin
  72706. pTDefRegMap(@Self)^.clr := $00000040;
  72707. end;
  72708. procedure TCAN1_C1FIFOCON5.setTXABAT(thebits : TBits_1); inline;
  72709. begin
  72710. if thebits = 0 then
  72711. pTDefRegMap(@Self)^.clr := $00000040
  72712. else
  72713. pTDefRegMap(@Self)^.&set := $00000040;
  72714. end;
  72715. function TCAN1_C1FIFOCON5.getTXABAT : TBits_1; inline;
  72716. begin
  72717. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  72718. end;
  72719. procedure TCAN1_C1FIFOCON5.setTXEN; inline;
  72720. begin
  72721. pTDefRegMap(@Self)^.&set := $00000080;
  72722. end;
  72723. procedure TCAN1_C1FIFOCON5.clearTXEN; inline;
  72724. begin
  72725. pTDefRegMap(@Self)^.clr := $00000080;
  72726. end;
  72727. procedure TCAN1_C1FIFOCON5.setTXEN(thebits : TBits_1); inline;
  72728. begin
  72729. if thebits = 0 then
  72730. pTDefRegMap(@Self)^.clr := $00000080
  72731. else
  72732. pTDefRegMap(@Self)^.&set := $00000080;
  72733. end;
  72734. function TCAN1_C1FIFOCON5.getTXEN : TBits_1; inline;
  72735. begin
  72736. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  72737. end;
  72738. procedure TCAN1_C1FIFOCON5.setDONLY; inline;
  72739. begin
  72740. pTDefRegMap(@Self)^.&set := $00001000;
  72741. end;
  72742. procedure TCAN1_C1FIFOCON5.clearDONLY; inline;
  72743. begin
  72744. pTDefRegMap(@Self)^.clr := $00001000;
  72745. end;
  72746. procedure TCAN1_C1FIFOCON5.setDONLY(thebits : TBits_1); inline;
  72747. begin
  72748. if thebits = 0 then
  72749. pTDefRegMap(@Self)^.clr := $00001000
  72750. else
  72751. pTDefRegMap(@Self)^.&set := $00001000;
  72752. end;
  72753. function TCAN1_C1FIFOCON5.getDONLY : TBits_1; inline;
  72754. begin
  72755. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  72756. end;
  72757. procedure TCAN1_C1FIFOCON5.setUINC; inline;
  72758. begin
  72759. pTDefRegMap(@Self)^.&set := $00002000;
  72760. end;
  72761. procedure TCAN1_C1FIFOCON5.clearUINC; inline;
  72762. begin
  72763. pTDefRegMap(@Self)^.clr := $00002000;
  72764. end;
  72765. procedure TCAN1_C1FIFOCON5.setUINC(thebits : TBits_1); inline;
  72766. begin
  72767. if thebits = 0 then
  72768. pTDefRegMap(@Self)^.clr := $00002000
  72769. else
  72770. pTDefRegMap(@Self)^.&set := $00002000;
  72771. end;
  72772. function TCAN1_C1FIFOCON5.getUINC : TBits_1; inline;
  72773. begin
  72774. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  72775. end;
  72776. procedure TCAN1_C1FIFOCON5.setFRESET; inline;
  72777. begin
  72778. pTDefRegMap(@Self)^.&set := $00004000;
  72779. end;
  72780. procedure TCAN1_C1FIFOCON5.clearFRESET; inline;
  72781. begin
  72782. pTDefRegMap(@Self)^.clr := $00004000;
  72783. end;
  72784. procedure TCAN1_C1FIFOCON5.setFRESET(thebits : TBits_1); inline;
  72785. begin
  72786. if thebits = 0 then
  72787. pTDefRegMap(@Self)^.clr := $00004000
  72788. else
  72789. pTDefRegMap(@Self)^.&set := $00004000;
  72790. end;
  72791. function TCAN1_C1FIFOCON5.getFRESET : TBits_1; inline;
  72792. begin
  72793. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  72794. end;
  72795. procedure TCAN1_C1FIFOCON5.setFSIZE(thebits : TBits_5); inline;
  72796. begin
  72797. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  72798. end;
  72799. function TCAN1_C1FIFOCON5.getFSIZE : TBits_5; inline;
  72800. begin
  72801. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  72802. end;
  72803. procedure TCAN1_C1FIFOCON5.setw(thebits : TBits_32); inline;
  72804. begin
  72805. pTDefRegMap(@Self)^.val := thebits;
  72806. end;
  72807. function TCAN1_C1FIFOCON5.getw : TBits_32; inline;
  72808. begin
  72809. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  72810. end;
  72811. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIF; inline;
  72812. begin
  72813. pTDefRegMap(@Self)^.&set := $00000001;
  72814. end;
  72815. procedure TCAN1_C1FIFOINT5.clearRXNEMPTYIF; inline;
  72816. begin
  72817. pTDefRegMap(@Self)^.clr := $00000001;
  72818. end;
  72819. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIF(thebits : TBits_1); inline;
  72820. begin
  72821. if thebits = 0 then
  72822. pTDefRegMap(@Self)^.clr := $00000001
  72823. else
  72824. pTDefRegMap(@Self)^.&set := $00000001;
  72825. end;
  72826. function TCAN1_C1FIFOINT5.getRXNEMPTYIF : TBits_1; inline;
  72827. begin
  72828. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  72829. end;
  72830. procedure TCAN1_C1FIFOINT5.setRXHALFIF; inline;
  72831. begin
  72832. pTDefRegMap(@Self)^.&set := $00000002;
  72833. end;
  72834. procedure TCAN1_C1FIFOINT5.clearRXHALFIF; inline;
  72835. begin
  72836. pTDefRegMap(@Self)^.clr := $00000002;
  72837. end;
  72838. procedure TCAN1_C1FIFOINT5.setRXHALFIF(thebits : TBits_1); inline;
  72839. begin
  72840. if thebits = 0 then
  72841. pTDefRegMap(@Self)^.clr := $00000002
  72842. else
  72843. pTDefRegMap(@Self)^.&set := $00000002;
  72844. end;
  72845. function TCAN1_C1FIFOINT5.getRXHALFIF : TBits_1; inline;
  72846. begin
  72847. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  72848. end;
  72849. procedure TCAN1_C1FIFOINT5.setRXFULLIF; inline;
  72850. begin
  72851. pTDefRegMap(@Self)^.&set := $00000004;
  72852. end;
  72853. procedure TCAN1_C1FIFOINT5.clearRXFULLIF; inline;
  72854. begin
  72855. pTDefRegMap(@Self)^.clr := $00000004;
  72856. end;
  72857. procedure TCAN1_C1FIFOINT5.setRXFULLIF(thebits : TBits_1); inline;
  72858. begin
  72859. if thebits = 0 then
  72860. pTDefRegMap(@Self)^.clr := $00000004
  72861. else
  72862. pTDefRegMap(@Self)^.&set := $00000004;
  72863. end;
  72864. function TCAN1_C1FIFOINT5.getRXFULLIF : TBits_1; inline;
  72865. begin
  72866. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  72867. end;
  72868. procedure TCAN1_C1FIFOINT5.setRXOVFLIF; inline;
  72869. begin
  72870. pTDefRegMap(@Self)^.&set := $00000008;
  72871. end;
  72872. procedure TCAN1_C1FIFOINT5.clearRXOVFLIF; inline;
  72873. begin
  72874. pTDefRegMap(@Self)^.clr := $00000008;
  72875. end;
  72876. procedure TCAN1_C1FIFOINT5.setRXOVFLIF(thebits : TBits_1); inline;
  72877. begin
  72878. if thebits = 0 then
  72879. pTDefRegMap(@Self)^.clr := $00000008
  72880. else
  72881. pTDefRegMap(@Self)^.&set := $00000008;
  72882. end;
  72883. function TCAN1_C1FIFOINT5.getRXOVFLIF : TBits_1; inline;
  72884. begin
  72885. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  72886. end;
  72887. procedure TCAN1_C1FIFOINT5.setTXEMPTYIF; inline;
  72888. begin
  72889. pTDefRegMap(@Self)^.&set := $00000100;
  72890. end;
  72891. procedure TCAN1_C1FIFOINT5.clearTXEMPTYIF; inline;
  72892. begin
  72893. pTDefRegMap(@Self)^.clr := $00000100;
  72894. end;
  72895. procedure TCAN1_C1FIFOINT5.setTXEMPTYIF(thebits : TBits_1); inline;
  72896. begin
  72897. if thebits = 0 then
  72898. pTDefRegMap(@Self)^.clr := $00000100
  72899. else
  72900. pTDefRegMap(@Self)^.&set := $00000100;
  72901. end;
  72902. function TCAN1_C1FIFOINT5.getTXEMPTYIF : TBits_1; inline;
  72903. begin
  72904. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  72905. end;
  72906. procedure TCAN1_C1FIFOINT5.setTXHALFIF; inline;
  72907. begin
  72908. pTDefRegMap(@Self)^.&set := $00000200;
  72909. end;
  72910. procedure TCAN1_C1FIFOINT5.clearTXHALFIF; inline;
  72911. begin
  72912. pTDefRegMap(@Self)^.clr := $00000200;
  72913. end;
  72914. procedure TCAN1_C1FIFOINT5.setTXHALFIF(thebits : TBits_1); inline;
  72915. begin
  72916. if thebits = 0 then
  72917. pTDefRegMap(@Self)^.clr := $00000200
  72918. else
  72919. pTDefRegMap(@Self)^.&set := $00000200;
  72920. end;
  72921. function TCAN1_C1FIFOINT5.getTXHALFIF : TBits_1; inline;
  72922. begin
  72923. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  72924. end;
  72925. procedure TCAN1_C1FIFOINT5.setTXNFULLIF; inline;
  72926. begin
  72927. pTDefRegMap(@Self)^.&set := $00000400;
  72928. end;
  72929. procedure TCAN1_C1FIFOINT5.clearTXNFULLIF; inline;
  72930. begin
  72931. pTDefRegMap(@Self)^.clr := $00000400;
  72932. end;
  72933. procedure TCAN1_C1FIFOINT5.setTXNFULLIF(thebits : TBits_1); inline;
  72934. begin
  72935. if thebits = 0 then
  72936. pTDefRegMap(@Self)^.clr := $00000400
  72937. else
  72938. pTDefRegMap(@Self)^.&set := $00000400;
  72939. end;
  72940. function TCAN1_C1FIFOINT5.getTXNFULLIF : TBits_1; inline;
  72941. begin
  72942. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  72943. end;
  72944. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIE; inline;
  72945. begin
  72946. pTDefRegMap(@Self)^.&set := $00010000;
  72947. end;
  72948. procedure TCAN1_C1FIFOINT5.clearRXNEMPTYIE; inline;
  72949. begin
  72950. pTDefRegMap(@Self)^.clr := $00010000;
  72951. end;
  72952. procedure TCAN1_C1FIFOINT5.setRXNEMPTYIE(thebits : TBits_1); inline;
  72953. begin
  72954. if thebits = 0 then
  72955. pTDefRegMap(@Self)^.clr := $00010000
  72956. else
  72957. pTDefRegMap(@Self)^.&set := $00010000;
  72958. end;
  72959. function TCAN1_C1FIFOINT5.getRXNEMPTYIE : TBits_1; inline;
  72960. begin
  72961. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  72962. end;
  72963. procedure TCAN1_C1FIFOINT5.setRXHALFIE; inline;
  72964. begin
  72965. pTDefRegMap(@Self)^.&set := $00020000;
  72966. end;
  72967. procedure TCAN1_C1FIFOINT5.clearRXHALFIE; inline;
  72968. begin
  72969. pTDefRegMap(@Self)^.clr := $00020000;
  72970. end;
  72971. procedure TCAN1_C1FIFOINT5.setRXHALFIE(thebits : TBits_1); inline;
  72972. begin
  72973. if thebits = 0 then
  72974. pTDefRegMap(@Self)^.clr := $00020000
  72975. else
  72976. pTDefRegMap(@Self)^.&set := $00020000;
  72977. end;
  72978. function TCAN1_C1FIFOINT5.getRXHALFIE : TBits_1; inline;
  72979. begin
  72980. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  72981. end;
  72982. procedure TCAN1_C1FIFOINT5.setRXFULLIE; inline;
  72983. begin
  72984. pTDefRegMap(@Self)^.&set := $00040000;
  72985. end;
  72986. procedure TCAN1_C1FIFOINT5.clearRXFULLIE; inline;
  72987. begin
  72988. pTDefRegMap(@Self)^.clr := $00040000;
  72989. end;
  72990. procedure TCAN1_C1FIFOINT5.setRXFULLIE(thebits : TBits_1); inline;
  72991. begin
  72992. if thebits = 0 then
  72993. pTDefRegMap(@Self)^.clr := $00040000
  72994. else
  72995. pTDefRegMap(@Self)^.&set := $00040000;
  72996. end;
  72997. function TCAN1_C1FIFOINT5.getRXFULLIE : TBits_1; inline;
  72998. begin
  72999. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  73000. end;
  73001. procedure TCAN1_C1FIFOINT5.setRXOVFLIE; inline;
  73002. begin
  73003. pTDefRegMap(@Self)^.&set := $00080000;
  73004. end;
  73005. procedure TCAN1_C1FIFOINT5.clearRXOVFLIE; inline;
  73006. begin
  73007. pTDefRegMap(@Self)^.clr := $00080000;
  73008. end;
  73009. procedure TCAN1_C1FIFOINT5.setRXOVFLIE(thebits : TBits_1); inline;
  73010. begin
  73011. if thebits = 0 then
  73012. pTDefRegMap(@Self)^.clr := $00080000
  73013. else
  73014. pTDefRegMap(@Self)^.&set := $00080000;
  73015. end;
  73016. function TCAN1_C1FIFOINT5.getRXOVFLIE : TBits_1; inline;
  73017. begin
  73018. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73019. end;
  73020. procedure TCAN1_C1FIFOINT5.setTXEMPTYIE; inline;
  73021. begin
  73022. pTDefRegMap(@Self)^.&set := $01000000;
  73023. end;
  73024. procedure TCAN1_C1FIFOINT5.clearTXEMPTYIE; inline;
  73025. begin
  73026. pTDefRegMap(@Self)^.clr := $01000000;
  73027. end;
  73028. procedure TCAN1_C1FIFOINT5.setTXEMPTYIE(thebits : TBits_1); inline;
  73029. begin
  73030. if thebits = 0 then
  73031. pTDefRegMap(@Self)^.clr := $01000000
  73032. else
  73033. pTDefRegMap(@Self)^.&set := $01000000;
  73034. end;
  73035. function TCAN1_C1FIFOINT5.getTXEMPTYIE : TBits_1; inline;
  73036. begin
  73037. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  73038. end;
  73039. procedure TCAN1_C1FIFOINT5.setTXHALFIE; inline;
  73040. begin
  73041. pTDefRegMap(@Self)^.&set := $02000000;
  73042. end;
  73043. procedure TCAN1_C1FIFOINT5.clearTXHALFIE; inline;
  73044. begin
  73045. pTDefRegMap(@Self)^.clr := $02000000;
  73046. end;
  73047. procedure TCAN1_C1FIFOINT5.setTXHALFIE(thebits : TBits_1); inline;
  73048. begin
  73049. if thebits = 0 then
  73050. pTDefRegMap(@Self)^.clr := $02000000
  73051. else
  73052. pTDefRegMap(@Self)^.&set := $02000000;
  73053. end;
  73054. function TCAN1_C1FIFOINT5.getTXHALFIE : TBits_1; inline;
  73055. begin
  73056. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  73057. end;
  73058. procedure TCAN1_C1FIFOINT5.setTXNFULLIE; inline;
  73059. begin
  73060. pTDefRegMap(@Self)^.&set := $04000000;
  73061. end;
  73062. procedure TCAN1_C1FIFOINT5.clearTXNFULLIE; inline;
  73063. begin
  73064. pTDefRegMap(@Self)^.clr := $04000000;
  73065. end;
  73066. procedure TCAN1_C1FIFOINT5.setTXNFULLIE(thebits : TBits_1); inline;
  73067. begin
  73068. if thebits = 0 then
  73069. pTDefRegMap(@Self)^.clr := $04000000
  73070. else
  73071. pTDefRegMap(@Self)^.&set := $04000000;
  73072. end;
  73073. function TCAN1_C1FIFOINT5.getTXNFULLIE : TBits_1; inline;
  73074. begin
  73075. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  73076. end;
  73077. procedure TCAN1_C1FIFOINT5.setw(thebits : TBits_32); inline;
  73078. begin
  73079. pTDefRegMap(@Self)^.val := thebits;
  73080. end;
  73081. function TCAN1_C1FIFOINT5.getw : TBits_32; inline;
  73082. begin
  73083. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73084. end;
  73085. procedure TCAN1_C1FIFOCI5.setCFIFOCI(thebits : TBits_5); inline;
  73086. begin
  73087. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  73088. end;
  73089. function TCAN1_C1FIFOCI5.getCFIFOCI : TBits_5; inline;
  73090. begin
  73091. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  73092. end;
  73093. procedure TCAN1_C1FIFOCI5.setw(thebits : TBits_32); inline;
  73094. begin
  73095. pTDefRegMap(@Self)^.val := thebits;
  73096. end;
  73097. function TCAN1_C1FIFOCI5.getw : TBits_32; inline;
  73098. begin
  73099. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73100. end;
  73101. procedure TCAN1_C1FIFOCON6.setTXPRI(thebits : TBits_2); inline;
  73102. begin
  73103. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  73104. end;
  73105. function TCAN1_C1FIFOCON6.getTXPRI : TBits_2; inline;
  73106. begin
  73107. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  73108. end;
  73109. procedure TCAN1_C1FIFOCON6.setRTREN; inline;
  73110. begin
  73111. pTDefRegMap(@Self)^.&set := $00000004;
  73112. end;
  73113. procedure TCAN1_C1FIFOCON6.clearRTREN; inline;
  73114. begin
  73115. pTDefRegMap(@Self)^.clr := $00000004;
  73116. end;
  73117. procedure TCAN1_C1FIFOCON6.setRTREN(thebits : TBits_1); inline;
  73118. begin
  73119. if thebits = 0 then
  73120. pTDefRegMap(@Self)^.clr := $00000004
  73121. else
  73122. pTDefRegMap(@Self)^.&set := $00000004;
  73123. end;
  73124. function TCAN1_C1FIFOCON6.getRTREN : TBits_1; inline;
  73125. begin
  73126. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  73127. end;
  73128. procedure TCAN1_C1FIFOCON6.setTXREQ; inline;
  73129. begin
  73130. pTDefRegMap(@Self)^.&set := $00000008;
  73131. end;
  73132. procedure TCAN1_C1FIFOCON6.clearTXREQ; inline;
  73133. begin
  73134. pTDefRegMap(@Self)^.clr := $00000008;
  73135. end;
  73136. procedure TCAN1_C1FIFOCON6.setTXREQ(thebits : TBits_1); inline;
  73137. begin
  73138. if thebits = 0 then
  73139. pTDefRegMap(@Self)^.clr := $00000008
  73140. else
  73141. pTDefRegMap(@Self)^.&set := $00000008;
  73142. end;
  73143. function TCAN1_C1FIFOCON6.getTXREQ : TBits_1; inline;
  73144. begin
  73145. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  73146. end;
  73147. procedure TCAN1_C1FIFOCON6.setTXERR; inline;
  73148. begin
  73149. pTDefRegMap(@Self)^.&set := $00000010;
  73150. end;
  73151. procedure TCAN1_C1FIFOCON6.clearTXERR; inline;
  73152. begin
  73153. pTDefRegMap(@Self)^.clr := $00000010;
  73154. end;
  73155. procedure TCAN1_C1FIFOCON6.setTXERR(thebits : TBits_1); inline;
  73156. begin
  73157. if thebits = 0 then
  73158. pTDefRegMap(@Self)^.clr := $00000010
  73159. else
  73160. pTDefRegMap(@Self)^.&set := $00000010;
  73161. end;
  73162. function TCAN1_C1FIFOCON6.getTXERR : TBits_1; inline;
  73163. begin
  73164. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  73165. end;
  73166. procedure TCAN1_C1FIFOCON6.setTXLARB; inline;
  73167. begin
  73168. pTDefRegMap(@Self)^.&set := $00000020;
  73169. end;
  73170. procedure TCAN1_C1FIFOCON6.clearTXLARB; inline;
  73171. begin
  73172. pTDefRegMap(@Self)^.clr := $00000020;
  73173. end;
  73174. procedure TCAN1_C1FIFOCON6.setTXLARB(thebits : TBits_1); inline;
  73175. begin
  73176. if thebits = 0 then
  73177. pTDefRegMap(@Self)^.clr := $00000020
  73178. else
  73179. pTDefRegMap(@Self)^.&set := $00000020;
  73180. end;
  73181. function TCAN1_C1FIFOCON6.getTXLARB : TBits_1; inline;
  73182. begin
  73183. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  73184. end;
  73185. procedure TCAN1_C1FIFOCON6.setTXABAT; inline;
  73186. begin
  73187. pTDefRegMap(@Self)^.&set := $00000040;
  73188. end;
  73189. procedure TCAN1_C1FIFOCON6.clearTXABAT; inline;
  73190. begin
  73191. pTDefRegMap(@Self)^.clr := $00000040;
  73192. end;
  73193. procedure TCAN1_C1FIFOCON6.setTXABAT(thebits : TBits_1); inline;
  73194. begin
  73195. if thebits = 0 then
  73196. pTDefRegMap(@Self)^.clr := $00000040
  73197. else
  73198. pTDefRegMap(@Self)^.&set := $00000040;
  73199. end;
  73200. function TCAN1_C1FIFOCON6.getTXABAT : TBits_1; inline;
  73201. begin
  73202. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  73203. end;
  73204. procedure TCAN1_C1FIFOCON6.setTXEN; inline;
  73205. begin
  73206. pTDefRegMap(@Self)^.&set := $00000080;
  73207. end;
  73208. procedure TCAN1_C1FIFOCON6.clearTXEN; inline;
  73209. begin
  73210. pTDefRegMap(@Self)^.clr := $00000080;
  73211. end;
  73212. procedure TCAN1_C1FIFOCON6.setTXEN(thebits : TBits_1); inline;
  73213. begin
  73214. if thebits = 0 then
  73215. pTDefRegMap(@Self)^.clr := $00000080
  73216. else
  73217. pTDefRegMap(@Self)^.&set := $00000080;
  73218. end;
  73219. function TCAN1_C1FIFOCON6.getTXEN : TBits_1; inline;
  73220. begin
  73221. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  73222. end;
  73223. procedure TCAN1_C1FIFOCON6.setDONLY; inline;
  73224. begin
  73225. pTDefRegMap(@Self)^.&set := $00001000;
  73226. end;
  73227. procedure TCAN1_C1FIFOCON6.clearDONLY; inline;
  73228. begin
  73229. pTDefRegMap(@Self)^.clr := $00001000;
  73230. end;
  73231. procedure TCAN1_C1FIFOCON6.setDONLY(thebits : TBits_1); inline;
  73232. begin
  73233. if thebits = 0 then
  73234. pTDefRegMap(@Self)^.clr := $00001000
  73235. else
  73236. pTDefRegMap(@Self)^.&set := $00001000;
  73237. end;
  73238. function TCAN1_C1FIFOCON6.getDONLY : TBits_1; inline;
  73239. begin
  73240. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  73241. end;
  73242. procedure TCAN1_C1FIFOCON6.setUINC; inline;
  73243. begin
  73244. pTDefRegMap(@Self)^.&set := $00002000;
  73245. end;
  73246. procedure TCAN1_C1FIFOCON6.clearUINC; inline;
  73247. begin
  73248. pTDefRegMap(@Self)^.clr := $00002000;
  73249. end;
  73250. procedure TCAN1_C1FIFOCON6.setUINC(thebits : TBits_1); inline;
  73251. begin
  73252. if thebits = 0 then
  73253. pTDefRegMap(@Self)^.clr := $00002000
  73254. else
  73255. pTDefRegMap(@Self)^.&set := $00002000;
  73256. end;
  73257. function TCAN1_C1FIFOCON6.getUINC : TBits_1; inline;
  73258. begin
  73259. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  73260. end;
  73261. procedure TCAN1_C1FIFOCON6.setFRESET; inline;
  73262. begin
  73263. pTDefRegMap(@Self)^.&set := $00004000;
  73264. end;
  73265. procedure TCAN1_C1FIFOCON6.clearFRESET; inline;
  73266. begin
  73267. pTDefRegMap(@Self)^.clr := $00004000;
  73268. end;
  73269. procedure TCAN1_C1FIFOCON6.setFRESET(thebits : TBits_1); inline;
  73270. begin
  73271. if thebits = 0 then
  73272. pTDefRegMap(@Self)^.clr := $00004000
  73273. else
  73274. pTDefRegMap(@Self)^.&set := $00004000;
  73275. end;
  73276. function TCAN1_C1FIFOCON6.getFRESET : TBits_1; inline;
  73277. begin
  73278. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  73279. end;
  73280. procedure TCAN1_C1FIFOCON6.setFSIZE(thebits : TBits_5); inline;
  73281. begin
  73282. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73283. end;
  73284. function TCAN1_C1FIFOCON6.getFSIZE : TBits_5; inline;
  73285. begin
  73286. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73287. end;
  73288. procedure TCAN1_C1FIFOCON6.setw(thebits : TBits_32); inline;
  73289. begin
  73290. pTDefRegMap(@Self)^.val := thebits;
  73291. end;
  73292. function TCAN1_C1FIFOCON6.getw : TBits_32; inline;
  73293. begin
  73294. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73295. end;
  73296. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIF; inline;
  73297. begin
  73298. pTDefRegMap(@Self)^.&set := $00000001;
  73299. end;
  73300. procedure TCAN1_C1FIFOINT6.clearRXNEMPTYIF; inline;
  73301. begin
  73302. pTDefRegMap(@Self)^.clr := $00000001;
  73303. end;
  73304. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIF(thebits : TBits_1); inline;
  73305. begin
  73306. if thebits = 0 then
  73307. pTDefRegMap(@Self)^.clr := $00000001
  73308. else
  73309. pTDefRegMap(@Self)^.&set := $00000001;
  73310. end;
  73311. function TCAN1_C1FIFOINT6.getRXNEMPTYIF : TBits_1; inline;
  73312. begin
  73313. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  73314. end;
  73315. procedure TCAN1_C1FIFOINT6.setRXHALFIF; inline;
  73316. begin
  73317. pTDefRegMap(@Self)^.&set := $00000002;
  73318. end;
  73319. procedure TCAN1_C1FIFOINT6.clearRXHALFIF; inline;
  73320. begin
  73321. pTDefRegMap(@Self)^.clr := $00000002;
  73322. end;
  73323. procedure TCAN1_C1FIFOINT6.setRXHALFIF(thebits : TBits_1); inline;
  73324. begin
  73325. if thebits = 0 then
  73326. pTDefRegMap(@Self)^.clr := $00000002
  73327. else
  73328. pTDefRegMap(@Self)^.&set := $00000002;
  73329. end;
  73330. function TCAN1_C1FIFOINT6.getRXHALFIF : TBits_1; inline;
  73331. begin
  73332. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  73333. end;
  73334. procedure TCAN1_C1FIFOINT6.setRXFULLIF; inline;
  73335. begin
  73336. pTDefRegMap(@Self)^.&set := $00000004;
  73337. end;
  73338. procedure TCAN1_C1FIFOINT6.clearRXFULLIF; inline;
  73339. begin
  73340. pTDefRegMap(@Self)^.clr := $00000004;
  73341. end;
  73342. procedure TCAN1_C1FIFOINT6.setRXFULLIF(thebits : TBits_1); inline;
  73343. begin
  73344. if thebits = 0 then
  73345. pTDefRegMap(@Self)^.clr := $00000004
  73346. else
  73347. pTDefRegMap(@Self)^.&set := $00000004;
  73348. end;
  73349. function TCAN1_C1FIFOINT6.getRXFULLIF : TBits_1; inline;
  73350. begin
  73351. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  73352. end;
  73353. procedure TCAN1_C1FIFOINT6.setRXOVFLIF; inline;
  73354. begin
  73355. pTDefRegMap(@Self)^.&set := $00000008;
  73356. end;
  73357. procedure TCAN1_C1FIFOINT6.clearRXOVFLIF; inline;
  73358. begin
  73359. pTDefRegMap(@Self)^.clr := $00000008;
  73360. end;
  73361. procedure TCAN1_C1FIFOINT6.setRXOVFLIF(thebits : TBits_1); inline;
  73362. begin
  73363. if thebits = 0 then
  73364. pTDefRegMap(@Self)^.clr := $00000008
  73365. else
  73366. pTDefRegMap(@Self)^.&set := $00000008;
  73367. end;
  73368. function TCAN1_C1FIFOINT6.getRXOVFLIF : TBits_1; inline;
  73369. begin
  73370. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  73371. end;
  73372. procedure TCAN1_C1FIFOINT6.setTXEMPTYIF; inline;
  73373. begin
  73374. pTDefRegMap(@Self)^.&set := $00000100;
  73375. end;
  73376. procedure TCAN1_C1FIFOINT6.clearTXEMPTYIF; inline;
  73377. begin
  73378. pTDefRegMap(@Self)^.clr := $00000100;
  73379. end;
  73380. procedure TCAN1_C1FIFOINT6.setTXEMPTYIF(thebits : TBits_1); inline;
  73381. begin
  73382. if thebits = 0 then
  73383. pTDefRegMap(@Self)^.clr := $00000100
  73384. else
  73385. pTDefRegMap(@Self)^.&set := $00000100;
  73386. end;
  73387. function TCAN1_C1FIFOINT6.getTXEMPTYIF : TBits_1; inline;
  73388. begin
  73389. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  73390. end;
  73391. procedure TCAN1_C1FIFOINT6.setTXHALFIF; inline;
  73392. begin
  73393. pTDefRegMap(@Self)^.&set := $00000200;
  73394. end;
  73395. procedure TCAN1_C1FIFOINT6.clearTXHALFIF; inline;
  73396. begin
  73397. pTDefRegMap(@Self)^.clr := $00000200;
  73398. end;
  73399. procedure TCAN1_C1FIFOINT6.setTXHALFIF(thebits : TBits_1); inline;
  73400. begin
  73401. if thebits = 0 then
  73402. pTDefRegMap(@Self)^.clr := $00000200
  73403. else
  73404. pTDefRegMap(@Self)^.&set := $00000200;
  73405. end;
  73406. function TCAN1_C1FIFOINT6.getTXHALFIF : TBits_1; inline;
  73407. begin
  73408. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  73409. end;
  73410. procedure TCAN1_C1FIFOINT6.setTXNFULLIF; inline;
  73411. begin
  73412. pTDefRegMap(@Self)^.&set := $00000400;
  73413. end;
  73414. procedure TCAN1_C1FIFOINT6.clearTXNFULLIF; inline;
  73415. begin
  73416. pTDefRegMap(@Self)^.clr := $00000400;
  73417. end;
  73418. procedure TCAN1_C1FIFOINT6.setTXNFULLIF(thebits : TBits_1); inline;
  73419. begin
  73420. if thebits = 0 then
  73421. pTDefRegMap(@Self)^.clr := $00000400
  73422. else
  73423. pTDefRegMap(@Self)^.&set := $00000400;
  73424. end;
  73425. function TCAN1_C1FIFOINT6.getTXNFULLIF : TBits_1; inline;
  73426. begin
  73427. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  73428. end;
  73429. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIE; inline;
  73430. begin
  73431. pTDefRegMap(@Self)^.&set := $00010000;
  73432. end;
  73433. procedure TCAN1_C1FIFOINT6.clearRXNEMPTYIE; inline;
  73434. begin
  73435. pTDefRegMap(@Self)^.clr := $00010000;
  73436. end;
  73437. procedure TCAN1_C1FIFOINT6.setRXNEMPTYIE(thebits : TBits_1); inline;
  73438. begin
  73439. if thebits = 0 then
  73440. pTDefRegMap(@Self)^.clr := $00010000
  73441. else
  73442. pTDefRegMap(@Self)^.&set := $00010000;
  73443. end;
  73444. function TCAN1_C1FIFOINT6.getRXNEMPTYIE : TBits_1; inline;
  73445. begin
  73446. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  73447. end;
  73448. procedure TCAN1_C1FIFOINT6.setRXHALFIE; inline;
  73449. begin
  73450. pTDefRegMap(@Self)^.&set := $00020000;
  73451. end;
  73452. procedure TCAN1_C1FIFOINT6.clearRXHALFIE; inline;
  73453. begin
  73454. pTDefRegMap(@Self)^.clr := $00020000;
  73455. end;
  73456. procedure TCAN1_C1FIFOINT6.setRXHALFIE(thebits : TBits_1); inline;
  73457. begin
  73458. if thebits = 0 then
  73459. pTDefRegMap(@Self)^.clr := $00020000
  73460. else
  73461. pTDefRegMap(@Self)^.&set := $00020000;
  73462. end;
  73463. function TCAN1_C1FIFOINT6.getRXHALFIE : TBits_1; inline;
  73464. begin
  73465. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  73466. end;
  73467. procedure TCAN1_C1FIFOINT6.setRXFULLIE; inline;
  73468. begin
  73469. pTDefRegMap(@Self)^.&set := $00040000;
  73470. end;
  73471. procedure TCAN1_C1FIFOINT6.clearRXFULLIE; inline;
  73472. begin
  73473. pTDefRegMap(@Self)^.clr := $00040000;
  73474. end;
  73475. procedure TCAN1_C1FIFOINT6.setRXFULLIE(thebits : TBits_1); inline;
  73476. begin
  73477. if thebits = 0 then
  73478. pTDefRegMap(@Self)^.clr := $00040000
  73479. else
  73480. pTDefRegMap(@Self)^.&set := $00040000;
  73481. end;
  73482. function TCAN1_C1FIFOINT6.getRXFULLIE : TBits_1; inline;
  73483. begin
  73484. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  73485. end;
  73486. procedure TCAN1_C1FIFOINT6.setRXOVFLIE; inline;
  73487. begin
  73488. pTDefRegMap(@Self)^.&set := $00080000;
  73489. end;
  73490. procedure TCAN1_C1FIFOINT6.clearRXOVFLIE; inline;
  73491. begin
  73492. pTDefRegMap(@Self)^.clr := $00080000;
  73493. end;
  73494. procedure TCAN1_C1FIFOINT6.setRXOVFLIE(thebits : TBits_1); inline;
  73495. begin
  73496. if thebits = 0 then
  73497. pTDefRegMap(@Self)^.clr := $00080000
  73498. else
  73499. pTDefRegMap(@Self)^.&set := $00080000;
  73500. end;
  73501. function TCAN1_C1FIFOINT6.getRXOVFLIE : TBits_1; inline;
  73502. begin
  73503. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73504. end;
  73505. procedure TCAN1_C1FIFOINT6.setTXEMPTYIE; inline;
  73506. begin
  73507. pTDefRegMap(@Self)^.&set := $01000000;
  73508. end;
  73509. procedure TCAN1_C1FIFOINT6.clearTXEMPTYIE; inline;
  73510. begin
  73511. pTDefRegMap(@Self)^.clr := $01000000;
  73512. end;
  73513. procedure TCAN1_C1FIFOINT6.setTXEMPTYIE(thebits : TBits_1); inline;
  73514. begin
  73515. if thebits = 0 then
  73516. pTDefRegMap(@Self)^.clr := $01000000
  73517. else
  73518. pTDefRegMap(@Self)^.&set := $01000000;
  73519. end;
  73520. function TCAN1_C1FIFOINT6.getTXEMPTYIE : TBits_1; inline;
  73521. begin
  73522. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  73523. end;
  73524. procedure TCAN1_C1FIFOINT6.setTXHALFIE; inline;
  73525. begin
  73526. pTDefRegMap(@Self)^.&set := $02000000;
  73527. end;
  73528. procedure TCAN1_C1FIFOINT6.clearTXHALFIE; inline;
  73529. begin
  73530. pTDefRegMap(@Self)^.clr := $02000000;
  73531. end;
  73532. procedure TCAN1_C1FIFOINT6.setTXHALFIE(thebits : TBits_1); inline;
  73533. begin
  73534. if thebits = 0 then
  73535. pTDefRegMap(@Self)^.clr := $02000000
  73536. else
  73537. pTDefRegMap(@Self)^.&set := $02000000;
  73538. end;
  73539. function TCAN1_C1FIFOINT6.getTXHALFIE : TBits_1; inline;
  73540. begin
  73541. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  73542. end;
  73543. procedure TCAN1_C1FIFOINT6.setTXNFULLIE; inline;
  73544. begin
  73545. pTDefRegMap(@Self)^.&set := $04000000;
  73546. end;
  73547. procedure TCAN1_C1FIFOINT6.clearTXNFULLIE; inline;
  73548. begin
  73549. pTDefRegMap(@Self)^.clr := $04000000;
  73550. end;
  73551. procedure TCAN1_C1FIFOINT6.setTXNFULLIE(thebits : TBits_1); inline;
  73552. begin
  73553. if thebits = 0 then
  73554. pTDefRegMap(@Self)^.clr := $04000000
  73555. else
  73556. pTDefRegMap(@Self)^.&set := $04000000;
  73557. end;
  73558. function TCAN1_C1FIFOINT6.getTXNFULLIE : TBits_1; inline;
  73559. begin
  73560. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  73561. end;
  73562. procedure TCAN1_C1FIFOINT6.setw(thebits : TBits_32); inline;
  73563. begin
  73564. pTDefRegMap(@Self)^.val := thebits;
  73565. end;
  73566. function TCAN1_C1FIFOINT6.getw : TBits_32; inline;
  73567. begin
  73568. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73569. end;
  73570. procedure TCAN1_C1FIFOCI6.setCFIFOCI(thebits : TBits_5); inline;
  73571. begin
  73572. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  73573. end;
  73574. function TCAN1_C1FIFOCI6.getCFIFOCI : TBits_5; inline;
  73575. begin
  73576. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  73577. end;
  73578. procedure TCAN1_C1FIFOCI6.setw(thebits : TBits_32); inline;
  73579. begin
  73580. pTDefRegMap(@Self)^.val := thebits;
  73581. end;
  73582. function TCAN1_C1FIFOCI6.getw : TBits_32; inline;
  73583. begin
  73584. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73585. end;
  73586. procedure TCAN1_C1FIFOCON7.setTXPRI(thebits : TBits_2); inline;
  73587. begin
  73588. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  73589. end;
  73590. function TCAN1_C1FIFOCON7.getTXPRI : TBits_2; inline;
  73591. begin
  73592. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  73593. end;
  73594. procedure TCAN1_C1FIFOCON7.setRTREN; inline;
  73595. begin
  73596. pTDefRegMap(@Self)^.&set := $00000004;
  73597. end;
  73598. procedure TCAN1_C1FIFOCON7.clearRTREN; inline;
  73599. begin
  73600. pTDefRegMap(@Self)^.clr := $00000004;
  73601. end;
  73602. procedure TCAN1_C1FIFOCON7.setRTREN(thebits : TBits_1); inline;
  73603. begin
  73604. if thebits = 0 then
  73605. pTDefRegMap(@Self)^.clr := $00000004
  73606. else
  73607. pTDefRegMap(@Self)^.&set := $00000004;
  73608. end;
  73609. function TCAN1_C1FIFOCON7.getRTREN : TBits_1; inline;
  73610. begin
  73611. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  73612. end;
  73613. procedure TCAN1_C1FIFOCON7.setTXREQ; inline;
  73614. begin
  73615. pTDefRegMap(@Self)^.&set := $00000008;
  73616. end;
  73617. procedure TCAN1_C1FIFOCON7.clearTXREQ; inline;
  73618. begin
  73619. pTDefRegMap(@Self)^.clr := $00000008;
  73620. end;
  73621. procedure TCAN1_C1FIFOCON7.setTXREQ(thebits : TBits_1); inline;
  73622. begin
  73623. if thebits = 0 then
  73624. pTDefRegMap(@Self)^.clr := $00000008
  73625. else
  73626. pTDefRegMap(@Self)^.&set := $00000008;
  73627. end;
  73628. function TCAN1_C1FIFOCON7.getTXREQ : TBits_1; inline;
  73629. begin
  73630. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  73631. end;
  73632. procedure TCAN1_C1FIFOCON7.setTXERR; inline;
  73633. begin
  73634. pTDefRegMap(@Self)^.&set := $00000010;
  73635. end;
  73636. procedure TCAN1_C1FIFOCON7.clearTXERR; inline;
  73637. begin
  73638. pTDefRegMap(@Self)^.clr := $00000010;
  73639. end;
  73640. procedure TCAN1_C1FIFOCON7.setTXERR(thebits : TBits_1); inline;
  73641. begin
  73642. if thebits = 0 then
  73643. pTDefRegMap(@Self)^.clr := $00000010
  73644. else
  73645. pTDefRegMap(@Self)^.&set := $00000010;
  73646. end;
  73647. function TCAN1_C1FIFOCON7.getTXERR : TBits_1; inline;
  73648. begin
  73649. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  73650. end;
  73651. procedure TCAN1_C1FIFOCON7.setTXLARB; inline;
  73652. begin
  73653. pTDefRegMap(@Self)^.&set := $00000020;
  73654. end;
  73655. procedure TCAN1_C1FIFOCON7.clearTXLARB; inline;
  73656. begin
  73657. pTDefRegMap(@Self)^.clr := $00000020;
  73658. end;
  73659. procedure TCAN1_C1FIFOCON7.setTXLARB(thebits : TBits_1); inline;
  73660. begin
  73661. if thebits = 0 then
  73662. pTDefRegMap(@Self)^.clr := $00000020
  73663. else
  73664. pTDefRegMap(@Self)^.&set := $00000020;
  73665. end;
  73666. function TCAN1_C1FIFOCON7.getTXLARB : TBits_1; inline;
  73667. begin
  73668. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  73669. end;
  73670. procedure TCAN1_C1FIFOCON7.setTXABAT; inline;
  73671. begin
  73672. pTDefRegMap(@Self)^.&set := $00000040;
  73673. end;
  73674. procedure TCAN1_C1FIFOCON7.clearTXABAT; inline;
  73675. begin
  73676. pTDefRegMap(@Self)^.clr := $00000040;
  73677. end;
  73678. procedure TCAN1_C1FIFOCON7.setTXABAT(thebits : TBits_1); inline;
  73679. begin
  73680. if thebits = 0 then
  73681. pTDefRegMap(@Self)^.clr := $00000040
  73682. else
  73683. pTDefRegMap(@Self)^.&set := $00000040;
  73684. end;
  73685. function TCAN1_C1FIFOCON7.getTXABAT : TBits_1; inline;
  73686. begin
  73687. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  73688. end;
  73689. procedure TCAN1_C1FIFOCON7.setTXEN; inline;
  73690. begin
  73691. pTDefRegMap(@Self)^.&set := $00000080;
  73692. end;
  73693. procedure TCAN1_C1FIFOCON7.clearTXEN; inline;
  73694. begin
  73695. pTDefRegMap(@Self)^.clr := $00000080;
  73696. end;
  73697. procedure TCAN1_C1FIFOCON7.setTXEN(thebits : TBits_1); inline;
  73698. begin
  73699. if thebits = 0 then
  73700. pTDefRegMap(@Self)^.clr := $00000080
  73701. else
  73702. pTDefRegMap(@Self)^.&set := $00000080;
  73703. end;
  73704. function TCAN1_C1FIFOCON7.getTXEN : TBits_1; inline;
  73705. begin
  73706. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  73707. end;
  73708. procedure TCAN1_C1FIFOCON7.setDONLY; inline;
  73709. begin
  73710. pTDefRegMap(@Self)^.&set := $00001000;
  73711. end;
  73712. procedure TCAN1_C1FIFOCON7.clearDONLY; inline;
  73713. begin
  73714. pTDefRegMap(@Self)^.clr := $00001000;
  73715. end;
  73716. procedure TCAN1_C1FIFOCON7.setDONLY(thebits : TBits_1); inline;
  73717. begin
  73718. if thebits = 0 then
  73719. pTDefRegMap(@Self)^.clr := $00001000
  73720. else
  73721. pTDefRegMap(@Self)^.&set := $00001000;
  73722. end;
  73723. function TCAN1_C1FIFOCON7.getDONLY : TBits_1; inline;
  73724. begin
  73725. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  73726. end;
  73727. procedure TCAN1_C1FIFOCON7.setUINC; inline;
  73728. begin
  73729. pTDefRegMap(@Self)^.&set := $00002000;
  73730. end;
  73731. procedure TCAN1_C1FIFOCON7.clearUINC; inline;
  73732. begin
  73733. pTDefRegMap(@Self)^.clr := $00002000;
  73734. end;
  73735. procedure TCAN1_C1FIFOCON7.setUINC(thebits : TBits_1); inline;
  73736. begin
  73737. if thebits = 0 then
  73738. pTDefRegMap(@Self)^.clr := $00002000
  73739. else
  73740. pTDefRegMap(@Self)^.&set := $00002000;
  73741. end;
  73742. function TCAN1_C1FIFOCON7.getUINC : TBits_1; inline;
  73743. begin
  73744. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  73745. end;
  73746. procedure TCAN1_C1FIFOCON7.setFRESET; inline;
  73747. begin
  73748. pTDefRegMap(@Self)^.&set := $00004000;
  73749. end;
  73750. procedure TCAN1_C1FIFOCON7.clearFRESET; inline;
  73751. begin
  73752. pTDefRegMap(@Self)^.clr := $00004000;
  73753. end;
  73754. procedure TCAN1_C1FIFOCON7.setFRESET(thebits : TBits_1); inline;
  73755. begin
  73756. if thebits = 0 then
  73757. pTDefRegMap(@Self)^.clr := $00004000
  73758. else
  73759. pTDefRegMap(@Self)^.&set := $00004000;
  73760. end;
  73761. function TCAN1_C1FIFOCON7.getFRESET : TBits_1; inline;
  73762. begin
  73763. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  73764. end;
  73765. procedure TCAN1_C1FIFOCON7.setFSIZE(thebits : TBits_5); inline;
  73766. begin
  73767. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  73768. end;
  73769. function TCAN1_C1FIFOCON7.getFSIZE : TBits_5; inline;
  73770. begin
  73771. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  73772. end;
  73773. procedure TCAN1_C1FIFOCON7.setw(thebits : TBits_32); inline;
  73774. begin
  73775. pTDefRegMap(@Self)^.val := thebits;
  73776. end;
  73777. function TCAN1_C1FIFOCON7.getw : TBits_32; inline;
  73778. begin
  73779. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  73780. end;
  73781. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIF; inline;
  73782. begin
  73783. pTDefRegMap(@Self)^.&set := $00000001;
  73784. end;
  73785. procedure TCAN1_C1FIFOINT7.clearRXNEMPTYIF; inline;
  73786. begin
  73787. pTDefRegMap(@Self)^.clr := $00000001;
  73788. end;
  73789. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIF(thebits : TBits_1); inline;
  73790. begin
  73791. if thebits = 0 then
  73792. pTDefRegMap(@Self)^.clr := $00000001
  73793. else
  73794. pTDefRegMap(@Self)^.&set := $00000001;
  73795. end;
  73796. function TCAN1_C1FIFOINT7.getRXNEMPTYIF : TBits_1; inline;
  73797. begin
  73798. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  73799. end;
  73800. procedure TCAN1_C1FIFOINT7.setRXHALFIF; inline;
  73801. begin
  73802. pTDefRegMap(@Self)^.&set := $00000002;
  73803. end;
  73804. procedure TCAN1_C1FIFOINT7.clearRXHALFIF; inline;
  73805. begin
  73806. pTDefRegMap(@Self)^.clr := $00000002;
  73807. end;
  73808. procedure TCAN1_C1FIFOINT7.setRXHALFIF(thebits : TBits_1); inline;
  73809. begin
  73810. if thebits = 0 then
  73811. pTDefRegMap(@Self)^.clr := $00000002
  73812. else
  73813. pTDefRegMap(@Self)^.&set := $00000002;
  73814. end;
  73815. function TCAN1_C1FIFOINT7.getRXHALFIF : TBits_1; inline;
  73816. begin
  73817. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  73818. end;
  73819. procedure TCAN1_C1FIFOINT7.setRXFULLIF; inline;
  73820. begin
  73821. pTDefRegMap(@Self)^.&set := $00000004;
  73822. end;
  73823. procedure TCAN1_C1FIFOINT7.clearRXFULLIF; inline;
  73824. begin
  73825. pTDefRegMap(@Self)^.clr := $00000004;
  73826. end;
  73827. procedure TCAN1_C1FIFOINT7.setRXFULLIF(thebits : TBits_1); inline;
  73828. begin
  73829. if thebits = 0 then
  73830. pTDefRegMap(@Self)^.clr := $00000004
  73831. else
  73832. pTDefRegMap(@Self)^.&set := $00000004;
  73833. end;
  73834. function TCAN1_C1FIFOINT7.getRXFULLIF : TBits_1; inline;
  73835. begin
  73836. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  73837. end;
  73838. procedure TCAN1_C1FIFOINT7.setRXOVFLIF; inline;
  73839. begin
  73840. pTDefRegMap(@Self)^.&set := $00000008;
  73841. end;
  73842. procedure TCAN1_C1FIFOINT7.clearRXOVFLIF; inline;
  73843. begin
  73844. pTDefRegMap(@Self)^.clr := $00000008;
  73845. end;
  73846. procedure TCAN1_C1FIFOINT7.setRXOVFLIF(thebits : TBits_1); inline;
  73847. begin
  73848. if thebits = 0 then
  73849. pTDefRegMap(@Self)^.clr := $00000008
  73850. else
  73851. pTDefRegMap(@Self)^.&set := $00000008;
  73852. end;
  73853. function TCAN1_C1FIFOINT7.getRXOVFLIF : TBits_1; inline;
  73854. begin
  73855. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  73856. end;
  73857. procedure TCAN1_C1FIFOINT7.setTXEMPTYIF; inline;
  73858. begin
  73859. pTDefRegMap(@Self)^.&set := $00000100;
  73860. end;
  73861. procedure TCAN1_C1FIFOINT7.clearTXEMPTYIF; inline;
  73862. begin
  73863. pTDefRegMap(@Self)^.clr := $00000100;
  73864. end;
  73865. procedure TCAN1_C1FIFOINT7.setTXEMPTYIF(thebits : TBits_1); inline;
  73866. begin
  73867. if thebits = 0 then
  73868. pTDefRegMap(@Self)^.clr := $00000100
  73869. else
  73870. pTDefRegMap(@Self)^.&set := $00000100;
  73871. end;
  73872. function TCAN1_C1FIFOINT7.getTXEMPTYIF : TBits_1; inline;
  73873. begin
  73874. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  73875. end;
  73876. procedure TCAN1_C1FIFOINT7.setTXHALFIF; inline;
  73877. begin
  73878. pTDefRegMap(@Self)^.&set := $00000200;
  73879. end;
  73880. procedure TCAN1_C1FIFOINT7.clearTXHALFIF; inline;
  73881. begin
  73882. pTDefRegMap(@Self)^.clr := $00000200;
  73883. end;
  73884. procedure TCAN1_C1FIFOINT7.setTXHALFIF(thebits : TBits_1); inline;
  73885. begin
  73886. if thebits = 0 then
  73887. pTDefRegMap(@Self)^.clr := $00000200
  73888. else
  73889. pTDefRegMap(@Self)^.&set := $00000200;
  73890. end;
  73891. function TCAN1_C1FIFOINT7.getTXHALFIF : TBits_1; inline;
  73892. begin
  73893. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  73894. end;
  73895. procedure TCAN1_C1FIFOINT7.setTXNFULLIF; inline;
  73896. begin
  73897. pTDefRegMap(@Self)^.&set := $00000400;
  73898. end;
  73899. procedure TCAN1_C1FIFOINT7.clearTXNFULLIF; inline;
  73900. begin
  73901. pTDefRegMap(@Self)^.clr := $00000400;
  73902. end;
  73903. procedure TCAN1_C1FIFOINT7.setTXNFULLIF(thebits : TBits_1); inline;
  73904. begin
  73905. if thebits = 0 then
  73906. pTDefRegMap(@Self)^.clr := $00000400
  73907. else
  73908. pTDefRegMap(@Self)^.&set := $00000400;
  73909. end;
  73910. function TCAN1_C1FIFOINT7.getTXNFULLIF : TBits_1; inline;
  73911. begin
  73912. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  73913. end;
  73914. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIE; inline;
  73915. begin
  73916. pTDefRegMap(@Self)^.&set := $00010000;
  73917. end;
  73918. procedure TCAN1_C1FIFOINT7.clearRXNEMPTYIE; inline;
  73919. begin
  73920. pTDefRegMap(@Self)^.clr := $00010000;
  73921. end;
  73922. procedure TCAN1_C1FIFOINT7.setRXNEMPTYIE(thebits : TBits_1); inline;
  73923. begin
  73924. if thebits = 0 then
  73925. pTDefRegMap(@Self)^.clr := $00010000
  73926. else
  73927. pTDefRegMap(@Self)^.&set := $00010000;
  73928. end;
  73929. function TCAN1_C1FIFOINT7.getRXNEMPTYIE : TBits_1; inline;
  73930. begin
  73931. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  73932. end;
  73933. procedure TCAN1_C1FIFOINT7.setRXHALFIE; inline;
  73934. begin
  73935. pTDefRegMap(@Self)^.&set := $00020000;
  73936. end;
  73937. procedure TCAN1_C1FIFOINT7.clearRXHALFIE; inline;
  73938. begin
  73939. pTDefRegMap(@Self)^.clr := $00020000;
  73940. end;
  73941. procedure TCAN1_C1FIFOINT7.setRXHALFIE(thebits : TBits_1); inline;
  73942. begin
  73943. if thebits = 0 then
  73944. pTDefRegMap(@Self)^.clr := $00020000
  73945. else
  73946. pTDefRegMap(@Self)^.&set := $00020000;
  73947. end;
  73948. function TCAN1_C1FIFOINT7.getRXHALFIE : TBits_1; inline;
  73949. begin
  73950. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  73951. end;
  73952. procedure TCAN1_C1FIFOINT7.setRXFULLIE; inline;
  73953. begin
  73954. pTDefRegMap(@Self)^.&set := $00040000;
  73955. end;
  73956. procedure TCAN1_C1FIFOINT7.clearRXFULLIE; inline;
  73957. begin
  73958. pTDefRegMap(@Self)^.clr := $00040000;
  73959. end;
  73960. procedure TCAN1_C1FIFOINT7.setRXFULLIE(thebits : TBits_1); inline;
  73961. begin
  73962. if thebits = 0 then
  73963. pTDefRegMap(@Self)^.clr := $00040000
  73964. else
  73965. pTDefRegMap(@Self)^.&set := $00040000;
  73966. end;
  73967. function TCAN1_C1FIFOINT7.getRXFULLIE : TBits_1; inline;
  73968. begin
  73969. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  73970. end;
  73971. procedure TCAN1_C1FIFOINT7.setRXOVFLIE; inline;
  73972. begin
  73973. pTDefRegMap(@Self)^.&set := $00080000;
  73974. end;
  73975. procedure TCAN1_C1FIFOINT7.clearRXOVFLIE; inline;
  73976. begin
  73977. pTDefRegMap(@Self)^.clr := $00080000;
  73978. end;
  73979. procedure TCAN1_C1FIFOINT7.setRXOVFLIE(thebits : TBits_1); inline;
  73980. begin
  73981. if thebits = 0 then
  73982. pTDefRegMap(@Self)^.clr := $00080000
  73983. else
  73984. pTDefRegMap(@Self)^.&set := $00080000;
  73985. end;
  73986. function TCAN1_C1FIFOINT7.getRXOVFLIE : TBits_1; inline;
  73987. begin
  73988. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  73989. end;
  73990. procedure TCAN1_C1FIFOINT7.setTXEMPTYIE; inline;
  73991. begin
  73992. pTDefRegMap(@Self)^.&set := $01000000;
  73993. end;
  73994. procedure TCAN1_C1FIFOINT7.clearTXEMPTYIE; inline;
  73995. begin
  73996. pTDefRegMap(@Self)^.clr := $01000000;
  73997. end;
  73998. procedure TCAN1_C1FIFOINT7.setTXEMPTYIE(thebits : TBits_1); inline;
  73999. begin
  74000. if thebits = 0 then
  74001. pTDefRegMap(@Self)^.clr := $01000000
  74002. else
  74003. pTDefRegMap(@Self)^.&set := $01000000;
  74004. end;
  74005. function TCAN1_C1FIFOINT7.getTXEMPTYIE : TBits_1; inline;
  74006. begin
  74007. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  74008. end;
  74009. procedure TCAN1_C1FIFOINT7.setTXHALFIE; inline;
  74010. begin
  74011. pTDefRegMap(@Self)^.&set := $02000000;
  74012. end;
  74013. procedure TCAN1_C1FIFOINT7.clearTXHALFIE; inline;
  74014. begin
  74015. pTDefRegMap(@Self)^.clr := $02000000;
  74016. end;
  74017. procedure TCAN1_C1FIFOINT7.setTXHALFIE(thebits : TBits_1); inline;
  74018. begin
  74019. if thebits = 0 then
  74020. pTDefRegMap(@Self)^.clr := $02000000
  74021. else
  74022. pTDefRegMap(@Self)^.&set := $02000000;
  74023. end;
  74024. function TCAN1_C1FIFOINT7.getTXHALFIE : TBits_1; inline;
  74025. begin
  74026. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  74027. end;
  74028. procedure TCAN1_C1FIFOINT7.setTXNFULLIE; inline;
  74029. begin
  74030. pTDefRegMap(@Self)^.&set := $04000000;
  74031. end;
  74032. procedure TCAN1_C1FIFOINT7.clearTXNFULLIE; inline;
  74033. begin
  74034. pTDefRegMap(@Self)^.clr := $04000000;
  74035. end;
  74036. procedure TCAN1_C1FIFOINT7.setTXNFULLIE(thebits : TBits_1); inline;
  74037. begin
  74038. if thebits = 0 then
  74039. pTDefRegMap(@Self)^.clr := $04000000
  74040. else
  74041. pTDefRegMap(@Self)^.&set := $04000000;
  74042. end;
  74043. function TCAN1_C1FIFOINT7.getTXNFULLIE : TBits_1; inline;
  74044. begin
  74045. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  74046. end;
  74047. procedure TCAN1_C1FIFOINT7.setw(thebits : TBits_32); inline;
  74048. begin
  74049. pTDefRegMap(@Self)^.val := thebits;
  74050. end;
  74051. function TCAN1_C1FIFOINT7.getw : TBits_32; inline;
  74052. begin
  74053. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74054. end;
  74055. procedure TCAN1_C1FIFOCI7.setCFIFOCI(thebits : TBits_5); inline;
  74056. begin
  74057. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  74058. end;
  74059. function TCAN1_C1FIFOCI7.getCFIFOCI : TBits_5; inline;
  74060. begin
  74061. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  74062. end;
  74063. procedure TCAN1_C1FIFOCI7.setw(thebits : TBits_32); inline;
  74064. begin
  74065. pTDefRegMap(@Self)^.val := thebits;
  74066. end;
  74067. function TCAN1_C1FIFOCI7.getw : TBits_32; inline;
  74068. begin
  74069. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74070. end;
  74071. procedure TCAN1_C1FIFOCON8.setTXPRI(thebits : TBits_2); inline;
  74072. begin
  74073. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  74074. end;
  74075. function TCAN1_C1FIFOCON8.getTXPRI : TBits_2; inline;
  74076. begin
  74077. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  74078. end;
  74079. procedure TCAN1_C1FIFOCON8.setRTREN; inline;
  74080. begin
  74081. pTDefRegMap(@Self)^.&set := $00000004;
  74082. end;
  74083. procedure TCAN1_C1FIFOCON8.clearRTREN; inline;
  74084. begin
  74085. pTDefRegMap(@Self)^.clr := $00000004;
  74086. end;
  74087. procedure TCAN1_C1FIFOCON8.setRTREN(thebits : TBits_1); inline;
  74088. begin
  74089. if thebits = 0 then
  74090. pTDefRegMap(@Self)^.clr := $00000004
  74091. else
  74092. pTDefRegMap(@Self)^.&set := $00000004;
  74093. end;
  74094. function TCAN1_C1FIFOCON8.getRTREN : TBits_1; inline;
  74095. begin
  74096. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74097. end;
  74098. procedure TCAN1_C1FIFOCON8.setTXREQ; inline;
  74099. begin
  74100. pTDefRegMap(@Self)^.&set := $00000008;
  74101. end;
  74102. procedure TCAN1_C1FIFOCON8.clearTXREQ; inline;
  74103. begin
  74104. pTDefRegMap(@Self)^.clr := $00000008;
  74105. end;
  74106. procedure TCAN1_C1FIFOCON8.setTXREQ(thebits : TBits_1); inline;
  74107. begin
  74108. if thebits = 0 then
  74109. pTDefRegMap(@Self)^.clr := $00000008
  74110. else
  74111. pTDefRegMap(@Self)^.&set := $00000008;
  74112. end;
  74113. function TCAN1_C1FIFOCON8.getTXREQ : TBits_1; inline;
  74114. begin
  74115. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74116. end;
  74117. procedure TCAN1_C1FIFOCON8.setTXERR; inline;
  74118. begin
  74119. pTDefRegMap(@Self)^.&set := $00000010;
  74120. end;
  74121. procedure TCAN1_C1FIFOCON8.clearTXERR; inline;
  74122. begin
  74123. pTDefRegMap(@Self)^.clr := $00000010;
  74124. end;
  74125. procedure TCAN1_C1FIFOCON8.setTXERR(thebits : TBits_1); inline;
  74126. begin
  74127. if thebits = 0 then
  74128. pTDefRegMap(@Self)^.clr := $00000010
  74129. else
  74130. pTDefRegMap(@Self)^.&set := $00000010;
  74131. end;
  74132. function TCAN1_C1FIFOCON8.getTXERR : TBits_1; inline;
  74133. begin
  74134. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  74135. end;
  74136. procedure TCAN1_C1FIFOCON8.setTXLARB; inline;
  74137. begin
  74138. pTDefRegMap(@Self)^.&set := $00000020;
  74139. end;
  74140. procedure TCAN1_C1FIFOCON8.clearTXLARB; inline;
  74141. begin
  74142. pTDefRegMap(@Self)^.clr := $00000020;
  74143. end;
  74144. procedure TCAN1_C1FIFOCON8.setTXLARB(thebits : TBits_1); inline;
  74145. begin
  74146. if thebits = 0 then
  74147. pTDefRegMap(@Self)^.clr := $00000020
  74148. else
  74149. pTDefRegMap(@Self)^.&set := $00000020;
  74150. end;
  74151. function TCAN1_C1FIFOCON8.getTXLARB : TBits_1; inline;
  74152. begin
  74153. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  74154. end;
  74155. procedure TCAN1_C1FIFOCON8.setTXABAT; inline;
  74156. begin
  74157. pTDefRegMap(@Self)^.&set := $00000040;
  74158. end;
  74159. procedure TCAN1_C1FIFOCON8.clearTXABAT; inline;
  74160. begin
  74161. pTDefRegMap(@Self)^.clr := $00000040;
  74162. end;
  74163. procedure TCAN1_C1FIFOCON8.setTXABAT(thebits : TBits_1); inline;
  74164. begin
  74165. if thebits = 0 then
  74166. pTDefRegMap(@Self)^.clr := $00000040
  74167. else
  74168. pTDefRegMap(@Self)^.&set := $00000040;
  74169. end;
  74170. function TCAN1_C1FIFOCON8.getTXABAT : TBits_1; inline;
  74171. begin
  74172. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  74173. end;
  74174. procedure TCAN1_C1FIFOCON8.setTXEN; inline;
  74175. begin
  74176. pTDefRegMap(@Self)^.&set := $00000080;
  74177. end;
  74178. procedure TCAN1_C1FIFOCON8.clearTXEN; inline;
  74179. begin
  74180. pTDefRegMap(@Self)^.clr := $00000080;
  74181. end;
  74182. procedure TCAN1_C1FIFOCON8.setTXEN(thebits : TBits_1); inline;
  74183. begin
  74184. if thebits = 0 then
  74185. pTDefRegMap(@Self)^.clr := $00000080
  74186. else
  74187. pTDefRegMap(@Self)^.&set := $00000080;
  74188. end;
  74189. function TCAN1_C1FIFOCON8.getTXEN : TBits_1; inline;
  74190. begin
  74191. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  74192. end;
  74193. procedure TCAN1_C1FIFOCON8.setDONLY; inline;
  74194. begin
  74195. pTDefRegMap(@Self)^.&set := $00001000;
  74196. end;
  74197. procedure TCAN1_C1FIFOCON8.clearDONLY; inline;
  74198. begin
  74199. pTDefRegMap(@Self)^.clr := $00001000;
  74200. end;
  74201. procedure TCAN1_C1FIFOCON8.setDONLY(thebits : TBits_1); inline;
  74202. begin
  74203. if thebits = 0 then
  74204. pTDefRegMap(@Self)^.clr := $00001000
  74205. else
  74206. pTDefRegMap(@Self)^.&set := $00001000;
  74207. end;
  74208. function TCAN1_C1FIFOCON8.getDONLY : TBits_1; inline;
  74209. begin
  74210. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  74211. end;
  74212. procedure TCAN1_C1FIFOCON8.setUINC; inline;
  74213. begin
  74214. pTDefRegMap(@Self)^.&set := $00002000;
  74215. end;
  74216. procedure TCAN1_C1FIFOCON8.clearUINC; inline;
  74217. begin
  74218. pTDefRegMap(@Self)^.clr := $00002000;
  74219. end;
  74220. procedure TCAN1_C1FIFOCON8.setUINC(thebits : TBits_1); inline;
  74221. begin
  74222. if thebits = 0 then
  74223. pTDefRegMap(@Self)^.clr := $00002000
  74224. else
  74225. pTDefRegMap(@Self)^.&set := $00002000;
  74226. end;
  74227. function TCAN1_C1FIFOCON8.getUINC : TBits_1; inline;
  74228. begin
  74229. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  74230. end;
  74231. procedure TCAN1_C1FIFOCON8.setFRESET; inline;
  74232. begin
  74233. pTDefRegMap(@Self)^.&set := $00004000;
  74234. end;
  74235. procedure TCAN1_C1FIFOCON8.clearFRESET; inline;
  74236. begin
  74237. pTDefRegMap(@Self)^.clr := $00004000;
  74238. end;
  74239. procedure TCAN1_C1FIFOCON8.setFRESET(thebits : TBits_1); inline;
  74240. begin
  74241. if thebits = 0 then
  74242. pTDefRegMap(@Self)^.clr := $00004000
  74243. else
  74244. pTDefRegMap(@Self)^.&set := $00004000;
  74245. end;
  74246. function TCAN1_C1FIFOCON8.getFRESET : TBits_1; inline;
  74247. begin
  74248. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  74249. end;
  74250. procedure TCAN1_C1FIFOCON8.setFSIZE(thebits : TBits_5); inline;
  74251. begin
  74252. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  74253. end;
  74254. function TCAN1_C1FIFOCON8.getFSIZE : TBits_5; inline;
  74255. begin
  74256. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  74257. end;
  74258. procedure TCAN1_C1FIFOCON8.setw(thebits : TBits_32); inline;
  74259. begin
  74260. pTDefRegMap(@Self)^.val := thebits;
  74261. end;
  74262. function TCAN1_C1FIFOCON8.getw : TBits_32; inline;
  74263. begin
  74264. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74265. end;
  74266. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIF; inline;
  74267. begin
  74268. pTDefRegMap(@Self)^.&set := $00000001;
  74269. end;
  74270. procedure TCAN1_C1FIFOINT8.clearRXNEMPTYIF; inline;
  74271. begin
  74272. pTDefRegMap(@Self)^.clr := $00000001;
  74273. end;
  74274. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIF(thebits : TBits_1); inline;
  74275. begin
  74276. if thebits = 0 then
  74277. pTDefRegMap(@Self)^.clr := $00000001
  74278. else
  74279. pTDefRegMap(@Self)^.&set := $00000001;
  74280. end;
  74281. function TCAN1_C1FIFOINT8.getRXNEMPTYIF : TBits_1; inline;
  74282. begin
  74283. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  74284. end;
  74285. procedure TCAN1_C1FIFOINT8.setRXHALFIF; inline;
  74286. begin
  74287. pTDefRegMap(@Self)^.&set := $00000002;
  74288. end;
  74289. procedure TCAN1_C1FIFOINT8.clearRXHALFIF; inline;
  74290. begin
  74291. pTDefRegMap(@Self)^.clr := $00000002;
  74292. end;
  74293. procedure TCAN1_C1FIFOINT8.setRXHALFIF(thebits : TBits_1); inline;
  74294. begin
  74295. if thebits = 0 then
  74296. pTDefRegMap(@Self)^.clr := $00000002
  74297. else
  74298. pTDefRegMap(@Self)^.&set := $00000002;
  74299. end;
  74300. function TCAN1_C1FIFOINT8.getRXHALFIF : TBits_1; inline;
  74301. begin
  74302. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  74303. end;
  74304. procedure TCAN1_C1FIFOINT8.setRXFULLIF; inline;
  74305. begin
  74306. pTDefRegMap(@Self)^.&set := $00000004;
  74307. end;
  74308. procedure TCAN1_C1FIFOINT8.clearRXFULLIF; inline;
  74309. begin
  74310. pTDefRegMap(@Self)^.clr := $00000004;
  74311. end;
  74312. procedure TCAN1_C1FIFOINT8.setRXFULLIF(thebits : TBits_1); inline;
  74313. begin
  74314. if thebits = 0 then
  74315. pTDefRegMap(@Self)^.clr := $00000004
  74316. else
  74317. pTDefRegMap(@Self)^.&set := $00000004;
  74318. end;
  74319. function TCAN1_C1FIFOINT8.getRXFULLIF : TBits_1; inline;
  74320. begin
  74321. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74322. end;
  74323. procedure TCAN1_C1FIFOINT8.setRXOVFLIF; inline;
  74324. begin
  74325. pTDefRegMap(@Self)^.&set := $00000008;
  74326. end;
  74327. procedure TCAN1_C1FIFOINT8.clearRXOVFLIF; inline;
  74328. begin
  74329. pTDefRegMap(@Self)^.clr := $00000008;
  74330. end;
  74331. procedure TCAN1_C1FIFOINT8.setRXOVFLIF(thebits : TBits_1); inline;
  74332. begin
  74333. if thebits = 0 then
  74334. pTDefRegMap(@Self)^.clr := $00000008
  74335. else
  74336. pTDefRegMap(@Self)^.&set := $00000008;
  74337. end;
  74338. function TCAN1_C1FIFOINT8.getRXOVFLIF : TBits_1; inline;
  74339. begin
  74340. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74341. end;
  74342. procedure TCAN1_C1FIFOINT8.setTXEMPTYIF; inline;
  74343. begin
  74344. pTDefRegMap(@Self)^.&set := $00000100;
  74345. end;
  74346. procedure TCAN1_C1FIFOINT8.clearTXEMPTYIF; inline;
  74347. begin
  74348. pTDefRegMap(@Self)^.clr := $00000100;
  74349. end;
  74350. procedure TCAN1_C1FIFOINT8.setTXEMPTYIF(thebits : TBits_1); inline;
  74351. begin
  74352. if thebits = 0 then
  74353. pTDefRegMap(@Self)^.clr := $00000100
  74354. else
  74355. pTDefRegMap(@Self)^.&set := $00000100;
  74356. end;
  74357. function TCAN1_C1FIFOINT8.getTXEMPTYIF : TBits_1; inline;
  74358. begin
  74359. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  74360. end;
  74361. procedure TCAN1_C1FIFOINT8.setTXHALFIF; inline;
  74362. begin
  74363. pTDefRegMap(@Self)^.&set := $00000200;
  74364. end;
  74365. procedure TCAN1_C1FIFOINT8.clearTXHALFIF; inline;
  74366. begin
  74367. pTDefRegMap(@Self)^.clr := $00000200;
  74368. end;
  74369. procedure TCAN1_C1FIFOINT8.setTXHALFIF(thebits : TBits_1); inline;
  74370. begin
  74371. if thebits = 0 then
  74372. pTDefRegMap(@Self)^.clr := $00000200
  74373. else
  74374. pTDefRegMap(@Self)^.&set := $00000200;
  74375. end;
  74376. function TCAN1_C1FIFOINT8.getTXHALFIF : TBits_1; inline;
  74377. begin
  74378. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  74379. end;
  74380. procedure TCAN1_C1FIFOINT8.setTXNFULLIF; inline;
  74381. begin
  74382. pTDefRegMap(@Self)^.&set := $00000400;
  74383. end;
  74384. procedure TCAN1_C1FIFOINT8.clearTXNFULLIF; inline;
  74385. begin
  74386. pTDefRegMap(@Self)^.clr := $00000400;
  74387. end;
  74388. procedure TCAN1_C1FIFOINT8.setTXNFULLIF(thebits : TBits_1); inline;
  74389. begin
  74390. if thebits = 0 then
  74391. pTDefRegMap(@Self)^.clr := $00000400
  74392. else
  74393. pTDefRegMap(@Self)^.&set := $00000400;
  74394. end;
  74395. function TCAN1_C1FIFOINT8.getTXNFULLIF : TBits_1; inline;
  74396. begin
  74397. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  74398. end;
  74399. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIE; inline;
  74400. begin
  74401. pTDefRegMap(@Self)^.&set := $00010000;
  74402. end;
  74403. procedure TCAN1_C1FIFOINT8.clearRXNEMPTYIE; inline;
  74404. begin
  74405. pTDefRegMap(@Self)^.clr := $00010000;
  74406. end;
  74407. procedure TCAN1_C1FIFOINT8.setRXNEMPTYIE(thebits : TBits_1); inline;
  74408. begin
  74409. if thebits = 0 then
  74410. pTDefRegMap(@Self)^.clr := $00010000
  74411. else
  74412. pTDefRegMap(@Self)^.&set := $00010000;
  74413. end;
  74414. function TCAN1_C1FIFOINT8.getRXNEMPTYIE : TBits_1; inline;
  74415. begin
  74416. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  74417. end;
  74418. procedure TCAN1_C1FIFOINT8.setRXHALFIE; inline;
  74419. begin
  74420. pTDefRegMap(@Self)^.&set := $00020000;
  74421. end;
  74422. procedure TCAN1_C1FIFOINT8.clearRXHALFIE; inline;
  74423. begin
  74424. pTDefRegMap(@Self)^.clr := $00020000;
  74425. end;
  74426. procedure TCAN1_C1FIFOINT8.setRXHALFIE(thebits : TBits_1); inline;
  74427. begin
  74428. if thebits = 0 then
  74429. pTDefRegMap(@Self)^.clr := $00020000
  74430. else
  74431. pTDefRegMap(@Self)^.&set := $00020000;
  74432. end;
  74433. function TCAN1_C1FIFOINT8.getRXHALFIE : TBits_1; inline;
  74434. begin
  74435. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  74436. end;
  74437. procedure TCAN1_C1FIFOINT8.setRXFULLIE; inline;
  74438. begin
  74439. pTDefRegMap(@Self)^.&set := $00040000;
  74440. end;
  74441. procedure TCAN1_C1FIFOINT8.clearRXFULLIE; inline;
  74442. begin
  74443. pTDefRegMap(@Self)^.clr := $00040000;
  74444. end;
  74445. procedure TCAN1_C1FIFOINT8.setRXFULLIE(thebits : TBits_1); inline;
  74446. begin
  74447. if thebits = 0 then
  74448. pTDefRegMap(@Self)^.clr := $00040000
  74449. else
  74450. pTDefRegMap(@Self)^.&set := $00040000;
  74451. end;
  74452. function TCAN1_C1FIFOINT8.getRXFULLIE : TBits_1; inline;
  74453. begin
  74454. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  74455. end;
  74456. procedure TCAN1_C1FIFOINT8.setRXOVFLIE; inline;
  74457. begin
  74458. pTDefRegMap(@Self)^.&set := $00080000;
  74459. end;
  74460. procedure TCAN1_C1FIFOINT8.clearRXOVFLIE; inline;
  74461. begin
  74462. pTDefRegMap(@Self)^.clr := $00080000;
  74463. end;
  74464. procedure TCAN1_C1FIFOINT8.setRXOVFLIE(thebits : TBits_1); inline;
  74465. begin
  74466. if thebits = 0 then
  74467. pTDefRegMap(@Self)^.clr := $00080000
  74468. else
  74469. pTDefRegMap(@Self)^.&set := $00080000;
  74470. end;
  74471. function TCAN1_C1FIFOINT8.getRXOVFLIE : TBits_1; inline;
  74472. begin
  74473. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74474. end;
  74475. procedure TCAN1_C1FIFOINT8.setTXEMPTYIE; inline;
  74476. begin
  74477. pTDefRegMap(@Self)^.&set := $01000000;
  74478. end;
  74479. procedure TCAN1_C1FIFOINT8.clearTXEMPTYIE; inline;
  74480. begin
  74481. pTDefRegMap(@Self)^.clr := $01000000;
  74482. end;
  74483. procedure TCAN1_C1FIFOINT8.setTXEMPTYIE(thebits : TBits_1); inline;
  74484. begin
  74485. if thebits = 0 then
  74486. pTDefRegMap(@Self)^.clr := $01000000
  74487. else
  74488. pTDefRegMap(@Self)^.&set := $01000000;
  74489. end;
  74490. function TCAN1_C1FIFOINT8.getTXEMPTYIE : TBits_1; inline;
  74491. begin
  74492. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  74493. end;
  74494. procedure TCAN1_C1FIFOINT8.setTXHALFIE; inline;
  74495. begin
  74496. pTDefRegMap(@Self)^.&set := $02000000;
  74497. end;
  74498. procedure TCAN1_C1FIFOINT8.clearTXHALFIE; inline;
  74499. begin
  74500. pTDefRegMap(@Self)^.clr := $02000000;
  74501. end;
  74502. procedure TCAN1_C1FIFOINT8.setTXHALFIE(thebits : TBits_1); inline;
  74503. begin
  74504. if thebits = 0 then
  74505. pTDefRegMap(@Self)^.clr := $02000000
  74506. else
  74507. pTDefRegMap(@Self)^.&set := $02000000;
  74508. end;
  74509. function TCAN1_C1FIFOINT8.getTXHALFIE : TBits_1; inline;
  74510. begin
  74511. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  74512. end;
  74513. procedure TCAN1_C1FIFOINT8.setTXNFULLIE; inline;
  74514. begin
  74515. pTDefRegMap(@Self)^.&set := $04000000;
  74516. end;
  74517. procedure TCAN1_C1FIFOINT8.clearTXNFULLIE; inline;
  74518. begin
  74519. pTDefRegMap(@Self)^.clr := $04000000;
  74520. end;
  74521. procedure TCAN1_C1FIFOINT8.setTXNFULLIE(thebits : TBits_1); inline;
  74522. begin
  74523. if thebits = 0 then
  74524. pTDefRegMap(@Self)^.clr := $04000000
  74525. else
  74526. pTDefRegMap(@Self)^.&set := $04000000;
  74527. end;
  74528. function TCAN1_C1FIFOINT8.getTXNFULLIE : TBits_1; inline;
  74529. begin
  74530. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  74531. end;
  74532. procedure TCAN1_C1FIFOINT8.setw(thebits : TBits_32); inline;
  74533. begin
  74534. pTDefRegMap(@Self)^.val := thebits;
  74535. end;
  74536. function TCAN1_C1FIFOINT8.getw : TBits_32; inline;
  74537. begin
  74538. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74539. end;
  74540. procedure TCAN1_C1FIFOCI8.setCFIFOCI(thebits : TBits_5); inline;
  74541. begin
  74542. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  74543. end;
  74544. function TCAN1_C1FIFOCI8.getCFIFOCI : TBits_5; inline;
  74545. begin
  74546. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  74547. end;
  74548. procedure TCAN1_C1FIFOCI8.setw(thebits : TBits_32); inline;
  74549. begin
  74550. pTDefRegMap(@Self)^.val := thebits;
  74551. end;
  74552. function TCAN1_C1FIFOCI8.getw : TBits_32; inline;
  74553. begin
  74554. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74555. end;
  74556. procedure TCAN1_C1FIFOCON9.setTXPRI(thebits : TBits_2); inline;
  74557. begin
  74558. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  74559. end;
  74560. function TCAN1_C1FIFOCON9.getTXPRI : TBits_2; inline;
  74561. begin
  74562. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  74563. end;
  74564. procedure TCAN1_C1FIFOCON9.setRTREN; inline;
  74565. begin
  74566. pTDefRegMap(@Self)^.&set := $00000004;
  74567. end;
  74568. procedure TCAN1_C1FIFOCON9.clearRTREN; inline;
  74569. begin
  74570. pTDefRegMap(@Self)^.clr := $00000004;
  74571. end;
  74572. procedure TCAN1_C1FIFOCON9.setRTREN(thebits : TBits_1); inline;
  74573. begin
  74574. if thebits = 0 then
  74575. pTDefRegMap(@Self)^.clr := $00000004
  74576. else
  74577. pTDefRegMap(@Self)^.&set := $00000004;
  74578. end;
  74579. function TCAN1_C1FIFOCON9.getRTREN : TBits_1; inline;
  74580. begin
  74581. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74582. end;
  74583. procedure TCAN1_C1FIFOCON9.setTXREQ; inline;
  74584. begin
  74585. pTDefRegMap(@Self)^.&set := $00000008;
  74586. end;
  74587. procedure TCAN1_C1FIFOCON9.clearTXREQ; inline;
  74588. begin
  74589. pTDefRegMap(@Self)^.clr := $00000008;
  74590. end;
  74591. procedure TCAN1_C1FIFOCON9.setTXREQ(thebits : TBits_1); inline;
  74592. begin
  74593. if thebits = 0 then
  74594. pTDefRegMap(@Self)^.clr := $00000008
  74595. else
  74596. pTDefRegMap(@Self)^.&set := $00000008;
  74597. end;
  74598. function TCAN1_C1FIFOCON9.getTXREQ : TBits_1; inline;
  74599. begin
  74600. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74601. end;
  74602. procedure TCAN1_C1FIFOCON9.setTXERR; inline;
  74603. begin
  74604. pTDefRegMap(@Self)^.&set := $00000010;
  74605. end;
  74606. procedure TCAN1_C1FIFOCON9.clearTXERR; inline;
  74607. begin
  74608. pTDefRegMap(@Self)^.clr := $00000010;
  74609. end;
  74610. procedure TCAN1_C1FIFOCON9.setTXERR(thebits : TBits_1); inline;
  74611. begin
  74612. if thebits = 0 then
  74613. pTDefRegMap(@Self)^.clr := $00000010
  74614. else
  74615. pTDefRegMap(@Self)^.&set := $00000010;
  74616. end;
  74617. function TCAN1_C1FIFOCON9.getTXERR : TBits_1; inline;
  74618. begin
  74619. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  74620. end;
  74621. procedure TCAN1_C1FIFOCON9.setTXLARB; inline;
  74622. begin
  74623. pTDefRegMap(@Self)^.&set := $00000020;
  74624. end;
  74625. procedure TCAN1_C1FIFOCON9.clearTXLARB; inline;
  74626. begin
  74627. pTDefRegMap(@Self)^.clr := $00000020;
  74628. end;
  74629. procedure TCAN1_C1FIFOCON9.setTXLARB(thebits : TBits_1); inline;
  74630. begin
  74631. if thebits = 0 then
  74632. pTDefRegMap(@Self)^.clr := $00000020
  74633. else
  74634. pTDefRegMap(@Self)^.&set := $00000020;
  74635. end;
  74636. function TCAN1_C1FIFOCON9.getTXLARB : TBits_1; inline;
  74637. begin
  74638. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  74639. end;
  74640. procedure TCAN1_C1FIFOCON9.setTXABAT; inline;
  74641. begin
  74642. pTDefRegMap(@Self)^.&set := $00000040;
  74643. end;
  74644. procedure TCAN1_C1FIFOCON9.clearTXABAT; inline;
  74645. begin
  74646. pTDefRegMap(@Self)^.clr := $00000040;
  74647. end;
  74648. procedure TCAN1_C1FIFOCON9.setTXABAT(thebits : TBits_1); inline;
  74649. begin
  74650. if thebits = 0 then
  74651. pTDefRegMap(@Self)^.clr := $00000040
  74652. else
  74653. pTDefRegMap(@Self)^.&set := $00000040;
  74654. end;
  74655. function TCAN1_C1FIFOCON9.getTXABAT : TBits_1; inline;
  74656. begin
  74657. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  74658. end;
  74659. procedure TCAN1_C1FIFOCON9.setTXEN; inline;
  74660. begin
  74661. pTDefRegMap(@Self)^.&set := $00000080;
  74662. end;
  74663. procedure TCAN1_C1FIFOCON9.clearTXEN; inline;
  74664. begin
  74665. pTDefRegMap(@Self)^.clr := $00000080;
  74666. end;
  74667. procedure TCAN1_C1FIFOCON9.setTXEN(thebits : TBits_1); inline;
  74668. begin
  74669. if thebits = 0 then
  74670. pTDefRegMap(@Self)^.clr := $00000080
  74671. else
  74672. pTDefRegMap(@Self)^.&set := $00000080;
  74673. end;
  74674. function TCAN1_C1FIFOCON9.getTXEN : TBits_1; inline;
  74675. begin
  74676. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  74677. end;
  74678. procedure TCAN1_C1FIFOCON9.setDONLY; inline;
  74679. begin
  74680. pTDefRegMap(@Self)^.&set := $00001000;
  74681. end;
  74682. procedure TCAN1_C1FIFOCON9.clearDONLY; inline;
  74683. begin
  74684. pTDefRegMap(@Self)^.clr := $00001000;
  74685. end;
  74686. procedure TCAN1_C1FIFOCON9.setDONLY(thebits : TBits_1); inline;
  74687. begin
  74688. if thebits = 0 then
  74689. pTDefRegMap(@Self)^.clr := $00001000
  74690. else
  74691. pTDefRegMap(@Self)^.&set := $00001000;
  74692. end;
  74693. function TCAN1_C1FIFOCON9.getDONLY : TBits_1; inline;
  74694. begin
  74695. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  74696. end;
  74697. procedure TCAN1_C1FIFOCON9.setUINC; inline;
  74698. begin
  74699. pTDefRegMap(@Self)^.&set := $00002000;
  74700. end;
  74701. procedure TCAN1_C1FIFOCON9.clearUINC; inline;
  74702. begin
  74703. pTDefRegMap(@Self)^.clr := $00002000;
  74704. end;
  74705. procedure TCAN1_C1FIFOCON9.setUINC(thebits : TBits_1); inline;
  74706. begin
  74707. if thebits = 0 then
  74708. pTDefRegMap(@Self)^.clr := $00002000
  74709. else
  74710. pTDefRegMap(@Self)^.&set := $00002000;
  74711. end;
  74712. function TCAN1_C1FIFOCON9.getUINC : TBits_1; inline;
  74713. begin
  74714. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  74715. end;
  74716. procedure TCAN1_C1FIFOCON9.setFRESET; inline;
  74717. begin
  74718. pTDefRegMap(@Self)^.&set := $00004000;
  74719. end;
  74720. procedure TCAN1_C1FIFOCON9.clearFRESET; inline;
  74721. begin
  74722. pTDefRegMap(@Self)^.clr := $00004000;
  74723. end;
  74724. procedure TCAN1_C1FIFOCON9.setFRESET(thebits : TBits_1); inline;
  74725. begin
  74726. if thebits = 0 then
  74727. pTDefRegMap(@Self)^.clr := $00004000
  74728. else
  74729. pTDefRegMap(@Self)^.&set := $00004000;
  74730. end;
  74731. function TCAN1_C1FIFOCON9.getFRESET : TBits_1; inline;
  74732. begin
  74733. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  74734. end;
  74735. procedure TCAN1_C1FIFOCON9.setFSIZE(thebits : TBits_5); inline;
  74736. begin
  74737. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  74738. end;
  74739. function TCAN1_C1FIFOCON9.getFSIZE : TBits_5; inline;
  74740. begin
  74741. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  74742. end;
  74743. procedure TCAN1_C1FIFOCON9.setw(thebits : TBits_32); inline;
  74744. begin
  74745. pTDefRegMap(@Self)^.val := thebits;
  74746. end;
  74747. function TCAN1_C1FIFOCON9.getw : TBits_32; inline;
  74748. begin
  74749. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  74750. end;
  74751. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIF; inline;
  74752. begin
  74753. pTDefRegMap(@Self)^.&set := $00000001;
  74754. end;
  74755. procedure TCAN1_C1FIFOINT9.clearRXNEMPTYIF; inline;
  74756. begin
  74757. pTDefRegMap(@Self)^.clr := $00000001;
  74758. end;
  74759. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIF(thebits : TBits_1); inline;
  74760. begin
  74761. if thebits = 0 then
  74762. pTDefRegMap(@Self)^.clr := $00000001
  74763. else
  74764. pTDefRegMap(@Self)^.&set := $00000001;
  74765. end;
  74766. function TCAN1_C1FIFOINT9.getRXNEMPTYIF : TBits_1; inline;
  74767. begin
  74768. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  74769. end;
  74770. procedure TCAN1_C1FIFOINT9.setRXHALFIF; inline;
  74771. begin
  74772. pTDefRegMap(@Self)^.&set := $00000002;
  74773. end;
  74774. procedure TCAN1_C1FIFOINT9.clearRXHALFIF; inline;
  74775. begin
  74776. pTDefRegMap(@Self)^.clr := $00000002;
  74777. end;
  74778. procedure TCAN1_C1FIFOINT9.setRXHALFIF(thebits : TBits_1); inline;
  74779. begin
  74780. if thebits = 0 then
  74781. pTDefRegMap(@Self)^.clr := $00000002
  74782. else
  74783. pTDefRegMap(@Self)^.&set := $00000002;
  74784. end;
  74785. function TCAN1_C1FIFOINT9.getRXHALFIF : TBits_1; inline;
  74786. begin
  74787. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  74788. end;
  74789. procedure TCAN1_C1FIFOINT9.setRXFULLIF; inline;
  74790. begin
  74791. pTDefRegMap(@Self)^.&set := $00000004;
  74792. end;
  74793. procedure TCAN1_C1FIFOINT9.clearRXFULLIF; inline;
  74794. begin
  74795. pTDefRegMap(@Self)^.clr := $00000004;
  74796. end;
  74797. procedure TCAN1_C1FIFOINT9.setRXFULLIF(thebits : TBits_1); inline;
  74798. begin
  74799. if thebits = 0 then
  74800. pTDefRegMap(@Self)^.clr := $00000004
  74801. else
  74802. pTDefRegMap(@Self)^.&set := $00000004;
  74803. end;
  74804. function TCAN1_C1FIFOINT9.getRXFULLIF : TBits_1; inline;
  74805. begin
  74806. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  74807. end;
  74808. procedure TCAN1_C1FIFOINT9.setRXOVFLIF; inline;
  74809. begin
  74810. pTDefRegMap(@Self)^.&set := $00000008;
  74811. end;
  74812. procedure TCAN1_C1FIFOINT9.clearRXOVFLIF; inline;
  74813. begin
  74814. pTDefRegMap(@Self)^.clr := $00000008;
  74815. end;
  74816. procedure TCAN1_C1FIFOINT9.setRXOVFLIF(thebits : TBits_1); inline;
  74817. begin
  74818. if thebits = 0 then
  74819. pTDefRegMap(@Self)^.clr := $00000008
  74820. else
  74821. pTDefRegMap(@Self)^.&set := $00000008;
  74822. end;
  74823. function TCAN1_C1FIFOINT9.getRXOVFLIF : TBits_1; inline;
  74824. begin
  74825. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  74826. end;
  74827. procedure TCAN1_C1FIFOINT9.setTXEMPTYIF; inline;
  74828. begin
  74829. pTDefRegMap(@Self)^.&set := $00000100;
  74830. end;
  74831. procedure TCAN1_C1FIFOINT9.clearTXEMPTYIF; inline;
  74832. begin
  74833. pTDefRegMap(@Self)^.clr := $00000100;
  74834. end;
  74835. procedure TCAN1_C1FIFOINT9.setTXEMPTYIF(thebits : TBits_1); inline;
  74836. begin
  74837. if thebits = 0 then
  74838. pTDefRegMap(@Self)^.clr := $00000100
  74839. else
  74840. pTDefRegMap(@Self)^.&set := $00000100;
  74841. end;
  74842. function TCAN1_C1FIFOINT9.getTXEMPTYIF : TBits_1; inline;
  74843. begin
  74844. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  74845. end;
  74846. procedure TCAN1_C1FIFOINT9.setTXHALFIF; inline;
  74847. begin
  74848. pTDefRegMap(@Self)^.&set := $00000200;
  74849. end;
  74850. procedure TCAN1_C1FIFOINT9.clearTXHALFIF; inline;
  74851. begin
  74852. pTDefRegMap(@Self)^.clr := $00000200;
  74853. end;
  74854. procedure TCAN1_C1FIFOINT9.setTXHALFIF(thebits : TBits_1); inline;
  74855. begin
  74856. if thebits = 0 then
  74857. pTDefRegMap(@Self)^.clr := $00000200
  74858. else
  74859. pTDefRegMap(@Self)^.&set := $00000200;
  74860. end;
  74861. function TCAN1_C1FIFOINT9.getTXHALFIF : TBits_1; inline;
  74862. begin
  74863. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  74864. end;
  74865. procedure TCAN1_C1FIFOINT9.setTXNFULLIF; inline;
  74866. begin
  74867. pTDefRegMap(@Self)^.&set := $00000400;
  74868. end;
  74869. procedure TCAN1_C1FIFOINT9.clearTXNFULLIF; inline;
  74870. begin
  74871. pTDefRegMap(@Self)^.clr := $00000400;
  74872. end;
  74873. procedure TCAN1_C1FIFOINT9.setTXNFULLIF(thebits : TBits_1); inline;
  74874. begin
  74875. if thebits = 0 then
  74876. pTDefRegMap(@Self)^.clr := $00000400
  74877. else
  74878. pTDefRegMap(@Self)^.&set := $00000400;
  74879. end;
  74880. function TCAN1_C1FIFOINT9.getTXNFULLIF : TBits_1; inline;
  74881. begin
  74882. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  74883. end;
  74884. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIE; inline;
  74885. begin
  74886. pTDefRegMap(@Self)^.&set := $00010000;
  74887. end;
  74888. procedure TCAN1_C1FIFOINT9.clearRXNEMPTYIE; inline;
  74889. begin
  74890. pTDefRegMap(@Self)^.clr := $00010000;
  74891. end;
  74892. procedure TCAN1_C1FIFOINT9.setRXNEMPTYIE(thebits : TBits_1); inline;
  74893. begin
  74894. if thebits = 0 then
  74895. pTDefRegMap(@Self)^.clr := $00010000
  74896. else
  74897. pTDefRegMap(@Self)^.&set := $00010000;
  74898. end;
  74899. function TCAN1_C1FIFOINT9.getRXNEMPTYIE : TBits_1; inline;
  74900. begin
  74901. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  74902. end;
  74903. procedure TCAN1_C1FIFOINT9.setRXHALFIE; inline;
  74904. begin
  74905. pTDefRegMap(@Self)^.&set := $00020000;
  74906. end;
  74907. procedure TCAN1_C1FIFOINT9.clearRXHALFIE; inline;
  74908. begin
  74909. pTDefRegMap(@Self)^.clr := $00020000;
  74910. end;
  74911. procedure TCAN1_C1FIFOINT9.setRXHALFIE(thebits : TBits_1); inline;
  74912. begin
  74913. if thebits = 0 then
  74914. pTDefRegMap(@Self)^.clr := $00020000
  74915. else
  74916. pTDefRegMap(@Self)^.&set := $00020000;
  74917. end;
  74918. function TCAN1_C1FIFOINT9.getRXHALFIE : TBits_1; inline;
  74919. begin
  74920. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  74921. end;
  74922. procedure TCAN1_C1FIFOINT9.setRXFULLIE; inline;
  74923. begin
  74924. pTDefRegMap(@Self)^.&set := $00040000;
  74925. end;
  74926. procedure TCAN1_C1FIFOINT9.clearRXFULLIE; inline;
  74927. begin
  74928. pTDefRegMap(@Self)^.clr := $00040000;
  74929. end;
  74930. procedure TCAN1_C1FIFOINT9.setRXFULLIE(thebits : TBits_1); inline;
  74931. begin
  74932. if thebits = 0 then
  74933. pTDefRegMap(@Self)^.clr := $00040000
  74934. else
  74935. pTDefRegMap(@Self)^.&set := $00040000;
  74936. end;
  74937. function TCAN1_C1FIFOINT9.getRXFULLIE : TBits_1; inline;
  74938. begin
  74939. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  74940. end;
  74941. procedure TCAN1_C1FIFOINT9.setRXOVFLIE; inline;
  74942. begin
  74943. pTDefRegMap(@Self)^.&set := $00080000;
  74944. end;
  74945. procedure TCAN1_C1FIFOINT9.clearRXOVFLIE; inline;
  74946. begin
  74947. pTDefRegMap(@Self)^.clr := $00080000;
  74948. end;
  74949. procedure TCAN1_C1FIFOINT9.setRXOVFLIE(thebits : TBits_1); inline;
  74950. begin
  74951. if thebits = 0 then
  74952. pTDefRegMap(@Self)^.clr := $00080000
  74953. else
  74954. pTDefRegMap(@Self)^.&set := $00080000;
  74955. end;
  74956. function TCAN1_C1FIFOINT9.getRXOVFLIE : TBits_1; inline;
  74957. begin
  74958. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  74959. end;
  74960. procedure TCAN1_C1FIFOINT9.setTXEMPTYIE; inline;
  74961. begin
  74962. pTDefRegMap(@Self)^.&set := $01000000;
  74963. end;
  74964. procedure TCAN1_C1FIFOINT9.clearTXEMPTYIE; inline;
  74965. begin
  74966. pTDefRegMap(@Self)^.clr := $01000000;
  74967. end;
  74968. procedure TCAN1_C1FIFOINT9.setTXEMPTYIE(thebits : TBits_1); inline;
  74969. begin
  74970. if thebits = 0 then
  74971. pTDefRegMap(@Self)^.clr := $01000000
  74972. else
  74973. pTDefRegMap(@Self)^.&set := $01000000;
  74974. end;
  74975. function TCAN1_C1FIFOINT9.getTXEMPTYIE : TBits_1; inline;
  74976. begin
  74977. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  74978. end;
  74979. procedure TCAN1_C1FIFOINT9.setTXHALFIE; inline;
  74980. begin
  74981. pTDefRegMap(@Self)^.&set := $02000000;
  74982. end;
  74983. procedure TCAN1_C1FIFOINT9.clearTXHALFIE; inline;
  74984. begin
  74985. pTDefRegMap(@Self)^.clr := $02000000;
  74986. end;
  74987. procedure TCAN1_C1FIFOINT9.setTXHALFIE(thebits : TBits_1); inline;
  74988. begin
  74989. if thebits = 0 then
  74990. pTDefRegMap(@Self)^.clr := $02000000
  74991. else
  74992. pTDefRegMap(@Self)^.&set := $02000000;
  74993. end;
  74994. function TCAN1_C1FIFOINT9.getTXHALFIE : TBits_1; inline;
  74995. begin
  74996. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  74997. end;
  74998. procedure TCAN1_C1FIFOINT9.setTXNFULLIE; inline;
  74999. begin
  75000. pTDefRegMap(@Self)^.&set := $04000000;
  75001. end;
  75002. procedure TCAN1_C1FIFOINT9.clearTXNFULLIE; inline;
  75003. begin
  75004. pTDefRegMap(@Self)^.clr := $04000000;
  75005. end;
  75006. procedure TCAN1_C1FIFOINT9.setTXNFULLIE(thebits : TBits_1); inline;
  75007. begin
  75008. if thebits = 0 then
  75009. pTDefRegMap(@Self)^.clr := $04000000
  75010. else
  75011. pTDefRegMap(@Self)^.&set := $04000000;
  75012. end;
  75013. function TCAN1_C1FIFOINT9.getTXNFULLIE : TBits_1; inline;
  75014. begin
  75015. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75016. end;
  75017. procedure TCAN1_C1FIFOINT9.setw(thebits : TBits_32); inline;
  75018. begin
  75019. pTDefRegMap(@Self)^.val := thebits;
  75020. end;
  75021. function TCAN1_C1FIFOINT9.getw : TBits_32; inline;
  75022. begin
  75023. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75024. end;
  75025. procedure TCAN1_C1FIFOCI9.setCFIFOCI(thebits : TBits_5); inline;
  75026. begin
  75027. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75028. end;
  75029. function TCAN1_C1FIFOCI9.getCFIFOCI : TBits_5; inline;
  75030. begin
  75031. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  75032. end;
  75033. procedure TCAN1_C1FIFOCI9.setw(thebits : TBits_32); inline;
  75034. begin
  75035. pTDefRegMap(@Self)^.val := thebits;
  75036. end;
  75037. function TCAN1_C1FIFOCI9.getw : TBits_32; inline;
  75038. begin
  75039. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75040. end;
  75041. procedure TCAN1_C1FIFOCON10.setTXPRI(thebits : TBits_2); inline;
  75042. begin
  75043. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  75044. end;
  75045. function TCAN1_C1FIFOCON10.getTXPRI : TBits_2; inline;
  75046. begin
  75047. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  75048. end;
  75049. procedure TCAN1_C1FIFOCON10.setRTREN; inline;
  75050. begin
  75051. pTDefRegMap(@Self)^.&set := $00000004;
  75052. end;
  75053. procedure TCAN1_C1FIFOCON10.clearRTREN; inline;
  75054. begin
  75055. pTDefRegMap(@Self)^.clr := $00000004;
  75056. end;
  75057. procedure TCAN1_C1FIFOCON10.setRTREN(thebits : TBits_1); inline;
  75058. begin
  75059. if thebits = 0 then
  75060. pTDefRegMap(@Self)^.clr := $00000004
  75061. else
  75062. pTDefRegMap(@Self)^.&set := $00000004;
  75063. end;
  75064. function TCAN1_C1FIFOCON10.getRTREN : TBits_1; inline;
  75065. begin
  75066. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75067. end;
  75068. procedure TCAN1_C1FIFOCON10.setTXREQ; inline;
  75069. begin
  75070. pTDefRegMap(@Self)^.&set := $00000008;
  75071. end;
  75072. procedure TCAN1_C1FIFOCON10.clearTXREQ; inline;
  75073. begin
  75074. pTDefRegMap(@Self)^.clr := $00000008;
  75075. end;
  75076. procedure TCAN1_C1FIFOCON10.setTXREQ(thebits : TBits_1); inline;
  75077. begin
  75078. if thebits = 0 then
  75079. pTDefRegMap(@Self)^.clr := $00000008
  75080. else
  75081. pTDefRegMap(@Self)^.&set := $00000008;
  75082. end;
  75083. function TCAN1_C1FIFOCON10.getTXREQ : TBits_1; inline;
  75084. begin
  75085. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75086. end;
  75087. procedure TCAN1_C1FIFOCON10.setTXERR; inline;
  75088. begin
  75089. pTDefRegMap(@Self)^.&set := $00000010;
  75090. end;
  75091. procedure TCAN1_C1FIFOCON10.clearTXERR; inline;
  75092. begin
  75093. pTDefRegMap(@Self)^.clr := $00000010;
  75094. end;
  75095. procedure TCAN1_C1FIFOCON10.setTXERR(thebits : TBits_1); inline;
  75096. begin
  75097. if thebits = 0 then
  75098. pTDefRegMap(@Self)^.clr := $00000010
  75099. else
  75100. pTDefRegMap(@Self)^.&set := $00000010;
  75101. end;
  75102. function TCAN1_C1FIFOCON10.getTXERR : TBits_1; inline;
  75103. begin
  75104. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  75105. end;
  75106. procedure TCAN1_C1FIFOCON10.setTXLARB; inline;
  75107. begin
  75108. pTDefRegMap(@Self)^.&set := $00000020;
  75109. end;
  75110. procedure TCAN1_C1FIFOCON10.clearTXLARB; inline;
  75111. begin
  75112. pTDefRegMap(@Self)^.clr := $00000020;
  75113. end;
  75114. procedure TCAN1_C1FIFOCON10.setTXLARB(thebits : TBits_1); inline;
  75115. begin
  75116. if thebits = 0 then
  75117. pTDefRegMap(@Self)^.clr := $00000020
  75118. else
  75119. pTDefRegMap(@Self)^.&set := $00000020;
  75120. end;
  75121. function TCAN1_C1FIFOCON10.getTXLARB : TBits_1; inline;
  75122. begin
  75123. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  75124. end;
  75125. procedure TCAN1_C1FIFOCON10.setTXABAT; inline;
  75126. begin
  75127. pTDefRegMap(@Self)^.&set := $00000040;
  75128. end;
  75129. procedure TCAN1_C1FIFOCON10.clearTXABAT; inline;
  75130. begin
  75131. pTDefRegMap(@Self)^.clr := $00000040;
  75132. end;
  75133. procedure TCAN1_C1FIFOCON10.setTXABAT(thebits : TBits_1); inline;
  75134. begin
  75135. if thebits = 0 then
  75136. pTDefRegMap(@Self)^.clr := $00000040
  75137. else
  75138. pTDefRegMap(@Self)^.&set := $00000040;
  75139. end;
  75140. function TCAN1_C1FIFOCON10.getTXABAT : TBits_1; inline;
  75141. begin
  75142. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  75143. end;
  75144. procedure TCAN1_C1FIFOCON10.setTXEN; inline;
  75145. begin
  75146. pTDefRegMap(@Self)^.&set := $00000080;
  75147. end;
  75148. procedure TCAN1_C1FIFOCON10.clearTXEN; inline;
  75149. begin
  75150. pTDefRegMap(@Self)^.clr := $00000080;
  75151. end;
  75152. procedure TCAN1_C1FIFOCON10.setTXEN(thebits : TBits_1); inline;
  75153. begin
  75154. if thebits = 0 then
  75155. pTDefRegMap(@Self)^.clr := $00000080
  75156. else
  75157. pTDefRegMap(@Self)^.&set := $00000080;
  75158. end;
  75159. function TCAN1_C1FIFOCON10.getTXEN : TBits_1; inline;
  75160. begin
  75161. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75162. end;
  75163. procedure TCAN1_C1FIFOCON10.setDONLY; inline;
  75164. begin
  75165. pTDefRegMap(@Self)^.&set := $00001000;
  75166. end;
  75167. procedure TCAN1_C1FIFOCON10.clearDONLY; inline;
  75168. begin
  75169. pTDefRegMap(@Self)^.clr := $00001000;
  75170. end;
  75171. procedure TCAN1_C1FIFOCON10.setDONLY(thebits : TBits_1); inline;
  75172. begin
  75173. if thebits = 0 then
  75174. pTDefRegMap(@Self)^.clr := $00001000
  75175. else
  75176. pTDefRegMap(@Self)^.&set := $00001000;
  75177. end;
  75178. function TCAN1_C1FIFOCON10.getDONLY : TBits_1; inline;
  75179. begin
  75180. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  75181. end;
  75182. procedure TCAN1_C1FIFOCON10.setUINC; inline;
  75183. begin
  75184. pTDefRegMap(@Self)^.&set := $00002000;
  75185. end;
  75186. procedure TCAN1_C1FIFOCON10.clearUINC; inline;
  75187. begin
  75188. pTDefRegMap(@Self)^.clr := $00002000;
  75189. end;
  75190. procedure TCAN1_C1FIFOCON10.setUINC(thebits : TBits_1); inline;
  75191. begin
  75192. if thebits = 0 then
  75193. pTDefRegMap(@Self)^.clr := $00002000
  75194. else
  75195. pTDefRegMap(@Self)^.&set := $00002000;
  75196. end;
  75197. function TCAN1_C1FIFOCON10.getUINC : TBits_1; inline;
  75198. begin
  75199. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  75200. end;
  75201. procedure TCAN1_C1FIFOCON10.setFRESET; inline;
  75202. begin
  75203. pTDefRegMap(@Self)^.&set := $00004000;
  75204. end;
  75205. procedure TCAN1_C1FIFOCON10.clearFRESET; inline;
  75206. begin
  75207. pTDefRegMap(@Self)^.clr := $00004000;
  75208. end;
  75209. procedure TCAN1_C1FIFOCON10.setFRESET(thebits : TBits_1); inline;
  75210. begin
  75211. if thebits = 0 then
  75212. pTDefRegMap(@Self)^.clr := $00004000
  75213. else
  75214. pTDefRegMap(@Self)^.&set := $00004000;
  75215. end;
  75216. function TCAN1_C1FIFOCON10.getFRESET : TBits_1; inline;
  75217. begin
  75218. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  75219. end;
  75220. procedure TCAN1_C1FIFOCON10.setFSIZE(thebits : TBits_5); inline;
  75221. begin
  75222. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  75223. end;
  75224. function TCAN1_C1FIFOCON10.getFSIZE : TBits_5; inline;
  75225. begin
  75226. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  75227. end;
  75228. procedure TCAN1_C1FIFOCON10.setw(thebits : TBits_32); inline;
  75229. begin
  75230. pTDefRegMap(@Self)^.val := thebits;
  75231. end;
  75232. function TCAN1_C1FIFOCON10.getw : TBits_32; inline;
  75233. begin
  75234. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75235. end;
  75236. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIF; inline;
  75237. begin
  75238. pTDefRegMap(@Self)^.&set := $00000001;
  75239. end;
  75240. procedure TCAN1_C1FIFOINT10.clearRXNEMPTYIF; inline;
  75241. begin
  75242. pTDefRegMap(@Self)^.clr := $00000001;
  75243. end;
  75244. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIF(thebits : TBits_1); inline;
  75245. begin
  75246. if thebits = 0 then
  75247. pTDefRegMap(@Self)^.clr := $00000001
  75248. else
  75249. pTDefRegMap(@Self)^.&set := $00000001;
  75250. end;
  75251. function TCAN1_C1FIFOINT10.getRXNEMPTYIF : TBits_1; inline;
  75252. begin
  75253. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  75254. end;
  75255. procedure TCAN1_C1FIFOINT10.setRXHALFIF; inline;
  75256. begin
  75257. pTDefRegMap(@Self)^.&set := $00000002;
  75258. end;
  75259. procedure TCAN1_C1FIFOINT10.clearRXHALFIF; inline;
  75260. begin
  75261. pTDefRegMap(@Self)^.clr := $00000002;
  75262. end;
  75263. procedure TCAN1_C1FIFOINT10.setRXHALFIF(thebits : TBits_1); inline;
  75264. begin
  75265. if thebits = 0 then
  75266. pTDefRegMap(@Self)^.clr := $00000002
  75267. else
  75268. pTDefRegMap(@Self)^.&set := $00000002;
  75269. end;
  75270. function TCAN1_C1FIFOINT10.getRXHALFIF : TBits_1; inline;
  75271. begin
  75272. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  75273. end;
  75274. procedure TCAN1_C1FIFOINT10.setRXFULLIF; inline;
  75275. begin
  75276. pTDefRegMap(@Self)^.&set := $00000004;
  75277. end;
  75278. procedure TCAN1_C1FIFOINT10.clearRXFULLIF; inline;
  75279. begin
  75280. pTDefRegMap(@Self)^.clr := $00000004;
  75281. end;
  75282. procedure TCAN1_C1FIFOINT10.setRXFULLIF(thebits : TBits_1); inline;
  75283. begin
  75284. if thebits = 0 then
  75285. pTDefRegMap(@Self)^.clr := $00000004
  75286. else
  75287. pTDefRegMap(@Self)^.&set := $00000004;
  75288. end;
  75289. function TCAN1_C1FIFOINT10.getRXFULLIF : TBits_1; inline;
  75290. begin
  75291. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75292. end;
  75293. procedure TCAN1_C1FIFOINT10.setRXOVFLIF; inline;
  75294. begin
  75295. pTDefRegMap(@Self)^.&set := $00000008;
  75296. end;
  75297. procedure TCAN1_C1FIFOINT10.clearRXOVFLIF; inline;
  75298. begin
  75299. pTDefRegMap(@Self)^.clr := $00000008;
  75300. end;
  75301. procedure TCAN1_C1FIFOINT10.setRXOVFLIF(thebits : TBits_1); inline;
  75302. begin
  75303. if thebits = 0 then
  75304. pTDefRegMap(@Self)^.clr := $00000008
  75305. else
  75306. pTDefRegMap(@Self)^.&set := $00000008;
  75307. end;
  75308. function TCAN1_C1FIFOINT10.getRXOVFLIF : TBits_1; inline;
  75309. begin
  75310. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75311. end;
  75312. procedure TCAN1_C1FIFOINT10.setTXEMPTYIF; inline;
  75313. begin
  75314. pTDefRegMap(@Self)^.&set := $00000100;
  75315. end;
  75316. procedure TCAN1_C1FIFOINT10.clearTXEMPTYIF; inline;
  75317. begin
  75318. pTDefRegMap(@Self)^.clr := $00000100;
  75319. end;
  75320. procedure TCAN1_C1FIFOINT10.setTXEMPTYIF(thebits : TBits_1); inline;
  75321. begin
  75322. if thebits = 0 then
  75323. pTDefRegMap(@Self)^.clr := $00000100
  75324. else
  75325. pTDefRegMap(@Self)^.&set := $00000100;
  75326. end;
  75327. function TCAN1_C1FIFOINT10.getTXEMPTYIF : TBits_1; inline;
  75328. begin
  75329. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  75330. end;
  75331. procedure TCAN1_C1FIFOINT10.setTXHALFIF; inline;
  75332. begin
  75333. pTDefRegMap(@Self)^.&set := $00000200;
  75334. end;
  75335. procedure TCAN1_C1FIFOINT10.clearTXHALFIF; inline;
  75336. begin
  75337. pTDefRegMap(@Self)^.clr := $00000200;
  75338. end;
  75339. procedure TCAN1_C1FIFOINT10.setTXHALFIF(thebits : TBits_1); inline;
  75340. begin
  75341. if thebits = 0 then
  75342. pTDefRegMap(@Self)^.clr := $00000200
  75343. else
  75344. pTDefRegMap(@Self)^.&set := $00000200;
  75345. end;
  75346. function TCAN1_C1FIFOINT10.getTXHALFIF : TBits_1; inline;
  75347. begin
  75348. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  75349. end;
  75350. procedure TCAN1_C1FIFOINT10.setTXNFULLIF; inline;
  75351. begin
  75352. pTDefRegMap(@Self)^.&set := $00000400;
  75353. end;
  75354. procedure TCAN1_C1FIFOINT10.clearTXNFULLIF; inline;
  75355. begin
  75356. pTDefRegMap(@Self)^.clr := $00000400;
  75357. end;
  75358. procedure TCAN1_C1FIFOINT10.setTXNFULLIF(thebits : TBits_1); inline;
  75359. begin
  75360. if thebits = 0 then
  75361. pTDefRegMap(@Self)^.clr := $00000400
  75362. else
  75363. pTDefRegMap(@Self)^.&set := $00000400;
  75364. end;
  75365. function TCAN1_C1FIFOINT10.getTXNFULLIF : TBits_1; inline;
  75366. begin
  75367. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  75368. end;
  75369. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIE; inline;
  75370. begin
  75371. pTDefRegMap(@Self)^.&set := $00010000;
  75372. end;
  75373. procedure TCAN1_C1FIFOINT10.clearRXNEMPTYIE; inline;
  75374. begin
  75375. pTDefRegMap(@Self)^.clr := $00010000;
  75376. end;
  75377. procedure TCAN1_C1FIFOINT10.setRXNEMPTYIE(thebits : TBits_1); inline;
  75378. begin
  75379. if thebits = 0 then
  75380. pTDefRegMap(@Self)^.clr := $00010000
  75381. else
  75382. pTDefRegMap(@Self)^.&set := $00010000;
  75383. end;
  75384. function TCAN1_C1FIFOINT10.getRXNEMPTYIE : TBits_1; inline;
  75385. begin
  75386. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  75387. end;
  75388. procedure TCAN1_C1FIFOINT10.setRXHALFIE; inline;
  75389. begin
  75390. pTDefRegMap(@Self)^.&set := $00020000;
  75391. end;
  75392. procedure TCAN1_C1FIFOINT10.clearRXHALFIE; inline;
  75393. begin
  75394. pTDefRegMap(@Self)^.clr := $00020000;
  75395. end;
  75396. procedure TCAN1_C1FIFOINT10.setRXHALFIE(thebits : TBits_1); inline;
  75397. begin
  75398. if thebits = 0 then
  75399. pTDefRegMap(@Self)^.clr := $00020000
  75400. else
  75401. pTDefRegMap(@Self)^.&set := $00020000;
  75402. end;
  75403. function TCAN1_C1FIFOINT10.getRXHALFIE : TBits_1; inline;
  75404. begin
  75405. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  75406. end;
  75407. procedure TCAN1_C1FIFOINT10.setRXFULLIE; inline;
  75408. begin
  75409. pTDefRegMap(@Self)^.&set := $00040000;
  75410. end;
  75411. procedure TCAN1_C1FIFOINT10.clearRXFULLIE; inline;
  75412. begin
  75413. pTDefRegMap(@Self)^.clr := $00040000;
  75414. end;
  75415. procedure TCAN1_C1FIFOINT10.setRXFULLIE(thebits : TBits_1); inline;
  75416. begin
  75417. if thebits = 0 then
  75418. pTDefRegMap(@Self)^.clr := $00040000
  75419. else
  75420. pTDefRegMap(@Self)^.&set := $00040000;
  75421. end;
  75422. function TCAN1_C1FIFOINT10.getRXFULLIE : TBits_1; inline;
  75423. begin
  75424. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  75425. end;
  75426. procedure TCAN1_C1FIFOINT10.setRXOVFLIE; inline;
  75427. begin
  75428. pTDefRegMap(@Self)^.&set := $00080000;
  75429. end;
  75430. procedure TCAN1_C1FIFOINT10.clearRXOVFLIE; inline;
  75431. begin
  75432. pTDefRegMap(@Self)^.clr := $00080000;
  75433. end;
  75434. procedure TCAN1_C1FIFOINT10.setRXOVFLIE(thebits : TBits_1); inline;
  75435. begin
  75436. if thebits = 0 then
  75437. pTDefRegMap(@Self)^.clr := $00080000
  75438. else
  75439. pTDefRegMap(@Self)^.&set := $00080000;
  75440. end;
  75441. function TCAN1_C1FIFOINT10.getRXOVFLIE : TBits_1; inline;
  75442. begin
  75443. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75444. end;
  75445. procedure TCAN1_C1FIFOINT10.setTXEMPTYIE; inline;
  75446. begin
  75447. pTDefRegMap(@Self)^.&set := $01000000;
  75448. end;
  75449. procedure TCAN1_C1FIFOINT10.clearTXEMPTYIE; inline;
  75450. begin
  75451. pTDefRegMap(@Self)^.clr := $01000000;
  75452. end;
  75453. procedure TCAN1_C1FIFOINT10.setTXEMPTYIE(thebits : TBits_1); inline;
  75454. begin
  75455. if thebits = 0 then
  75456. pTDefRegMap(@Self)^.clr := $01000000
  75457. else
  75458. pTDefRegMap(@Self)^.&set := $01000000;
  75459. end;
  75460. function TCAN1_C1FIFOINT10.getTXEMPTYIE : TBits_1; inline;
  75461. begin
  75462. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  75463. end;
  75464. procedure TCAN1_C1FIFOINT10.setTXHALFIE; inline;
  75465. begin
  75466. pTDefRegMap(@Self)^.&set := $02000000;
  75467. end;
  75468. procedure TCAN1_C1FIFOINT10.clearTXHALFIE; inline;
  75469. begin
  75470. pTDefRegMap(@Self)^.clr := $02000000;
  75471. end;
  75472. procedure TCAN1_C1FIFOINT10.setTXHALFIE(thebits : TBits_1); inline;
  75473. begin
  75474. if thebits = 0 then
  75475. pTDefRegMap(@Self)^.clr := $02000000
  75476. else
  75477. pTDefRegMap(@Self)^.&set := $02000000;
  75478. end;
  75479. function TCAN1_C1FIFOINT10.getTXHALFIE : TBits_1; inline;
  75480. begin
  75481. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  75482. end;
  75483. procedure TCAN1_C1FIFOINT10.setTXNFULLIE; inline;
  75484. begin
  75485. pTDefRegMap(@Self)^.&set := $04000000;
  75486. end;
  75487. procedure TCAN1_C1FIFOINT10.clearTXNFULLIE; inline;
  75488. begin
  75489. pTDefRegMap(@Self)^.clr := $04000000;
  75490. end;
  75491. procedure TCAN1_C1FIFOINT10.setTXNFULLIE(thebits : TBits_1); inline;
  75492. begin
  75493. if thebits = 0 then
  75494. pTDefRegMap(@Self)^.clr := $04000000
  75495. else
  75496. pTDefRegMap(@Self)^.&set := $04000000;
  75497. end;
  75498. function TCAN1_C1FIFOINT10.getTXNFULLIE : TBits_1; inline;
  75499. begin
  75500. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75501. end;
  75502. procedure TCAN1_C1FIFOINT10.setw(thebits : TBits_32); inline;
  75503. begin
  75504. pTDefRegMap(@Self)^.val := thebits;
  75505. end;
  75506. function TCAN1_C1FIFOINT10.getw : TBits_32; inline;
  75507. begin
  75508. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75509. end;
  75510. procedure TCAN1_C1FIFOCI10.setCFIFOCI(thebits : TBits_5); inline;
  75511. begin
  75512. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75513. end;
  75514. function TCAN1_C1FIFOCI10.getCFIFOCI : TBits_5; inline;
  75515. begin
  75516. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  75517. end;
  75518. procedure TCAN1_C1FIFOCI10.setw(thebits : TBits_32); inline;
  75519. begin
  75520. pTDefRegMap(@Self)^.val := thebits;
  75521. end;
  75522. function TCAN1_C1FIFOCI10.getw : TBits_32; inline;
  75523. begin
  75524. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75525. end;
  75526. procedure TCAN1_C1FIFOCON11.setTXPRI(thebits : TBits_2); inline;
  75527. begin
  75528. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  75529. end;
  75530. function TCAN1_C1FIFOCON11.getTXPRI : TBits_2; inline;
  75531. begin
  75532. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  75533. end;
  75534. procedure TCAN1_C1FIFOCON11.setRTREN; inline;
  75535. begin
  75536. pTDefRegMap(@Self)^.&set := $00000004;
  75537. end;
  75538. procedure TCAN1_C1FIFOCON11.clearRTREN; inline;
  75539. begin
  75540. pTDefRegMap(@Self)^.clr := $00000004;
  75541. end;
  75542. procedure TCAN1_C1FIFOCON11.setRTREN(thebits : TBits_1); inline;
  75543. begin
  75544. if thebits = 0 then
  75545. pTDefRegMap(@Self)^.clr := $00000004
  75546. else
  75547. pTDefRegMap(@Self)^.&set := $00000004;
  75548. end;
  75549. function TCAN1_C1FIFOCON11.getRTREN : TBits_1; inline;
  75550. begin
  75551. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75552. end;
  75553. procedure TCAN1_C1FIFOCON11.setTXREQ; inline;
  75554. begin
  75555. pTDefRegMap(@Self)^.&set := $00000008;
  75556. end;
  75557. procedure TCAN1_C1FIFOCON11.clearTXREQ; inline;
  75558. begin
  75559. pTDefRegMap(@Self)^.clr := $00000008;
  75560. end;
  75561. procedure TCAN1_C1FIFOCON11.setTXREQ(thebits : TBits_1); inline;
  75562. begin
  75563. if thebits = 0 then
  75564. pTDefRegMap(@Self)^.clr := $00000008
  75565. else
  75566. pTDefRegMap(@Self)^.&set := $00000008;
  75567. end;
  75568. function TCAN1_C1FIFOCON11.getTXREQ : TBits_1; inline;
  75569. begin
  75570. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75571. end;
  75572. procedure TCAN1_C1FIFOCON11.setTXERR; inline;
  75573. begin
  75574. pTDefRegMap(@Self)^.&set := $00000010;
  75575. end;
  75576. procedure TCAN1_C1FIFOCON11.clearTXERR; inline;
  75577. begin
  75578. pTDefRegMap(@Self)^.clr := $00000010;
  75579. end;
  75580. procedure TCAN1_C1FIFOCON11.setTXERR(thebits : TBits_1); inline;
  75581. begin
  75582. if thebits = 0 then
  75583. pTDefRegMap(@Self)^.clr := $00000010
  75584. else
  75585. pTDefRegMap(@Self)^.&set := $00000010;
  75586. end;
  75587. function TCAN1_C1FIFOCON11.getTXERR : TBits_1; inline;
  75588. begin
  75589. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  75590. end;
  75591. procedure TCAN1_C1FIFOCON11.setTXLARB; inline;
  75592. begin
  75593. pTDefRegMap(@Self)^.&set := $00000020;
  75594. end;
  75595. procedure TCAN1_C1FIFOCON11.clearTXLARB; inline;
  75596. begin
  75597. pTDefRegMap(@Self)^.clr := $00000020;
  75598. end;
  75599. procedure TCAN1_C1FIFOCON11.setTXLARB(thebits : TBits_1); inline;
  75600. begin
  75601. if thebits = 0 then
  75602. pTDefRegMap(@Self)^.clr := $00000020
  75603. else
  75604. pTDefRegMap(@Self)^.&set := $00000020;
  75605. end;
  75606. function TCAN1_C1FIFOCON11.getTXLARB : TBits_1; inline;
  75607. begin
  75608. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  75609. end;
  75610. procedure TCAN1_C1FIFOCON11.setTXABAT; inline;
  75611. begin
  75612. pTDefRegMap(@Self)^.&set := $00000040;
  75613. end;
  75614. procedure TCAN1_C1FIFOCON11.clearTXABAT; inline;
  75615. begin
  75616. pTDefRegMap(@Self)^.clr := $00000040;
  75617. end;
  75618. procedure TCAN1_C1FIFOCON11.setTXABAT(thebits : TBits_1); inline;
  75619. begin
  75620. if thebits = 0 then
  75621. pTDefRegMap(@Self)^.clr := $00000040
  75622. else
  75623. pTDefRegMap(@Self)^.&set := $00000040;
  75624. end;
  75625. function TCAN1_C1FIFOCON11.getTXABAT : TBits_1; inline;
  75626. begin
  75627. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  75628. end;
  75629. procedure TCAN1_C1FIFOCON11.setTXEN; inline;
  75630. begin
  75631. pTDefRegMap(@Self)^.&set := $00000080;
  75632. end;
  75633. procedure TCAN1_C1FIFOCON11.clearTXEN; inline;
  75634. begin
  75635. pTDefRegMap(@Self)^.clr := $00000080;
  75636. end;
  75637. procedure TCAN1_C1FIFOCON11.setTXEN(thebits : TBits_1); inline;
  75638. begin
  75639. if thebits = 0 then
  75640. pTDefRegMap(@Self)^.clr := $00000080
  75641. else
  75642. pTDefRegMap(@Self)^.&set := $00000080;
  75643. end;
  75644. function TCAN1_C1FIFOCON11.getTXEN : TBits_1; inline;
  75645. begin
  75646. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  75647. end;
  75648. procedure TCAN1_C1FIFOCON11.setDONLY; inline;
  75649. begin
  75650. pTDefRegMap(@Self)^.&set := $00001000;
  75651. end;
  75652. procedure TCAN1_C1FIFOCON11.clearDONLY; inline;
  75653. begin
  75654. pTDefRegMap(@Self)^.clr := $00001000;
  75655. end;
  75656. procedure TCAN1_C1FIFOCON11.setDONLY(thebits : TBits_1); inline;
  75657. begin
  75658. if thebits = 0 then
  75659. pTDefRegMap(@Self)^.clr := $00001000
  75660. else
  75661. pTDefRegMap(@Self)^.&set := $00001000;
  75662. end;
  75663. function TCAN1_C1FIFOCON11.getDONLY : TBits_1; inline;
  75664. begin
  75665. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  75666. end;
  75667. procedure TCAN1_C1FIFOCON11.setUINC; inline;
  75668. begin
  75669. pTDefRegMap(@Self)^.&set := $00002000;
  75670. end;
  75671. procedure TCAN1_C1FIFOCON11.clearUINC; inline;
  75672. begin
  75673. pTDefRegMap(@Self)^.clr := $00002000;
  75674. end;
  75675. procedure TCAN1_C1FIFOCON11.setUINC(thebits : TBits_1); inline;
  75676. begin
  75677. if thebits = 0 then
  75678. pTDefRegMap(@Self)^.clr := $00002000
  75679. else
  75680. pTDefRegMap(@Self)^.&set := $00002000;
  75681. end;
  75682. function TCAN1_C1FIFOCON11.getUINC : TBits_1; inline;
  75683. begin
  75684. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  75685. end;
  75686. procedure TCAN1_C1FIFOCON11.setFRESET; inline;
  75687. begin
  75688. pTDefRegMap(@Self)^.&set := $00004000;
  75689. end;
  75690. procedure TCAN1_C1FIFOCON11.clearFRESET; inline;
  75691. begin
  75692. pTDefRegMap(@Self)^.clr := $00004000;
  75693. end;
  75694. procedure TCAN1_C1FIFOCON11.setFRESET(thebits : TBits_1); inline;
  75695. begin
  75696. if thebits = 0 then
  75697. pTDefRegMap(@Self)^.clr := $00004000
  75698. else
  75699. pTDefRegMap(@Self)^.&set := $00004000;
  75700. end;
  75701. function TCAN1_C1FIFOCON11.getFRESET : TBits_1; inline;
  75702. begin
  75703. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  75704. end;
  75705. procedure TCAN1_C1FIFOCON11.setFSIZE(thebits : TBits_5); inline;
  75706. begin
  75707. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  75708. end;
  75709. function TCAN1_C1FIFOCON11.getFSIZE : TBits_5; inline;
  75710. begin
  75711. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  75712. end;
  75713. procedure TCAN1_C1FIFOCON11.setw(thebits : TBits_32); inline;
  75714. begin
  75715. pTDefRegMap(@Self)^.val := thebits;
  75716. end;
  75717. function TCAN1_C1FIFOCON11.getw : TBits_32; inline;
  75718. begin
  75719. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75720. end;
  75721. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIF; inline;
  75722. begin
  75723. pTDefRegMap(@Self)^.&set := $00000001;
  75724. end;
  75725. procedure TCAN1_C1FIFOINT11.clearRXNEMPTYIF; inline;
  75726. begin
  75727. pTDefRegMap(@Self)^.clr := $00000001;
  75728. end;
  75729. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIF(thebits : TBits_1); inline;
  75730. begin
  75731. if thebits = 0 then
  75732. pTDefRegMap(@Self)^.clr := $00000001
  75733. else
  75734. pTDefRegMap(@Self)^.&set := $00000001;
  75735. end;
  75736. function TCAN1_C1FIFOINT11.getRXNEMPTYIF : TBits_1; inline;
  75737. begin
  75738. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  75739. end;
  75740. procedure TCAN1_C1FIFOINT11.setRXHALFIF; inline;
  75741. begin
  75742. pTDefRegMap(@Self)^.&set := $00000002;
  75743. end;
  75744. procedure TCAN1_C1FIFOINT11.clearRXHALFIF; inline;
  75745. begin
  75746. pTDefRegMap(@Self)^.clr := $00000002;
  75747. end;
  75748. procedure TCAN1_C1FIFOINT11.setRXHALFIF(thebits : TBits_1); inline;
  75749. begin
  75750. if thebits = 0 then
  75751. pTDefRegMap(@Self)^.clr := $00000002
  75752. else
  75753. pTDefRegMap(@Self)^.&set := $00000002;
  75754. end;
  75755. function TCAN1_C1FIFOINT11.getRXHALFIF : TBits_1; inline;
  75756. begin
  75757. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  75758. end;
  75759. procedure TCAN1_C1FIFOINT11.setRXFULLIF; inline;
  75760. begin
  75761. pTDefRegMap(@Self)^.&set := $00000004;
  75762. end;
  75763. procedure TCAN1_C1FIFOINT11.clearRXFULLIF; inline;
  75764. begin
  75765. pTDefRegMap(@Self)^.clr := $00000004;
  75766. end;
  75767. procedure TCAN1_C1FIFOINT11.setRXFULLIF(thebits : TBits_1); inline;
  75768. begin
  75769. if thebits = 0 then
  75770. pTDefRegMap(@Self)^.clr := $00000004
  75771. else
  75772. pTDefRegMap(@Self)^.&set := $00000004;
  75773. end;
  75774. function TCAN1_C1FIFOINT11.getRXFULLIF : TBits_1; inline;
  75775. begin
  75776. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  75777. end;
  75778. procedure TCAN1_C1FIFOINT11.setRXOVFLIF; inline;
  75779. begin
  75780. pTDefRegMap(@Self)^.&set := $00000008;
  75781. end;
  75782. procedure TCAN1_C1FIFOINT11.clearRXOVFLIF; inline;
  75783. begin
  75784. pTDefRegMap(@Self)^.clr := $00000008;
  75785. end;
  75786. procedure TCAN1_C1FIFOINT11.setRXOVFLIF(thebits : TBits_1); inline;
  75787. begin
  75788. if thebits = 0 then
  75789. pTDefRegMap(@Self)^.clr := $00000008
  75790. else
  75791. pTDefRegMap(@Self)^.&set := $00000008;
  75792. end;
  75793. function TCAN1_C1FIFOINT11.getRXOVFLIF : TBits_1; inline;
  75794. begin
  75795. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  75796. end;
  75797. procedure TCAN1_C1FIFOINT11.setTXEMPTYIF; inline;
  75798. begin
  75799. pTDefRegMap(@Self)^.&set := $00000100;
  75800. end;
  75801. procedure TCAN1_C1FIFOINT11.clearTXEMPTYIF; inline;
  75802. begin
  75803. pTDefRegMap(@Self)^.clr := $00000100;
  75804. end;
  75805. procedure TCAN1_C1FIFOINT11.setTXEMPTYIF(thebits : TBits_1); inline;
  75806. begin
  75807. if thebits = 0 then
  75808. pTDefRegMap(@Self)^.clr := $00000100
  75809. else
  75810. pTDefRegMap(@Self)^.&set := $00000100;
  75811. end;
  75812. function TCAN1_C1FIFOINT11.getTXEMPTYIF : TBits_1; inline;
  75813. begin
  75814. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  75815. end;
  75816. procedure TCAN1_C1FIFOINT11.setTXHALFIF; inline;
  75817. begin
  75818. pTDefRegMap(@Self)^.&set := $00000200;
  75819. end;
  75820. procedure TCAN1_C1FIFOINT11.clearTXHALFIF; inline;
  75821. begin
  75822. pTDefRegMap(@Self)^.clr := $00000200;
  75823. end;
  75824. procedure TCAN1_C1FIFOINT11.setTXHALFIF(thebits : TBits_1); inline;
  75825. begin
  75826. if thebits = 0 then
  75827. pTDefRegMap(@Self)^.clr := $00000200
  75828. else
  75829. pTDefRegMap(@Self)^.&set := $00000200;
  75830. end;
  75831. function TCAN1_C1FIFOINT11.getTXHALFIF : TBits_1; inline;
  75832. begin
  75833. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  75834. end;
  75835. procedure TCAN1_C1FIFOINT11.setTXNFULLIF; inline;
  75836. begin
  75837. pTDefRegMap(@Self)^.&set := $00000400;
  75838. end;
  75839. procedure TCAN1_C1FIFOINT11.clearTXNFULLIF; inline;
  75840. begin
  75841. pTDefRegMap(@Self)^.clr := $00000400;
  75842. end;
  75843. procedure TCAN1_C1FIFOINT11.setTXNFULLIF(thebits : TBits_1); inline;
  75844. begin
  75845. if thebits = 0 then
  75846. pTDefRegMap(@Self)^.clr := $00000400
  75847. else
  75848. pTDefRegMap(@Self)^.&set := $00000400;
  75849. end;
  75850. function TCAN1_C1FIFOINT11.getTXNFULLIF : TBits_1; inline;
  75851. begin
  75852. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  75853. end;
  75854. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIE; inline;
  75855. begin
  75856. pTDefRegMap(@Self)^.&set := $00010000;
  75857. end;
  75858. procedure TCAN1_C1FIFOINT11.clearRXNEMPTYIE; inline;
  75859. begin
  75860. pTDefRegMap(@Self)^.clr := $00010000;
  75861. end;
  75862. procedure TCAN1_C1FIFOINT11.setRXNEMPTYIE(thebits : TBits_1); inline;
  75863. begin
  75864. if thebits = 0 then
  75865. pTDefRegMap(@Self)^.clr := $00010000
  75866. else
  75867. pTDefRegMap(@Self)^.&set := $00010000;
  75868. end;
  75869. function TCAN1_C1FIFOINT11.getRXNEMPTYIE : TBits_1; inline;
  75870. begin
  75871. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  75872. end;
  75873. procedure TCAN1_C1FIFOINT11.setRXHALFIE; inline;
  75874. begin
  75875. pTDefRegMap(@Self)^.&set := $00020000;
  75876. end;
  75877. procedure TCAN1_C1FIFOINT11.clearRXHALFIE; inline;
  75878. begin
  75879. pTDefRegMap(@Self)^.clr := $00020000;
  75880. end;
  75881. procedure TCAN1_C1FIFOINT11.setRXHALFIE(thebits : TBits_1); inline;
  75882. begin
  75883. if thebits = 0 then
  75884. pTDefRegMap(@Self)^.clr := $00020000
  75885. else
  75886. pTDefRegMap(@Self)^.&set := $00020000;
  75887. end;
  75888. function TCAN1_C1FIFOINT11.getRXHALFIE : TBits_1; inline;
  75889. begin
  75890. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  75891. end;
  75892. procedure TCAN1_C1FIFOINT11.setRXFULLIE; inline;
  75893. begin
  75894. pTDefRegMap(@Self)^.&set := $00040000;
  75895. end;
  75896. procedure TCAN1_C1FIFOINT11.clearRXFULLIE; inline;
  75897. begin
  75898. pTDefRegMap(@Self)^.clr := $00040000;
  75899. end;
  75900. procedure TCAN1_C1FIFOINT11.setRXFULLIE(thebits : TBits_1); inline;
  75901. begin
  75902. if thebits = 0 then
  75903. pTDefRegMap(@Self)^.clr := $00040000
  75904. else
  75905. pTDefRegMap(@Self)^.&set := $00040000;
  75906. end;
  75907. function TCAN1_C1FIFOINT11.getRXFULLIE : TBits_1; inline;
  75908. begin
  75909. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  75910. end;
  75911. procedure TCAN1_C1FIFOINT11.setRXOVFLIE; inline;
  75912. begin
  75913. pTDefRegMap(@Self)^.&set := $00080000;
  75914. end;
  75915. procedure TCAN1_C1FIFOINT11.clearRXOVFLIE; inline;
  75916. begin
  75917. pTDefRegMap(@Self)^.clr := $00080000;
  75918. end;
  75919. procedure TCAN1_C1FIFOINT11.setRXOVFLIE(thebits : TBits_1); inline;
  75920. begin
  75921. if thebits = 0 then
  75922. pTDefRegMap(@Self)^.clr := $00080000
  75923. else
  75924. pTDefRegMap(@Self)^.&set := $00080000;
  75925. end;
  75926. function TCAN1_C1FIFOINT11.getRXOVFLIE : TBits_1; inline;
  75927. begin
  75928. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  75929. end;
  75930. procedure TCAN1_C1FIFOINT11.setTXEMPTYIE; inline;
  75931. begin
  75932. pTDefRegMap(@Self)^.&set := $01000000;
  75933. end;
  75934. procedure TCAN1_C1FIFOINT11.clearTXEMPTYIE; inline;
  75935. begin
  75936. pTDefRegMap(@Self)^.clr := $01000000;
  75937. end;
  75938. procedure TCAN1_C1FIFOINT11.setTXEMPTYIE(thebits : TBits_1); inline;
  75939. begin
  75940. if thebits = 0 then
  75941. pTDefRegMap(@Self)^.clr := $01000000
  75942. else
  75943. pTDefRegMap(@Self)^.&set := $01000000;
  75944. end;
  75945. function TCAN1_C1FIFOINT11.getTXEMPTYIE : TBits_1; inline;
  75946. begin
  75947. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  75948. end;
  75949. procedure TCAN1_C1FIFOINT11.setTXHALFIE; inline;
  75950. begin
  75951. pTDefRegMap(@Self)^.&set := $02000000;
  75952. end;
  75953. procedure TCAN1_C1FIFOINT11.clearTXHALFIE; inline;
  75954. begin
  75955. pTDefRegMap(@Self)^.clr := $02000000;
  75956. end;
  75957. procedure TCAN1_C1FIFOINT11.setTXHALFIE(thebits : TBits_1); inline;
  75958. begin
  75959. if thebits = 0 then
  75960. pTDefRegMap(@Self)^.clr := $02000000
  75961. else
  75962. pTDefRegMap(@Self)^.&set := $02000000;
  75963. end;
  75964. function TCAN1_C1FIFOINT11.getTXHALFIE : TBits_1; inline;
  75965. begin
  75966. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  75967. end;
  75968. procedure TCAN1_C1FIFOINT11.setTXNFULLIE; inline;
  75969. begin
  75970. pTDefRegMap(@Self)^.&set := $04000000;
  75971. end;
  75972. procedure TCAN1_C1FIFOINT11.clearTXNFULLIE; inline;
  75973. begin
  75974. pTDefRegMap(@Self)^.clr := $04000000;
  75975. end;
  75976. procedure TCAN1_C1FIFOINT11.setTXNFULLIE(thebits : TBits_1); inline;
  75977. begin
  75978. if thebits = 0 then
  75979. pTDefRegMap(@Self)^.clr := $04000000
  75980. else
  75981. pTDefRegMap(@Self)^.&set := $04000000;
  75982. end;
  75983. function TCAN1_C1FIFOINT11.getTXNFULLIE : TBits_1; inline;
  75984. begin
  75985. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  75986. end;
  75987. procedure TCAN1_C1FIFOINT11.setw(thebits : TBits_32); inline;
  75988. begin
  75989. pTDefRegMap(@Self)^.val := thebits;
  75990. end;
  75991. function TCAN1_C1FIFOINT11.getw : TBits_32; inline;
  75992. begin
  75993. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  75994. end;
  75995. procedure TCAN1_C1FIFOCI11.setCFIFOCI(thebits : TBits_5); inline;
  75996. begin
  75997. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  75998. end;
  75999. function TCAN1_C1FIFOCI11.getCFIFOCI : TBits_5; inline;
  76000. begin
  76001. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76002. end;
  76003. procedure TCAN1_C1FIFOCI11.setw(thebits : TBits_32); inline;
  76004. begin
  76005. pTDefRegMap(@Self)^.val := thebits;
  76006. end;
  76007. function TCAN1_C1FIFOCI11.getw : TBits_32; inline;
  76008. begin
  76009. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76010. end;
  76011. procedure TCAN1_C1FIFOCON12.setTXPRI(thebits : TBits_2); inline;
  76012. begin
  76013. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76014. end;
  76015. function TCAN1_C1FIFOCON12.getTXPRI : TBits_2; inline;
  76016. begin
  76017. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76018. end;
  76019. procedure TCAN1_C1FIFOCON12.setRTREN; inline;
  76020. begin
  76021. pTDefRegMap(@Self)^.&set := $00000004;
  76022. end;
  76023. procedure TCAN1_C1FIFOCON12.clearRTREN; inline;
  76024. begin
  76025. pTDefRegMap(@Self)^.clr := $00000004;
  76026. end;
  76027. procedure TCAN1_C1FIFOCON12.setRTREN(thebits : TBits_1); inline;
  76028. begin
  76029. if thebits = 0 then
  76030. pTDefRegMap(@Self)^.clr := $00000004
  76031. else
  76032. pTDefRegMap(@Self)^.&set := $00000004;
  76033. end;
  76034. function TCAN1_C1FIFOCON12.getRTREN : TBits_1; inline;
  76035. begin
  76036. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76037. end;
  76038. procedure TCAN1_C1FIFOCON12.setTXREQ; inline;
  76039. begin
  76040. pTDefRegMap(@Self)^.&set := $00000008;
  76041. end;
  76042. procedure TCAN1_C1FIFOCON12.clearTXREQ; inline;
  76043. begin
  76044. pTDefRegMap(@Self)^.clr := $00000008;
  76045. end;
  76046. procedure TCAN1_C1FIFOCON12.setTXREQ(thebits : TBits_1); inline;
  76047. begin
  76048. if thebits = 0 then
  76049. pTDefRegMap(@Self)^.clr := $00000008
  76050. else
  76051. pTDefRegMap(@Self)^.&set := $00000008;
  76052. end;
  76053. function TCAN1_C1FIFOCON12.getTXREQ : TBits_1; inline;
  76054. begin
  76055. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76056. end;
  76057. procedure TCAN1_C1FIFOCON12.setTXERR; inline;
  76058. begin
  76059. pTDefRegMap(@Self)^.&set := $00000010;
  76060. end;
  76061. procedure TCAN1_C1FIFOCON12.clearTXERR; inline;
  76062. begin
  76063. pTDefRegMap(@Self)^.clr := $00000010;
  76064. end;
  76065. procedure TCAN1_C1FIFOCON12.setTXERR(thebits : TBits_1); inline;
  76066. begin
  76067. if thebits = 0 then
  76068. pTDefRegMap(@Self)^.clr := $00000010
  76069. else
  76070. pTDefRegMap(@Self)^.&set := $00000010;
  76071. end;
  76072. function TCAN1_C1FIFOCON12.getTXERR : TBits_1; inline;
  76073. begin
  76074. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  76075. end;
  76076. procedure TCAN1_C1FIFOCON12.setTXLARB; inline;
  76077. begin
  76078. pTDefRegMap(@Self)^.&set := $00000020;
  76079. end;
  76080. procedure TCAN1_C1FIFOCON12.clearTXLARB; inline;
  76081. begin
  76082. pTDefRegMap(@Self)^.clr := $00000020;
  76083. end;
  76084. procedure TCAN1_C1FIFOCON12.setTXLARB(thebits : TBits_1); inline;
  76085. begin
  76086. if thebits = 0 then
  76087. pTDefRegMap(@Self)^.clr := $00000020
  76088. else
  76089. pTDefRegMap(@Self)^.&set := $00000020;
  76090. end;
  76091. function TCAN1_C1FIFOCON12.getTXLARB : TBits_1; inline;
  76092. begin
  76093. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  76094. end;
  76095. procedure TCAN1_C1FIFOCON12.setTXABAT; inline;
  76096. begin
  76097. pTDefRegMap(@Self)^.&set := $00000040;
  76098. end;
  76099. procedure TCAN1_C1FIFOCON12.clearTXABAT; inline;
  76100. begin
  76101. pTDefRegMap(@Self)^.clr := $00000040;
  76102. end;
  76103. procedure TCAN1_C1FIFOCON12.setTXABAT(thebits : TBits_1); inline;
  76104. begin
  76105. if thebits = 0 then
  76106. pTDefRegMap(@Self)^.clr := $00000040
  76107. else
  76108. pTDefRegMap(@Self)^.&set := $00000040;
  76109. end;
  76110. function TCAN1_C1FIFOCON12.getTXABAT : TBits_1; inline;
  76111. begin
  76112. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  76113. end;
  76114. procedure TCAN1_C1FIFOCON12.setTXEN; inline;
  76115. begin
  76116. pTDefRegMap(@Self)^.&set := $00000080;
  76117. end;
  76118. procedure TCAN1_C1FIFOCON12.clearTXEN; inline;
  76119. begin
  76120. pTDefRegMap(@Self)^.clr := $00000080;
  76121. end;
  76122. procedure TCAN1_C1FIFOCON12.setTXEN(thebits : TBits_1); inline;
  76123. begin
  76124. if thebits = 0 then
  76125. pTDefRegMap(@Self)^.clr := $00000080
  76126. else
  76127. pTDefRegMap(@Self)^.&set := $00000080;
  76128. end;
  76129. function TCAN1_C1FIFOCON12.getTXEN : TBits_1; inline;
  76130. begin
  76131. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  76132. end;
  76133. procedure TCAN1_C1FIFOCON12.setDONLY; inline;
  76134. begin
  76135. pTDefRegMap(@Self)^.&set := $00001000;
  76136. end;
  76137. procedure TCAN1_C1FIFOCON12.clearDONLY; inline;
  76138. begin
  76139. pTDefRegMap(@Self)^.clr := $00001000;
  76140. end;
  76141. procedure TCAN1_C1FIFOCON12.setDONLY(thebits : TBits_1); inline;
  76142. begin
  76143. if thebits = 0 then
  76144. pTDefRegMap(@Self)^.clr := $00001000
  76145. else
  76146. pTDefRegMap(@Self)^.&set := $00001000;
  76147. end;
  76148. function TCAN1_C1FIFOCON12.getDONLY : TBits_1; inline;
  76149. begin
  76150. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76151. end;
  76152. procedure TCAN1_C1FIFOCON12.setUINC; inline;
  76153. begin
  76154. pTDefRegMap(@Self)^.&set := $00002000;
  76155. end;
  76156. procedure TCAN1_C1FIFOCON12.clearUINC; inline;
  76157. begin
  76158. pTDefRegMap(@Self)^.clr := $00002000;
  76159. end;
  76160. procedure TCAN1_C1FIFOCON12.setUINC(thebits : TBits_1); inline;
  76161. begin
  76162. if thebits = 0 then
  76163. pTDefRegMap(@Self)^.clr := $00002000
  76164. else
  76165. pTDefRegMap(@Self)^.&set := $00002000;
  76166. end;
  76167. function TCAN1_C1FIFOCON12.getUINC : TBits_1; inline;
  76168. begin
  76169. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76170. end;
  76171. procedure TCAN1_C1FIFOCON12.setFRESET; inline;
  76172. begin
  76173. pTDefRegMap(@Self)^.&set := $00004000;
  76174. end;
  76175. procedure TCAN1_C1FIFOCON12.clearFRESET; inline;
  76176. begin
  76177. pTDefRegMap(@Self)^.clr := $00004000;
  76178. end;
  76179. procedure TCAN1_C1FIFOCON12.setFRESET(thebits : TBits_1); inline;
  76180. begin
  76181. if thebits = 0 then
  76182. pTDefRegMap(@Self)^.clr := $00004000
  76183. else
  76184. pTDefRegMap(@Self)^.&set := $00004000;
  76185. end;
  76186. function TCAN1_C1FIFOCON12.getFRESET : TBits_1; inline;
  76187. begin
  76188. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  76189. end;
  76190. procedure TCAN1_C1FIFOCON12.setFSIZE(thebits : TBits_5); inline;
  76191. begin
  76192. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  76193. end;
  76194. function TCAN1_C1FIFOCON12.getFSIZE : TBits_5; inline;
  76195. begin
  76196. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  76197. end;
  76198. procedure TCAN1_C1FIFOCON12.setw(thebits : TBits_32); inline;
  76199. begin
  76200. pTDefRegMap(@Self)^.val := thebits;
  76201. end;
  76202. function TCAN1_C1FIFOCON12.getw : TBits_32; inline;
  76203. begin
  76204. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76205. end;
  76206. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIF; inline;
  76207. begin
  76208. pTDefRegMap(@Self)^.&set := $00000001;
  76209. end;
  76210. procedure TCAN1_C1FIFOINT12.clearRXNEMPTYIF; inline;
  76211. begin
  76212. pTDefRegMap(@Self)^.clr := $00000001;
  76213. end;
  76214. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIF(thebits : TBits_1); inline;
  76215. begin
  76216. if thebits = 0 then
  76217. pTDefRegMap(@Self)^.clr := $00000001
  76218. else
  76219. pTDefRegMap(@Self)^.&set := $00000001;
  76220. end;
  76221. function TCAN1_C1FIFOINT12.getRXNEMPTYIF : TBits_1; inline;
  76222. begin
  76223. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  76224. end;
  76225. procedure TCAN1_C1FIFOINT12.setRXHALFIF; inline;
  76226. begin
  76227. pTDefRegMap(@Self)^.&set := $00000002;
  76228. end;
  76229. procedure TCAN1_C1FIFOINT12.clearRXHALFIF; inline;
  76230. begin
  76231. pTDefRegMap(@Self)^.clr := $00000002;
  76232. end;
  76233. procedure TCAN1_C1FIFOINT12.setRXHALFIF(thebits : TBits_1); inline;
  76234. begin
  76235. if thebits = 0 then
  76236. pTDefRegMap(@Self)^.clr := $00000002
  76237. else
  76238. pTDefRegMap(@Self)^.&set := $00000002;
  76239. end;
  76240. function TCAN1_C1FIFOINT12.getRXHALFIF : TBits_1; inline;
  76241. begin
  76242. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  76243. end;
  76244. procedure TCAN1_C1FIFOINT12.setRXFULLIF; inline;
  76245. begin
  76246. pTDefRegMap(@Self)^.&set := $00000004;
  76247. end;
  76248. procedure TCAN1_C1FIFOINT12.clearRXFULLIF; inline;
  76249. begin
  76250. pTDefRegMap(@Self)^.clr := $00000004;
  76251. end;
  76252. procedure TCAN1_C1FIFOINT12.setRXFULLIF(thebits : TBits_1); inline;
  76253. begin
  76254. if thebits = 0 then
  76255. pTDefRegMap(@Self)^.clr := $00000004
  76256. else
  76257. pTDefRegMap(@Self)^.&set := $00000004;
  76258. end;
  76259. function TCAN1_C1FIFOINT12.getRXFULLIF : TBits_1; inline;
  76260. begin
  76261. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76262. end;
  76263. procedure TCAN1_C1FIFOINT12.setRXOVFLIF; inline;
  76264. begin
  76265. pTDefRegMap(@Self)^.&set := $00000008;
  76266. end;
  76267. procedure TCAN1_C1FIFOINT12.clearRXOVFLIF; inline;
  76268. begin
  76269. pTDefRegMap(@Self)^.clr := $00000008;
  76270. end;
  76271. procedure TCAN1_C1FIFOINT12.setRXOVFLIF(thebits : TBits_1); inline;
  76272. begin
  76273. if thebits = 0 then
  76274. pTDefRegMap(@Self)^.clr := $00000008
  76275. else
  76276. pTDefRegMap(@Self)^.&set := $00000008;
  76277. end;
  76278. function TCAN1_C1FIFOINT12.getRXOVFLIF : TBits_1; inline;
  76279. begin
  76280. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76281. end;
  76282. procedure TCAN1_C1FIFOINT12.setTXEMPTYIF; inline;
  76283. begin
  76284. pTDefRegMap(@Self)^.&set := $00000100;
  76285. end;
  76286. procedure TCAN1_C1FIFOINT12.clearTXEMPTYIF; inline;
  76287. begin
  76288. pTDefRegMap(@Self)^.clr := $00000100;
  76289. end;
  76290. procedure TCAN1_C1FIFOINT12.setTXEMPTYIF(thebits : TBits_1); inline;
  76291. begin
  76292. if thebits = 0 then
  76293. pTDefRegMap(@Self)^.clr := $00000100
  76294. else
  76295. pTDefRegMap(@Self)^.&set := $00000100;
  76296. end;
  76297. function TCAN1_C1FIFOINT12.getTXEMPTYIF : TBits_1; inline;
  76298. begin
  76299. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  76300. end;
  76301. procedure TCAN1_C1FIFOINT12.setTXHALFIF; inline;
  76302. begin
  76303. pTDefRegMap(@Self)^.&set := $00000200;
  76304. end;
  76305. procedure TCAN1_C1FIFOINT12.clearTXHALFIF; inline;
  76306. begin
  76307. pTDefRegMap(@Self)^.clr := $00000200;
  76308. end;
  76309. procedure TCAN1_C1FIFOINT12.setTXHALFIF(thebits : TBits_1); inline;
  76310. begin
  76311. if thebits = 0 then
  76312. pTDefRegMap(@Self)^.clr := $00000200
  76313. else
  76314. pTDefRegMap(@Self)^.&set := $00000200;
  76315. end;
  76316. function TCAN1_C1FIFOINT12.getTXHALFIF : TBits_1; inline;
  76317. begin
  76318. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  76319. end;
  76320. procedure TCAN1_C1FIFOINT12.setTXNFULLIF; inline;
  76321. begin
  76322. pTDefRegMap(@Self)^.&set := $00000400;
  76323. end;
  76324. procedure TCAN1_C1FIFOINT12.clearTXNFULLIF; inline;
  76325. begin
  76326. pTDefRegMap(@Self)^.clr := $00000400;
  76327. end;
  76328. procedure TCAN1_C1FIFOINT12.setTXNFULLIF(thebits : TBits_1); inline;
  76329. begin
  76330. if thebits = 0 then
  76331. pTDefRegMap(@Self)^.clr := $00000400
  76332. else
  76333. pTDefRegMap(@Self)^.&set := $00000400;
  76334. end;
  76335. function TCAN1_C1FIFOINT12.getTXNFULLIF : TBits_1; inline;
  76336. begin
  76337. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  76338. end;
  76339. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIE; inline;
  76340. begin
  76341. pTDefRegMap(@Self)^.&set := $00010000;
  76342. end;
  76343. procedure TCAN1_C1FIFOINT12.clearRXNEMPTYIE; inline;
  76344. begin
  76345. pTDefRegMap(@Self)^.clr := $00010000;
  76346. end;
  76347. procedure TCAN1_C1FIFOINT12.setRXNEMPTYIE(thebits : TBits_1); inline;
  76348. begin
  76349. if thebits = 0 then
  76350. pTDefRegMap(@Self)^.clr := $00010000
  76351. else
  76352. pTDefRegMap(@Self)^.&set := $00010000;
  76353. end;
  76354. function TCAN1_C1FIFOINT12.getRXNEMPTYIE : TBits_1; inline;
  76355. begin
  76356. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  76357. end;
  76358. procedure TCAN1_C1FIFOINT12.setRXHALFIE; inline;
  76359. begin
  76360. pTDefRegMap(@Self)^.&set := $00020000;
  76361. end;
  76362. procedure TCAN1_C1FIFOINT12.clearRXHALFIE; inline;
  76363. begin
  76364. pTDefRegMap(@Self)^.clr := $00020000;
  76365. end;
  76366. procedure TCAN1_C1FIFOINT12.setRXHALFIE(thebits : TBits_1); inline;
  76367. begin
  76368. if thebits = 0 then
  76369. pTDefRegMap(@Self)^.clr := $00020000
  76370. else
  76371. pTDefRegMap(@Self)^.&set := $00020000;
  76372. end;
  76373. function TCAN1_C1FIFOINT12.getRXHALFIE : TBits_1; inline;
  76374. begin
  76375. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  76376. end;
  76377. procedure TCAN1_C1FIFOINT12.setRXFULLIE; inline;
  76378. begin
  76379. pTDefRegMap(@Self)^.&set := $00040000;
  76380. end;
  76381. procedure TCAN1_C1FIFOINT12.clearRXFULLIE; inline;
  76382. begin
  76383. pTDefRegMap(@Self)^.clr := $00040000;
  76384. end;
  76385. procedure TCAN1_C1FIFOINT12.setRXFULLIE(thebits : TBits_1); inline;
  76386. begin
  76387. if thebits = 0 then
  76388. pTDefRegMap(@Self)^.clr := $00040000
  76389. else
  76390. pTDefRegMap(@Self)^.&set := $00040000;
  76391. end;
  76392. function TCAN1_C1FIFOINT12.getRXFULLIE : TBits_1; inline;
  76393. begin
  76394. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  76395. end;
  76396. procedure TCAN1_C1FIFOINT12.setRXOVFLIE; inline;
  76397. begin
  76398. pTDefRegMap(@Self)^.&set := $00080000;
  76399. end;
  76400. procedure TCAN1_C1FIFOINT12.clearRXOVFLIE; inline;
  76401. begin
  76402. pTDefRegMap(@Self)^.clr := $00080000;
  76403. end;
  76404. procedure TCAN1_C1FIFOINT12.setRXOVFLIE(thebits : TBits_1); inline;
  76405. begin
  76406. if thebits = 0 then
  76407. pTDefRegMap(@Self)^.clr := $00080000
  76408. else
  76409. pTDefRegMap(@Self)^.&set := $00080000;
  76410. end;
  76411. function TCAN1_C1FIFOINT12.getRXOVFLIE : TBits_1; inline;
  76412. begin
  76413. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  76414. end;
  76415. procedure TCAN1_C1FIFOINT12.setTXEMPTYIE; inline;
  76416. begin
  76417. pTDefRegMap(@Self)^.&set := $01000000;
  76418. end;
  76419. procedure TCAN1_C1FIFOINT12.clearTXEMPTYIE; inline;
  76420. begin
  76421. pTDefRegMap(@Self)^.clr := $01000000;
  76422. end;
  76423. procedure TCAN1_C1FIFOINT12.setTXEMPTYIE(thebits : TBits_1); inline;
  76424. begin
  76425. if thebits = 0 then
  76426. pTDefRegMap(@Self)^.clr := $01000000
  76427. else
  76428. pTDefRegMap(@Self)^.&set := $01000000;
  76429. end;
  76430. function TCAN1_C1FIFOINT12.getTXEMPTYIE : TBits_1; inline;
  76431. begin
  76432. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76433. end;
  76434. procedure TCAN1_C1FIFOINT12.setTXHALFIE; inline;
  76435. begin
  76436. pTDefRegMap(@Self)^.&set := $02000000;
  76437. end;
  76438. procedure TCAN1_C1FIFOINT12.clearTXHALFIE; inline;
  76439. begin
  76440. pTDefRegMap(@Self)^.clr := $02000000;
  76441. end;
  76442. procedure TCAN1_C1FIFOINT12.setTXHALFIE(thebits : TBits_1); inline;
  76443. begin
  76444. if thebits = 0 then
  76445. pTDefRegMap(@Self)^.clr := $02000000
  76446. else
  76447. pTDefRegMap(@Self)^.&set := $02000000;
  76448. end;
  76449. function TCAN1_C1FIFOINT12.getTXHALFIE : TBits_1; inline;
  76450. begin
  76451. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76452. end;
  76453. procedure TCAN1_C1FIFOINT12.setTXNFULLIE; inline;
  76454. begin
  76455. pTDefRegMap(@Self)^.&set := $04000000;
  76456. end;
  76457. procedure TCAN1_C1FIFOINT12.clearTXNFULLIE; inline;
  76458. begin
  76459. pTDefRegMap(@Self)^.clr := $04000000;
  76460. end;
  76461. procedure TCAN1_C1FIFOINT12.setTXNFULLIE(thebits : TBits_1); inline;
  76462. begin
  76463. if thebits = 0 then
  76464. pTDefRegMap(@Self)^.clr := $04000000
  76465. else
  76466. pTDefRegMap(@Self)^.&set := $04000000;
  76467. end;
  76468. function TCAN1_C1FIFOINT12.getTXNFULLIE : TBits_1; inline;
  76469. begin
  76470. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  76471. end;
  76472. procedure TCAN1_C1FIFOINT12.setw(thebits : TBits_32); inline;
  76473. begin
  76474. pTDefRegMap(@Self)^.val := thebits;
  76475. end;
  76476. function TCAN1_C1FIFOINT12.getw : TBits_32; inline;
  76477. begin
  76478. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76479. end;
  76480. procedure TCAN1_C1FIFOCI12.setCFIFOCI(thebits : TBits_5); inline;
  76481. begin
  76482. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  76483. end;
  76484. function TCAN1_C1FIFOCI12.getCFIFOCI : TBits_5; inline;
  76485. begin
  76486. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76487. end;
  76488. procedure TCAN1_C1FIFOCI12.setw(thebits : TBits_32); inline;
  76489. begin
  76490. pTDefRegMap(@Self)^.val := thebits;
  76491. end;
  76492. function TCAN1_C1FIFOCI12.getw : TBits_32; inline;
  76493. begin
  76494. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76495. end;
  76496. procedure TCAN1_C1FIFOCON13.setTXPRI(thebits : TBits_2); inline;
  76497. begin
  76498. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76499. end;
  76500. function TCAN1_C1FIFOCON13.getTXPRI : TBits_2; inline;
  76501. begin
  76502. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76503. end;
  76504. procedure TCAN1_C1FIFOCON13.setRTREN; inline;
  76505. begin
  76506. pTDefRegMap(@Self)^.&set := $00000004;
  76507. end;
  76508. procedure TCAN1_C1FIFOCON13.clearRTREN; inline;
  76509. begin
  76510. pTDefRegMap(@Self)^.clr := $00000004;
  76511. end;
  76512. procedure TCAN1_C1FIFOCON13.setRTREN(thebits : TBits_1); inline;
  76513. begin
  76514. if thebits = 0 then
  76515. pTDefRegMap(@Self)^.clr := $00000004
  76516. else
  76517. pTDefRegMap(@Self)^.&set := $00000004;
  76518. end;
  76519. function TCAN1_C1FIFOCON13.getRTREN : TBits_1; inline;
  76520. begin
  76521. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76522. end;
  76523. procedure TCAN1_C1FIFOCON13.setTXREQ; inline;
  76524. begin
  76525. pTDefRegMap(@Self)^.&set := $00000008;
  76526. end;
  76527. procedure TCAN1_C1FIFOCON13.clearTXREQ; inline;
  76528. begin
  76529. pTDefRegMap(@Self)^.clr := $00000008;
  76530. end;
  76531. procedure TCAN1_C1FIFOCON13.setTXREQ(thebits : TBits_1); inline;
  76532. begin
  76533. if thebits = 0 then
  76534. pTDefRegMap(@Self)^.clr := $00000008
  76535. else
  76536. pTDefRegMap(@Self)^.&set := $00000008;
  76537. end;
  76538. function TCAN1_C1FIFOCON13.getTXREQ : TBits_1; inline;
  76539. begin
  76540. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76541. end;
  76542. procedure TCAN1_C1FIFOCON13.setTXERR; inline;
  76543. begin
  76544. pTDefRegMap(@Self)^.&set := $00000010;
  76545. end;
  76546. procedure TCAN1_C1FIFOCON13.clearTXERR; inline;
  76547. begin
  76548. pTDefRegMap(@Self)^.clr := $00000010;
  76549. end;
  76550. procedure TCAN1_C1FIFOCON13.setTXERR(thebits : TBits_1); inline;
  76551. begin
  76552. if thebits = 0 then
  76553. pTDefRegMap(@Self)^.clr := $00000010
  76554. else
  76555. pTDefRegMap(@Self)^.&set := $00000010;
  76556. end;
  76557. function TCAN1_C1FIFOCON13.getTXERR : TBits_1; inline;
  76558. begin
  76559. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  76560. end;
  76561. procedure TCAN1_C1FIFOCON13.setTXLARB; inline;
  76562. begin
  76563. pTDefRegMap(@Self)^.&set := $00000020;
  76564. end;
  76565. procedure TCAN1_C1FIFOCON13.clearTXLARB; inline;
  76566. begin
  76567. pTDefRegMap(@Self)^.clr := $00000020;
  76568. end;
  76569. procedure TCAN1_C1FIFOCON13.setTXLARB(thebits : TBits_1); inline;
  76570. begin
  76571. if thebits = 0 then
  76572. pTDefRegMap(@Self)^.clr := $00000020
  76573. else
  76574. pTDefRegMap(@Self)^.&set := $00000020;
  76575. end;
  76576. function TCAN1_C1FIFOCON13.getTXLARB : TBits_1; inline;
  76577. begin
  76578. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  76579. end;
  76580. procedure TCAN1_C1FIFOCON13.setTXABAT; inline;
  76581. begin
  76582. pTDefRegMap(@Self)^.&set := $00000040;
  76583. end;
  76584. procedure TCAN1_C1FIFOCON13.clearTXABAT; inline;
  76585. begin
  76586. pTDefRegMap(@Self)^.clr := $00000040;
  76587. end;
  76588. procedure TCAN1_C1FIFOCON13.setTXABAT(thebits : TBits_1); inline;
  76589. begin
  76590. if thebits = 0 then
  76591. pTDefRegMap(@Self)^.clr := $00000040
  76592. else
  76593. pTDefRegMap(@Self)^.&set := $00000040;
  76594. end;
  76595. function TCAN1_C1FIFOCON13.getTXABAT : TBits_1; inline;
  76596. begin
  76597. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  76598. end;
  76599. procedure TCAN1_C1FIFOCON13.setTXEN; inline;
  76600. begin
  76601. pTDefRegMap(@Self)^.&set := $00000080;
  76602. end;
  76603. procedure TCAN1_C1FIFOCON13.clearTXEN; inline;
  76604. begin
  76605. pTDefRegMap(@Self)^.clr := $00000080;
  76606. end;
  76607. procedure TCAN1_C1FIFOCON13.setTXEN(thebits : TBits_1); inline;
  76608. begin
  76609. if thebits = 0 then
  76610. pTDefRegMap(@Self)^.clr := $00000080
  76611. else
  76612. pTDefRegMap(@Self)^.&set := $00000080;
  76613. end;
  76614. function TCAN1_C1FIFOCON13.getTXEN : TBits_1; inline;
  76615. begin
  76616. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  76617. end;
  76618. procedure TCAN1_C1FIFOCON13.setDONLY; inline;
  76619. begin
  76620. pTDefRegMap(@Self)^.&set := $00001000;
  76621. end;
  76622. procedure TCAN1_C1FIFOCON13.clearDONLY; inline;
  76623. begin
  76624. pTDefRegMap(@Self)^.clr := $00001000;
  76625. end;
  76626. procedure TCAN1_C1FIFOCON13.setDONLY(thebits : TBits_1); inline;
  76627. begin
  76628. if thebits = 0 then
  76629. pTDefRegMap(@Self)^.clr := $00001000
  76630. else
  76631. pTDefRegMap(@Self)^.&set := $00001000;
  76632. end;
  76633. function TCAN1_C1FIFOCON13.getDONLY : TBits_1; inline;
  76634. begin
  76635. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  76636. end;
  76637. procedure TCAN1_C1FIFOCON13.setUINC; inline;
  76638. begin
  76639. pTDefRegMap(@Self)^.&set := $00002000;
  76640. end;
  76641. procedure TCAN1_C1FIFOCON13.clearUINC; inline;
  76642. begin
  76643. pTDefRegMap(@Self)^.clr := $00002000;
  76644. end;
  76645. procedure TCAN1_C1FIFOCON13.setUINC(thebits : TBits_1); inline;
  76646. begin
  76647. if thebits = 0 then
  76648. pTDefRegMap(@Self)^.clr := $00002000
  76649. else
  76650. pTDefRegMap(@Self)^.&set := $00002000;
  76651. end;
  76652. function TCAN1_C1FIFOCON13.getUINC : TBits_1; inline;
  76653. begin
  76654. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  76655. end;
  76656. procedure TCAN1_C1FIFOCON13.setFRESET; inline;
  76657. begin
  76658. pTDefRegMap(@Self)^.&set := $00004000;
  76659. end;
  76660. procedure TCAN1_C1FIFOCON13.clearFRESET; inline;
  76661. begin
  76662. pTDefRegMap(@Self)^.clr := $00004000;
  76663. end;
  76664. procedure TCAN1_C1FIFOCON13.setFRESET(thebits : TBits_1); inline;
  76665. begin
  76666. if thebits = 0 then
  76667. pTDefRegMap(@Self)^.clr := $00004000
  76668. else
  76669. pTDefRegMap(@Self)^.&set := $00004000;
  76670. end;
  76671. function TCAN1_C1FIFOCON13.getFRESET : TBits_1; inline;
  76672. begin
  76673. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  76674. end;
  76675. procedure TCAN1_C1FIFOCON13.setFSIZE(thebits : TBits_5); inline;
  76676. begin
  76677. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  76678. end;
  76679. function TCAN1_C1FIFOCON13.getFSIZE : TBits_5; inline;
  76680. begin
  76681. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  76682. end;
  76683. procedure TCAN1_C1FIFOCON13.setw(thebits : TBits_32); inline;
  76684. begin
  76685. pTDefRegMap(@Self)^.val := thebits;
  76686. end;
  76687. function TCAN1_C1FIFOCON13.getw : TBits_32; inline;
  76688. begin
  76689. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76690. end;
  76691. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIF; inline;
  76692. begin
  76693. pTDefRegMap(@Self)^.&set := $00000001;
  76694. end;
  76695. procedure TCAN1_C1FIFOINT13.clearRXNEMPTYIF; inline;
  76696. begin
  76697. pTDefRegMap(@Self)^.clr := $00000001;
  76698. end;
  76699. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIF(thebits : TBits_1); inline;
  76700. begin
  76701. if thebits = 0 then
  76702. pTDefRegMap(@Self)^.clr := $00000001
  76703. else
  76704. pTDefRegMap(@Self)^.&set := $00000001;
  76705. end;
  76706. function TCAN1_C1FIFOINT13.getRXNEMPTYIF : TBits_1; inline;
  76707. begin
  76708. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  76709. end;
  76710. procedure TCAN1_C1FIFOINT13.setRXHALFIF; inline;
  76711. begin
  76712. pTDefRegMap(@Self)^.&set := $00000002;
  76713. end;
  76714. procedure TCAN1_C1FIFOINT13.clearRXHALFIF; inline;
  76715. begin
  76716. pTDefRegMap(@Self)^.clr := $00000002;
  76717. end;
  76718. procedure TCAN1_C1FIFOINT13.setRXHALFIF(thebits : TBits_1); inline;
  76719. begin
  76720. if thebits = 0 then
  76721. pTDefRegMap(@Self)^.clr := $00000002
  76722. else
  76723. pTDefRegMap(@Self)^.&set := $00000002;
  76724. end;
  76725. function TCAN1_C1FIFOINT13.getRXHALFIF : TBits_1; inline;
  76726. begin
  76727. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  76728. end;
  76729. procedure TCAN1_C1FIFOINT13.setRXFULLIF; inline;
  76730. begin
  76731. pTDefRegMap(@Self)^.&set := $00000004;
  76732. end;
  76733. procedure TCAN1_C1FIFOINT13.clearRXFULLIF; inline;
  76734. begin
  76735. pTDefRegMap(@Self)^.clr := $00000004;
  76736. end;
  76737. procedure TCAN1_C1FIFOINT13.setRXFULLIF(thebits : TBits_1); inline;
  76738. begin
  76739. if thebits = 0 then
  76740. pTDefRegMap(@Self)^.clr := $00000004
  76741. else
  76742. pTDefRegMap(@Self)^.&set := $00000004;
  76743. end;
  76744. function TCAN1_C1FIFOINT13.getRXFULLIF : TBits_1; inline;
  76745. begin
  76746. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  76747. end;
  76748. procedure TCAN1_C1FIFOINT13.setRXOVFLIF; inline;
  76749. begin
  76750. pTDefRegMap(@Self)^.&set := $00000008;
  76751. end;
  76752. procedure TCAN1_C1FIFOINT13.clearRXOVFLIF; inline;
  76753. begin
  76754. pTDefRegMap(@Self)^.clr := $00000008;
  76755. end;
  76756. procedure TCAN1_C1FIFOINT13.setRXOVFLIF(thebits : TBits_1); inline;
  76757. begin
  76758. if thebits = 0 then
  76759. pTDefRegMap(@Self)^.clr := $00000008
  76760. else
  76761. pTDefRegMap(@Self)^.&set := $00000008;
  76762. end;
  76763. function TCAN1_C1FIFOINT13.getRXOVFLIF : TBits_1; inline;
  76764. begin
  76765. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  76766. end;
  76767. procedure TCAN1_C1FIFOINT13.setTXEMPTYIF; inline;
  76768. begin
  76769. pTDefRegMap(@Self)^.&set := $00000100;
  76770. end;
  76771. procedure TCAN1_C1FIFOINT13.clearTXEMPTYIF; inline;
  76772. begin
  76773. pTDefRegMap(@Self)^.clr := $00000100;
  76774. end;
  76775. procedure TCAN1_C1FIFOINT13.setTXEMPTYIF(thebits : TBits_1); inline;
  76776. begin
  76777. if thebits = 0 then
  76778. pTDefRegMap(@Self)^.clr := $00000100
  76779. else
  76780. pTDefRegMap(@Self)^.&set := $00000100;
  76781. end;
  76782. function TCAN1_C1FIFOINT13.getTXEMPTYIF : TBits_1; inline;
  76783. begin
  76784. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  76785. end;
  76786. procedure TCAN1_C1FIFOINT13.setTXHALFIF; inline;
  76787. begin
  76788. pTDefRegMap(@Self)^.&set := $00000200;
  76789. end;
  76790. procedure TCAN1_C1FIFOINT13.clearTXHALFIF; inline;
  76791. begin
  76792. pTDefRegMap(@Self)^.clr := $00000200;
  76793. end;
  76794. procedure TCAN1_C1FIFOINT13.setTXHALFIF(thebits : TBits_1); inline;
  76795. begin
  76796. if thebits = 0 then
  76797. pTDefRegMap(@Self)^.clr := $00000200
  76798. else
  76799. pTDefRegMap(@Self)^.&set := $00000200;
  76800. end;
  76801. function TCAN1_C1FIFOINT13.getTXHALFIF : TBits_1; inline;
  76802. begin
  76803. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  76804. end;
  76805. procedure TCAN1_C1FIFOINT13.setTXNFULLIF; inline;
  76806. begin
  76807. pTDefRegMap(@Self)^.&set := $00000400;
  76808. end;
  76809. procedure TCAN1_C1FIFOINT13.clearTXNFULLIF; inline;
  76810. begin
  76811. pTDefRegMap(@Self)^.clr := $00000400;
  76812. end;
  76813. procedure TCAN1_C1FIFOINT13.setTXNFULLIF(thebits : TBits_1); inline;
  76814. begin
  76815. if thebits = 0 then
  76816. pTDefRegMap(@Self)^.clr := $00000400
  76817. else
  76818. pTDefRegMap(@Self)^.&set := $00000400;
  76819. end;
  76820. function TCAN1_C1FIFOINT13.getTXNFULLIF : TBits_1; inline;
  76821. begin
  76822. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  76823. end;
  76824. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIE; inline;
  76825. begin
  76826. pTDefRegMap(@Self)^.&set := $00010000;
  76827. end;
  76828. procedure TCAN1_C1FIFOINT13.clearRXNEMPTYIE; inline;
  76829. begin
  76830. pTDefRegMap(@Self)^.clr := $00010000;
  76831. end;
  76832. procedure TCAN1_C1FIFOINT13.setRXNEMPTYIE(thebits : TBits_1); inline;
  76833. begin
  76834. if thebits = 0 then
  76835. pTDefRegMap(@Self)^.clr := $00010000
  76836. else
  76837. pTDefRegMap(@Self)^.&set := $00010000;
  76838. end;
  76839. function TCAN1_C1FIFOINT13.getRXNEMPTYIE : TBits_1; inline;
  76840. begin
  76841. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  76842. end;
  76843. procedure TCAN1_C1FIFOINT13.setRXHALFIE; inline;
  76844. begin
  76845. pTDefRegMap(@Self)^.&set := $00020000;
  76846. end;
  76847. procedure TCAN1_C1FIFOINT13.clearRXHALFIE; inline;
  76848. begin
  76849. pTDefRegMap(@Self)^.clr := $00020000;
  76850. end;
  76851. procedure TCAN1_C1FIFOINT13.setRXHALFIE(thebits : TBits_1); inline;
  76852. begin
  76853. if thebits = 0 then
  76854. pTDefRegMap(@Self)^.clr := $00020000
  76855. else
  76856. pTDefRegMap(@Self)^.&set := $00020000;
  76857. end;
  76858. function TCAN1_C1FIFOINT13.getRXHALFIE : TBits_1; inline;
  76859. begin
  76860. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  76861. end;
  76862. procedure TCAN1_C1FIFOINT13.setRXFULLIE; inline;
  76863. begin
  76864. pTDefRegMap(@Self)^.&set := $00040000;
  76865. end;
  76866. procedure TCAN1_C1FIFOINT13.clearRXFULLIE; inline;
  76867. begin
  76868. pTDefRegMap(@Self)^.clr := $00040000;
  76869. end;
  76870. procedure TCAN1_C1FIFOINT13.setRXFULLIE(thebits : TBits_1); inline;
  76871. begin
  76872. if thebits = 0 then
  76873. pTDefRegMap(@Self)^.clr := $00040000
  76874. else
  76875. pTDefRegMap(@Self)^.&set := $00040000;
  76876. end;
  76877. function TCAN1_C1FIFOINT13.getRXFULLIE : TBits_1; inline;
  76878. begin
  76879. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  76880. end;
  76881. procedure TCAN1_C1FIFOINT13.setRXOVFLIE; inline;
  76882. begin
  76883. pTDefRegMap(@Self)^.&set := $00080000;
  76884. end;
  76885. procedure TCAN1_C1FIFOINT13.clearRXOVFLIE; inline;
  76886. begin
  76887. pTDefRegMap(@Self)^.clr := $00080000;
  76888. end;
  76889. procedure TCAN1_C1FIFOINT13.setRXOVFLIE(thebits : TBits_1); inline;
  76890. begin
  76891. if thebits = 0 then
  76892. pTDefRegMap(@Self)^.clr := $00080000
  76893. else
  76894. pTDefRegMap(@Self)^.&set := $00080000;
  76895. end;
  76896. function TCAN1_C1FIFOINT13.getRXOVFLIE : TBits_1; inline;
  76897. begin
  76898. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  76899. end;
  76900. procedure TCAN1_C1FIFOINT13.setTXEMPTYIE; inline;
  76901. begin
  76902. pTDefRegMap(@Self)^.&set := $01000000;
  76903. end;
  76904. procedure TCAN1_C1FIFOINT13.clearTXEMPTYIE; inline;
  76905. begin
  76906. pTDefRegMap(@Self)^.clr := $01000000;
  76907. end;
  76908. procedure TCAN1_C1FIFOINT13.setTXEMPTYIE(thebits : TBits_1); inline;
  76909. begin
  76910. if thebits = 0 then
  76911. pTDefRegMap(@Self)^.clr := $01000000
  76912. else
  76913. pTDefRegMap(@Self)^.&set := $01000000;
  76914. end;
  76915. function TCAN1_C1FIFOINT13.getTXEMPTYIE : TBits_1; inline;
  76916. begin
  76917. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  76918. end;
  76919. procedure TCAN1_C1FIFOINT13.setTXHALFIE; inline;
  76920. begin
  76921. pTDefRegMap(@Self)^.&set := $02000000;
  76922. end;
  76923. procedure TCAN1_C1FIFOINT13.clearTXHALFIE; inline;
  76924. begin
  76925. pTDefRegMap(@Self)^.clr := $02000000;
  76926. end;
  76927. procedure TCAN1_C1FIFOINT13.setTXHALFIE(thebits : TBits_1); inline;
  76928. begin
  76929. if thebits = 0 then
  76930. pTDefRegMap(@Self)^.clr := $02000000
  76931. else
  76932. pTDefRegMap(@Self)^.&set := $02000000;
  76933. end;
  76934. function TCAN1_C1FIFOINT13.getTXHALFIE : TBits_1; inline;
  76935. begin
  76936. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  76937. end;
  76938. procedure TCAN1_C1FIFOINT13.setTXNFULLIE; inline;
  76939. begin
  76940. pTDefRegMap(@Self)^.&set := $04000000;
  76941. end;
  76942. procedure TCAN1_C1FIFOINT13.clearTXNFULLIE; inline;
  76943. begin
  76944. pTDefRegMap(@Self)^.clr := $04000000;
  76945. end;
  76946. procedure TCAN1_C1FIFOINT13.setTXNFULLIE(thebits : TBits_1); inline;
  76947. begin
  76948. if thebits = 0 then
  76949. pTDefRegMap(@Self)^.clr := $04000000
  76950. else
  76951. pTDefRegMap(@Self)^.&set := $04000000;
  76952. end;
  76953. function TCAN1_C1FIFOINT13.getTXNFULLIE : TBits_1; inline;
  76954. begin
  76955. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  76956. end;
  76957. procedure TCAN1_C1FIFOINT13.setw(thebits : TBits_32); inline;
  76958. begin
  76959. pTDefRegMap(@Self)^.val := thebits;
  76960. end;
  76961. function TCAN1_C1FIFOINT13.getw : TBits_32; inline;
  76962. begin
  76963. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76964. end;
  76965. procedure TCAN1_C1FIFOCI13.setCFIFOCI(thebits : TBits_5); inline;
  76966. begin
  76967. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  76968. end;
  76969. function TCAN1_C1FIFOCI13.getCFIFOCI : TBits_5; inline;
  76970. begin
  76971. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  76972. end;
  76973. procedure TCAN1_C1FIFOCI13.setw(thebits : TBits_32); inline;
  76974. begin
  76975. pTDefRegMap(@Self)^.val := thebits;
  76976. end;
  76977. function TCAN1_C1FIFOCI13.getw : TBits_32; inline;
  76978. begin
  76979. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  76980. end;
  76981. procedure TCAN1_C1FIFOCON14.setTXPRI(thebits : TBits_2); inline;
  76982. begin
  76983. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  76984. end;
  76985. function TCAN1_C1FIFOCON14.getTXPRI : TBits_2; inline;
  76986. begin
  76987. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  76988. end;
  76989. procedure TCAN1_C1FIFOCON14.setRTREN; inline;
  76990. begin
  76991. pTDefRegMap(@Self)^.&set := $00000004;
  76992. end;
  76993. procedure TCAN1_C1FIFOCON14.clearRTREN; inline;
  76994. begin
  76995. pTDefRegMap(@Self)^.clr := $00000004;
  76996. end;
  76997. procedure TCAN1_C1FIFOCON14.setRTREN(thebits : TBits_1); inline;
  76998. begin
  76999. if thebits = 0 then
  77000. pTDefRegMap(@Self)^.clr := $00000004
  77001. else
  77002. pTDefRegMap(@Self)^.&set := $00000004;
  77003. end;
  77004. function TCAN1_C1FIFOCON14.getRTREN : TBits_1; inline;
  77005. begin
  77006. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77007. end;
  77008. procedure TCAN1_C1FIFOCON14.setTXREQ; inline;
  77009. begin
  77010. pTDefRegMap(@Self)^.&set := $00000008;
  77011. end;
  77012. procedure TCAN1_C1FIFOCON14.clearTXREQ; inline;
  77013. begin
  77014. pTDefRegMap(@Self)^.clr := $00000008;
  77015. end;
  77016. procedure TCAN1_C1FIFOCON14.setTXREQ(thebits : TBits_1); inline;
  77017. begin
  77018. if thebits = 0 then
  77019. pTDefRegMap(@Self)^.clr := $00000008
  77020. else
  77021. pTDefRegMap(@Self)^.&set := $00000008;
  77022. end;
  77023. function TCAN1_C1FIFOCON14.getTXREQ : TBits_1; inline;
  77024. begin
  77025. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77026. end;
  77027. procedure TCAN1_C1FIFOCON14.setTXERR; inline;
  77028. begin
  77029. pTDefRegMap(@Self)^.&set := $00000010;
  77030. end;
  77031. procedure TCAN1_C1FIFOCON14.clearTXERR; inline;
  77032. begin
  77033. pTDefRegMap(@Self)^.clr := $00000010;
  77034. end;
  77035. procedure TCAN1_C1FIFOCON14.setTXERR(thebits : TBits_1); inline;
  77036. begin
  77037. if thebits = 0 then
  77038. pTDefRegMap(@Self)^.clr := $00000010
  77039. else
  77040. pTDefRegMap(@Self)^.&set := $00000010;
  77041. end;
  77042. function TCAN1_C1FIFOCON14.getTXERR : TBits_1; inline;
  77043. begin
  77044. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  77045. end;
  77046. procedure TCAN1_C1FIFOCON14.setTXLARB; inline;
  77047. begin
  77048. pTDefRegMap(@Self)^.&set := $00000020;
  77049. end;
  77050. procedure TCAN1_C1FIFOCON14.clearTXLARB; inline;
  77051. begin
  77052. pTDefRegMap(@Self)^.clr := $00000020;
  77053. end;
  77054. procedure TCAN1_C1FIFOCON14.setTXLARB(thebits : TBits_1); inline;
  77055. begin
  77056. if thebits = 0 then
  77057. pTDefRegMap(@Self)^.clr := $00000020
  77058. else
  77059. pTDefRegMap(@Self)^.&set := $00000020;
  77060. end;
  77061. function TCAN1_C1FIFOCON14.getTXLARB : TBits_1; inline;
  77062. begin
  77063. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  77064. end;
  77065. procedure TCAN1_C1FIFOCON14.setTXABAT; inline;
  77066. begin
  77067. pTDefRegMap(@Self)^.&set := $00000040;
  77068. end;
  77069. procedure TCAN1_C1FIFOCON14.clearTXABAT; inline;
  77070. begin
  77071. pTDefRegMap(@Self)^.clr := $00000040;
  77072. end;
  77073. procedure TCAN1_C1FIFOCON14.setTXABAT(thebits : TBits_1); inline;
  77074. begin
  77075. if thebits = 0 then
  77076. pTDefRegMap(@Self)^.clr := $00000040
  77077. else
  77078. pTDefRegMap(@Self)^.&set := $00000040;
  77079. end;
  77080. function TCAN1_C1FIFOCON14.getTXABAT : TBits_1; inline;
  77081. begin
  77082. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  77083. end;
  77084. procedure TCAN1_C1FIFOCON14.setTXEN; inline;
  77085. begin
  77086. pTDefRegMap(@Self)^.&set := $00000080;
  77087. end;
  77088. procedure TCAN1_C1FIFOCON14.clearTXEN; inline;
  77089. begin
  77090. pTDefRegMap(@Self)^.clr := $00000080;
  77091. end;
  77092. procedure TCAN1_C1FIFOCON14.setTXEN(thebits : TBits_1); inline;
  77093. begin
  77094. if thebits = 0 then
  77095. pTDefRegMap(@Self)^.clr := $00000080
  77096. else
  77097. pTDefRegMap(@Self)^.&set := $00000080;
  77098. end;
  77099. function TCAN1_C1FIFOCON14.getTXEN : TBits_1; inline;
  77100. begin
  77101. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  77102. end;
  77103. procedure TCAN1_C1FIFOCON14.setDONLY; inline;
  77104. begin
  77105. pTDefRegMap(@Self)^.&set := $00001000;
  77106. end;
  77107. procedure TCAN1_C1FIFOCON14.clearDONLY; inline;
  77108. begin
  77109. pTDefRegMap(@Self)^.clr := $00001000;
  77110. end;
  77111. procedure TCAN1_C1FIFOCON14.setDONLY(thebits : TBits_1); inline;
  77112. begin
  77113. if thebits = 0 then
  77114. pTDefRegMap(@Self)^.clr := $00001000
  77115. else
  77116. pTDefRegMap(@Self)^.&set := $00001000;
  77117. end;
  77118. function TCAN1_C1FIFOCON14.getDONLY : TBits_1; inline;
  77119. begin
  77120. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  77121. end;
  77122. procedure TCAN1_C1FIFOCON14.setUINC; inline;
  77123. begin
  77124. pTDefRegMap(@Self)^.&set := $00002000;
  77125. end;
  77126. procedure TCAN1_C1FIFOCON14.clearUINC; inline;
  77127. begin
  77128. pTDefRegMap(@Self)^.clr := $00002000;
  77129. end;
  77130. procedure TCAN1_C1FIFOCON14.setUINC(thebits : TBits_1); inline;
  77131. begin
  77132. if thebits = 0 then
  77133. pTDefRegMap(@Self)^.clr := $00002000
  77134. else
  77135. pTDefRegMap(@Self)^.&set := $00002000;
  77136. end;
  77137. function TCAN1_C1FIFOCON14.getUINC : TBits_1; inline;
  77138. begin
  77139. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  77140. end;
  77141. procedure TCAN1_C1FIFOCON14.setFRESET; inline;
  77142. begin
  77143. pTDefRegMap(@Self)^.&set := $00004000;
  77144. end;
  77145. procedure TCAN1_C1FIFOCON14.clearFRESET; inline;
  77146. begin
  77147. pTDefRegMap(@Self)^.clr := $00004000;
  77148. end;
  77149. procedure TCAN1_C1FIFOCON14.setFRESET(thebits : TBits_1); inline;
  77150. begin
  77151. if thebits = 0 then
  77152. pTDefRegMap(@Self)^.clr := $00004000
  77153. else
  77154. pTDefRegMap(@Self)^.&set := $00004000;
  77155. end;
  77156. function TCAN1_C1FIFOCON14.getFRESET : TBits_1; inline;
  77157. begin
  77158. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77159. end;
  77160. procedure TCAN1_C1FIFOCON14.setFSIZE(thebits : TBits_5); inline;
  77161. begin
  77162. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77163. end;
  77164. function TCAN1_C1FIFOCON14.getFSIZE : TBits_5; inline;
  77165. begin
  77166. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77167. end;
  77168. procedure TCAN1_C1FIFOCON14.setw(thebits : TBits_32); inline;
  77169. begin
  77170. pTDefRegMap(@Self)^.val := thebits;
  77171. end;
  77172. function TCAN1_C1FIFOCON14.getw : TBits_32; inline;
  77173. begin
  77174. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77175. end;
  77176. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIF; inline;
  77177. begin
  77178. pTDefRegMap(@Self)^.&set := $00000001;
  77179. end;
  77180. procedure TCAN1_C1FIFOINT14.clearRXNEMPTYIF; inline;
  77181. begin
  77182. pTDefRegMap(@Self)^.clr := $00000001;
  77183. end;
  77184. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIF(thebits : TBits_1); inline;
  77185. begin
  77186. if thebits = 0 then
  77187. pTDefRegMap(@Self)^.clr := $00000001
  77188. else
  77189. pTDefRegMap(@Self)^.&set := $00000001;
  77190. end;
  77191. function TCAN1_C1FIFOINT14.getRXNEMPTYIF : TBits_1; inline;
  77192. begin
  77193. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  77194. end;
  77195. procedure TCAN1_C1FIFOINT14.setRXHALFIF; inline;
  77196. begin
  77197. pTDefRegMap(@Self)^.&set := $00000002;
  77198. end;
  77199. procedure TCAN1_C1FIFOINT14.clearRXHALFIF; inline;
  77200. begin
  77201. pTDefRegMap(@Self)^.clr := $00000002;
  77202. end;
  77203. procedure TCAN1_C1FIFOINT14.setRXHALFIF(thebits : TBits_1); inline;
  77204. begin
  77205. if thebits = 0 then
  77206. pTDefRegMap(@Self)^.clr := $00000002
  77207. else
  77208. pTDefRegMap(@Self)^.&set := $00000002;
  77209. end;
  77210. function TCAN1_C1FIFOINT14.getRXHALFIF : TBits_1; inline;
  77211. begin
  77212. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  77213. end;
  77214. procedure TCAN1_C1FIFOINT14.setRXFULLIF; inline;
  77215. begin
  77216. pTDefRegMap(@Self)^.&set := $00000004;
  77217. end;
  77218. procedure TCAN1_C1FIFOINT14.clearRXFULLIF; inline;
  77219. begin
  77220. pTDefRegMap(@Self)^.clr := $00000004;
  77221. end;
  77222. procedure TCAN1_C1FIFOINT14.setRXFULLIF(thebits : TBits_1); inline;
  77223. begin
  77224. if thebits = 0 then
  77225. pTDefRegMap(@Self)^.clr := $00000004
  77226. else
  77227. pTDefRegMap(@Self)^.&set := $00000004;
  77228. end;
  77229. function TCAN1_C1FIFOINT14.getRXFULLIF : TBits_1; inline;
  77230. begin
  77231. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77232. end;
  77233. procedure TCAN1_C1FIFOINT14.setRXOVFLIF; inline;
  77234. begin
  77235. pTDefRegMap(@Self)^.&set := $00000008;
  77236. end;
  77237. procedure TCAN1_C1FIFOINT14.clearRXOVFLIF; inline;
  77238. begin
  77239. pTDefRegMap(@Self)^.clr := $00000008;
  77240. end;
  77241. procedure TCAN1_C1FIFOINT14.setRXOVFLIF(thebits : TBits_1); inline;
  77242. begin
  77243. if thebits = 0 then
  77244. pTDefRegMap(@Self)^.clr := $00000008
  77245. else
  77246. pTDefRegMap(@Self)^.&set := $00000008;
  77247. end;
  77248. function TCAN1_C1FIFOINT14.getRXOVFLIF : TBits_1; inline;
  77249. begin
  77250. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77251. end;
  77252. procedure TCAN1_C1FIFOINT14.setTXEMPTYIF; inline;
  77253. begin
  77254. pTDefRegMap(@Self)^.&set := $00000100;
  77255. end;
  77256. procedure TCAN1_C1FIFOINT14.clearTXEMPTYIF; inline;
  77257. begin
  77258. pTDefRegMap(@Self)^.clr := $00000100;
  77259. end;
  77260. procedure TCAN1_C1FIFOINT14.setTXEMPTYIF(thebits : TBits_1); inline;
  77261. begin
  77262. if thebits = 0 then
  77263. pTDefRegMap(@Self)^.clr := $00000100
  77264. else
  77265. pTDefRegMap(@Self)^.&set := $00000100;
  77266. end;
  77267. function TCAN1_C1FIFOINT14.getTXEMPTYIF : TBits_1; inline;
  77268. begin
  77269. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  77270. end;
  77271. procedure TCAN1_C1FIFOINT14.setTXHALFIF; inline;
  77272. begin
  77273. pTDefRegMap(@Self)^.&set := $00000200;
  77274. end;
  77275. procedure TCAN1_C1FIFOINT14.clearTXHALFIF; inline;
  77276. begin
  77277. pTDefRegMap(@Self)^.clr := $00000200;
  77278. end;
  77279. procedure TCAN1_C1FIFOINT14.setTXHALFIF(thebits : TBits_1); inline;
  77280. begin
  77281. if thebits = 0 then
  77282. pTDefRegMap(@Self)^.clr := $00000200
  77283. else
  77284. pTDefRegMap(@Self)^.&set := $00000200;
  77285. end;
  77286. function TCAN1_C1FIFOINT14.getTXHALFIF : TBits_1; inline;
  77287. begin
  77288. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  77289. end;
  77290. procedure TCAN1_C1FIFOINT14.setTXNFULLIF; inline;
  77291. begin
  77292. pTDefRegMap(@Self)^.&set := $00000400;
  77293. end;
  77294. procedure TCAN1_C1FIFOINT14.clearTXNFULLIF; inline;
  77295. begin
  77296. pTDefRegMap(@Self)^.clr := $00000400;
  77297. end;
  77298. procedure TCAN1_C1FIFOINT14.setTXNFULLIF(thebits : TBits_1); inline;
  77299. begin
  77300. if thebits = 0 then
  77301. pTDefRegMap(@Self)^.clr := $00000400
  77302. else
  77303. pTDefRegMap(@Self)^.&set := $00000400;
  77304. end;
  77305. function TCAN1_C1FIFOINT14.getTXNFULLIF : TBits_1; inline;
  77306. begin
  77307. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  77308. end;
  77309. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIE; inline;
  77310. begin
  77311. pTDefRegMap(@Self)^.&set := $00010000;
  77312. end;
  77313. procedure TCAN1_C1FIFOINT14.clearRXNEMPTYIE; inline;
  77314. begin
  77315. pTDefRegMap(@Self)^.clr := $00010000;
  77316. end;
  77317. procedure TCAN1_C1FIFOINT14.setRXNEMPTYIE(thebits : TBits_1); inline;
  77318. begin
  77319. if thebits = 0 then
  77320. pTDefRegMap(@Self)^.clr := $00010000
  77321. else
  77322. pTDefRegMap(@Self)^.&set := $00010000;
  77323. end;
  77324. function TCAN1_C1FIFOINT14.getRXNEMPTYIE : TBits_1; inline;
  77325. begin
  77326. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  77327. end;
  77328. procedure TCAN1_C1FIFOINT14.setRXHALFIE; inline;
  77329. begin
  77330. pTDefRegMap(@Self)^.&set := $00020000;
  77331. end;
  77332. procedure TCAN1_C1FIFOINT14.clearRXHALFIE; inline;
  77333. begin
  77334. pTDefRegMap(@Self)^.clr := $00020000;
  77335. end;
  77336. procedure TCAN1_C1FIFOINT14.setRXHALFIE(thebits : TBits_1); inline;
  77337. begin
  77338. if thebits = 0 then
  77339. pTDefRegMap(@Self)^.clr := $00020000
  77340. else
  77341. pTDefRegMap(@Self)^.&set := $00020000;
  77342. end;
  77343. function TCAN1_C1FIFOINT14.getRXHALFIE : TBits_1; inline;
  77344. begin
  77345. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  77346. end;
  77347. procedure TCAN1_C1FIFOINT14.setRXFULLIE; inline;
  77348. begin
  77349. pTDefRegMap(@Self)^.&set := $00040000;
  77350. end;
  77351. procedure TCAN1_C1FIFOINT14.clearRXFULLIE; inline;
  77352. begin
  77353. pTDefRegMap(@Self)^.clr := $00040000;
  77354. end;
  77355. procedure TCAN1_C1FIFOINT14.setRXFULLIE(thebits : TBits_1); inline;
  77356. begin
  77357. if thebits = 0 then
  77358. pTDefRegMap(@Self)^.clr := $00040000
  77359. else
  77360. pTDefRegMap(@Self)^.&set := $00040000;
  77361. end;
  77362. function TCAN1_C1FIFOINT14.getRXFULLIE : TBits_1; inline;
  77363. begin
  77364. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  77365. end;
  77366. procedure TCAN1_C1FIFOINT14.setRXOVFLIE; inline;
  77367. begin
  77368. pTDefRegMap(@Self)^.&set := $00080000;
  77369. end;
  77370. procedure TCAN1_C1FIFOINT14.clearRXOVFLIE; inline;
  77371. begin
  77372. pTDefRegMap(@Self)^.clr := $00080000;
  77373. end;
  77374. procedure TCAN1_C1FIFOINT14.setRXOVFLIE(thebits : TBits_1); inline;
  77375. begin
  77376. if thebits = 0 then
  77377. pTDefRegMap(@Self)^.clr := $00080000
  77378. else
  77379. pTDefRegMap(@Self)^.&set := $00080000;
  77380. end;
  77381. function TCAN1_C1FIFOINT14.getRXOVFLIE : TBits_1; inline;
  77382. begin
  77383. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  77384. end;
  77385. procedure TCAN1_C1FIFOINT14.setTXEMPTYIE; inline;
  77386. begin
  77387. pTDefRegMap(@Self)^.&set := $01000000;
  77388. end;
  77389. procedure TCAN1_C1FIFOINT14.clearTXEMPTYIE; inline;
  77390. begin
  77391. pTDefRegMap(@Self)^.clr := $01000000;
  77392. end;
  77393. procedure TCAN1_C1FIFOINT14.setTXEMPTYIE(thebits : TBits_1); inline;
  77394. begin
  77395. if thebits = 0 then
  77396. pTDefRegMap(@Self)^.clr := $01000000
  77397. else
  77398. pTDefRegMap(@Self)^.&set := $01000000;
  77399. end;
  77400. function TCAN1_C1FIFOINT14.getTXEMPTYIE : TBits_1; inline;
  77401. begin
  77402. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  77403. end;
  77404. procedure TCAN1_C1FIFOINT14.setTXHALFIE; inline;
  77405. begin
  77406. pTDefRegMap(@Self)^.&set := $02000000;
  77407. end;
  77408. procedure TCAN1_C1FIFOINT14.clearTXHALFIE; inline;
  77409. begin
  77410. pTDefRegMap(@Self)^.clr := $02000000;
  77411. end;
  77412. procedure TCAN1_C1FIFOINT14.setTXHALFIE(thebits : TBits_1); inline;
  77413. begin
  77414. if thebits = 0 then
  77415. pTDefRegMap(@Self)^.clr := $02000000
  77416. else
  77417. pTDefRegMap(@Self)^.&set := $02000000;
  77418. end;
  77419. function TCAN1_C1FIFOINT14.getTXHALFIE : TBits_1; inline;
  77420. begin
  77421. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  77422. end;
  77423. procedure TCAN1_C1FIFOINT14.setTXNFULLIE; inline;
  77424. begin
  77425. pTDefRegMap(@Self)^.&set := $04000000;
  77426. end;
  77427. procedure TCAN1_C1FIFOINT14.clearTXNFULLIE; inline;
  77428. begin
  77429. pTDefRegMap(@Self)^.clr := $04000000;
  77430. end;
  77431. procedure TCAN1_C1FIFOINT14.setTXNFULLIE(thebits : TBits_1); inline;
  77432. begin
  77433. if thebits = 0 then
  77434. pTDefRegMap(@Self)^.clr := $04000000
  77435. else
  77436. pTDefRegMap(@Self)^.&set := $04000000;
  77437. end;
  77438. function TCAN1_C1FIFOINT14.getTXNFULLIE : TBits_1; inline;
  77439. begin
  77440. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77441. end;
  77442. procedure TCAN1_C1FIFOINT14.setw(thebits : TBits_32); inline;
  77443. begin
  77444. pTDefRegMap(@Self)^.val := thebits;
  77445. end;
  77446. function TCAN1_C1FIFOINT14.getw : TBits_32; inline;
  77447. begin
  77448. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77449. end;
  77450. procedure TCAN1_C1FIFOCI14.setCFIFOCI(thebits : TBits_5); inline;
  77451. begin
  77452. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77453. end;
  77454. function TCAN1_C1FIFOCI14.getCFIFOCI : TBits_5; inline;
  77455. begin
  77456. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77457. end;
  77458. procedure TCAN1_C1FIFOCI14.setw(thebits : TBits_32); inline;
  77459. begin
  77460. pTDefRegMap(@Self)^.val := thebits;
  77461. end;
  77462. function TCAN1_C1FIFOCI14.getw : TBits_32; inline;
  77463. begin
  77464. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77465. end;
  77466. procedure TCAN1_C1FIFOCON15.setTXPRI(thebits : TBits_2); inline;
  77467. begin
  77468. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  77469. end;
  77470. function TCAN1_C1FIFOCON15.getTXPRI : TBits_2; inline;
  77471. begin
  77472. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  77473. end;
  77474. procedure TCAN1_C1FIFOCON15.setRTREN; inline;
  77475. begin
  77476. pTDefRegMap(@Self)^.&set := $00000004;
  77477. end;
  77478. procedure TCAN1_C1FIFOCON15.clearRTREN; inline;
  77479. begin
  77480. pTDefRegMap(@Self)^.clr := $00000004;
  77481. end;
  77482. procedure TCAN1_C1FIFOCON15.setRTREN(thebits : TBits_1); inline;
  77483. begin
  77484. if thebits = 0 then
  77485. pTDefRegMap(@Self)^.clr := $00000004
  77486. else
  77487. pTDefRegMap(@Self)^.&set := $00000004;
  77488. end;
  77489. function TCAN1_C1FIFOCON15.getRTREN : TBits_1; inline;
  77490. begin
  77491. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77492. end;
  77493. procedure TCAN1_C1FIFOCON15.setTXREQ; inline;
  77494. begin
  77495. pTDefRegMap(@Self)^.&set := $00000008;
  77496. end;
  77497. procedure TCAN1_C1FIFOCON15.clearTXREQ; inline;
  77498. begin
  77499. pTDefRegMap(@Self)^.clr := $00000008;
  77500. end;
  77501. procedure TCAN1_C1FIFOCON15.setTXREQ(thebits : TBits_1); inline;
  77502. begin
  77503. if thebits = 0 then
  77504. pTDefRegMap(@Self)^.clr := $00000008
  77505. else
  77506. pTDefRegMap(@Self)^.&set := $00000008;
  77507. end;
  77508. function TCAN1_C1FIFOCON15.getTXREQ : TBits_1; inline;
  77509. begin
  77510. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77511. end;
  77512. procedure TCAN1_C1FIFOCON15.setTXERR; inline;
  77513. begin
  77514. pTDefRegMap(@Self)^.&set := $00000010;
  77515. end;
  77516. procedure TCAN1_C1FIFOCON15.clearTXERR; inline;
  77517. begin
  77518. pTDefRegMap(@Self)^.clr := $00000010;
  77519. end;
  77520. procedure TCAN1_C1FIFOCON15.setTXERR(thebits : TBits_1); inline;
  77521. begin
  77522. if thebits = 0 then
  77523. pTDefRegMap(@Self)^.clr := $00000010
  77524. else
  77525. pTDefRegMap(@Self)^.&set := $00000010;
  77526. end;
  77527. function TCAN1_C1FIFOCON15.getTXERR : TBits_1; inline;
  77528. begin
  77529. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  77530. end;
  77531. procedure TCAN1_C1FIFOCON15.setTXLARB; inline;
  77532. begin
  77533. pTDefRegMap(@Self)^.&set := $00000020;
  77534. end;
  77535. procedure TCAN1_C1FIFOCON15.clearTXLARB; inline;
  77536. begin
  77537. pTDefRegMap(@Self)^.clr := $00000020;
  77538. end;
  77539. procedure TCAN1_C1FIFOCON15.setTXLARB(thebits : TBits_1); inline;
  77540. begin
  77541. if thebits = 0 then
  77542. pTDefRegMap(@Self)^.clr := $00000020
  77543. else
  77544. pTDefRegMap(@Self)^.&set := $00000020;
  77545. end;
  77546. function TCAN1_C1FIFOCON15.getTXLARB : TBits_1; inline;
  77547. begin
  77548. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  77549. end;
  77550. procedure TCAN1_C1FIFOCON15.setTXABAT; inline;
  77551. begin
  77552. pTDefRegMap(@Self)^.&set := $00000040;
  77553. end;
  77554. procedure TCAN1_C1FIFOCON15.clearTXABAT; inline;
  77555. begin
  77556. pTDefRegMap(@Self)^.clr := $00000040;
  77557. end;
  77558. procedure TCAN1_C1FIFOCON15.setTXABAT(thebits : TBits_1); inline;
  77559. begin
  77560. if thebits = 0 then
  77561. pTDefRegMap(@Self)^.clr := $00000040
  77562. else
  77563. pTDefRegMap(@Self)^.&set := $00000040;
  77564. end;
  77565. function TCAN1_C1FIFOCON15.getTXABAT : TBits_1; inline;
  77566. begin
  77567. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  77568. end;
  77569. procedure TCAN1_C1FIFOCON15.setTXEN; inline;
  77570. begin
  77571. pTDefRegMap(@Self)^.&set := $00000080;
  77572. end;
  77573. procedure TCAN1_C1FIFOCON15.clearTXEN; inline;
  77574. begin
  77575. pTDefRegMap(@Self)^.clr := $00000080;
  77576. end;
  77577. procedure TCAN1_C1FIFOCON15.setTXEN(thebits : TBits_1); inline;
  77578. begin
  77579. if thebits = 0 then
  77580. pTDefRegMap(@Self)^.clr := $00000080
  77581. else
  77582. pTDefRegMap(@Self)^.&set := $00000080;
  77583. end;
  77584. function TCAN1_C1FIFOCON15.getTXEN : TBits_1; inline;
  77585. begin
  77586. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  77587. end;
  77588. procedure TCAN1_C1FIFOCON15.setDONLY; inline;
  77589. begin
  77590. pTDefRegMap(@Self)^.&set := $00001000;
  77591. end;
  77592. procedure TCAN1_C1FIFOCON15.clearDONLY; inline;
  77593. begin
  77594. pTDefRegMap(@Self)^.clr := $00001000;
  77595. end;
  77596. procedure TCAN1_C1FIFOCON15.setDONLY(thebits : TBits_1); inline;
  77597. begin
  77598. if thebits = 0 then
  77599. pTDefRegMap(@Self)^.clr := $00001000
  77600. else
  77601. pTDefRegMap(@Self)^.&set := $00001000;
  77602. end;
  77603. function TCAN1_C1FIFOCON15.getDONLY : TBits_1; inline;
  77604. begin
  77605. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  77606. end;
  77607. procedure TCAN1_C1FIFOCON15.setUINC; inline;
  77608. begin
  77609. pTDefRegMap(@Self)^.&set := $00002000;
  77610. end;
  77611. procedure TCAN1_C1FIFOCON15.clearUINC; inline;
  77612. begin
  77613. pTDefRegMap(@Self)^.clr := $00002000;
  77614. end;
  77615. procedure TCAN1_C1FIFOCON15.setUINC(thebits : TBits_1); inline;
  77616. begin
  77617. if thebits = 0 then
  77618. pTDefRegMap(@Self)^.clr := $00002000
  77619. else
  77620. pTDefRegMap(@Self)^.&set := $00002000;
  77621. end;
  77622. function TCAN1_C1FIFOCON15.getUINC : TBits_1; inline;
  77623. begin
  77624. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  77625. end;
  77626. procedure TCAN1_C1FIFOCON15.setFRESET; inline;
  77627. begin
  77628. pTDefRegMap(@Self)^.&set := $00004000;
  77629. end;
  77630. procedure TCAN1_C1FIFOCON15.clearFRESET; inline;
  77631. begin
  77632. pTDefRegMap(@Self)^.clr := $00004000;
  77633. end;
  77634. procedure TCAN1_C1FIFOCON15.setFRESET(thebits : TBits_1); inline;
  77635. begin
  77636. if thebits = 0 then
  77637. pTDefRegMap(@Self)^.clr := $00004000
  77638. else
  77639. pTDefRegMap(@Self)^.&set := $00004000;
  77640. end;
  77641. function TCAN1_C1FIFOCON15.getFRESET : TBits_1; inline;
  77642. begin
  77643. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  77644. end;
  77645. procedure TCAN1_C1FIFOCON15.setFSIZE(thebits : TBits_5); inline;
  77646. begin
  77647. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  77648. end;
  77649. function TCAN1_C1FIFOCON15.getFSIZE : TBits_5; inline;
  77650. begin
  77651. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  77652. end;
  77653. procedure TCAN1_C1FIFOCON15.setw(thebits : TBits_32); inline;
  77654. begin
  77655. pTDefRegMap(@Self)^.val := thebits;
  77656. end;
  77657. function TCAN1_C1FIFOCON15.getw : TBits_32; inline;
  77658. begin
  77659. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77660. end;
  77661. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIF; inline;
  77662. begin
  77663. pTDefRegMap(@Self)^.&set := $00000001;
  77664. end;
  77665. procedure TCAN1_C1FIFOINT15.clearRXNEMPTYIF; inline;
  77666. begin
  77667. pTDefRegMap(@Self)^.clr := $00000001;
  77668. end;
  77669. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIF(thebits : TBits_1); inline;
  77670. begin
  77671. if thebits = 0 then
  77672. pTDefRegMap(@Self)^.clr := $00000001
  77673. else
  77674. pTDefRegMap(@Self)^.&set := $00000001;
  77675. end;
  77676. function TCAN1_C1FIFOINT15.getRXNEMPTYIF : TBits_1; inline;
  77677. begin
  77678. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  77679. end;
  77680. procedure TCAN1_C1FIFOINT15.setRXHALFIF; inline;
  77681. begin
  77682. pTDefRegMap(@Self)^.&set := $00000002;
  77683. end;
  77684. procedure TCAN1_C1FIFOINT15.clearRXHALFIF; inline;
  77685. begin
  77686. pTDefRegMap(@Self)^.clr := $00000002;
  77687. end;
  77688. procedure TCAN1_C1FIFOINT15.setRXHALFIF(thebits : TBits_1); inline;
  77689. begin
  77690. if thebits = 0 then
  77691. pTDefRegMap(@Self)^.clr := $00000002
  77692. else
  77693. pTDefRegMap(@Self)^.&set := $00000002;
  77694. end;
  77695. function TCAN1_C1FIFOINT15.getRXHALFIF : TBits_1; inline;
  77696. begin
  77697. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  77698. end;
  77699. procedure TCAN1_C1FIFOINT15.setRXFULLIF; inline;
  77700. begin
  77701. pTDefRegMap(@Self)^.&set := $00000004;
  77702. end;
  77703. procedure TCAN1_C1FIFOINT15.clearRXFULLIF; inline;
  77704. begin
  77705. pTDefRegMap(@Self)^.clr := $00000004;
  77706. end;
  77707. procedure TCAN1_C1FIFOINT15.setRXFULLIF(thebits : TBits_1); inline;
  77708. begin
  77709. if thebits = 0 then
  77710. pTDefRegMap(@Self)^.clr := $00000004
  77711. else
  77712. pTDefRegMap(@Self)^.&set := $00000004;
  77713. end;
  77714. function TCAN1_C1FIFOINT15.getRXFULLIF : TBits_1; inline;
  77715. begin
  77716. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77717. end;
  77718. procedure TCAN1_C1FIFOINT15.setRXOVFLIF; inline;
  77719. begin
  77720. pTDefRegMap(@Self)^.&set := $00000008;
  77721. end;
  77722. procedure TCAN1_C1FIFOINT15.clearRXOVFLIF; inline;
  77723. begin
  77724. pTDefRegMap(@Self)^.clr := $00000008;
  77725. end;
  77726. procedure TCAN1_C1FIFOINT15.setRXOVFLIF(thebits : TBits_1); inline;
  77727. begin
  77728. if thebits = 0 then
  77729. pTDefRegMap(@Self)^.clr := $00000008
  77730. else
  77731. pTDefRegMap(@Self)^.&set := $00000008;
  77732. end;
  77733. function TCAN1_C1FIFOINT15.getRXOVFLIF : TBits_1; inline;
  77734. begin
  77735. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77736. end;
  77737. procedure TCAN1_C1FIFOINT15.setTXEMPTYIF; inline;
  77738. begin
  77739. pTDefRegMap(@Self)^.&set := $00000100;
  77740. end;
  77741. procedure TCAN1_C1FIFOINT15.clearTXEMPTYIF; inline;
  77742. begin
  77743. pTDefRegMap(@Self)^.clr := $00000100;
  77744. end;
  77745. procedure TCAN1_C1FIFOINT15.setTXEMPTYIF(thebits : TBits_1); inline;
  77746. begin
  77747. if thebits = 0 then
  77748. pTDefRegMap(@Self)^.clr := $00000100
  77749. else
  77750. pTDefRegMap(@Self)^.&set := $00000100;
  77751. end;
  77752. function TCAN1_C1FIFOINT15.getTXEMPTYIF : TBits_1; inline;
  77753. begin
  77754. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  77755. end;
  77756. procedure TCAN1_C1FIFOINT15.setTXHALFIF; inline;
  77757. begin
  77758. pTDefRegMap(@Self)^.&set := $00000200;
  77759. end;
  77760. procedure TCAN1_C1FIFOINT15.clearTXHALFIF; inline;
  77761. begin
  77762. pTDefRegMap(@Self)^.clr := $00000200;
  77763. end;
  77764. procedure TCAN1_C1FIFOINT15.setTXHALFIF(thebits : TBits_1); inline;
  77765. begin
  77766. if thebits = 0 then
  77767. pTDefRegMap(@Self)^.clr := $00000200
  77768. else
  77769. pTDefRegMap(@Self)^.&set := $00000200;
  77770. end;
  77771. function TCAN1_C1FIFOINT15.getTXHALFIF : TBits_1; inline;
  77772. begin
  77773. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  77774. end;
  77775. procedure TCAN1_C1FIFOINT15.setTXNFULLIF; inline;
  77776. begin
  77777. pTDefRegMap(@Self)^.&set := $00000400;
  77778. end;
  77779. procedure TCAN1_C1FIFOINT15.clearTXNFULLIF; inline;
  77780. begin
  77781. pTDefRegMap(@Self)^.clr := $00000400;
  77782. end;
  77783. procedure TCAN1_C1FIFOINT15.setTXNFULLIF(thebits : TBits_1); inline;
  77784. begin
  77785. if thebits = 0 then
  77786. pTDefRegMap(@Self)^.clr := $00000400
  77787. else
  77788. pTDefRegMap(@Self)^.&set := $00000400;
  77789. end;
  77790. function TCAN1_C1FIFOINT15.getTXNFULLIF : TBits_1; inline;
  77791. begin
  77792. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  77793. end;
  77794. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIE; inline;
  77795. begin
  77796. pTDefRegMap(@Self)^.&set := $00010000;
  77797. end;
  77798. procedure TCAN1_C1FIFOINT15.clearRXNEMPTYIE; inline;
  77799. begin
  77800. pTDefRegMap(@Self)^.clr := $00010000;
  77801. end;
  77802. procedure TCAN1_C1FIFOINT15.setRXNEMPTYIE(thebits : TBits_1); inline;
  77803. begin
  77804. if thebits = 0 then
  77805. pTDefRegMap(@Self)^.clr := $00010000
  77806. else
  77807. pTDefRegMap(@Self)^.&set := $00010000;
  77808. end;
  77809. function TCAN1_C1FIFOINT15.getRXNEMPTYIE : TBits_1; inline;
  77810. begin
  77811. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  77812. end;
  77813. procedure TCAN1_C1FIFOINT15.setRXHALFIE; inline;
  77814. begin
  77815. pTDefRegMap(@Self)^.&set := $00020000;
  77816. end;
  77817. procedure TCAN1_C1FIFOINT15.clearRXHALFIE; inline;
  77818. begin
  77819. pTDefRegMap(@Self)^.clr := $00020000;
  77820. end;
  77821. procedure TCAN1_C1FIFOINT15.setRXHALFIE(thebits : TBits_1); inline;
  77822. begin
  77823. if thebits = 0 then
  77824. pTDefRegMap(@Self)^.clr := $00020000
  77825. else
  77826. pTDefRegMap(@Self)^.&set := $00020000;
  77827. end;
  77828. function TCAN1_C1FIFOINT15.getRXHALFIE : TBits_1; inline;
  77829. begin
  77830. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  77831. end;
  77832. procedure TCAN1_C1FIFOINT15.setRXFULLIE; inline;
  77833. begin
  77834. pTDefRegMap(@Self)^.&set := $00040000;
  77835. end;
  77836. procedure TCAN1_C1FIFOINT15.clearRXFULLIE; inline;
  77837. begin
  77838. pTDefRegMap(@Self)^.clr := $00040000;
  77839. end;
  77840. procedure TCAN1_C1FIFOINT15.setRXFULLIE(thebits : TBits_1); inline;
  77841. begin
  77842. if thebits = 0 then
  77843. pTDefRegMap(@Self)^.clr := $00040000
  77844. else
  77845. pTDefRegMap(@Self)^.&set := $00040000;
  77846. end;
  77847. function TCAN1_C1FIFOINT15.getRXFULLIE : TBits_1; inline;
  77848. begin
  77849. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  77850. end;
  77851. procedure TCAN1_C1FIFOINT15.setRXOVFLIE; inline;
  77852. begin
  77853. pTDefRegMap(@Self)^.&set := $00080000;
  77854. end;
  77855. procedure TCAN1_C1FIFOINT15.clearRXOVFLIE; inline;
  77856. begin
  77857. pTDefRegMap(@Self)^.clr := $00080000;
  77858. end;
  77859. procedure TCAN1_C1FIFOINT15.setRXOVFLIE(thebits : TBits_1); inline;
  77860. begin
  77861. if thebits = 0 then
  77862. pTDefRegMap(@Self)^.clr := $00080000
  77863. else
  77864. pTDefRegMap(@Self)^.&set := $00080000;
  77865. end;
  77866. function TCAN1_C1FIFOINT15.getRXOVFLIE : TBits_1; inline;
  77867. begin
  77868. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  77869. end;
  77870. procedure TCAN1_C1FIFOINT15.setTXEMPTYIE; inline;
  77871. begin
  77872. pTDefRegMap(@Self)^.&set := $01000000;
  77873. end;
  77874. procedure TCAN1_C1FIFOINT15.clearTXEMPTYIE; inline;
  77875. begin
  77876. pTDefRegMap(@Self)^.clr := $01000000;
  77877. end;
  77878. procedure TCAN1_C1FIFOINT15.setTXEMPTYIE(thebits : TBits_1); inline;
  77879. begin
  77880. if thebits = 0 then
  77881. pTDefRegMap(@Self)^.clr := $01000000
  77882. else
  77883. pTDefRegMap(@Self)^.&set := $01000000;
  77884. end;
  77885. function TCAN1_C1FIFOINT15.getTXEMPTYIE : TBits_1; inline;
  77886. begin
  77887. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  77888. end;
  77889. procedure TCAN1_C1FIFOINT15.setTXHALFIE; inline;
  77890. begin
  77891. pTDefRegMap(@Self)^.&set := $02000000;
  77892. end;
  77893. procedure TCAN1_C1FIFOINT15.clearTXHALFIE; inline;
  77894. begin
  77895. pTDefRegMap(@Self)^.clr := $02000000;
  77896. end;
  77897. procedure TCAN1_C1FIFOINT15.setTXHALFIE(thebits : TBits_1); inline;
  77898. begin
  77899. if thebits = 0 then
  77900. pTDefRegMap(@Self)^.clr := $02000000
  77901. else
  77902. pTDefRegMap(@Self)^.&set := $02000000;
  77903. end;
  77904. function TCAN1_C1FIFOINT15.getTXHALFIE : TBits_1; inline;
  77905. begin
  77906. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  77907. end;
  77908. procedure TCAN1_C1FIFOINT15.setTXNFULLIE; inline;
  77909. begin
  77910. pTDefRegMap(@Self)^.&set := $04000000;
  77911. end;
  77912. procedure TCAN1_C1FIFOINT15.clearTXNFULLIE; inline;
  77913. begin
  77914. pTDefRegMap(@Self)^.clr := $04000000;
  77915. end;
  77916. procedure TCAN1_C1FIFOINT15.setTXNFULLIE(thebits : TBits_1); inline;
  77917. begin
  77918. if thebits = 0 then
  77919. pTDefRegMap(@Self)^.clr := $04000000
  77920. else
  77921. pTDefRegMap(@Self)^.&set := $04000000;
  77922. end;
  77923. function TCAN1_C1FIFOINT15.getTXNFULLIE : TBits_1; inline;
  77924. begin
  77925. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  77926. end;
  77927. procedure TCAN1_C1FIFOINT15.setw(thebits : TBits_32); inline;
  77928. begin
  77929. pTDefRegMap(@Self)^.val := thebits;
  77930. end;
  77931. function TCAN1_C1FIFOINT15.getw : TBits_32; inline;
  77932. begin
  77933. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77934. end;
  77935. procedure TCAN1_C1FIFOCI15.setCFIFOCI(thebits : TBits_5); inline;
  77936. begin
  77937. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  77938. end;
  77939. function TCAN1_C1FIFOCI15.getCFIFOCI : TBits_5; inline;
  77940. begin
  77941. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  77942. end;
  77943. procedure TCAN1_C1FIFOCI15.setw(thebits : TBits_32); inline;
  77944. begin
  77945. pTDefRegMap(@Self)^.val := thebits;
  77946. end;
  77947. function TCAN1_C1FIFOCI15.getw : TBits_32; inline;
  77948. begin
  77949. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  77950. end;
  77951. procedure TCAN1_C1FIFOCON16.setTXPRI(thebits : TBits_2); inline;
  77952. begin
  77953. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  77954. end;
  77955. function TCAN1_C1FIFOCON16.getTXPRI : TBits_2; inline;
  77956. begin
  77957. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  77958. end;
  77959. procedure TCAN1_C1FIFOCON16.setRTREN; inline;
  77960. begin
  77961. pTDefRegMap(@Self)^.&set := $00000004;
  77962. end;
  77963. procedure TCAN1_C1FIFOCON16.clearRTREN; inline;
  77964. begin
  77965. pTDefRegMap(@Self)^.clr := $00000004;
  77966. end;
  77967. procedure TCAN1_C1FIFOCON16.setRTREN(thebits : TBits_1); inline;
  77968. begin
  77969. if thebits = 0 then
  77970. pTDefRegMap(@Self)^.clr := $00000004
  77971. else
  77972. pTDefRegMap(@Self)^.&set := $00000004;
  77973. end;
  77974. function TCAN1_C1FIFOCON16.getRTREN : TBits_1; inline;
  77975. begin
  77976. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  77977. end;
  77978. procedure TCAN1_C1FIFOCON16.setTXREQ; inline;
  77979. begin
  77980. pTDefRegMap(@Self)^.&set := $00000008;
  77981. end;
  77982. procedure TCAN1_C1FIFOCON16.clearTXREQ; inline;
  77983. begin
  77984. pTDefRegMap(@Self)^.clr := $00000008;
  77985. end;
  77986. procedure TCAN1_C1FIFOCON16.setTXREQ(thebits : TBits_1); inline;
  77987. begin
  77988. if thebits = 0 then
  77989. pTDefRegMap(@Self)^.clr := $00000008
  77990. else
  77991. pTDefRegMap(@Self)^.&set := $00000008;
  77992. end;
  77993. function TCAN1_C1FIFOCON16.getTXREQ : TBits_1; inline;
  77994. begin
  77995. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  77996. end;
  77997. procedure TCAN1_C1FIFOCON16.setTXERR; inline;
  77998. begin
  77999. pTDefRegMap(@Self)^.&set := $00000010;
  78000. end;
  78001. procedure TCAN1_C1FIFOCON16.clearTXERR; inline;
  78002. begin
  78003. pTDefRegMap(@Self)^.clr := $00000010;
  78004. end;
  78005. procedure TCAN1_C1FIFOCON16.setTXERR(thebits : TBits_1); inline;
  78006. begin
  78007. if thebits = 0 then
  78008. pTDefRegMap(@Self)^.clr := $00000010
  78009. else
  78010. pTDefRegMap(@Self)^.&set := $00000010;
  78011. end;
  78012. function TCAN1_C1FIFOCON16.getTXERR : TBits_1; inline;
  78013. begin
  78014. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78015. end;
  78016. procedure TCAN1_C1FIFOCON16.setTXLARB; inline;
  78017. begin
  78018. pTDefRegMap(@Self)^.&set := $00000020;
  78019. end;
  78020. procedure TCAN1_C1FIFOCON16.clearTXLARB; inline;
  78021. begin
  78022. pTDefRegMap(@Self)^.clr := $00000020;
  78023. end;
  78024. procedure TCAN1_C1FIFOCON16.setTXLARB(thebits : TBits_1); inline;
  78025. begin
  78026. if thebits = 0 then
  78027. pTDefRegMap(@Self)^.clr := $00000020
  78028. else
  78029. pTDefRegMap(@Self)^.&set := $00000020;
  78030. end;
  78031. function TCAN1_C1FIFOCON16.getTXLARB : TBits_1; inline;
  78032. begin
  78033. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  78034. end;
  78035. procedure TCAN1_C1FIFOCON16.setTXABAT; inline;
  78036. begin
  78037. pTDefRegMap(@Self)^.&set := $00000040;
  78038. end;
  78039. procedure TCAN1_C1FIFOCON16.clearTXABAT; inline;
  78040. begin
  78041. pTDefRegMap(@Self)^.clr := $00000040;
  78042. end;
  78043. procedure TCAN1_C1FIFOCON16.setTXABAT(thebits : TBits_1); inline;
  78044. begin
  78045. if thebits = 0 then
  78046. pTDefRegMap(@Self)^.clr := $00000040
  78047. else
  78048. pTDefRegMap(@Self)^.&set := $00000040;
  78049. end;
  78050. function TCAN1_C1FIFOCON16.getTXABAT : TBits_1; inline;
  78051. begin
  78052. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  78053. end;
  78054. procedure TCAN1_C1FIFOCON16.setTXEN; inline;
  78055. begin
  78056. pTDefRegMap(@Self)^.&set := $00000080;
  78057. end;
  78058. procedure TCAN1_C1FIFOCON16.clearTXEN; inline;
  78059. begin
  78060. pTDefRegMap(@Self)^.clr := $00000080;
  78061. end;
  78062. procedure TCAN1_C1FIFOCON16.setTXEN(thebits : TBits_1); inline;
  78063. begin
  78064. if thebits = 0 then
  78065. pTDefRegMap(@Self)^.clr := $00000080
  78066. else
  78067. pTDefRegMap(@Self)^.&set := $00000080;
  78068. end;
  78069. function TCAN1_C1FIFOCON16.getTXEN : TBits_1; inline;
  78070. begin
  78071. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  78072. end;
  78073. procedure TCAN1_C1FIFOCON16.setDONLY; inline;
  78074. begin
  78075. pTDefRegMap(@Self)^.&set := $00001000;
  78076. end;
  78077. procedure TCAN1_C1FIFOCON16.clearDONLY; inline;
  78078. begin
  78079. pTDefRegMap(@Self)^.clr := $00001000;
  78080. end;
  78081. procedure TCAN1_C1FIFOCON16.setDONLY(thebits : TBits_1); inline;
  78082. begin
  78083. if thebits = 0 then
  78084. pTDefRegMap(@Self)^.clr := $00001000
  78085. else
  78086. pTDefRegMap(@Self)^.&set := $00001000;
  78087. end;
  78088. function TCAN1_C1FIFOCON16.getDONLY : TBits_1; inline;
  78089. begin
  78090. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  78091. end;
  78092. procedure TCAN1_C1FIFOCON16.setUINC; inline;
  78093. begin
  78094. pTDefRegMap(@Self)^.&set := $00002000;
  78095. end;
  78096. procedure TCAN1_C1FIFOCON16.clearUINC; inline;
  78097. begin
  78098. pTDefRegMap(@Self)^.clr := $00002000;
  78099. end;
  78100. procedure TCAN1_C1FIFOCON16.setUINC(thebits : TBits_1); inline;
  78101. begin
  78102. if thebits = 0 then
  78103. pTDefRegMap(@Self)^.clr := $00002000
  78104. else
  78105. pTDefRegMap(@Self)^.&set := $00002000;
  78106. end;
  78107. function TCAN1_C1FIFOCON16.getUINC : TBits_1; inline;
  78108. begin
  78109. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  78110. end;
  78111. procedure TCAN1_C1FIFOCON16.setFRESET; inline;
  78112. begin
  78113. pTDefRegMap(@Self)^.&set := $00004000;
  78114. end;
  78115. procedure TCAN1_C1FIFOCON16.clearFRESET; inline;
  78116. begin
  78117. pTDefRegMap(@Self)^.clr := $00004000;
  78118. end;
  78119. procedure TCAN1_C1FIFOCON16.setFRESET(thebits : TBits_1); inline;
  78120. begin
  78121. if thebits = 0 then
  78122. pTDefRegMap(@Self)^.clr := $00004000
  78123. else
  78124. pTDefRegMap(@Self)^.&set := $00004000;
  78125. end;
  78126. function TCAN1_C1FIFOCON16.getFRESET : TBits_1; inline;
  78127. begin
  78128. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  78129. end;
  78130. procedure TCAN1_C1FIFOCON16.setFSIZE(thebits : TBits_5); inline;
  78131. begin
  78132. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  78133. end;
  78134. function TCAN1_C1FIFOCON16.getFSIZE : TBits_5; inline;
  78135. begin
  78136. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  78137. end;
  78138. procedure TCAN1_C1FIFOCON16.setw(thebits : TBits_32); inline;
  78139. begin
  78140. pTDefRegMap(@Self)^.val := thebits;
  78141. end;
  78142. function TCAN1_C1FIFOCON16.getw : TBits_32; inline;
  78143. begin
  78144. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78145. end;
  78146. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIF; inline;
  78147. begin
  78148. pTDefRegMap(@Self)^.&set := $00000001;
  78149. end;
  78150. procedure TCAN1_C1FIFOINT16.clearRXNEMPTYIF; inline;
  78151. begin
  78152. pTDefRegMap(@Self)^.clr := $00000001;
  78153. end;
  78154. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIF(thebits : TBits_1); inline;
  78155. begin
  78156. if thebits = 0 then
  78157. pTDefRegMap(@Self)^.clr := $00000001
  78158. else
  78159. pTDefRegMap(@Self)^.&set := $00000001;
  78160. end;
  78161. function TCAN1_C1FIFOINT16.getRXNEMPTYIF : TBits_1; inline;
  78162. begin
  78163. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78164. end;
  78165. procedure TCAN1_C1FIFOINT16.setRXHALFIF; inline;
  78166. begin
  78167. pTDefRegMap(@Self)^.&set := $00000002;
  78168. end;
  78169. procedure TCAN1_C1FIFOINT16.clearRXHALFIF; inline;
  78170. begin
  78171. pTDefRegMap(@Self)^.clr := $00000002;
  78172. end;
  78173. procedure TCAN1_C1FIFOINT16.setRXHALFIF(thebits : TBits_1); inline;
  78174. begin
  78175. if thebits = 0 then
  78176. pTDefRegMap(@Self)^.clr := $00000002
  78177. else
  78178. pTDefRegMap(@Self)^.&set := $00000002;
  78179. end;
  78180. function TCAN1_C1FIFOINT16.getRXHALFIF : TBits_1; inline;
  78181. begin
  78182. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  78183. end;
  78184. procedure TCAN1_C1FIFOINT16.setRXFULLIF; inline;
  78185. begin
  78186. pTDefRegMap(@Self)^.&set := $00000004;
  78187. end;
  78188. procedure TCAN1_C1FIFOINT16.clearRXFULLIF; inline;
  78189. begin
  78190. pTDefRegMap(@Self)^.clr := $00000004;
  78191. end;
  78192. procedure TCAN1_C1FIFOINT16.setRXFULLIF(thebits : TBits_1); inline;
  78193. begin
  78194. if thebits = 0 then
  78195. pTDefRegMap(@Self)^.clr := $00000004
  78196. else
  78197. pTDefRegMap(@Self)^.&set := $00000004;
  78198. end;
  78199. function TCAN1_C1FIFOINT16.getRXFULLIF : TBits_1; inline;
  78200. begin
  78201. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78202. end;
  78203. procedure TCAN1_C1FIFOINT16.setRXOVFLIF; inline;
  78204. begin
  78205. pTDefRegMap(@Self)^.&set := $00000008;
  78206. end;
  78207. procedure TCAN1_C1FIFOINT16.clearRXOVFLIF; inline;
  78208. begin
  78209. pTDefRegMap(@Self)^.clr := $00000008;
  78210. end;
  78211. procedure TCAN1_C1FIFOINT16.setRXOVFLIF(thebits : TBits_1); inline;
  78212. begin
  78213. if thebits = 0 then
  78214. pTDefRegMap(@Self)^.clr := $00000008
  78215. else
  78216. pTDefRegMap(@Self)^.&set := $00000008;
  78217. end;
  78218. function TCAN1_C1FIFOINT16.getRXOVFLIF : TBits_1; inline;
  78219. begin
  78220. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78221. end;
  78222. procedure TCAN1_C1FIFOINT16.setTXEMPTYIF; inline;
  78223. begin
  78224. pTDefRegMap(@Self)^.&set := $00000100;
  78225. end;
  78226. procedure TCAN1_C1FIFOINT16.clearTXEMPTYIF; inline;
  78227. begin
  78228. pTDefRegMap(@Self)^.clr := $00000100;
  78229. end;
  78230. procedure TCAN1_C1FIFOINT16.setTXEMPTYIF(thebits : TBits_1); inline;
  78231. begin
  78232. if thebits = 0 then
  78233. pTDefRegMap(@Self)^.clr := $00000100
  78234. else
  78235. pTDefRegMap(@Self)^.&set := $00000100;
  78236. end;
  78237. function TCAN1_C1FIFOINT16.getTXEMPTYIF : TBits_1; inline;
  78238. begin
  78239. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  78240. end;
  78241. procedure TCAN1_C1FIFOINT16.setTXHALFIF; inline;
  78242. begin
  78243. pTDefRegMap(@Self)^.&set := $00000200;
  78244. end;
  78245. procedure TCAN1_C1FIFOINT16.clearTXHALFIF; inline;
  78246. begin
  78247. pTDefRegMap(@Self)^.clr := $00000200;
  78248. end;
  78249. procedure TCAN1_C1FIFOINT16.setTXHALFIF(thebits : TBits_1); inline;
  78250. begin
  78251. if thebits = 0 then
  78252. pTDefRegMap(@Self)^.clr := $00000200
  78253. else
  78254. pTDefRegMap(@Self)^.&set := $00000200;
  78255. end;
  78256. function TCAN1_C1FIFOINT16.getTXHALFIF : TBits_1; inline;
  78257. begin
  78258. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  78259. end;
  78260. procedure TCAN1_C1FIFOINT16.setTXNFULLIF; inline;
  78261. begin
  78262. pTDefRegMap(@Self)^.&set := $00000400;
  78263. end;
  78264. procedure TCAN1_C1FIFOINT16.clearTXNFULLIF; inline;
  78265. begin
  78266. pTDefRegMap(@Self)^.clr := $00000400;
  78267. end;
  78268. procedure TCAN1_C1FIFOINT16.setTXNFULLIF(thebits : TBits_1); inline;
  78269. begin
  78270. if thebits = 0 then
  78271. pTDefRegMap(@Self)^.clr := $00000400
  78272. else
  78273. pTDefRegMap(@Self)^.&set := $00000400;
  78274. end;
  78275. function TCAN1_C1FIFOINT16.getTXNFULLIF : TBits_1; inline;
  78276. begin
  78277. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  78278. end;
  78279. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIE; inline;
  78280. begin
  78281. pTDefRegMap(@Self)^.&set := $00010000;
  78282. end;
  78283. procedure TCAN1_C1FIFOINT16.clearRXNEMPTYIE; inline;
  78284. begin
  78285. pTDefRegMap(@Self)^.clr := $00010000;
  78286. end;
  78287. procedure TCAN1_C1FIFOINT16.setRXNEMPTYIE(thebits : TBits_1); inline;
  78288. begin
  78289. if thebits = 0 then
  78290. pTDefRegMap(@Self)^.clr := $00010000
  78291. else
  78292. pTDefRegMap(@Self)^.&set := $00010000;
  78293. end;
  78294. function TCAN1_C1FIFOINT16.getRXNEMPTYIE : TBits_1; inline;
  78295. begin
  78296. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  78297. end;
  78298. procedure TCAN1_C1FIFOINT16.setRXHALFIE; inline;
  78299. begin
  78300. pTDefRegMap(@Self)^.&set := $00020000;
  78301. end;
  78302. procedure TCAN1_C1FIFOINT16.clearRXHALFIE; inline;
  78303. begin
  78304. pTDefRegMap(@Self)^.clr := $00020000;
  78305. end;
  78306. procedure TCAN1_C1FIFOINT16.setRXHALFIE(thebits : TBits_1); inline;
  78307. begin
  78308. if thebits = 0 then
  78309. pTDefRegMap(@Self)^.clr := $00020000
  78310. else
  78311. pTDefRegMap(@Self)^.&set := $00020000;
  78312. end;
  78313. function TCAN1_C1FIFOINT16.getRXHALFIE : TBits_1; inline;
  78314. begin
  78315. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  78316. end;
  78317. procedure TCAN1_C1FIFOINT16.setRXFULLIE; inline;
  78318. begin
  78319. pTDefRegMap(@Self)^.&set := $00040000;
  78320. end;
  78321. procedure TCAN1_C1FIFOINT16.clearRXFULLIE; inline;
  78322. begin
  78323. pTDefRegMap(@Self)^.clr := $00040000;
  78324. end;
  78325. procedure TCAN1_C1FIFOINT16.setRXFULLIE(thebits : TBits_1); inline;
  78326. begin
  78327. if thebits = 0 then
  78328. pTDefRegMap(@Self)^.clr := $00040000
  78329. else
  78330. pTDefRegMap(@Self)^.&set := $00040000;
  78331. end;
  78332. function TCAN1_C1FIFOINT16.getRXFULLIE : TBits_1; inline;
  78333. begin
  78334. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  78335. end;
  78336. procedure TCAN1_C1FIFOINT16.setRXOVFLIE; inline;
  78337. begin
  78338. pTDefRegMap(@Self)^.&set := $00080000;
  78339. end;
  78340. procedure TCAN1_C1FIFOINT16.clearRXOVFLIE; inline;
  78341. begin
  78342. pTDefRegMap(@Self)^.clr := $00080000;
  78343. end;
  78344. procedure TCAN1_C1FIFOINT16.setRXOVFLIE(thebits : TBits_1); inline;
  78345. begin
  78346. if thebits = 0 then
  78347. pTDefRegMap(@Self)^.clr := $00080000
  78348. else
  78349. pTDefRegMap(@Self)^.&set := $00080000;
  78350. end;
  78351. function TCAN1_C1FIFOINT16.getRXOVFLIE : TBits_1; inline;
  78352. begin
  78353. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  78354. end;
  78355. procedure TCAN1_C1FIFOINT16.setTXEMPTYIE; inline;
  78356. begin
  78357. pTDefRegMap(@Self)^.&set := $01000000;
  78358. end;
  78359. procedure TCAN1_C1FIFOINT16.clearTXEMPTYIE; inline;
  78360. begin
  78361. pTDefRegMap(@Self)^.clr := $01000000;
  78362. end;
  78363. procedure TCAN1_C1FIFOINT16.setTXEMPTYIE(thebits : TBits_1); inline;
  78364. begin
  78365. if thebits = 0 then
  78366. pTDefRegMap(@Self)^.clr := $01000000
  78367. else
  78368. pTDefRegMap(@Self)^.&set := $01000000;
  78369. end;
  78370. function TCAN1_C1FIFOINT16.getTXEMPTYIE : TBits_1; inline;
  78371. begin
  78372. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  78373. end;
  78374. procedure TCAN1_C1FIFOINT16.setTXHALFIE; inline;
  78375. begin
  78376. pTDefRegMap(@Self)^.&set := $02000000;
  78377. end;
  78378. procedure TCAN1_C1FIFOINT16.clearTXHALFIE; inline;
  78379. begin
  78380. pTDefRegMap(@Self)^.clr := $02000000;
  78381. end;
  78382. procedure TCAN1_C1FIFOINT16.setTXHALFIE(thebits : TBits_1); inline;
  78383. begin
  78384. if thebits = 0 then
  78385. pTDefRegMap(@Self)^.clr := $02000000
  78386. else
  78387. pTDefRegMap(@Self)^.&set := $02000000;
  78388. end;
  78389. function TCAN1_C1FIFOINT16.getTXHALFIE : TBits_1; inline;
  78390. begin
  78391. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  78392. end;
  78393. procedure TCAN1_C1FIFOINT16.setTXNFULLIE; inline;
  78394. begin
  78395. pTDefRegMap(@Self)^.&set := $04000000;
  78396. end;
  78397. procedure TCAN1_C1FIFOINT16.clearTXNFULLIE; inline;
  78398. begin
  78399. pTDefRegMap(@Self)^.clr := $04000000;
  78400. end;
  78401. procedure TCAN1_C1FIFOINT16.setTXNFULLIE(thebits : TBits_1); inline;
  78402. begin
  78403. if thebits = 0 then
  78404. pTDefRegMap(@Self)^.clr := $04000000
  78405. else
  78406. pTDefRegMap(@Self)^.&set := $04000000;
  78407. end;
  78408. function TCAN1_C1FIFOINT16.getTXNFULLIE : TBits_1; inline;
  78409. begin
  78410. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  78411. end;
  78412. procedure TCAN1_C1FIFOINT16.setw(thebits : TBits_32); inline;
  78413. begin
  78414. pTDefRegMap(@Self)^.val := thebits;
  78415. end;
  78416. function TCAN1_C1FIFOINT16.getw : TBits_32; inline;
  78417. begin
  78418. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78419. end;
  78420. procedure TCAN1_C1FIFOCI16.setCFIFOCI(thebits : TBits_5); inline;
  78421. begin
  78422. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  78423. end;
  78424. function TCAN1_C1FIFOCI16.getCFIFOCI : TBits_5; inline;
  78425. begin
  78426. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  78427. end;
  78428. procedure TCAN1_C1FIFOCI16.setw(thebits : TBits_32); inline;
  78429. begin
  78430. pTDefRegMap(@Self)^.val := thebits;
  78431. end;
  78432. function TCAN1_C1FIFOCI16.getw : TBits_32; inline;
  78433. begin
  78434. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78435. end;
  78436. procedure TCAN1_C1FIFOCON17.setTXPRI(thebits : TBits_2); inline;
  78437. begin
  78438. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78439. end;
  78440. function TCAN1_C1FIFOCON17.getTXPRI : TBits_2; inline;
  78441. begin
  78442. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78443. end;
  78444. procedure TCAN1_C1FIFOCON17.setRTREN; inline;
  78445. begin
  78446. pTDefRegMap(@Self)^.&set := $00000004;
  78447. end;
  78448. procedure TCAN1_C1FIFOCON17.clearRTREN; inline;
  78449. begin
  78450. pTDefRegMap(@Self)^.clr := $00000004;
  78451. end;
  78452. procedure TCAN1_C1FIFOCON17.setRTREN(thebits : TBits_1); inline;
  78453. begin
  78454. if thebits = 0 then
  78455. pTDefRegMap(@Self)^.clr := $00000004
  78456. else
  78457. pTDefRegMap(@Self)^.&set := $00000004;
  78458. end;
  78459. function TCAN1_C1FIFOCON17.getRTREN : TBits_1; inline;
  78460. begin
  78461. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78462. end;
  78463. procedure TCAN1_C1FIFOCON17.setTXREQ; inline;
  78464. begin
  78465. pTDefRegMap(@Self)^.&set := $00000008;
  78466. end;
  78467. procedure TCAN1_C1FIFOCON17.clearTXREQ; inline;
  78468. begin
  78469. pTDefRegMap(@Self)^.clr := $00000008;
  78470. end;
  78471. procedure TCAN1_C1FIFOCON17.setTXREQ(thebits : TBits_1); inline;
  78472. begin
  78473. if thebits = 0 then
  78474. pTDefRegMap(@Self)^.clr := $00000008
  78475. else
  78476. pTDefRegMap(@Self)^.&set := $00000008;
  78477. end;
  78478. function TCAN1_C1FIFOCON17.getTXREQ : TBits_1; inline;
  78479. begin
  78480. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78481. end;
  78482. procedure TCAN1_C1FIFOCON17.setTXERR; inline;
  78483. begin
  78484. pTDefRegMap(@Self)^.&set := $00000010;
  78485. end;
  78486. procedure TCAN1_C1FIFOCON17.clearTXERR; inline;
  78487. begin
  78488. pTDefRegMap(@Self)^.clr := $00000010;
  78489. end;
  78490. procedure TCAN1_C1FIFOCON17.setTXERR(thebits : TBits_1); inline;
  78491. begin
  78492. if thebits = 0 then
  78493. pTDefRegMap(@Self)^.clr := $00000010
  78494. else
  78495. pTDefRegMap(@Self)^.&set := $00000010;
  78496. end;
  78497. function TCAN1_C1FIFOCON17.getTXERR : TBits_1; inline;
  78498. begin
  78499. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78500. end;
  78501. procedure TCAN1_C1FIFOCON17.setTXLARB; inline;
  78502. begin
  78503. pTDefRegMap(@Self)^.&set := $00000020;
  78504. end;
  78505. procedure TCAN1_C1FIFOCON17.clearTXLARB; inline;
  78506. begin
  78507. pTDefRegMap(@Self)^.clr := $00000020;
  78508. end;
  78509. procedure TCAN1_C1FIFOCON17.setTXLARB(thebits : TBits_1); inline;
  78510. begin
  78511. if thebits = 0 then
  78512. pTDefRegMap(@Self)^.clr := $00000020
  78513. else
  78514. pTDefRegMap(@Self)^.&set := $00000020;
  78515. end;
  78516. function TCAN1_C1FIFOCON17.getTXLARB : TBits_1; inline;
  78517. begin
  78518. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  78519. end;
  78520. procedure TCAN1_C1FIFOCON17.setTXABAT; inline;
  78521. begin
  78522. pTDefRegMap(@Self)^.&set := $00000040;
  78523. end;
  78524. procedure TCAN1_C1FIFOCON17.clearTXABAT; inline;
  78525. begin
  78526. pTDefRegMap(@Self)^.clr := $00000040;
  78527. end;
  78528. procedure TCAN1_C1FIFOCON17.setTXABAT(thebits : TBits_1); inline;
  78529. begin
  78530. if thebits = 0 then
  78531. pTDefRegMap(@Self)^.clr := $00000040
  78532. else
  78533. pTDefRegMap(@Self)^.&set := $00000040;
  78534. end;
  78535. function TCAN1_C1FIFOCON17.getTXABAT : TBits_1; inline;
  78536. begin
  78537. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  78538. end;
  78539. procedure TCAN1_C1FIFOCON17.setTXEN; inline;
  78540. begin
  78541. pTDefRegMap(@Self)^.&set := $00000080;
  78542. end;
  78543. procedure TCAN1_C1FIFOCON17.clearTXEN; inline;
  78544. begin
  78545. pTDefRegMap(@Self)^.clr := $00000080;
  78546. end;
  78547. procedure TCAN1_C1FIFOCON17.setTXEN(thebits : TBits_1); inline;
  78548. begin
  78549. if thebits = 0 then
  78550. pTDefRegMap(@Self)^.clr := $00000080
  78551. else
  78552. pTDefRegMap(@Self)^.&set := $00000080;
  78553. end;
  78554. function TCAN1_C1FIFOCON17.getTXEN : TBits_1; inline;
  78555. begin
  78556. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  78557. end;
  78558. procedure TCAN1_C1FIFOCON17.setDONLY; inline;
  78559. begin
  78560. pTDefRegMap(@Self)^.&set := $00001000;
  78561. end;
  78562. procedure TCAN1_C1FIFOCON17.clearDONLY; inline;
  78563. begin
  78564. pTDefRegMap(@Self)^.clr := $00001000;
  78565. end;
  78566. procedure TCAN1_C1FIFOCON17.setDONLY(thebits : TBits_1); inline;
  78567. begin
  78568. if thebits = 0 then
  78569. pTDefRegMap(@Self)^.clr := $00001000
  78570. else
  78571. pTDefRegMap(@Self)^.&set := $00001000;
  78572. end;
  78573. function TCAN1_C1FIFOCON17.getDONLY : TBits_1; inline;
  78574. begin
  78575. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  78576. end;
  78577. procedure TCAN1_C1FIFOCON17.setUINC; inline;
  78578. begin
  78579. pTDefRegMap(@Self)^.&set := $00002000;
  78580. end;
  78581. procedure TCAN1_C1FIFOCON17.clearUINC; inline;
  78582. begin
  78583. pTDefRegMap(@Self)^.clr := $00002000;
  78584. end;
  78585. procedure TCAN1_C1FIFOCON17.setUINC(thebits : TBits_1); inline;
  78586. begin
  78587. if thebits = 0 then
  78588. pTDefRegMap(@Self)^.clr := $00002000
  78589. else
  78590. pTDefRegMap(@Self)^.&set := $00002000;
  78591. end;
  78592. function TCAN1_C1FIFOCON17.getUINC : TBits_1; inline;
  78593. begin
  78594. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  78595. end;
  78596. procedure TCAN1_C1FIFOCON17.setFRESET; inline;
  78597. begin
  78598. pTDefRegMap(@Self)^.&set := $00004000;
  78599. end;
  78600. procedure TCAN1_C1FIFOCON17.clearFRESET; inline;
  78601. begin
  78602. pTDefRegMap(@Self)^.clr := $00004000;
  78603. end;
  78604. procedure TCAN1_C1FIFOCON17.setFRESET(thebits : TBits_1); inline;
  78605. begin
  78606. if thebits = 0 then
  78607. pTDefRegMap(@Self)^.clr := $00004000
  78608. else
  78609. pTDefRegMap(@Self)^.&set := $00004000;
  78610. end;
  78611. function TCAN1_C1FIFOCON17.getFRESET : TBits_1; inline;
  78612. begin
  78613. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  78614. end;
  78615. procedure TCAN1_C1FIFOCON17.setFSIZE(thebits : TBits_5); inline;
  78616. begin
  78617. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  78618. end;
  78619. function TCAN1_C1FIFOCON17.getFSIZE : TBits_5; inline;
  78620. begin
  78621. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  78622. end;
  78623. procedure TCAN1_C1FIFOCON17.setw(thebits : TBits_32); inline;
  78624. begin
  78625. pTDefRegMap(@Self)^.val := thebits;
  78626. end;
  78627. function TCAN1_C1FIFOCON17.getw : TBits_32; inline;
  78628. begin
  78629. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78630. end;
  78631. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIF; inline;
  78632. begin
  78633. pTDefRegMap(@Self)^.&set := $00000001;
  78634. end;
  78635. procedure TCAN1_C1FIFOINT17.clearRXNEMPTYIF; inline;
  78636. begin
  78637. pTDefRegMap(@Self)^.clr := $00000001;
  78638. end;
  78639. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIF(thebits : TBits_1); inline;
  78640. begin
  78641. if thebits = 0 then
  78642. pTDefRegMap(@Self)^.clr := $00000001
  78643. else
  78644. pTDefRegMap(@Self)^.&set := $00000001;
  78645. end;
  78646. function TCAN1_C1FIFOINT17.getRXNEMPTYIF : TBits_1; inline;
  78647. begin
  78648. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  78649. end;
  78650. procedure TCAN1_C1FIFOINT17.setRXHALFIF; inline;
  78651. begin
  78652. pTDefRegMap(@Self)^.&set := $00000002;
  78653. end;
  78654. procedure TCAN1_C1FIFOINT17.clearRXHALFIF; inline;
  78655. begin
  78656. pTDefRegMap(@Self)^.clr := $00000002;
  78657. end;
  78658. procedure TCAN1_C1FIFOINT17.setRXHALFIF(thebits : TBits_1); inline;
  78659. begin
  78660. if thebits = 0 then
  78661. pTDefRegMap(@Self)^.clr := $00000002
  78662. else
  78663. pTDefRegMap(@Self)^.&set := $00000002;
  78664. end;
  78665. function TCAN1_C1FIFOINT17.getRXHALFIF : TBits_1; inline;
  78666. begin
  78667. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  78668. end;
  78669. procedure TCAN1_C1FIFOINT17.setRXFULLIF; inline;
  78670. begin
  78671. pTDefRegMap(@Self)^.&set := $00000004;
  78672. end;
  78673. procedure TCAN1_C1FIFOINT17.clearRXFULLIF; inline;
  78674. begin
  78675. pTDefRegMap(@Self)^.clr := $00000004;
  78676. end;
  78677. procedure TCAN1_C1FIFOINT17.setRXFULLIF(thebits : TBits_1); inline;
  78678. begin
  78679. if thebits = 0 then
  78680. pTDefRegMap(@Self)^.clr := $00000004
  78681. else
  78682. pTDefRegMap(@Self)^.&set := $00000004;
  78683. end;
  78684. function TCAN1_C1FIFOINT17.getRXFULLIF : TBits_1; inline;
  78685. begin
  78686. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78687. end;
  78688. procedure TCAN1_C1FIFOINT17.setRXOVFLIF; inline;
  78689. begin
  78690. pTDefRegMap(@Self)^.&set := $00000008;
  78691. end;
  78692. procedure TCAN1_C1FIFOINT17.clearRXOVFLIF; inline;
  78693. begin
  78694. pTDefRegMap(@Self)^.clr := $00000008;
  78695. end;
  78696. procedure TCAN1_C1FIFOINT17.setRXOVFLIF(thebits : TBits_1); inline;
  78697. begin
  78698. if thebits = 0 then
  78699. pTDefRegMap(@Self)^.clr := $00000008
  78700. else
  78701. pTDefRegMap(@Self)^.&set := $00000008;
  78702. end;
  78703. function TCAN1_C1FIFOINT17.getRXOVFLIF : TBits_1; inline;
  78704. begin
  78705. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78706. end;
  78707. procedure TCAN1_C1FIFOINT17.setTXEMPTYIF; inline;
  78708. begin
  78709. pTDefRegMap(@Self)^.&set := $00000100;
  78710. end;
  78711. procedure TCAN1_C1FIFOINT17.clearTXEMPTYIF; inline;
  78712. begin
  78713. pTDefRegMap(@Self)^.clr := $00000100;
  78714. end;
  78715. procedure TCAN1_C1FIFOINT17.setTXEMPTYIF(thebits : TBits_1); inline;
  78716. begin
  78717. if thebits = 0 then
  78718. pTDefRegMap(@Self)^.clr := $00000100
  78719. else
  78720. pTDefRegMap(@Self)^.&set := $00000100;
  78721. end;
  78722. function TCAN1_C1FIFOINT17.getTXEMPTYIF : TBits_1; inline;
  78723. begin
  78724. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  78725. end;
  78726. procedure TCAN1_C1FIFOINT17.setTXHALFIF; inline;
  78727. begin
  78728. pTDefRegMap(@Self)^.&set := $00000200;
  78729. end;
  78730. procedure TCAN1_C1FIFOINT17.clearTXHALFIF; inline;
  78731. begin
  78732. pTDefRegMap(@Self)^.clr := $00000200;
  78733. end;
  78734. procedure TCAN1_C1FIFOINT17.setTXHALFIF(thebits : TBits_1); inline;
  78735. begin
  78736. if thebits = 0 then
  78737. pTDefRegMap(@Self)^.clr := $00000200
  78738. else
  78739. pTDefRegMap(@Self)^.&set := $00000200;
  78740. end;
  78741. function TCAN1_C1FIFOINT17.getTXHALFIF : TBits_1; inline;
  78742. begin
  78743. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  78744. end;
  78745. procedure TCAN1_C1FIFOINT17.setTXNFULLIF; inline;
  78746. begin
  78747. pTDefRegMap(@Self)^.&set := $00000400;
  78748. end;
  78749. procedure TCAN1_C1FIFOINT17.clearTXNFULLIF; inline;
  78750. begin
  78751. pTDefRegMap(@Self)^.clr := $00000400;
  78752. end;
  78753. procedure TCAN1_C1FIFOINT17.setTXNFULLIF(thebits : TBits_1); inline;
  78754. begin
  78755. if thebits = 0 then
  78756. pTDefRegMap(@Self)^.clr := $00000400
  78757. else
  78758. pTDefRegMap(@Self)^.&set := $00000400;
  78759. end;
  78760. function TCAN1_C1FIFOINT17.getTXNFULLIF : TBits_1; inline;
  78761. begin
  78762. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  78763. end;
  78764. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIE; inline;
  78765. begin
  78766. pTDefRegMap(@Self)^.&set := $00010000;
  78767. end;
  78768. procedure TCAN1_C1FIFOINT17.clearRXNEMPTYIE; inline;
  78769. begin
  78770. pTDefRegMap(@Self)^.clr := $00010000;
  78771. end;
  78772. procedure TCAN1_C1FIFOINT17.setRXNEMPTYIE(thebits : TBits_1); inline;
  78773. begin
  78774. if thebits = 0 then
  78775. pTDefRegMap(@Self)^.clr := $00010000
  78776. else
  78777. pTDefRegMap(@Self)^.&set := $00010000;
  78778. end;
  78779. function TCAN1_C1FIFOINT17.getRXNEMPTYIE : TBits_1; inline;
  78780. begin
  78781. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  78782. end;
  78783. procedure TCAN1_C1FIFOINT17.setRXHALFIE; inline;
  78784. begin
  78785. pTDefRegMap(@Self)^.&set := $00020000;
  78786. end;
  78787. procedure TCAN1_C1FIFOINT17.clearRXHALFIE; inline;
  78788. begin
  78789. pTDefRegMap(@Self)^.clr := $00020000;
  78790. end;
  78791. procedure TCAN1_C1FIFOINT17.setRXHALFIE(thebits : TBits_1); inline;
  78792. begin
  78793. if thebits = 0 then
  78794. pTDefRegMap(@Self)^.clr := $00020000
  78795. else
  78796. pTDefRegMap(@Self)^.&set := $00020000;
  78797. end;
  78798. function TCAN1_C1FIFOINT17.getRXHALFIE : TBits_1; inline;
  78799. begin
  78800. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  78801. end;
  78802. procedure TCAN1_C1FIFOINT17.setRXFULLIE; inline;
  78803. begin
  78804. pTDefRegMap(@Self)^.&set := $00040000;
  78805. end;
  78806. procedure TCAN1_C1FIFOINT17.clearRXFULLIE; inline;
  78807. begin
  78808. pTDefRegMap(@Self)^.clr := $00040000;
  78809. end;
  78810. procedure TCAN1_C1FIFOINT17.setRXFULLIE(thebits : TBits_1); inline;
  78811. begin
  78812. if thebits = 0 then
  78813. pTDefRegMap(@Self)^.clr := $00040000
  78814. else
  78815. pTDefRegMap(@Self)^.&set := $00040000;
  78816. end;
  78817. function TCAN1_C1FIFOINT17.getRXFULLIE : TBits_1; inline;
  78818. begin
  78819. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  78820. end;
  78821. procedure TCAN1_C1FIFOINT17.setRXOVFLIE; inline;
  78822. begin
  78823. pTDefRegMap(@Self)^.&set := $00080000;
  78824. end;
  78825. procedure TCAN1_C1FIFOINT17.clearRXOVFLIE; inline;
  78826. begin
  78827. pTDefRegMap(@Self)^.clr := $00080000;
  78828. end;
  78829. procedure TCAN1_C1FIFOINT17.setRXOVFLIE(thebits : TBits_1); inline;
  78830. begin
  78831. if thebits = 0 then
  78832. pTDefRegMap(@Self)^.clr := $00080000
  78833. else
  78834. pTDefRegMap(@Self)^.&set := $00080000;
  78835. end;
  78836. function TCAN1_C1FIFOINT17.getRXOVFLIE : TBits_1; inline;
  78837. begin
  78838. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  78839. end;
  78840. procedure TCAN1_C1FIFOINT17.setTXEMPTYIE; inline;
  78841. begin
  78842. pTDefRegMap(@Self)^.&set := $01000000;
  78843. end;
  78844. procedure TCAN1_C1FIFOINT17.clearTXEMPTYIE; inline;
  78845. begin
  78846. pTDefRegMap(@Self)^.clr := $01000000;
  78847. end;
  78848. procedure TCAN1_C1FIFOINT17.setTXEMPTYIE(thebits : TBits_1); inline;
  78849. begin
  78850. if thebits = 0 then
  78851. pTDefRegMap(@Self)^.clr := $01000000
  78852. else
  78853. pTDefRegMap(@Self)^.&set := $01000000;
  78854. end;
  78855. function TCAN1_C1FIFOINT17.getTXEMPTYIE : TBits_1; inline;
  78856. begin
  78857. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  78858. end;
  78859. procedure TCAN1_C1FIFOINT17.setTXHALFIE; inline;
  78860. begin
  78861. pTDefRegMap(@Self)^.&set := $02000000;
  78862. end;
  78863. procedure TCAN1_C1FIFOINT17.clearTXHALFIE; inline;
  78864. begin
  78865. pTDefRegMap(@Self)^.clr := $02000000;
  78866. end;
  78867. procedure TCAN1_C1FIFOINT17.setTXHALFIE(thebits : TBits_1); inline;
  78868. begin
  78869. if thebits = 0 then
  78870. pTDefRegMap(@Self)^.clr := $02000000
  78871. else
  78872. pTDefRegMap(@Self)^.&set := $02000000;
  78873. end;
  78874. function TCAN1_C1FIFOINT17.getTXHALFIE : TBits_1; inline;
  78875. begin
  78876. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  78877. end;
  78878. procedure TCAN1_C1FIFOINT17.setTXNFULLIE; inline;
  78879. begin
  78880. pTDefRegMap(@Self)^.&set := $04000000;
  78881. end;
  78882. procedure TCAN1_C1FIFOINT17.clearTXNFULLIE; inline;
  78883. begin
  78884. pTDefRegMap(@Self)^.clr := $04000000;
  78885. end;
  78886. procedure TCAN1_C1FIFOINT17.setTXNFULLIE(thebits : TBits_1); inline;
  78887. begin
  78888. if thebits = 0 then
  78889. pTDefRegMap(@Self)^.clr := $04000000
  78890. else
  78891. pTDefRegMap(@Self)^.&set := $04000000;
  78892. end;
  78893. function TCAN1_C1FIFOINT17.getTXNFULLIE : TBits_1; inline;
  78894. begin
  78895. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  78896. end;
  78897. procedure TCAN1_C1FIFOINT17.setw(thebits : TBits_32); inline;
  78898. begin
  78899. pTDefRegMap(@Self)^.val := thebits;
  78900. end;
  78901. function TCAN1_C1FIFOINT17.getw : TBits_32; inline;
  78902. begin
  78903. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78904. end;
  78905. procedure TCAN1_C1FIFOCI17.setCFIFOCI(thebits : TBits_5); inline;
  78906. begin
  78907. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  78908. end;
  78909. function TCAN1_C1FIFOCI17.getCFIFOCI : TBits_5; inline;
  78910. begin
  78911. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  78912. end;
  78913. procedure TCAN1_C1FIFOCI17.setw(thebits : TBits_32); inline;
  78914. begin
  78915. pTDefRegMap(@Self)^.val := thebits;
  78916. end;
  78917. function TCAN1_C1FIFOCI17.getw : TBits_32; inline;
  78918. begin
  78919. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  78920. end;
  78921. procedure TCAN1_C1FIFOCON18.setTXPRI(thebits : TBits_2); inline;
  78922. begin
  78923. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  78924. end;
  78925. function TCAN1_C1FIFOCON18.getTXPRI : TBits_2; inline;
  78926. begin
  78927. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  78928. end;
  78929. procedure TCAN1_C1FIFOCON18.setRTREN; inline;
  78930. begin
  78931. pTDefRegMap(@Self)^.&set := $00000004;
  78932. end;
  78933. procedure TCAN1_C1FIFOCON18.clearRTREN; inline;
  78934. begin
  78935. pTDefRegMap(@Self)^.clr := $00000004;
  78936. end;
  78937. procedure TCAN1_C1FIFOCON18.setRTREN(thebits : TBits_1); inline;
  78938. begin
  78939. if thebits = 0 then
  78940. pTDefRegMap(@Self)^.clr := $00000004
  78941. else
  78942. pTDefRegMap(@Self)^.&set := $00000004;
  78943. end;
  78944. function TCAN1_C1FIFOCON18.getRTREN : TBits_1; inline;
  78945. begin
  78946. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  78947. end;
  78948. procedure TCAN1_C1FIFOCON18.setTXREQ; inline;
  78949. begin
  78950. pTDefRegMap(@Self)^.&set := $00000008;
  78951. end;
  78952. procedure TCAN1_C1FIFOCON18.clearTXREQ; inline;
  78953. begin
  78954. pTDefRegMap(@Self)^.clr := $00000008;
  78955. end;
  78956. procedure TCAN1_C1FIFOCON18.setTXREQ(thebits : TBits_1); inline;
  78957. begin
  78958. if thebits = 0 then
  78959. pTDefRegMap(@Self)^.clr := $00000008
  78960. else
  78961. pTDefRegMap(@Self)^.&set := $00000008;
  78962. end;
  78963. function TCAN1_C1FIFOCON18.getTXREQ : TBits_1; inline;
  78964. begin
  78965. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  78966. end;
  78967. procedure TCAN1_C1FIFOCON18.setTXERR; inline;
  78968. begin
  78969. pTDefRegMap(@Self)^.&set := $00000010;
  78970. end;
  78971. procedure TCAN1_C1FIFOCON18.clearTXERR; inline;
  78972. begin
  78973. pTDefRegMap(@Self)^.clr := $00000010;
  78974. end;
  78975. procedure TCAN1_C1FIFOCON18.setTXERR(thebits : TBits_1); inline;
  78976. begin
  78977. if thebits = 0 then
  78978. pTDefRegMap(@Self)^.clr := $00000010
  78979. else
  78980. pTDefRegMap(@Self)^.&set := $00000010;
  78981. end;
  78982. function TCAN1_C1FIFOCON18.getTXERR : TBits_1; inline;
  78983. begin
  78984. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  78985. end;
  78986. procedure TCAN1_C1FIFOCON18.setTXLARB; inline;
  78987. begin
  78988. pTDefRegMap(@Self)^.&set := $00000020;
  78989. end;
  78990. procedure TCAN1_C1FIFOCON18.clearTXLARB; inline;
  78991. begin
  78992. pTDefRegMap(@Self)^.clr := $00000020;
  78993. end;
  78994. procedure TCAN1_C1FIFOCON18.setTXLARB(thebits : TBits_1); inline;
  78995. begin
  78996. if thebits = 0 then
  78997. pTDefRegMap(@Self)^.clr := $00000020
  78998. else
  78999. pTDefRegMap(@Self)^.&set := $00000020;
  79000. end;
  79001. function TCAN1_C1FIFOCON18.getTXLARB : TBits_1; inline;
  79002. begin
  79003. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79004. end;
  79005. procedure TCAN1_C1FIFOCON18.setTXABAT; inline;
  79006. begin
  79007. pTDefRegMap(@Self)^.&set := $00000040;
  79008. end;
  79009. procedure TCAN1_C1FIFOCON18.clearTXABAT; inline;
  79010. begin
  79011. pTDefRegMap(@Self)^.clr := $00000040;
  79012. end;
  79013. procedure TCAN1_C1FIFOCON18.setTXABAT(thebits : TBits_1); inline;
  79014. begin
  79015. if thebits = 0 then
  79016. pTDefRegMap(@Self)^.clr := $00000040
  79017. else
  79018. pTDefRegMap(@Self)^.&set := $00000040;
  79019. end;
  79020. function TCAN1_C1FIFOCON18.getTXABAT : TBits_1; inline;
  79021. begin
  79022. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79023. end;
  79024. procedure TCAN1_C1FIFOCON18.setTXEN; inline;
  79025. begin
  79026. pTDefRegMap(@Self)^.&set := $00000080;
  79027. end;
  79028. procedure TCAN1_C1FIFOCON18.clearTXEN; inline;
  79029. begin
  79030. pTDefRegMap(@Self)^.clr := $00000080;
  79031. end;
  79032. procedure TCAN1_C1FIFOCON18.setTXEN(thebits : TBits_1); inline;
  79033. begin
  79034. if thebits = 0 then
  79035. pTDefRegMap(@Self)^.clr := $00000080
  79036. else
  79037. pTDefRegMap(@Self)^.&set := $00000080;
  79038. end;
  79039. function TCAN1_C1FIFOCON18.getTXEN : TBits_1; inline;
  79040. begin
  79041. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  79042. end;
  79043. procedure TCAN1_C1FIFOCON18.setDONLY; inline;
  79044. begin
  79045. pTDefRegMap(@Self)^.&set := $00001000;
  79046. end;
  79047. procedure TCAN1_C1FIFOCON18.clearDONLY; inline;
  79048. begin
  79049. pTDefRegMap(@Self)^.clr := $00001000;
  79050. end;
  79051. procedure TCAN1_C1FIFOCON18.setDONLY(thebits : TBits_1); inline;
  79052. begin
  79053. if thebits = 0 then
  79054. pTDefRegMap(@Self)^.clr := $00001000
  79055. else
  79056. pTDefRegMap(@Self)^.&set := $00001000;
  79057. end;
  79058. function TCAN1_C1FIFOCON18.getDONLY : TBits_1; inline;
  79059. begin
  79060. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  79061. end;
  79062. procedure TCAN1_C1FIFOCON18.setUINC; inline;
  79063. begin
  79064. pTDefRegMap(@Self)^.&set := $00002000;
  79065. end;
  79066. procedure TCAN1_C1FIFOCON18.clearUINC; inline;
  79067. begin
  79068. pTDefRegMap(@Self)^.clr := $00002000;
  79069. end;
  79070. procedure TCAN1_C1FIFOCON18.setUINC(thebits : TBits_1); inline;
  79071. begin
  79072. if thebits = 0 then
  79073. pTDefRegMap(@Self)^.clr := $00002000
  79074. else
  79075. pTDefRegMap(@Self)^.&set := $00002000;
  79076. end;
  79077. function TCAN1_C1FIFOCON18.getUINC : TBits_1; inline;
  79078. begin
  79079. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  79080. end;
  79081. procedure TCAN1_C1FIFOCON18.setFRESET; inline;
  79082. begin
  79083. pTDefRegMap(@Self)^.&set := $00004000;
  79084. end;
  79085. procedure TCAN1_C1FIFOCON18.clearFRESET; inline;
  79086. begin
  79087. pTDefRegMap(@Self)^.clr := $00004000;
  79088. end;
  79089. procedure TCAN1_C1FIFOCON18.setFRESET(thebits : TBits_1); inline;
  79090. begin
  79091. if thebits = 0 then
  79092. pTDefRegMap(@Self)^.clr := $00004000
  79093. else
  79094. pTDefRegMap(@Self)^.&set := $00004000;
  79095. end;
  79096. function TCAN1_C1FIFOCON18.getFRESET : TBits_1; inline;
  79097. begin
  79098. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  79099. end;
  79100. procedure TCAN1_C1FIFOCON18.setFSIZE(thebits : TBits_5); inline;
  79101. begin
  79102. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  79103. end;
  79104. function TCAN1_C1FIFOCON18.getFSIZE : TBits_5; inline;
  79105. begin
  79106. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  79107. end;
  79108. procedure TCAN1_C1FIFOCON18.setw(thebits : TBits_32); inline;
  79109. begin
  79110. pTDefRegMap(@Self)^.val := thebits;
  79111. end;
  79112. function TCAN1_C1FIFOCON18.getw : TBits_32; inline;
  79113. begin
  79114. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79115. end;
  79116. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIF; inline;
  79117. begin
  79118. pTDefRegMap(@Self)^.&set := $00000001;
  79119. end;
  79120. procedure TCAN1_C1FIFOINT18.clearRXNEMPTYIF; inline;
  79121. begin
  79122. pTDefRegMap(@Self)^.clr := $00000001;
  79123. end;
  79124. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIF(thebits : TBits_1); inline;
  79125. begin
  79126. if thebits = 0 then
  79127. pTDefRegMap(@Self)^.clr := $00000001
  79128. else
  79129. pTDefRegMap(@Self)^.&set := $00000001;
  79130. end;
  79131. function TCAN1_C1FIFOINT18.getRXNEMPTYIF : TBits_1; inline;
  79132. begin
  79133. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  79134. end;
  79135. procedure TCAN1_C1FIFOINT18.setRXHALFIF; inline;
  79136. begin
  79137. pTDefRegMap(@Self)^.&set := $00000002;
  79138. end;
  79139. procedure TCAN1_C1FIFOINT18.clearRXHALFIF; inline;
  79140. begin
  79141. pTDefRegMap(@Self)^.clr := $00000002;
  79142. end;
  79143. procedure TCAN1_C1FIFOINT18.setRXHALFIF(thebits : TBits_1); inline;
  79144. begin
  79145. if thebits = 0 then
  79146. pTDefRegMap(@Self)^.clr := $00000002
  79147. else
  79148. pTDefRegMap(@Self)^.&set := $00000002;
  79149. end;
  79150. function TCAN1_C1FIFOINT18.getRXHALFIF : TBits_1; inline;
  79151. begin
  79152. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79153. end;
  79154. procedure TCAN1_C1FIFOINT18.setRXFULLIF; inline;
  79155. begin
  79156. pTDefRegMap(@Self)^.&set := $00000004;
  79157. end;
  79158. procedure TCAN1_C1FIFOINT18.clearRXFULLIF; inline;
  79159. begin
  79160. pTDefRegMap(@Self)^.clr := $00000004;
  79161. end;
  79162. procedure TCAN1_C1FIFOINT18.setRXFULLIF(thebits : TBits_1); inline;
  79163. begin
  79164. if thebits = 0 then
  79165. pTDefRegMap(@Self)^.clr := $00000004
  79166. else
  79167. pTDefRegMap(@Self)^.&set := $00000004;
  79168. end;
  79169. function TCAN1_C1FIFOINT18.getRXFULLIF : TBits_1; inline;
  79170. begin
  79171. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79172. end;
  79173. procedure TCAN1_C1FIFOINT18.setRXOVFLIF; inline;
  79174. begin
  79175. pTDefRegMap(@Self)^.&set := $00000008;
  79176. end;
  79177. procedure TCAN1_C1FIFOINT18.clearRXOVFLIF; inline;
  79178. begin
  79179. pTDefRegMap(@Self)^.clr := $00000008;
  79180. end;
  79181. procedure TCAN1_C1FIFOINT18.setRXOVFLIF(thebits : TBits_1); inline;
  79182. begin
  79183. if thebits = 0 then
  79184. pTDefRegMap(@Self)^.clr := $00000008
  79185. else
  79186. pTDefRegMap(@Self)^.&set := $00000008;
  79187. end;
  79188. function TCAN1_C1FIFOINT18.getRXOVFLIF : TBits_1; inline;
  79189. begin
  79190. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79191. end;
  79192. procedure TCAN1_C1FIFOINT18.setTXEMPTYIF; inline;
  79193. begin
  79194. pTDefRegMap(@Self)^.&set := $00000100;
  79195. end;
  79196. procedure TCAN1_C1FIFOINT18.clearTXEMPTYIF; inline;
  79197. begin
  79198. pTDefRegMap(@Self)^.clr := $00000100;
  79199. end;
  79200. procedure TCAN1_C1FIFOINT18.setTXEMPTYIF(thebits : TBits_1); inline;
  79201. begin
  79202. if thebits = 0 then
  79203. pTDefRegMap(@Self)^.clr := $00000100
  79204. else
  79205. pTDefRegMap(@Self)^.&set := $00000100;
  79206. end;
  79207. function TCAN1_C1FIFOINT18.getTXEMPTYIF : TBits_1; inline;
  79208. begin
  79209. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  79210. end;
  79211. procedure TCAN1_C1FIFOINT18.setTXHALFIF; inline;
  79212. begin
  79213. pTDefRegMap(@Self)^.&set := $00000200;
  79214. end;
  79215. procedure TCAN1_C1FIFOINT18.clearTXHALFIF; inline;
  79216. begin
  79217. pTDefRegMap(@Self)^.clr := $00000200;
  79218. end;
  79219. procedure TCAN1_C1FIFOINT18.setTXHALFIF(thebits : TBits_1); inline;
  79220. begin
  79221. if thebits = 0 then
  79222. pTDefRegMap(@Self)^.clr := $00000200
  79223. else
  79224. pTDefRegMap(@Self)^.&set := $00000200;
  79225. end;
  79226. function TCAN1_C1FIFOINT18.getTXHALFIF : TBits_1; inline;
  79227. begin
  79228. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  79229. end;
  79230. procedure TCAN1_C1FIFOINT18.setTXNFULLIF; inline;
  79231. begin
  79232. pTDefRegMap(@Self)^.&set := $00000400;
  79233. end;
  79234. procedure TCAN1_C1FIFOINT18.clearTXNFULLIF; inline;
  79235. begin
  79236. pTDefRegMap(@Self)^.clr := $00000400;
  79237. end;
  79238. procedure TCAN1_C1FIFOINT18.setTXNFULLIF(thebits : TBits_1); inline;
  79239. begin
  79240. if thebits = 0 then
  79241. pTDefRegMap(@Self)^.clr := $00000400
  79242. else
  79243. pTDefRegMap(@Self)^.&set := $00000400;
  79244. end;
  79245. function TCAN1_C1FIFOINT18.getTXNFULLIF : TBits_1; inline;
  79246. begin
  79247. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  79248. end;
  79249. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIE; inline;
  79250. begin
  79251. pTDefRegMap(@Self)^.&set := $00010000;
  79252. end;
  79253. procedure TCAN1_C1FIFOINT18.clearRXNEMPTYIE; inline;
  79254. begin
  79255. pTDefRegMap(@Self)^.clr := $00010000;
  79256. end;
  79257. procedure TCAN1_C1FIFOINT18.setRXNEMPTYIE(thebits : TBits_1); inline;
  79258. begin
  79259. if thebits = 0 then
  79260. pTDefRegMap(@Self)^.clr := $00010000
  79261. else
  79262. pTDefRegMap(@Self)^.&set := $00010000;
  79263. end;
  79264. function TCAN1_C1FIFOINT18.getRXNEMPTYIE : TBits_1; inline;
  79265. begin
  79266. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  79267. end;
  79268. procedure TCAN1_C1FIFOINT18.setRXHALFIE; inline;
  79269. begin
  79270. pTDefRegMap(@Self)^.&set := $00020000;
  79271. end;
  79272. procedure TCAN1_C1FIFOINT18.clearRXHALFIE; inline;
  79273. begin
  79274. pTDefRegMap(@Self)^.clr := $00020000;
  79275. end;
  79276. procedure TCAN1_C1FIFOINT18.setRXHALFIE(thebits : TBits_1); inline;
  79277. begin
  79278. if thebits = 0 then
  79279. pTDefRegMap(@Self)^.clr := $00020000
  79280. else
  79281. pTDefRegMap(@Self)^.&set := $00020000;
  79282. end;
  79283. function TCAN1_C1FIFOINT18.getRXHALFIE : TBits_1; inline;
  79284. begin
  79285. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  79286. end;
  79287. procedure TCAN1_C1FIFOINT18.setRXFULLIE; inline;
  79288. begin
  79289. pTDefRegMap(@Self)^.&set := $00040000;
  79290. end;
  79291. procedure TCAN1_C1FIFOINT18.clearRXFULLIE; inline;
  79292. begin
  79293. pTDefRegMap(@Self)^.clr := $00040000;
  79294. end;
  79295. procedure TCAN1_C1FIFOINT18.setRXFULLIE(thebits : TBits_1); inline;
  79296. begin
  79297. if thebits = 0 then
  79298. pTDefRegMap(@Self)^.clr := $00040000
  79299. else
  79300. pTDefRegMap(@Self)^.&set := $00040000;
  79301. end;
  79302. function TCAN1_C1FIFOINT18.getRXFULLIE : TBits_1; inline;
  79303. begin
  79304. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  79305. end;
  79306. procedure TCAN1_C1FIFOINT18.setRXOVFLIE; inline;
  79307. begin
  79308. pTDefRegMap(@Self)^.&set := $00080000;
  79309. end;
  79310. procedure TCAN1_C1FIFOINT18.clearRXOVFLIE; inline;
  79311. begin
  79312. pTDefRegMap(@Self)^.clr := $00080000;
  79313. end;
  79314. procedure TCAN1_C1FIFOINT18.setRXOVFLIE(thebits : TBits_1); inline;
  79315. begin
  79316. if thebits = 0 then
  79317. pTDefRegMap(@Self)^.clr := $00080000
  79318. else
  79319. pTDefRegMap(@Self)^.&set := $00080000;
  79320. end;
  79321. function TCAN1_C1FIFOINT18.getRXOVFLIE : TBits_1; inline;
  79322. begin
  79323. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  79324. end;
  79325. procedure TCAN1_C1FIFOINT18.setTXEMPTYIE; inline;
  79326. begin
  79327. pTDefRegMap(@Self)^.&set := $01000000;
  79328. end;
  79329. procedure TCAN1_C1FIFOINT18.clearTXEMPTYIE; inline;
  79330. begin
  79331. pTDefRegMap(@Self)^.clr := $01000000;
  79332. end;
  79333. procedure TCAN1_C1FIFOINT18.setTXEMPTYIE(thebits : TBits_1); inline;
  79334. begin
  79335. if thebits = 0 then
  79336. pTDefRegMap(@Self)^.clr := $01000000
  79337. else
  79338. pTDefRegMap(@Self)^.&set := $01000000;
  79339. end;
  79340. function TCAN1_C1FIFOINT18.getTXEMPTYIE : TBits_1; inline;
  79341. begin
  79342. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  79343. end;
  79344. procedure TCAN1_C1FIFOINT18.setTXHALFIE; inline;
  79345. begin
  79346. pTDefRegMap(@Self)^.&set := $02000000;
  79347. end;
  79348. procedure TCAN1_C1FIFOINT18.clearTXHALFIE; inline;
  79349. begin
  79350. pTDefRegMap(@Self)^.clr := $02000000;
  79351. end;
  79352. procedure TCAN1_C1FIFOINT18.setTXHALFIE(thebits : TBits_1); inline;
  79353. begin
  79354. if thebits = 0 then
  79355. pTDefRegMap(@Self)^.clr := $02000000
  79356. else
  79357. pTDefRegMap(@Self)^.&set := $02000000;
  79358. end;
  79359. function TCAN1_C1FIFOINT18.getTXHALFIE : TBits_1; inline;
  79360. begin
  79361. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  79362. end;
  79363. procedure TCAN1_C1FIFOINT18.setTXNFULLIE; inline;
  79364. begin
  79365. pTDefRegMap(@Self)^.&set := $04000000;
  79366. end;
  79367. procedure TCAN1_C1FIFOINT18.clearTXNFULLIE; inline;
  79368. begin
  79369. pTDefRegMap(@Self)^.clr := $04000000;
  79370. end;
  79371. procedure TCAN1_C1FIFOINT18.setTXNFULLIE(thebits : TBits_1); inline;
  79372. begin
  79373. if thebits = 0 then
  79374. pTDefRegMap(@Self)^.clr := $04000000
  79375. else
  79376. pTDefRegMap(@Self)^.&set := $04000000;
  79377. end;
  79378. function TCAN1_C1FIFOINT18.getTXNFULLIE : TBits_1; inline;
  79379. begin
  79380. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  79381. end;
  79382. procedure TCAN1_C1FIFOINT18.setw(thebits : TBits_32); inline;
  79383. begin
  79384. pTDefRegMap(@Self)^.val := thebits;
  79385. end;
  79386. function TCAN1_C1FIFOINT18.getw : TBits_32; inline;
  79387. begin
  79388. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79389. end;
  79390. procedure TCAN1_C1FIFOCI18.setCFIFOCI(thebits : TBits_5); inline;
  79391. begin
  79392. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  79393. end;
  79394. function TCAN1_C1FIFOCI18.getCFIFOCI : TBits_5; inline;
  79395. begin
  79396. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  79397. end;
  79398. procedure TCAN1_C1FIFOCI18.setw(thebits : TBits_32); inline;
  79399. begin
  79400. pTDefRegMap(@Self)^.val := thebits;
  79401. end;
  79402. function TCAN1_C1FIFOCI18.getw : TBits_32; inline;
  79403. begin
  79404. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79405. end;
  79406. procedure TCAN1_C1FIFOCON19.setTXPRI(thebits : TBits_2); inline;
  79407. begin
  79408. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  79409. end;
  79410. function TCAN1_C1FIFOCON19.getTXPRI : TBits_2; inline;
  79411. begin
  79412. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  79413. end;
  79414. procedure TCAN1_C1FIFOCON19.setRTREN; inline;
  79415. begin
  79416. pTDefRegMap(@Self)^.&set := $00000004;
  79417. end;
  79418. procedure TCAN1_C1FIFOCON19.clearRTREN; inline;
  79419. begin
  79420. pTDefRegMap(@Self)^.clr := $00000004;
  79421. end;
  79422. procedure TCAN1_C1FIFOCON19.setRTREN(thebits : TBits_1); inline;
  79423. begin
  79424. if thebits = 0 then
  79425. pTDefRegMap(@Self)^.clr := $00000004
  79426. else
  79427. pTDefRegMap(@Self)^.&set := $00000004;
  79428. end;
  79429. function TCAN1_C1FIFOCON19.getRTREN : TBits_1; inline;
  79430. begin
  79431. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79432. end;
  79433. procedure TCAN1_C1FIFOCON19.setTXREQ; inline;
  79434. begin
  79435. pTDefRegMap(@Self)^.&set := $00000008;
  79436. end;
  79437. procedure TCAN1_C1FIFOCON19.clearTXREQ; inline;
  79438. begin
  79439. pTDefRegMap(@Self)^.clr := $00000008;
  79440. end;
  79441. procedure TCAN1_C1FIFOCON19.setTXREQ(thebits : TBits_1); inline;
  79442. begin
  79443. if thebits = 0 then
  79444. pTDefRegMap(@Self)^.clr := $00000008
  79445. else
  79446. pTDefRegMap(@Self)^.&set := $00000008;
  79447. end;
  79448. function TCAN1_C1FIFOCON19.getTXREQ : TBits_1; inline;
  79449. begin
  79450. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79451. end;
  79452. procedure TCAN1_C1FIFOCON19.setTXERR; inline;
  79453. begin
  79454. pTDefRegMap(@Self)^.&set := $00000010;
  79455. end;
  79456. procedure TCAN1_C1FIFOCON19.clearTXERR; inline;
  79457. begin
  79458. pTDefRegMap(@Self)^.clr := $00000010;
  79459. end;
  79460. procedure TCAN1_C1FIFOCON19.setTXERR(thebits : TBits_1); inline;
  79461. begin
  79462. if thebits = 0 then
  79463. pTDefRegMap(@Self)^.clr := $00000010
  79464. else
  79465. pTDefRegMap(@Self)^.&set := $00000010;
  79466. end;
  79467. function TCAN1_C1FIFOCON19.getTXERR : TBits_1; inline;
  79468. begin
  79469. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  79470. end;
  79471. procedure TCAN1_C1FIFOCON19.setTXLARB; inline;
  79472. begin
  79473. pTDefRegMap(@Self)^.&set := $00000020;
  79474. end;
  79475. procedure TCAN1_C1FIFOCON19.clearTXLARB; inline;
  79476. begin
  79477. pTDefRegMap(@Self)^.clr := $00000020;
  79478. end;
  79479. procedure TCAN1_C1FIFOCON19.setTXLARB(thebits : TBits_1); inline;
  79480. begin
  79481. if thebits = 0 then
  79482. pTDefRegMap(@Self)^.clr := $00000020
  79483. else
  79484. pTDefRegMap(@Self)^.&set := $00000020;
  79485. end;
  79486. function TCAN1_C1FIFOCON19.getTXLARB : TBits_1; inline;
  79487. begin
  79488. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79489. end;
  79490. procedure TCAN1_C1FIFOCON19.setTXABAT; inline;
  79491. begin
  79492. pTDefRegMap(@Self)^.&set := $00000040;
  79493. end;
  79494. procedure TCAN1_C1FIFOCON19.clearTXABAT; inline;
  79495. begin
  79496. pTDefRegMap(@Self)^.clr := $00000040;
  79497. end;
  79498. procedure TCAN1_C1FIFOCON19.setTXABAT(thebits : TBits_1); inline;
  79499. begin
  79500. if thebits = 0 then
  79501. pTDefRegMap(@Self)^.clr := $00000040
  79502. else
  79503. pTDefRegMap(@Self)^.&set := $00000040;
  79504. end;
  79505. function TCAN1_C1FIFOCON19.getTXABAT : TBits_1; inline;
  79506. begin
  79507. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79508. end;
  79509. procedure TCAN1_C1FIFOCON19.setTXEN; inline;
  79510. begin
  79511. pTDefRegMap(@Self)^.&set := $00000080;
  79512. end;
  79513. procedure TCAN1_C1FIFOCON19.clearTXEN; inline;
  79514. begin
  79515. pTDefRegMap(@Self)^.clr := $00000080;
  79516. end;
  79517. procedure TCAN1_C1FIFOCON19.setTXEN(thebits : TBits_1); inline;
  79518. begin
  79519. if thebits = 0 then
  79520. pTDefRegMap(@Self)^.clr := $00000080
  79521. else
  79522. pTDefRegMap(@Self)^.&set := $00000080;
  79523. end;
  79524. function TCAN1_C1FIFOCON19.getTXEN : TBits_1; inline;
  79525. begin
  79526. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  79527. end;
  79528. procedure TCAN1_C1FIFOCON19.setDONLY; inline;
  79529. begin
  79530. pTDefRegMap(@Self)^.&set := $00001000;
  79531. end;
  79532. procedure TCAN1_C1FIFOCON19.clearDONLY; inline;
  79533. begin
  79534. pTDefRegMap(@Self)^.clr := $00001000;
  79535. end;
  79536. procedure TCAN1_C1FIFOCON19.setDONLY(thebits : TBits_1); inline;
  79537. begin
  79538. if thebits = 0 then
  79539. pTDefRegMap(@Self)^.clr := $00001000
  79540. else
  79541. pTDefRegMap(@Self)^.&set := $00001000;
  79542. end;
  79543. function TCAN1_C1FIFOCON19.getDONLY : TBits_1; inline;
  79544. begin
  79545. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  79546. end;
  79547. procedure TCAN1_C1FIFOCON19.setUINC; inline;
  79548. begin
  79549. pTDefRegMap(@Self)^.&set := $00002000;
  79550. end;
  79551. procedure TCAN1_C1FIFOCON19.clearUINC; inline;
  79552. begin
  79553. pTDefRegMap(@Self)^.clr := $00002000;
  79554. end;
  79555. procedure TCAN1_C1FIFOCON19.setUINC(thebits : TBits_1); inline;
  79556. begin
  79557. if thebits = 0 then
  79558. pTDefRegMap(@Self)^.clr := $00002000
  79559. else
  79560. pTDefRegMap(@Self)^.&set := $00002000;
  79561. end;
  79562. function TCAN1_C1FIFOCON19.getUINC : TBits_1; inline;
  79563. begin
  79564. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  79565. end;
  79566. procedure TCAN1_C1FIFOCON19.setFRESET; inline;
  79567. begin
  79568. pTDefRegMap(@Self)^.&set := $00004000;
  79569. end;
  79570. procedure TCAN1_C1FIFOCON19.clearFRESET; inline;
  79571. begin
  79572. pTDefRegMap(@Self)^.clr := $00004000;
  79573. end;
  79574. procedure TCAN1_C1FIFOCON19.setFRESET(thebits : TBits_1); inline;
  79575. begin
  79576. if thebits = 0 then
  79577. pTDefRegMap(@Self)^.clr := $00004000
  79578. else
  79579. pTDefRegMap(@Self)^.&set := $00004000;
  79580. end;
  79581. function TCAN1_C1FIFOCON19.getFRESET : TBits_1; inline;
  79582. begin
  79583. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  79584. end;
  79585. procedure TCAN1_C1FIFOCON19.setFSIZE(thebits : TBits_5); inline;
  79586. begin
  79587. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  79588. end;
  79589. function TCAN1_C1FIFOCON19.getFSIZE : TBits_5; inline;
  79590. begin
  79591. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  79592. end;
  79593. procedure TCAN1_C1FIFOCON19.setw(thebits : TBits_32); inline;
  79594. begin
  79595. pTDefRegMap(@Self)^.val := thebits;
  79596. end;
  79597. function TCAN1_C1FIFOCON19.getw : TBits_32; inline;
  79598. begin
  79599. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79600. end;
  79601. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIF; inline;
  79602. begin
  79603. pTDefRegMap(@Self)^.&set := $00000001;
  79604. end;
  79605. procedure TCAN1_C1FIFOINT19.clearRXNEMPTYIF; inline;
  79606. begin
  79607. pTDefRegMap(@Self)^.clr := $00000001;
  79608. end;
  79609. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIF(thebits : TBits_1); inline;
  79610. begin
  79611. if thebits = 0 then
  79612. pTDefRegMap(@Self)^.clr := $00000001
  79613. else
  79614. pTDefRegMap(@Self)^.&set := $00000001;
  79615. end;
  79616. function TCAN1_C1FIFOINT19.getRXNEMPTYIF : TBits_1; inline;
  79617. begin
  79618. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  79619. end;
  79620. procedure TCAN1_C1FIFOINT19.setRXHALFIF; inline;
  79621. begin
  79622. pTDefRegMap(@Self)^.&set := $00000002;
  79623. end;
  79624. procedure TCAN1_C1FIFOINT19.clearRXHALFIF; inline;
  79625. begin
  79626. pTDefRegMap(@Self)^.clr := $00000002;
  79627. end;
  79628. procedure TCAN1_C1FIFOINT19.setRXHALFIF(thebits : TBits_1); inline;
  79629. begin
  79630. if thebits = 0 then
  79631. pTDefRegMap(@Self)^.clr := $00000002
  79632. else
  79633. pTDefRegMap(@Self)^.&set := $00000002;
  79634. end;
  79635. function TCAN1_C1FIFOINT19.getRXHALFIF : TBits_1; inline;
  79636. begin
  79637. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  79638. end;
  79639. procedure TCAN1_C1FIFOINT19.setRXFULLIF; inline;
  79640. begin
  79641. pTDefRegMap(@Self)^.&set := $00000004;
  79642. end;
  79643. procedure TCAN1_C1FIFOINT19.clearRXFULLIF; inline;
  79644. begin
  79645. pTDefRegMap(@Self)^.clr := $00000004;
  79646. end;
  79647. procedure TCAN1_C1FIFOINT19.setRXFULLIF(thebits : TBits_1); inline;
  79648. begin
  79649. if thebits = 0 then
  79650. pTDefRegMap(@Self)^.clr := $00000004
  79651. else
  79652. pTDefRegMap(@Self)^.&set := $00000004;
  79653. end;
  79654. function TCAN1_C1FIFOINT19.getRXFULLIF : TBits_1; inline;
  79655. begin
  79656. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79657. end;
  79658. procedure TCAN1_C1FIFOINT19.setRXOVFLIF; inline;
  79659. begin
  79660. pTDefRegMap(@Self)^.&set := $00000008;
  79661. end;
  79662. procedure TCAN1_C1FIFOINT19.clearRXOVFLIF; inline;
  79663. begin
  79664. pTDefRegMap(@Self)^.clr := $00000008;
  79665. end;
  79666. procedure TCAN1_C1FIFOINT19.setRXOVFLIF(thebits : TBits_1); inline;
  79667. begin
  79668. if thebits = 0 then
  79669. pTDefRegMap(@Self)^.clr := $00000008
  79670. else
  79671. pTDefRegMap(@Self)^.&set := $00000008;
  79672. end;
  79673. function TCAN1_C1FIFOINT19.getRXOVFLIF : TBits_1; inline;
  79674. begin
  79675. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79676. end;
  79677. procedure TCAN1_C1FIFOINT19.setTXEMPTYIF; inline;
  79678. begin
  79679. pTDefRegMap(@Self)^.&set := $00000100;
  79680. end;
  79681. procedure TCAN1_C1FIFOINT19.clearTXEMPTYIF; inline;
  79682. begin
  79683. pTDefRegMap(@Self)^.clr := $00000100;
  79684. end;
  79685. procedure TCAN1_C1FIFOINT19.setTXEMPTYIF(thebits : TBits_1); inline;
  79686. begin
  79687. if thebits = 0 then
  79688. pTDefRegMap(@Self)^.clr := $00000100
  79689. else
  79690. pTDefRegMap(@Self)^.&set := $00000100;
  79691. end;
  79692. function TCAN1_C1FIFOINT19.getTXEMPTYIF : TBits_1; inline;
  79693. begin
  79694. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  79695. end;
  79696. procedure TCAN1_C1FIFOINT19.setTXHALFIF; inline;
  79697. begin
  79698. pTDefRegMap(@Self)^.&set := $00000200;
  79699. end;
  79700. procedure TCAN1_C1FIFOINT19.clearTXHALFIF; inline;
  79701. begin
  79702. pTDefRegMap(@Self)^.clr := $00000200;
  79703. end;
  79704. procedure TCAN1_C1FIFOINT19.setTXHALFIF(thebits : TBits_1); inline;
  79705. begin
  79706. if thebits = 0 then
  79707. pTDefRegMap(@Self)^.clr := $00000200
  79708. else
  79709. pTDefRegMap(@Self)^.&set := $00000200;
  79710. end;
  79711. function TCAN1_C1FIFOINT19.getTXHALFIF : TBits_1; inline;
  79712. begin
  79713. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  79714. end;
  79715. procedure TCAN1_C1FIFOINT19.setTXNFULLIF; inline;
  79716. begin
  79717. pTDefRegMap(@Self)^.&set := $00000400;
  79718. end;
  79719. procedure TCAN1_C1FIFOINT19.clearTXNFULLIF; inline;
  79720. begin
  79721. pTDefRegMap(@Self)^.clr := $00000400;
  79722. end;
  79723. procedure TCAN1_C1FIFOINT19.setTXNFULLIF(thebits : TBits_1); inline;
  79724. begin
  79725. if thebits = 0 then
  79726. pTDefRegMap(@Self)^.clr := $00000400
  79727. else
  79728. pTDefRegMap(@Self)^.&set := $00000400;
  79729. end;
  79730. function TCAN1_C1FIFOINT19.getTXNFULLIF : TBits_1; inline;
  79731. begin
  79732. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  79733. end;
  79734. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIE; inline;
  79735. begin
  79736. pTDefRegMap(@Self)^.&set := $00010000;
  79737. end;
  79738. procedure TCAN1_C1FIFOINT19.clearRXNEMPTYIE; inline;
  79739. begin
  79740. pTDefRegMap(@Self)^.clr := $00010000;
  79741. end;
  79742. procedure TCAN1_C1FIFOINT19.setRXNEMPTYIE(thebits : TBits_1); inline;
  79743. begin
  79744. if thebits = 0 then
  79745. pTDefRegMap(@Self)^.clr := $00010000
  79746. else
  79747. pTDefRegMap(@Self)^.&set := $00010000;
  79748. end;
  79749. function TCAN1_C1FIFOINT19.getRXNEMPTYIE : TBits_1; inline;
  79750. begin
  79751. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  79752. end;
  79753. procedure TCAN1_C1FIFOINT19.setRXHALFIE; inline;
  79754. begin
  79755. pTDefRegMap(@Self)^.&set := $00020000;
  79756. end;
  79757. procedure TCAN1_C1FIFOINT19.clearRXHALFIE; inline;
  79758. begin
  79759. pTDefRegMap(@Self)^.clr := $00020000;
  79760. end;
  79761. procedure TCAN1_C1FIFOINT19.setRXHALFIE(thebits : TBits_1); inline;
  79762. begin
  79763. if thebits = 0 then
  79764. pTDefRegMap(@Self)^.clr := $00020000
  79765. else
  79766. pTDefRegMap(@Self)^.&set := $00020000;
  79767. end;
  79768. function TCAN1_C1FIFOINT19.getRXHALFIE : TBits_1; inline;
  79769. begin
  79770. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  79771. end;
  79772. procedure TCAN1_C1FIFOINT19.setRXFULLIE; inline;
  79773. begin
  79774. pTDefRegMap(@Self)^.&set := $00040000;
  79775. end;
  79776. procedure TCAN1_C1FIFOINT19.clearRXFULLIE; inline;
  79777. begin
  79778. pTDefRegMap(@Self)^.clr := $00040000;
  79779. end;
  79780. procedure TCAN1_C1FIFOINT19.setRXFULLIE(thebits : TBits_1); inline;
  79781. begin
  79782. if thebits = 0 then
  79783. pTDefRegMap(@Self)^.clr := $00040000
  79784. else
  79785. pTDefRegMap(@Self)^.&set := $00040000;
  79786. end;
  79787. function TCAN1_C1FIFOINT19.getRXFULLIE : TBits_1; inline;
  79788. begin
  79789. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  79790. end;
  79791. procedure TCAN1_C1FIFOINT19.setRXOVFLIE; inline;
  79792. begin
  79793. pTDefRegMap(@Self)^.&set := $00080000;
  79794. end;
  79795. procedure TCAN1_C1FIFOINT19.clearRXOVFLIE; inline;
  79796. begin
  79797. pTDefRegMap(@Self)^.clr := $00080000;
  79798. end;
  79799. procedure TCAN1_C1FIFOINT19.setRXOVFLIE(thebits : TBits_1); inline;
  79800. begin
  79801. if thebits = 0 then
  79802. pTDefRegMap(@Self)^.clr := $00080000
  79803. else
  79804. pTDefRegMap(@Self)^.&set := $00080000;
  79805. end;
  79806. function TCAN1_C1FIFOINT19.getRXOVFLIE : TBits_1; inline;
  79807. begin
  79808. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  79809. end;
  79810. procedure TCAN1_C1FIFOINT19.setTXEMPTYIE; inline;
  79811. begin
  79812. pTDefRegMap(@Self)^.&set := $01000000;
  79813. end;
  79814. procedure TCAN1_C1FIFOINT19.clearTXEMPTYIE; inline;
  79815. begin
  79816. pTDefRegMap(@Self)^.clr := $01000000;
  79817. end;
  79818. procedure TCAN1_C1FIFOINT19.setTXEMPTYIE(thebits : TBits_1); inline;
  79819. begin
  79820. if thebits = 0 then
  79821. pTDefRegMap(@Self)^.clr := $01000000
  79822. else
  79823. pTDefRegMap(@Self)^.&set := $01000000;
  79824. end;
  79825. function TCAN1_C1FIFOINT19.getTXEMPTYIE : TBits_1; inline;
  79826. begin
  79827. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  79828. end;
  79829. procedure TCAN1_C1FIFOINT19.setTXHALFIE; inline;
  79830. begin
  79831. pTDefRegMap(@Self)^.&set := $02000000;
  79832. end;
  79833. procedure TCAN1_C1FIFOINT19.clearTXHALFIE; inline;
  79834. begin
  79835. pTDefRegMap(@Self)^.clr := $02000000;
  79836. end;
  79837. procedure TCAN1_C1FIFOINT19.setTXHALFIE(thebits : TBits_1); inline;
  79838. begin
  79839. if thebits = 0 then
  79840. pTDefRegMap(@Self)^.clr := $02000000
  79841. else
  79842. pTDefRegMap(@Self)^.&set := $02000000;
  79843. end;
  79844. function TCAN1_C1FIFOINT19.getTXHALFIE : TBits_1; inline;
  79845. begin
  79846. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  79847. end;
  79848. procedure TCAN1_C1FIFOINT19.setTXNFULLIE; inline;
  79849. begin
  79850. pTDefRegMap(@Self)^.&set := $04000000;
  79851. end;
  79852. procedure TCAN1_C1FIFOINT19.clearTXNFULLIE; inline;
  79853. begin
  79854. pTDefRegMap(@Self)^.clr := $04000000;
  79855. end;
  79856. procedure TCAN1_C1FIFOINT19.setTXNFULLIE(thebits : TBits_1); inline;
  79857. begin
  79858. if thebits = 0 then
  79859. pTDefRegMap(@Self)^.clr := $04000000
  79860. else
  79861. pTDefRegMap(@Self)^.&set := $04000000;
  79862. end;
  79863. function TCAN1_C1FIFOINT19.getTXNFULLIE : TBits_1; inline;
  79864. begin
  79865. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  79866. end;
  79867. procedure TCAN1_C1FIFOINT19.setw(thebits : TBits_32); inline;
  79868. begin
  79869. pTDefRegMap(@Self)^.val := thebits;
  79870. end;
  79871. function TCAN1_C1FIFOINT19.getw : TBits_32; inline;
  79872. begin
  79873. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79874. end;
  79875. procedure TCAN1_C1FIFOCI19.setCFIFOCI(thebits : TBits_5); inline;
  79876. begin
  79877. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  79878. end;
  79879. function TCAN1_C1FIFOCI19.getCFIFOCI : TBits_5; inline;
  79880. begin
  79881. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  79882. end;
  79883. procedure TCAN1_C1FIFOCI19.setw(thebits : TBits_32); inline;
  79884. begin
  79885. pTDefRegMap(@Self)^.val := thebits;
  79886. end;
  79887. function TCAN1_C1FIFOCI19.getw : TBits_32; inline;
  79888. begin
  79889. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  79890. end;
  79891. procedure TCAN1_C1FIFOCON20.setTXPRI(thebits : TBits_2); inline;
  79892. begin
  79893. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  79894. end;
  79895. function TCAN1_C1FIFOCON20.getTXPRI : TBits_2; inline;
  79896. begin
  79897. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  79898. end;
  79899. procedure TCAN1_C1FIFOCON20.setRTREN; inline;
  79900. begin
  79901. pTDefRegMap(@Self)^.&set := $00000004;
  79902. end;
  79903. procedure TCAN1_C1FIFOCON20.clearRTREN; inline;
  79904. begin
  79905. pTDefRegMap(@Self)^.clr := $00000004;
  79906. end;
  79907. procedure TCAN1_C1FIFOCON20.setRTREN(thebits : TBits_1); inline;
  79908. begin
  79909. if thebits = 0 then
  79910. pTDefRegMap(@Self)^.clr := $00000004
  79911. else
  79912. pTDefRegMap(@Self)^.&set := $00000004;
  79913. end;
  79914. function TCAN1_C1FIFOCON20.getRTREN : TBits_1; inline;
  79915. begin
  79916. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  79917. end;
  79918. procedure TCAN1_C1FIFOCON20.setTXREQ; inline;
  79919. begin
  79920. pTDefRegMap(@Self)^.&set := $00000008;
  79921. end;
  79922. procedure TCAN1_C1FIFOCON20.clearTXREQ; inline;
  79923. begin
  79924. pTDefRegMap(@Self)^.clr := $00000008;
  79925. end;
  79926. procedure TCAN1_C1FIFOCON20.setTXREQ(thebits : TBits_1); inline;
  79927. begin
  79928. if thebits = 0 then
  79929. pTDefRegMap(@Self)^.clr := $00000008
  79930. else
  79931. pTDefRegMap(@Self)^.&set := $00000008;
  79932. end;
  79933. function TCAN1_C1FIFOCON20.getTXREQ : TBits_1; inline;
  79934. begin
  79935. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  79936. end;
  79937. procedure TCAN1_C1FIFOCON20.setTXERR; inline;
  79938. begin
  79939. pTDefRegMap(@Self)^.&set := $00000010;
  79940. end;
  79941. procedure TCAN1_C1FIFOCON20.clearTXERR; inline;
  79942. begin
  79943. pTDefRegMap(@Self)^.clr := $00000010;
  79944. end;
  79945. procedure TCAN1_C1FIFOCON20.setTXERR(thebits : TBits_1); inline;
  79946. begin
  79947. if thebits = 0 then
  79948. pTDefRegMap(@Self)^.clr := $00000010
  79949. else
  79950. pTDefRegMap(@Self)^.&set := $00000010;
  79951. end;
  79952. function TCAN1_C1FIFOCON20.getTXERR : TBits_1; inline;
  79953. begin
  79954. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  79955. end;
  79956. procedure TCAN1_C1FIFOCON20.setTXLARB; inline;
  79957. begin
  79958. pTDefRegMap(@Self)^.&set := $00000020;
  79959. end;
  79960. procedure TCAN1_C1FIFOCON20.clearTXLARB; inline;
  79961. begin
  79962. pTDefRegMap(@Self)^.clr := $00000020;
  79963. end;
  79964. procedure TCAN1_C1FIFOCON20.setTXLARB(thebits : TBits_1); inline;
  79965. begin
  79966. if thebits = 0 then
  79967. pTDefRegMap(@Self)^.clr := $00000020
  79968. else
  79969. pTDefRegMap(@Self)^.&set := $00000020;
  79970. end;
  79971. function TCAN1_C1FIFOCON20.getTXLARB : TBits_1; inline;
  79972. begin
  79973. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  79974. end;
  79975. procedure TCAN1_C1FIFOCON20.setTXABAT; inline;
  79976. begin
  79977. pTDefRegMap(@Self)^.&set := $00000040;
  79978. end;
  79979. procedure TCAN1_C1FIFOCON20.clearTXABAT; inline;
  79980. begin
  79981. pTDefRegMap(@Self)^.clr := $00000040;
  79982. end;
  79983. procedure TCAN1_C1FIFOCON20.setTXABAT(thebits : TBits_1); inline;
  79984. begin
  79985. if thebits = 0 then
  79986. pTDefRegMap(@Self)^.clr := $00000040
  79987. else
  79988. pTDefRegMap(@Self)^.&set := $00000040;
  79989. end;
  79990. function TCAN1_C1FIFOCON20.getTXABAT : TBits_1; inline;
  79991. begin
  79992. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  79993. end;
  79994. procedure TCAN1_C1FIFOCON20.setTXEN; inline;
  79995. begin
  79996. pTDefRegMap(@Self)^.&set := $00000080;
  79997. end;
  79998. procedure TCAN1_C1FIFOCON20.clearTXEN; inline;
  79999. begin
  80000. pTDefRegMap(@Self)^.clr := $00000080;
  80001. end;
  80002. procedure TCAN1_C1FIFOCON20.setTXEN(thebits : TBits_1); inline;
  80003. begin
  80004. if thebits = 0 then
  80005. pTDefRegMap(@Self)^.clr := $00000080
  80006. else
  80007. pTDefRegMap(@Self)^.&set := $00000080;
  80008. end;
  80009. function TCAN1_C1FIFOCON20.getTXEN : TBits_1; inline;
  80010. begin
  80011. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80012. end;
  80013. procedure TCAN1_C1FIFOCON20.setDONLY; inline;
  80014. begin
  80015. pTDefRegMap(@Self)^.&set := $00001000;
  80016. end;
  80017. procedure TCAN1_C1FIFOCON20.clearDONLY; inline;
  80018. begin
  80019. pTDefRegMap(@Self)^.clr := $00001000;
  80020. end;
  80021. procedure TCAN1_C1FIFOCON20.setDONLY(thebits : TBits_1); inline;
  80022. begin
  80023. if thebits = 0 then
  80024. pTDefRegMap(@Self)^.clr := $00001000
  80025. else
  80026. pTDefRegMap(@Self)^.&set := $00001000;
  80027. end;
  80028. function TCAN1_C1FIFOCON20.getDONLY : TBits_1; inline;
  80029. begin
  80030. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  80031. end;
  80032. procedure TCAN1_C1FIFOCON20.setUINC; inline;
  80033. begin
  80034. pTDefRegMap(@Self)^.&set := $00002000;
  80035. end;
  80036. procedure TCAN1_C1FIFOCON20.clearUINC; inline;
  80037. begin
  80038. pTDefRegMap(@Self)^.clr := $00002000;
  80039. end;
  80040. procedure TCAN1_C1FIFOCON20.setUINC(thebits : TBits_1); inline;
  80041. begin
  80042. if thebits = 0 then
  80043. pTDefRegMap(@Self)^.clr := $00002000
  80044. else
  80045. pTDefRegMap(@Self)^.&set := $00002000;
  80046. end;
  80047. function TCAN1_C1FIFOCON20.getUINC : TBits_1; inline;
  80048. begin
  80049. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  80050. end;
  80051. procedure TCAN1_C1FIFOCON20.setFRESET; inline;
  80052. begin
  80053. pTDefRegMap(@Self)^.&set := $00004000;
  80054. end;
  80055. procedure TCAN1_C1FIFOCON20.clearFRESET; inline;
  80056. begin
  80057. pTDefRegMap(@Self)^.clr := $00004000;
  80058. end;
  80059. procedure TCAN1_C1FIFOCON20.setFRESET(thebits : TBits_1); inline;
  80060. begin
  80061. if thebits = 0 then
  80062. pTDefRegMap(@Self)^.clr := $00004000
  80063. else
  80064. pTDefRegMap(@Self)^.&set := $00004000;
  80065. end;
  80066. function TCAN1_C1FIFOCON20.getFRESET : TBits_1; inline;
  80067. begin
  80068. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  80069. end;
  80070. procedure TCAN1_C1FIFOCON20.setFSIZE(thebits : TBits_5); inline;
  80071. begin
  80072. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  80073. end;
  80074. function TCAN1_C1FIFOCON20.getFSIZE : TBits_5; inline;
  80075. begin
  80076. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  80077. end;
  80078. procedure TCAN1_C1FIFOCON20.setw(thebits : TBits_32); inline;
  80079. begin
  80080. pTDefRegMap(@Self)^.val := thebits;
  80081. end;
  80082. function TCAN1_C1FIFOCON20.getw : TBits_32; inline;
  80083. begin
  80084. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80085. end;
  80086. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIF; inline;
  80087. begin
  80088. pTDefRegMap(@Self)^.&set := $00000001;
  80089. end;
  80090. procedure TCAN1_C1FIFOINT20.clearRXNEMPTYIF; inline;
  80091. begin
  80092. pTDefRegMap(@Self)^.clr := $00000001;
  80093. end;
  80094. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIF(thebits : TBits_1); inline;
  80095. begin
  80096. if thebits = 0 then
  80097. pTDefRegMap(@Self)^.clr := $00000001
  80098. else
  80099. pTDefRegMap(@Self)^.&set := $00000001;
  80100. end;
  80101. function TCAN1_C1FIFOINT20.getRXNEMPTYIF : TBits_1; inline;
  80102. begin
  80103. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  80104. end;
  80105. procedure TCAN1_C1FIFOINT20.setRXHALFIF; inline;
  80106. begin
  80107. pTDefRegMap(@Self)^.&set := $00000002;
  80108. end;
  80109. procedure TCAN1_C1FIFOINT20.clearRXHALFIF; inline;
  80110. begin
  80111. pTDefRegMap(@Self)^.clr := $00000002;
  80112. end;
  80113. procedure TCAN1_C1FIFOINT20.setRXHALFIF(thebits : TBits_1); inline;
  80114. begin
  80115. if thebits = 0 then
  80116. pTDefRegMap(@Self)^.clr := $00000002
  80117. else
  80118. pTDefRegMap(@Self)^.&set := $00000002;
  80119. end;
  80120. function TCAN1_C1FIFOINT20.getRXHALFIF : TBits_1; inline;
  80121. begin
  80122. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  80123. end;
  80124. procedure TCAN1_C1FIFOINT20.setRXFULLIF; inline;
  80125. begin
  80126. pTDefRegMap(@Self)^.&set := $00000004;
  80127. end;
  80128. procedure TCAN1_C1FIFOINT20.clearRXFULLIF; inline;
  80129. begin
  80130. pTDefRegMap(@Self)^.clr := $00000004;
  80131. end;
  80132. procedure TCAN1_C1FIFOINT20.setRXFULLIF(thebits : TBits_1); inline;
  80133. begin
  80134. if thebits = 0 then
  80135. pTDefRegMap(@Self)^.clr := $00000004
  80136. else
  80137. pTDefRegMap(@Self)^.&set := $00000004;
  80138. end;
  80139. function TCAN1_C1FIFOINT20.getRXFULLIF : TBits_1; inline;
  80140. begin
  80141. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80142. end;
  80143. procedure TCAN1_C1FIFOINT20.setRXOVFLIF; inline;
  80144. begin
  80145. pTDefRegMap(@Self)^.&set := $00000008;
  80146. end;
  80147. procedure TCAN1_C1FIFOINT20.clearRXOVFLIF; inline;
  80148. begin
  80149. pTDefRegMap(@Self)^.clr := $00000008;
  80150. end;
  80151. procedure TCAN1_C1FIFOINT20.setRXOVFLIF(thebits : TBits_1); inline;
  80152. begin
  80153. if thebits = 0 then
  80154. pTDefRegMap(@Self)^.clr := $00000008
  80155. else
  80156. pTDefRegMap(@Self)^.&set := $00000008;
  80157. end;
  80158. function TCAN1_C1FIFOINT20.getRXOVFLIF : TBits_1; inline;
  80159. begin
  80160. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80161. end;
  80162. procedure TCAN1_C1FIFOINT20.setTXEMPTYIF; inline;
  80163. begin
  80164. pTDefRegMap(@Self)^.&set := $00000100;
  80165. end;
  80166. procedure TCAN1_C1FIFOINT20.clearTXEMPTYIF; inline;
  80167. begin
  80168. pTDefRegMap(@Self)^.clr := $00000100;
  80169. end;
  80170. procedure TCAN1_C1FIFOINT20.setTXEMPTYIF(thebits : TBits_1); inline;
  80171. begin
  80172. if thebits = 0 then
  80173. pTDefRegMap(@Self)^.clr := $00000100
  80174. else
  80175. pTDefRegMap(@Self)^.&set := $00000100;
  80176. end;
  80177. function TCAN1_C1FIFOINT20.getTXEMPTYIF : TBits_1; inline;
  80178. begin
  80179. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  80180. end;
  80181. procedure TCAN1_C1FIFOINT20.setTXHALFIF; inline;
  80182. begin
  80183. pTDefRegMap(@Self)^.&set := $00000200;
  80184. end;
  80185. procedure TCAN1_C1FIFOINT20.clearTXHALFIF; inline;
  80186. begin
  80187. pTDefRegMap(@Self)^.clr := $00000200;
  80188. end;
  80189. procedure TCAN1_C1FIFOINT20.setTXHALFIF(thebits : TBits_1); inline;
  80190. begin
  80191. if thebits = 0 then
  80192. pTDefRegMap(@Self)^.clr := $00000200
  80193. else
  80194. pTDefRegMap(@Self)^.&set := $00000200;
  80195. end;
  80196. function TCAN1_C1FIFOINT20.getTXHALFIF : TBits_1; inline;
  80197. begin
  80198. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  80199. end;
  80200. procedure TCAN1_C1FIFOINT20.setTXNFULLIF; inline;
  80201. begin
  80202. pTDefRegMap(@Self)^.&set := $00000400;
  80203. end;
  80204. procedure TCAN1_C1FIFOINT20.clearTXNFULLIF; inline;
  80205. begin
  80206. pTDefRegMap(@Self)^.clr := $00000400;
  80207. end;
  80208. procedure TCAN1_C1FIFOINT20.setTXNFULLIF(thebits : TBits_1); inline;
  80209. begin
  80210. if thebits = 0 then
  80211. pTDefRegMap(@Self)^.clr := $00000400
  80212. else
  80213. pTDefRegMap(@Self)^.&set := $00000400;
  80214. end;
  80215. function TCAN1_C1FIFOINT20.getTXNFULLIF : TBits_1; inline;
  80216. begin
  80217. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  80218. end;
  80219. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIE; inline;
  80220. begin
  80221. pTDefRegMap(@Self)^.&set := $00010000;
  80222. end;
  80223. procedure TCAN1_C1FIFOINT20.clearRXNEMPTYIE; inline;
  80224. begin
  80225. pTDefRegMap(@Self)^.clr := $00010000;
  80226. end;
  80227. procedure TCAN1_C1FIFOINT20.setRXNEMPTYIE(thebits : TBits_1); inline;
  80228. begin
  80229. if thebits = 0 then
  80230. pTDefRegMap(@Self)^.clr := $00010000
  80231. else
  80232. pTDefRegMap(@Self)^.&set := $00010000;
  80233. end;
  80234. function TCAN1_C1FIFOINT20.getRXNEMPTYIE : TBits_1; inline;
  80235. begin
  80236. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  80237. end;
  80238. procedure TCAN1_C1FIFOINT20.setRXHALFIE; inline;
  80239. begin
  80240. pTDefRegMap(@Self)^.&set := $00020000;
  80241. end;
  80242. procedure TCAN1_C1FIFOINT20.clearRXHALFIE; inline;
  80243. begin
  80244. pTDefRegMap(@Self)^.clr := $00020000;
  80245. end;
  80246. procedure TCAN1_C1FIFOINT20.setRXHALFIE(thebits : TBits_1); inline;
  80247. begin
  80248. if thebits = 0 then
  80249. pTDefRegMap(@Self)^.clr := $00020000
  80250. else
  80251. pTDefRegMap(@Self)^.&set := $00020000;
  80252. end;
  80253. function TCAN1_C1FIFOINT20.getRXHALFIE : TBits_1; inline;
  80254. begin
  80255. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  80256. end;
  80257. procedure TCAN1_C1FIFOINT20.setRXFULLIE; inline;
  80258. begin
  80259. pTDefRegMap(@Self)^.&set := $00040000;
  80260. end;
  80261. procedure TCAN1_C1FIFOINT20.clearRXFULLIE; inline;
  80262. begin
  80263. pTDefRegMap(@Self)^.clr := $00040000;
  80264. end;
  80265. procedure TCAN1_C1FIFOINT20.setRXFULLIE(thebits : TBits_1); inline;
  80266. begin
  80267. if thebits = 0 then
  80268. pTDefRegMap(@Self)^.clr := $00040000
  80269. else
  80270. pTDefRegMap(@Self)^.&set := $00040000;
  80271. end;
  80272. function TCAN1_C1FIFOINT20.getRXFULLIE : TBits_1; inline;
  80273. begin
  80274. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  80275. end;
  80276. procedure TCAN1_C1FIFOINT20.setRXOVFLIE; inline;
  80277. begin
  80278. pTDefRegMap(@Self)^.&set := $00080000;
  80279. end;
  80280. procedure TCAN1_C1FIFOINT20.clearRXOVFLIE; inline;
  80281. begin
  80282. pTDefRegMap(@Self)^.clr := $00080000;
  80283. end;
  80284. procedure TCAN1_C1FIFOINT20.setRXOVFLIE(thebits : TBits_1); inline;
  80285. begin
  80286. if thebits = 0 then
  80287. pTDefRegMap(@Self)^.clr := $00080000
  80288. else
  80289. pTDefRegMap(@Self)^.&set := $00080000;
  80290. end;
  80291. function TCAN1_C1FIFOINT20.getRXOVFLIE : TBits_1; inline;
  80292. begin
  80293. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  80294. end;
  80295. procedure TCAN1_C1FIFOINT20.setTXEMPTYIE; inline;
  80296. begin
  80297. pTDefRegMap(@Self)^.&set := $01000000;
  80298. end;
  80299. procedure TCAN1_C1FIFOINT20.clearTXEMPTYIE; inline;
  80300. begin
  80301. pTDefRegMap(@Self)^.clr := $01000000;
  80302. end;
  80303. procedure TCAN1_C1FIFOINT20.setTXEMPTYIE(thebits : TBits_1); inline;
  80304. begin
  80305. if thebits = 0 then
  80306. pTDefRegMap(@Self)^.clr := $01000000
  80307. else
  80308. pTDefRegMap(@Self)^.&set := $01000000;
  80309. end;
  80310. function TCAN1_C1FIFOINT20.getTXEMPTYIE : TBits_1; inline;
  80311. begin
  80312. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  80313. end;
  80314. procedure TCAN1_C1FIFOINT20.setTXHALFIE; inline;
  80315. begin
  80316. pTDefRegMap(@Self)^.&set := $02000000;
  80317. end;
  80318. procedure TCAN1_C1FIFOINT20.clearTXHALFIE; inline;
  80319. begin
  80320. pTDefRegMap(@Self)^.clr := $02000000;
  80321. end;
  80322. procedure TCAN1_C1FIFOINT20.setTXHALFIE(thebits : TBits_1); inline;
  80323. begin
  80324. if thebits = 0 then
  80325. pTDefRegMap(@Self)^.clr := $02000000
  80326. else
  80327. pTDefRegMap(@Self)^.&set := $02000000;
  80328. end;
  80329. function TCAN1_C1FIFOINT20.getTXHALFIE : TBits_1; inline;
  80330. begin
  80331. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  80332. end;
  80333. procedure TCAN1_C1FIFOINT20.setTXNFULLIE; inline;
  80334. begin
  80335. pTDefRegMap(@Self)^.&set := $04000000;
  80336. end;
  80337. procedure TCAN1_C1FIFOINT20.clearTXNFULLIE; inline;
  80338. begin
  80339. pTDefRegMap(@Self)^.clr := $04000000;
  80340. end;
  80341. procedure TCAN1_C1FIFOINT20.setTXNFULLIE(thebits : TBits_1); inline;
  80342. begin
  80343. if thebits = 0 then
  80344. pTDefRegMap(@Self)^.clr := $04000000
  80345. else
  80346. pTDefRegMap(@Self)^.&set := $04000000;
  80347. end;
  80348. function TCAN1_C1FIFOINT20.getTXNFULLIE : TBits_1; inline;
  80349. begin
  80350. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  80351. end;
  80352. procedure TCAN1_C1FIFOINT20.setw(thebits : TBits_32); inline;
  80353. begin
  80354. pTDefRegMap(@Self)^.val := thebits;
  80355. end;
  80356. function TCAN1_C1FIFOINT20.getw : TBits_32; inline;
  80357. begin
  80358. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80359. end;
  80360. procedure TCAN1_C1FIFOCI20.setCFIFOCI(thebits : TBits_5); inline;
  80361. begin
  80362. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  80363. end;
  80364. function TCAN1_C1FIFOCI20.getCFIFOCI : TBits_5; inline;
  80365. begin
  80366. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  80367. end;
  80368. procedure TCAN1_C1FIFOCI20.setw(thebits : TBits_32); inline;
  80369. begin
  80370. pTDefRegMap(@Self)^.val := thebits;
  80371. end;
  80372. function TCAN1_C1FIFOCI20.getw : TBits_32; inline;
  80373. begin
  80374. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80375. end;
  80376. procedure TCAN1_C1FIFOCON21.setTXPRI(thebits : TBits_2); inline;
  80377. begin
  80378. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  80379. end;
  80380. function TCAN1_C1FIFOCON21.getTXPRI : TBits_2; inline;
  80381. begin
  80382. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  80383. end;
  80384. procedure TCAN1_C1FIFOCON21.setRTREN; inline;
  80385. begin
  80386. pTDefRegMap(@Self)^.&set := $00000004;
  80387. end;
  80388. procedure TCAN1_C1FIFOCON21.clearRTREN; inline;
  80389. begin
  80390. pTDefRegMap(@Self)^.clr := $00000004;
  80391. end;
  80392. procedure TCAN1_C1FIFOCON21.setRTREN(thebits : TBits_1); inline;
  80393. begin
  80394. if thebits = 0 then
  80395. pTDefRegMap(@Self)^.clr := $00000004
  80396. else
  80397. pTDefRegMap(@Self)^.&set := $00000004;
  80398. end;
  80399. function TCAN1_C1FIFOCON21.getRTREN : TBits_1; inline;
  80400. begin
  80401. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80402. end;
  80403. procedure TCAN1_C1FIFOCON21.setTXREQ; inline;
  80404. begin
  80405. pTDefRegMap(@Self)^.&set := $00000008;
  80406. end;
  80407. procedure TCAN1_C1FIFOCON21.clearTXREQ; inline;
  80408. begin
  80409. pTDefRegMap(@Self)^.clr := $00000008;
  80410. end;
  80411. procedure TCAN1_C1FIFOCON21.setTXREQ(thebits : TBits_1); inline;
  80412. begin
  80413. if thebits = 0 then
  80414. pTDefRegMap(@Self)^.clr := $00000008
  80415. else
  80416. pTDefRegMap(@Self)^.&set := $00000008;
  80417. end;
  80418. function TCAN1_C1FIFOCON21.getTXREQ : TBits_1; inline;
  80419. begin
  80420. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80421. end;
  80422. procedure TCAN1_C1FIFOCON21.setTXERR; inline;
  80423. begin
  80424. pTDefRegMap(@Self)^.&set := $00000010;
  80425. end;
  80426. procedure TCAN1_C1FIFOCON21.clearTXERR; inline;
  80427. begin
  80428. pTDefRegMap(@Self)^.clr := $00000010;
  80429. end;
  80430. procedure TCAN1_C1FIFOCON21.setTXERR(thebits : TBits_1); inline;
  80431. begin
  80432. if thebits = 0 then
  80433. pTDefRegMap(@Self)^.clr := $00000010
  80434. else
  80435. pTDefRegMap(@Self)^.&set := $00000010;
  80436. end;
  80437. function TCAN1_C1FIFOCON21.getTXERR : TBits_1; inline;
  80438. begin
  80439. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80440. end;
  80441. procedure TCAN1_C1FIFOCON21.setTXLARB; inline;
  80442. begin
  80443. pTDefRegMap(@Self)^.&set := $00000020;
  80444. end;
  80445. procedure TCAN1_C1FIFOCON21.clearTXLARB; inline;
  80446. begin
  80447. pTDefRegMap(@Self)^.clr := $00000020;
  80448. end;
  80449. procedure TCAN1_C1FIFOCON21.setTXLARB(thebits : TBits_1); inline;
  80450. begin
  80451. if thebits = 0 then
  80452. pTDefRegMap(@Self)^.clr := $00000020
  80453. else
  80454. pTDefRegMap(@Self)^.&set := $00000020;
  80455. end;
  80456. function TCAN1_C1FIFOCON21.getTXLARB : TBits_1; inline;
  80457. begin
  80458. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80459. end;
  80460. procedure TCAN1_C1FIFOCON21.setTXABAT; inline;
  80461. begin
  80462. pTDefRegMap(@Self)^.&set := $00000040;
  80463. end;
  80464. procedure TCAN1_C1FIFOCON21.clearTXABAT; inline;
  80465. begin
  80466. pTDefRegMap(@Self)^.clr := $00000040;
  80467. end;
  80468. procedure TCAN1_C1FIFOCON21.setTXABAT(thebits : TBits_1); inline;
  80469. begin
  80470. if thebits = 0 then
  80471. pTDefRegMap(@Self)^.clr := $00000040
  80472. else
  80473. pTDefRegMap(@Self)^.&set := $00000040;
  80474. end;
  80475. function TCAN1_C1FIFOCON21.getTXABAT : TBits_1; inline;
  80476. begin
  80477. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  80478. end;
  80479. procedure TCAN1_C1FIFOCON21.setTXEN; inline;
  80480. begin
  80481. pTDefRegMap(@Self)^.&set := $00000080;
  80482. end;
  80483. procedure TCAN1_C1FIFOCON21.clearTXEN; inline;
  80484. begin
  80485. pTDefRegMap(@Self)^.clr := $00000080;
  80486. end;
  80487. procedure TCAN1_C1FIFOCON21.setTXEN(thebits : TBits_1); inline;
  80488. begin
  80489. if thebits = 0 then
  80490. pTDefRegMap(@Self)^.clr := $00000080
  80491. else
  80492. pTDefRegMap(@Self)^.&set := $00000080;
  80493. end;
  80494. function TCAN1_C1FIFOCON21.getTXEN : TBits_1; inline;
  80495. begin
  80496. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80497. end;
  80498. procedure TCAN1_C1FIFOCON21.setDONLY; inline;
  80499. begin
  80500. pTDefRegMap(@Self)^.&set := $00001000;
  80501. end;
  80502. procedure TCAN1_C1FIFOCON21.clearDONLY; inline;
  80503. begin
  80504. pTDefRegMap(@Self)^.clr := $00001000;
  80505. end;
  80506. procedure TCAN1_C1FIFOCON21.setDONLY(thebits : TBits_1); inline;
  80507. begin
  80508. if thebits = 0 then
  80509. pTDefRegMap(@Self)^.clr := $00001000
  80510. else
  80511. pTDefRegMap(@Self)^.&set := $00001000;
  80512. end;
  80513. function TCAN1_C1FIFOCON21.getDONLY : TBits_1; inline;
  80514. begin
  80515. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  80516. end;
  80517. procedure TCAN1_C1FIFOCON21.setUINC; inline;
  80518. begin
  80519. pTDefRegMap(@Self)^.&set := $00002000;
  80520. end;
  80521. procedure TCAN1_C1FIFOCON21.clearUINC; inline;
  80522. begin
  80523. pTDefRegMap(@Self)^.clr := $00002000;
  80524. end;
  80525. procedure TCAN1_C1FIFOCON21.setUINC(thebits : TBits_1); inline;
  80526. begin
  80527. if thebits = 0 then
  80528. pTDefRegMap(@Self)^.clr := $00002000
  80529. else
  80530. pTDefRegMap(@Self)^.&set := $00002000;
  80531. end;
  80532. function TCAN1_C1FIFOCON21.getUINC : TBits_1; inline;
  80533. begin
  80534. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  80535. end;
  80536. procedure TCAN1_C1FIFOCON21.setFRESET; inline;
  80537. begin
  80538. pTDefRegMap(@Self)^.&set := $00004000;
  80539. end;
  80540. procedure TCAN1_C1FIFOCON21.clearFRESET; inline;
  80541. begin
  80542. pTDefRegMap(@Self)^.clr := $00004000;
  80543. end;
  80544. procedure TCAN1_C1FIFOCON21.setFRESET(thebits : TBits_1); inline;
  80545. begin
  80546. if thebits = 0 then
  80547. pTDefRegMap(@Self)^.clr := $00004000
  80548. else
  80549. pTDefRegMap(@Self)^.&set := $00004000;
  80550. end;
  80551. function TCAN1_C1FIFOCON21.getFRESET : TBits_1; inline;
  80552. begin
  80553. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  80554. end;
  80555. procedure TCAN1_C1FIFOCON21.setFSIZE(thebits : TBits_5); inline;
  80556. begin
  80557. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  80558. end;
  80559. function TCAN1_C1FIFOCON21.getFSIZE : TBits_5; inline;
  80560. begin
  80561. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  80562. end;
  80563. procedure TCAN1_C1FIFOCON21.setw(thebits : TBits_32); inline;
  80564. begin
  80565. pTDefRegMap(@Self)^.val := thebits;
  80566. end;
  80567. function TCAN1_C1FIFOCON21.getw : TBits_32; inline;
  80568. begin
  80569. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80570. end;
  80571. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIF; inline;
  80572. begin
  80573. pTDefRegMap(@Self)^.&set := $00000001;
  80574. end;
  80575. procedure TCAN1_C1FIFOINT21.clearRXNEMPTYIF; inline;
  80576. begin
  80577. pTDefRegMap(@Self)^.clr := $00000001;
  80578. end;
  80579. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIF(thebits : TBits_1); inline;
  80580. begin
  80581. if thebits = 0 then
  80582. pTDefRegMap(@Self)^.clr := $00000001
  80583. else
  80584. pTDefRegMap(@Self)^.&set := $00000001;
  80585. end;
  80586. function TCAN1_C1FIFOINT21.getRXNEMPTYIF : TBits_1; inline;
  80587. begin
  80588. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  80589. end;
  80590. procedure TCAN1_C1FIFOINT21.setRXHALFIF; inline;
  80591. begin
  80592. pTDefRegMap(@Self)^.&set := $00000002;
  80593. end;
  80594. procedure TCAN1_C1FIFOINT21.clearRXHALFIF; inline;
  80595. begin
  80596. pTDefRegMap(@Self)^.clr := $00000002;
  80597. end;
  80598. procedure TCAN1_C1FIFOINT21.setRXHALFIF(thebits : TBits_1); inline;
  80599. begin
  80600. if thebits = 0 then
  80601. pTDefRegMap(@Self)^.clr := $00000002
  80602. else
  80603. pTDefRegMap(@Self)^.&set := $00000002;
  80604. end;
  80605. function TCAN1_C1FIFOINT21.getRXHALFIF : TBits_1; inline;
  80606. begin
  80607. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  80608. end;
  80609. procedure TCAN1_C1FIFOINT21.setRXFULLIF; inline;
  80610. begin
  80611. pTDefRegMap(@Self)^.&set := $00000004;
  80612. end;
  80613. procedure TCAN1_C1FIFOINT21.clearRXFULLIF; inline;
  80614. begin
  80615. pTDefRegMap(@Self)^.clr := $00000004;
  80616. end;
  80617. procedure TCAN1_C1FIFOINT21.setRXFULLIF(thebits : TBits_1); inline;
  80618. begin
  80619. if thebits = 0 then
  80620. pTDefRegMap(@Self)^.clr := $00000004
  80621. else
  80622. pTDefRegMap(@Self)^.&set := $00000004;
  80623. end;
  80624. function TCAN1_C1FIFOINT21.getRXFULLIF : TBits_1; inline;
  80625. begin
  80626. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80627. end;
  80628. procedure TCAN1_C1FIFOINT21.setRXOVFLIF; inline;
  80629. begin
  80630. pTDefRegMap(@Self)^.&set := $00000008;
  80631. end;
  80632. procedure TCAN1_C1FIFOINT21.clearRXOVFLIF; inline;
  80633. begin
  80634. pTDefRegMap(@Self)^.clr := $00000008;
  80635. end;
  80636. procedure TCAN1_C1FIFOINT21.setRXOVFLIF(thebits : TBits_1); inline;
  80637. begin
  80638. if thebits = 0 then
  80639. pTDefRegMap(@Self)^.clr := $00000008
  80640. else
  80641. pTDefRegMap(@Self)^.&set := $00000008;
  80642. end;
  80643. function TCAN1_C1FIFOINT21.getRXOVFLIF : TBits_1; inline;
  80644. begin
  80645. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80646. end;
  80647. procedure TCAN1_C1FIFOINT21.setTXEMPTYIF; inline;
  80648. begin
  80649. pTDefRegMap(@Self)^.&set := $00000100;
  80650. end;
  80651. procedure TCAN1_C1FIFOINT21.clearTXEMPTYIF; inline;
  80652. begin
  80653. pTDefRegMap(@Self)^.clr := $00000100;
  80654. end;
  80655. procedure TCAN1_C1FIFOINT21.setTXEMPTYIF(thebits : TBits_1); inline;
  80656. begin
  80657. if thebits = 0 then
  80658. pTDefRegMap(@Self)^.clr := $00000100
  80659. else
  80660. pTDefRegMap(@Self)^.&set := $00000100;
  80661. end;
  80662. function TCAN1_C1FIFOINT21.getTXEMPTYIF : TBits_1; inline;
  80663. begin
  80664. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  80665. end;
  80666. procedure TCAN1_C1FIFOINT21.setTXHALFIF; inline;
  80667. begin
  80668. pTDefRegMap(@Self)^.&set := $00000200;
  80669. end;
  80670. procedure TCAN1_C1FIFOINT21.clearTXHALFIF; inline;
  80671. begin
  80672. pTDefRegMap(@Self)^.clr := $00000200;
  80673. end;
  80674. procedure TCAN1_C1FIFOINT21.setTXHALFIF(thebits : TBits_1); inline;
  80675. begin
  80676. if thebits = 0 then
  80677. pTDefRegMap(@Self)^.clr := $00000200
  80678. else
  80679. pTDefRegMap(@Self)^.&set := $00000200;
  80680. end;
  80681. function TCAN1_C1FIFOINT21.getTXHALFIF : TBits_1; inline;
  80682. begin
  80683. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  80684. end;
  80685. procedure TCAN1_C1FIFOINT21.setTXNFULLIF; inline;
  80686. begin
  80687. pTDefRegMap(@Self)^.&set := $00000400;
  80688. end;
  80689. procedure TCAN1_C1FIFOINT21.clearTXNFULLIF; inline;
  80690. begin
  80691. pTDefRegMap(@Self)^.clr := $00000400;
  80692. end;
  80693. procedure TCAN1_C1FIFOINT21.setTXNFULLIF(thebits : TBits_1); inline;
  80694. begin
  80695. if thebits = 0 then
  80696. pTDefRegMap(@Self)^.clr := $00000400
  80697. else
  80698. pTDefRegMap(@Self)^.&set := $00000400;
  80699. end;
  80700. function TCAN1_C1FIFOINT21.getTXNFULLIF : TBits_1; inline;
  80701. begin
  80702. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  80703. end;
  80704. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIE; inline;
  80705. begin
  80706. pTDefRegMap(@Self)^.&set := $00010000;
  80707. end;
  80708. procedure TCAN1_C1FIFOINT21.clearRXNEMPTYIE; inline;
  80709. begin
  80710. pTDefRegMap(@Self)^.clr := $00010000;
  80711. end;
  80712. procedure TCAN1_C1FIFOINT21.setRXNEMPTYIE(thebits : TBits_1); inline;
  80713. begin
  80714. if thebits = 0 then
  80715. pTDefRegMap(@Self)^.clr := $00010000
  80716. else
  80717. pTDefRegMap(@Self)^.&set := $00010000;
  80718. end;
  80719. function TCAN1_C1FIFOINT21.getRXNEMPTYIE : TBits_1; inline;
  80720. begin
  80721. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  80722. end;
  80723. procedure TCAN1_C1FIFOINT21.setRXHALFIE; inline;
  80724. begin
  80725. pTDefRegMap(@Self)^.&set := $00020000;
  80726. end;
  80727. procedure TCAN1_C1FIFOINT21.clearRXHALFIE; inline;
  80728. begin
  80729. pTDefRegMap(@Self)^.clr := $00020000;
  80730. end;
  80731. procedure TCAN1_C1FIFOINT21.setRXHALFIE(thebits : TBits_1); inline;
  80732. begin
  80733. if thebits = 0 then
  80734. pTDefRegMap(@Self)^.clr := $00020000
  80735. else
  80736. pTDefRegMap(@Self)^.&set := $00020000;
  80737. end;
  80738. function TCAN1_C1FIFOINT21.getRXHALFIE : TBits_1; inline;
  80739. begin
  80740. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  80741. end;
  80742. procedure TCAN1_C1FIFOINT21.setRXFULLIE; inline;
  80743. begin
  80744. pTDefRegMap(@Self)^.&set := $00040000;
  80745. end;
  80746. procedure TCAN1_C1FIFOINT21.clearRXFULLIE; inline;
  80747. begin
  80748. pTDefRegMap(@Self)^.clr := $00040000;
  80749. end;
  80750. procedure TCAN1_C1FIFOINT21.setRXFULLIE(thebits : TBits_1); inline;
  80751. begin
  80752. if thebits = 0 then
  80753. pTDefRegMap(@Self)^.clr := $00040000
  80754. else
  80755. pTDefRegMap(@Self)^.&set := $00040000;
  80756. end;
  80757. function TCAN1_C1FIFOINT21.getRXFULLIE : TBits_1; inline;
  80758. begin
  80759. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  80760. end;
  80761. procedure TCAN1_C1FIFOINT21.setRXOVFLIE; inline;
  80762. begin
  80763. pTDefRegMap(@Self)^.&set := $00080000;
  80764. end;
  80765. procedure TCAN1_C1FIFOINT21.clearRXOVFLIE; inline;
  80766. begin
  80767. pTDefRegMap(@Self)^.clr := $00080000;
  80768. end;
  80769. procedure TCAN1_C1FIFOINT21.setRXOVFLIE(thebits : TBits_1); inline;
  80770. begin
  80771. if thebits = 0 then
  80772. pTDefRegMap(@Self)^.clr := $00080000
  80773. else
  80774. pTDefRegMap(@Self)^.&set := $00080000;
  80775. end;
  80776. function TCAN1_C1FIFOINT21.getRXOVFLIE : TBits_1; inline;
  80777. begin
  80778. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  80779. end;
  80780. procedure TCAN1_C1FIFOINT21.setTXEMPTYIE; inline;
  80781. begin
  80782. pTDefRegMap(@Self)^.&set := $01000000;
  80783. end;
  80784. procedure TCAN1_C1FIFOINT21.clearTXEMPTYIE; inline;
  80785. begin
  80786. pTDefRegMap(@Self)^.clr := $01000000;
  80787. end;
  80788. procedure TCAN1_C1FIFOINT21.setTXEMPTYIE(thebits : TBits_1); inline;
  80789. begin
  80790. if thebits = 0 then
  80791. pTDefRegMap(@Self)^.clr := $01000000
  80792. else
  80793. pTDefRegMap(@Self)^.&set := $01000000;
  80794. end;
  80795. function TCAN1_C1FIFOINT21.getTXEMPTYIE : TBits_1; inline;
  80796. begin
  80797. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  80798. end;
  80799. procedure TCAN1_C1FIFOINT21.setTXHALFIE; inline;
  80800. begin
  80801. pTDefRegMap(@Self)^.&set := $02000000;
  80802. end;
  80803. procedure TCAN1_C1FIFOINT21.clearTXHALFIE; inline;
  80804. begin
  80805. pTDefRegMap(@Self)^.clr := $02000000;
  80806. end;
  80807. procedure TCAN1_C1FIFOINT21.setTXHALFIE(thebits : TBits_1); inline;
  80808. begin
  80809. if thebits = 0 then
  80810. pTDefRegMap(@Self)^.clr := $02000000
  80811. else
  80812. pTDefRegMap(@Self)^.&set := $02000000;
  80813. end;
  80814. function TCAN1_C1FIFOINT21.getTXHALFIE : TBits_1; inline;
  80815. begin
  80816. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  80817. end;
  80818. procedure TCAN1_C1FIFOINT21.setTXNFULLIE; inline;
  80819. begin
  80820. pTDefRegMap(@Self)^.&set := $04000000;
  80821. end;
  80822. procedure TCAN1_C1FIFOINT21.clearTXNFULLIE; inline;
  80823. begin
  80824. pTDefRegMap(@Self)^.clr := $04000000;
  80825. end;
  80826. procedure TCAN1_C1FIFOINT21.setTXNFULLIE(thebits : TBits_1); inline;
  80827. begin
  80828. if thebits = 0 then
  80829. pTDefRegMap(@Self)^.clr := $04000000
  80830. else
  80831. pTDefRegMap(@Self)^.&set := $04000000;
  80832. end;
  80833. function TCAN1_C1FIFOINT21.getTXNFULLIE : TBits_1; inline;
  80834. begin
  80835. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  80836. end;
  80837. procedure TCAN1_C1FIFOINT21.setw(thebits : TBits_32); inline;
  80838. begin
  80839. pTDefRegMap(@Self)^.val := thebits;
  80840. end;
  80841. function TCAN1_C1FIFOINT21.getw : TBits_32; inline;
  80842. begin
  80843. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80844. end;
  80845. procedure TCAN1_C1FIFOCI21.setCFIFOCI(thebits : TBits_5); inline;
  80846. begin
  80847. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  80848. end;
  80849. function TCAN1_C1FIFOCI21.getCFIFOCI : TBits_5; inline;
  80850. begin
  80851. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  80852. end;
  80853. procedure TCAN1_C1FIFOCI21.setw(thebits : TBits_32); inline;
  80854. begin
  80855. pTDefRegMap(@Self)^.val := thebits;
  80856. end;
  80857. function TCAN1_C1FIFOCI21.getw : TBits_32; inline;
  80858. begin
  80859. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  80860. end;
  80861. procedure TCAN1_C1FIFOCON22.setTXPRI(thebits : TBits_2); inline;
  80862. begin
  80863. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  80864. end;
  80865. function TCAN1_C1FIFOCON22.getTXPRI : TBits_2; inline;
  80866. begin
  80867. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  80868. end;
  80869. procedure TCAN1_C1FIFOCON22.setRTREN; inline;
  80870. begin
  80871. pTDefRegMap(@Self)^.&set := $00000004;
  80872. end;
  80873. procedure TCAN1_C1FIFOCON22.clearRTREN; inline;
  80874. begin
  80875. pTDefRegMap(@Self)^.clr := $00000004;
  80876. end;
  80877. procedure TCAN1_C1FIFOCON22.setRTREN(thebits : TBits_1); inline;
  80878. begin
  80879. if thebits = 0 then
  80880. pTDefRegMap(@Self)^.clr := $00000004
  80881. else
  80882. pTDefRegMap(@Self)^.&set := $00000004;
  80883. end;
  80884. function TCAN1_C1FIFOCON22.getRTREN : TBits_1; inline;
  80885. begin
  80886. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  80887. end;
  80888. procedure TCAN1_C1FIFOCON22.setTXREQ; inline;
  80889. begin
  80890. pTDefRegMap(@Self)^.&set := $00000008;
  80891. end;
  80892. procedure TCAN1_C1FIFOCON22.clearTXREQ; inline;
  80893. begin
  80894. pTDefRegMap(@Self)^.clr := $00000008;
  80895. end;
  80896. procedure TCAN1_C1FIFOCON22.setTXREQ(thebits : TBits_1); inline;
  80897. begin
  80898. if thebits = 0 then
  80899. pTDefRegMap(@Self)^.clr := $00000008
  80900. else
  80901. pTDefRegMap(@Self)^.&set := $00000008;
  80902. end;
  80903. function TCAN1_C1FIFOCON22.getTXREQ : TBits_1; inline;
  80904. begin
  80905. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  80906. end;
  80907. procedure TCAN1_C1FIFOCON22.setTXERR; inline;
  80908. begin
  80909. pTDefRegMap(@Self)^.&set := $00000010;
  80910. end;
  80911. procedure TCAN1_C1FIFOCON22.clearTXERR; inline;
  80912. begin
  80913. pTDefRegMap(@Self)^.clr := $00000010;
  80914. end;
  80915. procedure TCAN1_C1FIFOCON22.setTXERR(thebits : TBits_1); inline;
  80916. begin
  80917. if thebits = 0 then
  80918. pTDefRegMap(@Self)^.clr := $00000010
  80919. else
  80920. pTDefRegMap(@Self)^.&set := $00000010;
  80921. end;
  80922. function TCAN1_C1FIFOCON22.getTXERR : TBits_1; inline;
  80923. begin
  80924. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  80925. end;
  80926. procedure TCAN1_C1FIFOCON22.setTXLARB; inline;
  80927. begin
  80928. pTDefRegMap(@Self)^.&set := $00000020;
  80929. end;
  80930. procedure TCAN1_C1FIFOCON22.clearTXLARB; inline;
  80931. begin
  80932. pTDefRegMap(@Self)^.clr := $00000020;
  80933. end;
  80934. procedure TCAN1_C1FIFOCON22.setTXLARB(thebits : TBits_1); inline;
  80935. begin
  80936. if thebits = 0 then
  80937. pTDefRegMap(@Self)^.clr := $00000020
  80938. else
  80939. pTDefRegMap(@Self)^.&set := $00000020;
  80940. end;
  80941. function TCAN1_C1FIFOCON22.getTXLARB : TBits_1; inline;
  80942. begin
  80943. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  80944. end;
  80945. procedure TCAN1_C1FIFOCON22.setTXABAT; inline;
  80946. begin
  80947. pTDefRegMap(@Self)^.&set := $00000040;
  80948. end;
  80949. procedure TCAN1_C1FIFOCON22.clearTXABAT; inline;
  80950. begin
  80951. pTDefRegMap(@Self)^.clr := $00000040;
  80952. end;
  80953. procedure TCAN1_C1FIFOCON22.setTXABAT(thebits : TBits_1); inline;
  80954. begin
  80955. if thebits = 0 then
  80956. pTDefRegMap(@Self)^.clr := $00000040
  80957. else
  80958. pTDefRegMap(@Self)^.&set := $00000040;
  80959. end;
  80960. function TCAN1_C1FIFOCON22.getTXABAT : TBits_1; inline;
  80961. begin
  80962. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  80963. end;
  80964. procedure TCAN1_C1FIFOCON22.setTXEN; inline;
  80965. begin
  80966. pTDefRegMap(@Self)^.&set := $00000080;
  80967. end;
  80968. procedure TCAN1_C1FIFOCON22.clearTXEN; inline;
  80969. begin
  80970. pTDefRegMap(@Self)^.clr := $00000080;
  80971. end;
  80972. procedure TCAN1_C1FIFOCON22.setTXEN(thebits : TBits_1); inline;
  80973. begin
  80974. if thebits = 0 then
  80975. pTDefRegMap(@Self)^.clr := $00000080
  80976. else
  80977. pTDefRegMap(@Self)^.&set := $00000080;
  80978. end;
  80979. function TCAN1_C1FIFOCON22.getTXEN : TBits_1; inline;
  80980. begin
  80981. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  80982. end;
  80983. procedure TCAN1_C1FIFOCON22.setDONLY; inline;
  80984. begin
  80985. pTDefRegMap(@Self)^.&set := $00001000;
  80986. end;
  80987. procedure TCAN1_C1FIFOCON22.clearDONLY; inline;
  80988. begin
  80989. pTDefRegMap(@Self)^.clr := $00001000;
  80990. end;
  80991. procedure TCAN1_C1FIFOCON22.setDONLY(thebits : TBits_1); inline;
  80992. begin
  80993. if thebits = 0 then
  80994. pTDefRegMap(@Self)^.clr := $00001000
  80995. else
  80996. pTDefRegMap(@Self)^.&set := $00001000;
  80997. end;
  80998. function TCAN1_C1FIFOCON22.getDONLY : TBits_1; inline;
  80999. begin
  81000. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81001. end;
  81002. procedure TCAN1_C1FIFOCON22.setUINC; inline;
  81003. begin
  81004. pTDefRegMap(@Self)^.&set := $00002000;
  81005. end;
  81006. procedure TCAN1_C1FIFOCON22.clearUINC; inline;
  81007. begin
  81008. pTDefRegMap(@Self)^.clr := $00002000;
  81009. end;
  81010. procedure TCAN1_C1FIFOCON22.setUINC(thebits : TBits_1); inline;
  81011. begin
  81012. if thebits = 0 then
  81013. pTDefRegMap(@Self)^.clr := $00002000
  81014. else
  81015. pTDefRegMap(@Self)^.&set := $00002000;
  81016. end;
  81017. function TCAN1_C1FIFOCON22.getUINC : TBits_1; inline;
  81018. begin
  81019. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81020. end;
  81021. procedure TCAN1_C1FIFOCON22.setFRESET; inline;
  81022. begin
  81023. pTDefRegMap(@Self)^.&set := $00004000;
  81024. end;
  81025. procedure TCAN1_C1FIFOCON22.clearFRESET; inline;
  81026. begin
  81027. pTDefRegMap(@Self)^.clr := $00004000;
  81028. end;
  81029. procedure TCAN1_C1FIFOCON22.setFRESET(thebits : TBits_1); inline;
  81030. begin
  81031. if thebits = 0 then
  81032. pTDefRegMap(@Self)^.clr := $00004000
  81033. else
  81034. pTDefRegMap(@Self)^.&set := $00004000;
  81035. end;
  81036. function TCAN1_C1FIFOCON22.getFRESET : TBits_1; inline;
  81037. begin
  81038. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  81039. end;
  81040. procedure TCAN1_C1FIFOCON22.setFSIZE(thebits : TBits_5); inline;
  81041. begin
  81042. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  81043. end;
  81044. function TCAN1_C1FIFOCON22.getFSIZE : TBits_5; inline;
  81045. begin
  81046. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  81047. end;
  81048. procedure TCAN1_C1FIFOCON22.setw(thebits : TBits_32); inline;
  81049. begin
  81050. pTDefRegMap(@Self)^.val := thebits;
  81051. end;
  81052. function TCAN1_C1FIFOCON22.getw : TBits_32; inline;
  81053. begin
  81054. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81055. end;
  81056. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIF; inline;
  81057. begin
  81058. pTDefRegMap(@Self)^.&set := $00000001;
  81059. end;
  81060. procedure TCAN1_C1FIFOINT22.clearRXNEMPTYIF; inline;
  81061. begin
  81062. pTDefRegMap(@Self)^.clr := $00000001;
  81063. end;
  81064. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIF(thebits : TBits_1); inline;
  81065. begin
  81066. if thebits = 0 then
  81067. pTDefRegMap(@Self)^.clr := $00000001
  81068. else
  81069. pTDefRegMap(@Self)^.&set := $00000001;
  81070. end;
  81071. function TCAN1_C1FIFOINT22.getRXNEMPTYIF : TBits_1; inline;
  81072. begin
  81073. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  81074. end;
  81075. procedure TCAN1_C1FIFOINT22.setRXHALFIF; inline;
  81076. begin
  81077. pTDefRegMap(@Self)^.&set := $00000002;
  81078. end;
  81079. procedure TCAN1_C1FIFOINT22.clearRXHALFIF; inline;
  81080. begin
  81081. pTDefRegMap(@Self)^.clr := $00000002;
  81082. end;
  81083. procedure TCAN1_C1FIFOINT22.setRXHALFIF(thebits : TBits_1); inline;
  81084. begin
  81085. if thebits = 0 then
  81086. pTDefRegMap(@Self)^.clr := $00000002
  81087. else
  81088. pTDefRegMap(@Self)^.&set := $00000002;
  81089. end;
  81090. function TCAN1_C1FIFOINT22.getRXHALFIF : TBits_1; inline;
  81091. begin
  81092. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  81093. end;
  81094. procedure TCAN1_C1FIFOINT22.setRXFULLIF; inline;
  81095. begin
  81096. pTDefRegMap(@Self)^.&set := $00000004;
  81097. end;
  81098. procedure TCAN1_C1FIFOINT22.clearRXFULLIF; inline;
  81099. begin
  81100. pTDefRegMap(@Self)^.clr := $00000004;
  81101. end;
  81102. procedure TCAN1_C1FIFOINT22.setRXFULLIF(thebits : TBits_1); inline;
  81103. begin
  81104. if thebits = 0 then
  81105. pTDefRegMap(@Self)^.clr := $00000004
  81106. else
  81107. pTDefRegMap(@Self)^.&set := $00000004;
  81108. end;
  81109. function TCAN1_C1FIFOINT22.getRXFULLIF : TBits_1; inline;
  81110. begin
  81111. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81112. end;
  81113. procedure TCAN1_C1FIFOINT22.setRXOVFLIF; inline;
  81114. begin
  81115. pTDefRegMap(@Self)^.&set := $00000008;
  81116. end;
  81117. procedure TCAN1_C1FIFOINT22.clearRXOVFLIF; inline;
  81118. begin
  81119. pTDefRegMap(@Self)^.clr := $00000008;
  81120. end;
  81121. procedure TCAN1_C1FIFOINT22.setRXOVFLIF(thebits : TBits_1); inline;
  81122. begin
  81123. if thebits = 0 then
  81124. pTDefRegMap(@Self)^.clr := $00000008
  81125. else
  81126. pTDefRegMap(@Self)^.&set := $00000008;
  81127. end;
  81128. function TCAN1_C1FIFOINT22.getRXOVFLIF : TBits_1; inline;
  81129. begin
  81130. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81131. end;
  81132. procedure TCAN1_C1FIFOINT22.setTXEMPTYIF; inline;
  81133. begin
  81134. pTDefRegMap(@Self)^.&set := $00000100;
  81135. end;
  81136. procedure TCAN1_C1FIFOINT22.clearTXEMPTYIF; inline;
  81137. begin
  81138. pTDefRegMap(@Self)^.clr := $00000100;
  81139. end;
  81140. procedure TCAN1_C1FIFOINT22.setTXEMPTYIF(thebits : TBits_1); inline;
  81141. begin
  81142. if thebits = 0 then
  81143. pTDefRegMap(@Self)^.clr := $00000100
  81144. else
  81145. pTDefRegMap(@Self)^.&set := $00000100;
  81146. end;
  81147. function TCAN1_C1FIFOINT22.getTXEMPTYIF : TBits_1; inline;
  81148. begin
  81149. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81150. end;
  81151. procedure TCAN1_C1FIFOINT22.setTXHALFIF; inline;
  81152. begin
  81153. pTDefRegMap(@Self)^.&set := $00000200;
  81154. end;
  81155. procedure TCAN1_C1FIFOINT22.clearTXHALFIF; inline;
  81156. begin
  81157. pTDefRegMap(@Self)^.clr := $00000200;
  81158. end;
  81159. procedure TCAN1_C1FIFOINT22.setTXHALFIF(thebits : TBits_1); inline;
  81160. begin
  81161. if thebits = 0 then
  81162. pTDefRegMap(@Self)^.clr := $00000200
  81163. else
  81164. pTDefRegMap(@Self)^.&set := $00000200;
  81165. end;
  81166. function TCAN1_C1FIFOINT22.getTXHALFIF : TBits_1; inline;
  81167. begin
  81168. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81169. end;
  81170. procedure TCAN1_C1FIFOINT22.setTXNFULLIF; inline;
  81171. begin
  81172. pTDefRegMap(@Self)^.&set := $00000400;
  81173. end;
  81174. procedure TCAN1_C1FIFOINT22.clearTXNFULLIF; inline;
  81175. begin
  81176. pTDefRegMap(@Self)^.clr := $00000400;
  81177. end;
  81178. procedure TCAN1_C1FIFOINT22.setTXNFULLIF(thebits : TBits_1); inline;
  81179. begin
  81180. if thebits = 0 then
  81181. pTDefRegMap(@Self)^.clr := $00000400
  81182. else
  81183. pTDefRegMap(@Self)^.&set := $00000400;
  81184. end;
  81185. function TCAN1_C1FIFOINT22.getTXNFULLIF : TBits_1; inline;
  81186. begin
  81187. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  81188. end;
  81189. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIE; inline;
  81190. begin
  81191. pTDefRegMap(@Self)^.&set := $00010000;
  81192. end;
  81193. procedure TCAN1_C1FIFOINT22.clearRXNEMPTYIE; inline;
  81194. begin
  81195. pTDefRegMap(@Self)^.clr := $00010000;
  81196. end;
  81197. procedure TCAN1_C1FIFOINT22.setRXNEMPTYIE(thebits : TBits_1); inline;
  81198. begin
  81199. if thebits = 0 then
  81200. pTDefRegMap(@Self)^.clr := $00010000
  81201. else
  81202. pTDefRegMap(@Self)^.&set := $00010000;
  81203. end;
  81204. function TCAN1_C1FIFOINT22.getRXNEMPTYIE : TBits_1; inline;
  81205. begin
  81206. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  81207. end;
  81208. procedure TCAN1_C1FIFOINT22.setRXHALFIE; inline;
  81209. begin
  81210. pTDefRegMap(@Self)^.&set := $00020000;
  81211. end;
  81212. procedure TCAN1_C1FIFOINT22.clearRXHALFIE; inline;
  81213. begin
  81214. pTDefRegMap(@Self)^.clr := $00020000;
  81215. end;
  81216. procedure TCAN1_C1FIFOINT22.setRXHALFIE(thebits : TBits_1); inline;
  81217. begin
  81218. if thebits = 0 then
  81219. pTDefRegMap(@Self)^.clr := $00020000
  81220. else
  81221. pTDefRegMap(@Self)^.&set := $00020000;
  81222. end;
  81223. function TCAN1_C1FIFOINT22.getRXHALFIE : TBits_1; inline;
  81224. begin
  81225. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  81226. end;
  81227. procedure TCAN1_C1FIFOINT22.setRXFULLIE; inline;
  81228. begin
  81229. pTDefRegMap(@Self)^.&set := $00040000;
  81230. end;
  81231. procedure TCAN1_C1FIFOINT22.clearRXFULLIE; inline;
  81232. begin
  81233. pTDefRegMap(@Self)^.clr := $00040000;
  81234. end;
  81235. procedure TCAN1_C1FIFOINT22.setRXFULLIE(thebits : TBits_1); inline;
  81236. begin
  81237. if thebits = 0 then
  81238. pTDefRegMap(@Self)^.clr := $00040000
  81239. else
  81240. pTDefRegMap(@Self)^.&set := $00040000;
  81241. end;
  81242. function TCAN1_C1FIFOINT22.getRXFULLIE : TBits_1; inline;
  81243. begin
  81244. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  81245. end;
  81246. procedure TCAN1_C1FIFOINT22.setRXOVFLIE; inline;
  81247. begin
  81248. pTDefRegMap(@Self)^.&set := $00080000;
  81249. end;
  81250. procedure TCAN1_C1FIFOINT22.clearRXOVFLIE; inline;
  81251. begin
  81252. pTDefRegMap(@Self)^.clr := $00080000;
  81253. end;
  81254. procedure TCAN1_C1FIFOINT22.setRXOVFLIE(thebits : TBits_1); inline;
  81255. begin
  81256. if thebits = 0 then
  81257. pTDefRegMap(@Self)^.clr := $00080000
  81258. else
  81259. pTDefRegMap(@Self)^.&set := $00080000;
  81260. end;
  81261. function TCAN1_C1FIFOINT22.getRXOVFLIE : TBits_1; inline;
  81262. begin
  81263. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  81264. end;
  81265. procedure TCAN1_C1FIFOINT22.setTXEMPTYIE; inline;
  81266. begin
  81267. pTDefRegMap(@Self)^.&set := $01000000;
  81268. end;
  81269. procedure TCAN1_C1FIFOINT22.clearTXEMPTYIE; inline;
  81270. begin
  81271. pTDefRegMap(@Self)^.clr := $01000000;
  81272. end;
  81273. procedure TCAN1_C1FIFOINT22.setTXEMPTYIE(thebits : TBits_1); inline;
  81274. begin
  81275. if thebits = 0 then
  81276. pTDefRegMap(@Self)^.clr := $01000000
  81277. else
  81278. pTDefRegMap(@Self)^.&set := $01000000;
  81279. end;
  81280. function TCAN1_C1FIFOINT22.getTXEMPTYIE : TBits_1; inline;
  81281. begin
  81282. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  81283. end;
  81284. procedure TCAN1_C1FIFOINT22.setTXHALFIE; inline;
  81285. begin
  81286. pTDefRegMap(@Self)^.&set := $02000000;
  81287. end;
  81288. procedure TCAN1_C1FIFOINT22.clearTXHALFIE; inline;
  81289. begin
  81290. pTDefRegMap(@Self)^.clr := $02000000;
  81291. end;
  81292. procedure TCAN1_C1FIFOINT22.setTXHALFIE(thebits : TBits_1); inline;
  81293. begin
  81294. if thebits = 0 then
  81295. pTDefRegMap(@Self)^.clr := $02000000
  81296. else
  81297. pTDefRegMap(@Self)^.&set := $02000000;
  81298. end;
  81299. function TCAN1_C1FIFOINT22.getTXHALFIE : TBits_1; inline;
  81300. begin
  81301. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  81302. end;
  81303. procedure TCAN1_C1FIFOINT22.setTXNFULLIE; inline;
  81304. begin
  81305. pTDefRegMap(@Self)^.&set := $04000000;
  81306. end;
  81307. procedure TCAN1_C1FIFOINT22.clearTXNFULLIE; inline;
  81308. begin
  81309. pTDefRegMap(@Self)^.clr := $04000000;
  81310. end;
  81311. procedure TCAN1_C1FIFOINT22.setTXNFULLIE(thebits : TBits_1); inline;
  81312. begin
  81313. if thebits = 0 then
  81314. pTDefRegMap(@Self)^.clr := $04000000
  81315. else
  81316. pTDefRegMap(@Self)^.&set := $04000000;
  81317. end;
  81318. function TCAN1_C1FIFOINT22.getTXNFULLIE : TBits_1; inline;
  81319. begin
  81320. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  81321. end;
  81322. procedure TCAN1_C1FIFOINT22.setw(thebits : TBits_32); inline;
  81323. begin
  81324. pTDefRegMap(@Self)^.val := thebits;
  81325. end;
  81326. function TCAN1_C1FIFOINT22.getw : TBits_32; inline;
  81327. begin
  81328. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81329. end;
  81330. procedure TCAN1_C1FIFOCI22.setCFIFOCI(thebits : TBits_5); inline;
  81331. begin
  81332. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  81333. end;
  81334. function TCAN1_C1FIFOCI22.getCFIFOCI : TBits_5; inline;
  81335. begin
  81336. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  81337. end;
  81338. procedure TCAN1_C1FIFOCI22.setw(thebits : TBits_32); inline;
  81339. begin
  81340. pTDefRegMap(@Self)^.val := thebits;
  81341. end;
  81342. function TCAN1_C1FIFOCI22.getw : TBits_32; inline;
  81343. begin
  81344. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81345. end;
  81346. procedure TCAN1_C1FIFOCON23.setTXPRI(thebits : TBits_2); inline;
  81347. begin
  81348. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  81349. end;
  81350. function TCAN1_C1FIFOCON23.getTXPRI : TBits_2; inline;
  81351. begin
  81352. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  81353. end;
  81354. procedure TCAN1_C1FIFOCON23.setRTREN; inline;
  81355. begin
  81356. pTDefRegMap(@Self)^.&set := $00000004;
  81357. end;
  81358. procedure TCAN1_C1FIFOCON23.clearRTREN; inline;
  81359. begin
  81360. pTDefRegMap(@Self)^.clr := $00000004;
  81361. end;
  81362. procedure TCAN1_C1FIFOCON23.setRTREN(thebits : TBits_1); inline;
  81363. begin
  81364. if thebits = 0 then
  81365. pTDefRegMap(@Self)^.clr := $00000004
  81366. else
  81367. pTDefRegMap(@Self)^.&set := $00000004;
  81368. end;
  81369. function TCAN1_C1FIFOCON23.getRTREN : TBits_1; inline;
  81370. begin
  81371. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81372. end;
  81373. procedure TCAN1_C1FIFOCON23.setTXREQ; inline;
  81374. begin
  81375. pTDefRegMap(@Self)^.&set := $00000008;
  81376. end;
  81377. procedure TCAN1_C1FIFOCON23.clearTXREQ; inline;
  81378. begin
  81379. pTDefRegMap(@Self)^.clr := $00000008;
  81380. end;
  81381. procedure TCAN1_C1FIFOCON23.setTXREQ(thebits : TBits_1); inline;
  81382. begin
  81383. if thebits = 0 then
  81384. pTDefRegMap(@Self)^.clr := $00000008
  81385. else
  81386. pTDefRegMap(@Self)^.&set := $00000008;
  81387. end;
  81388. function TCAN1_C1FIFOCON23.getTXREQ : TBits_1; inline;
  81389. begin
  81390. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81391. end;
  81392. procedure TCAN1_C1FIFOCON23.setTXERR; inline;
  81393. begin
  81394. pTDefRegMap(@Self)^.&set := $00000010;
  81395. end;
  81396. procedure TCAN1_C1FIFOCON23.clearTXERR; inline;
  81397. begin
  81398. pTDefRegMap(@Self)^.clr := $00000010;
  81399. end;
  81400. procedure TCAN1_C1FIFOCON23.setTXERR(thebits : TBits_1); inline;
  81401. begin
  81402. if thebits = 0 then
  81403. pTDefRegMap(@Self)^.clr := $00000010
  81404. else
  81405. pTDefRegMap(@Self)^.&set := $00000010;
  81406. end;
  81407. function TCAN1_C1FIFOCON23.getTXERR : TBits_1; inline;
  81408. begin
  81409. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  81410. end;
  81411. procedure TCAN1_C1FIFOCON23.setTXLARB; inline;
  81412. begin
  81413. pTDefRegMap(@Self)^.&set := $00000020;
  81414. end;
  81415. procedure TCAN1_C1FIFOCON23.clearTXLARB; inline;
  81416. begin
  81417. pTDefRegMap(@Self)^.clr := $00000020;
  81418. end;
  81419. procedure TCAN1_C1FIFOCON23.setTXLARB(thebits : TBits_1); inline;
  81420. begin
  81421. if thebits = 0 then
  81422. pTDefRegMap(@Self)^.clr := $00000020
  81423. else
  81424. pTDefRegMap(@Self)^.&set := $00000020;
  81425. end;
  81426. function TCAN1_C1FIFOCON23.getTXLARB : TBits_1; inline;
  81427. begin
  81428. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  81429. end;
  81430. procedure TCAN1_C1FIFOCON23.setTXABAT; inline;
  81431. begin
  81432. pTDefRegMap(@Self)^.&set := $00000040;
  81433. end;
  81434. procedure TCAN1_C1FIFOCON23.clearTXABAT; inline;
  81435. begin
  81436. pTDefRegMap(@Self)^.clr := $00000040;
  81437. end;
  81438. procedure TCAN1_C1FIFOCON23.setTXABAT(thebits : TBits_1); inline;
  81439. begin
  81440. if thebits = 0 then
  81441. pTDefRegMap(@Self)^.clr := $00000040
  81442. else
  81443. pTDefRegMap(@Self)^.&set := $00000040;
  81444. end;
  81445. function TCAN1_C1FIFOCON23.getTXABAT : TBits_1; inline;
  81446. begin
  81447. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81448. end;
  81449. procedure TCAN1_C1FIFOCON23.setTXEN; inline;
  81450. begin
  81451. pTDefRegMap(@Self)^.&set := $00000080;
  81452. end;
  81453. procedure TCAN1_C1FIFOCON23.clearTXEN; inline;
  81454. begin
  81455. pTDefRegMap(@Self)^.clr := $00000080;
  81456. end;
  81457. procedure TCAN1_C1FIFOCON23.setTXEN(thebits : TBits_1); inline;
  81458. begin
  81459. if thebits = 0 then
  81460. pTDefRegMap(@Self)^.clr := $00000080
  81461. else
  81462. pTDefRegMap(@Self)^.&set := $00000080;
  81463. end;
  81464. function TCAN1_C1FIFOCON23.getTXEN : TBits_1; inline;
  81465. begin
  81466. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  81467. end;
  81468. procedure TCAN1_C1FIFOCON23.setDONLY; inline;
  81469. begin
  81470. pTDefRegMap(@Self)^.&set := $00001000;
  81471. end;
  81472. procedure TCAN1_C1FIFOCON23.clearDONLY; inline;
  81473. begin
  81474. pTDefRegMap(@Self)^.clr := $00001000;
  81475. end;
  81476. procedure TCAN1_C1FIFOCON23.setDONLY(thebits : TBits_1); inline;
  81477. begin
  81478. if thebits = 0 then
  81479. pTDefRegMap(@Self)^.clr := $00001000
  81480. else
  81481. pTDefRegMap(@Self)^.&set := $00001000;
  81482. end;
  81483. function TCAN1_C1FIFOCON23.getDONLY : TBits_1; inline;
  81484. begin
  81485. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81486. end;
  81487. procedure TCAN1_C1FIFOCON23.setUINC; inline;
  81488. begin
  81489. pTDefRegMap(@Self)^.&set := $00002000;
  81490. end;
  81491. procedure TCAN1_C1FIFOCON23.clearUINC; inline;
  81492. begin
  81493. pTDefRegMap(@Self)^.clr := $00002000;
  81494. end;
  81495. procedure TCAN1_C1FIFOCON23.setUINC(thebits : TBits_1); inline;
  81496. begin
  81497. if thebits = 0 then
  81498. pTDefRegMap(@Self)^.clr := $00002000
  81499. else
  81500. pTDefRegMap(@Self)^.&set := $00002000;
  81501. end;
  81502. function TCAN1_C1FIFOCON23.getUINC : TBits_1; inline;
  81503. begin
  81504. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81505. end;
  81506. procedure TCAN1_C1FIFOCON23.setFRESET; inline;
  81507. begin
  81508. pTDefRegMap(@Self)^.&set := $00004000;
  81509. end;
  81510. procedure TCAN1_C1FIFOCON23.clearFRESET; inline;
  81511. begin
  81512. pTDefRegMap(@Self)^.clr := $00004000;
  81513. end;
  81514. procedure TCAN1_C1FIFOCON23.setFRESET(thebits : TBits_1); inline;
  81515. begin
  81516. if thebits = 0 then
  81517. pTDefRegMap(@Self)^.clr := $00004000
  81518. else
  81519. pTDefRegMap(@Self)^.&set := $00004000;
  81520. end;
  81521. function TCAN1_C1FIFOCON23.getFRESET : TBits_1; inline;
  81522. begin
  81523. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  81524. end;
  81525. procedure TCAN1_C1FIFOCON23.setFSIZE(thebits : TBits_5); inline;
  81526. begin
  81527. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  81528. end;
  81529. function TCAN1_C1FIFOCON23.getFSIZE : TBits_5; inline;
  81530. begin
  81531. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  81532. end;
  81533. procedure TCAN1_C1FIFOCON23.setw(thebits : TBits_32); inline;
  81534. begin
  81535. pTDefRegMap(@Self)^.val := thebits;
  81536. end;
  81537. function TCAN1_C1FIFOCON23.getw : TBits_32; inline;
  81538. begin
  81539. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81540. end;
  81541. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIF; inline;
  81542. begin
  81543. pTDefRegMap(@Self)^.&set := $00000001;
  81544. end;
  81545. procedure TCAN1_C1FIFOINT23.clearRXNEMPTYIF; inline;
  81546. begin
  81547. pTDefRegMap(@Self)^.clr := $00000001;
  81548. end;
  81549. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIF(thebits : TBits_1); inline;
  81550. begin
  81551. if thebits = 0 then
  81552. pTDefRegMap(@Self)^.clr := $00000001
  81553. else
  81554. pTDefRegMap(@Self)^.&set := $00000001;
  81555. end;
  81556. function TCAN1_C1FIFOINT23.getRXNEMPTYIF : TBits_1; inline;
  81557. begin
  81558. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  81559. end;
  81560. procedure TCAN1_C1FIFOINT23.setRXHALFIF; inline;
  81561. begin
  81562. pTDefRegMap(@Self)^.&set := $00000002;
  81563. end;
  81564. procedure TCAN1_C1FIFOINT23.clearRXHALFIF; inline;
  81565. begin
  81566. pTDefRegMap(@Self)^.clr := $00000002;
  81567. end;
  81568. procedure TCAN1_C1FIFOINT23.setRXHALFIF(thebits : TBits_1); inline;
  81569. begin
  81570. if thebits = 0 then
  81571. pTDefRegMap(@Self)^.clr := $00000002
  81572. else
  81573. pTDefRegMap(@Self)^.&set := $00000002;
  81574. end;
  81575. function TCAN1_C1FIFOINT23.getRXHALFIF : TBits_1; inline;
  81576. begin
  81577. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  81578. end;
  81579. procedure TCAN1_C1FIFOINT23.setRXFULLIF; inline;
  81580. begin
  81581. pTDefRegMap(@Self)^.&set := $00000004;
  81582. end;
  81583. procedure TCAN1_C1FIFOINT23.clearRXFULLIF; inline;
  81584. begin
  81585. pTDefRegMap(@Self)^.clr := $00000004;
  81586. end;
  81587. procedure TCAN1_C1FIFOINT23.setRXFULLIF(thebits : TBits_1); inline;
  81588. begin
  81589. if thebits = 0 then
  81590. pTDefRegMap(@Self)^.clr := $00000004
  81591. else
  81592. pTDefRegMap(@Self)^.&set := $00000004;
  81593. end;
  81594. function TCAN1_C1FIFOINT23.getRXFULLIF : TBits_1; inline;
  81595. begin
  81596. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81597. end;
  81598. procedure TCAN1_C1FIFOINT23.setRXOVFLIF; inline;
  81599. begin
  81600. pTDefRegMap(@Self)^.&set := $00000008;
  81601. end;
  81602. procedure TCAN1_C1FIFOINT23.clearRXOVFLIF; inline;
  81603. begin
  81604. pTDefRegMap(@Self)^.clr := $00000008;
  81605. end;
  81606. procedure TCAN1_C1FIFOINT23.setRXOVFLIF(thebits : TBits_1); inline;
  81607. begin
  81608. if thebits = 0 then
  81609. pTDefRegMap(@Self)^.clr := $00000008
  81610. else
  81611. pTDefRegMap(@Self)^.&set := $00000008;
  81612. end;
  81613. function TCAN1_C1FIFOINT23.getRXOVFLIF : TBits_1; inline;
  81614. begin
  81615. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81616. end;
  81617. procedure TCAN1_C1FIFOINT23.setTXEMPTYIF; inline;
  81618. begin
  81619. pTDefRegMap(@Self)^.&set := $00000100;
  81620. end;
  81621. procedure TCAN1_C1FIFOINT23.clearTXEMPTYIF; inline;
  81622. begin
  81623. pTDefRegMap(@Self)^.clr := $00000100;
  81624. end;
  81625. procedure TCAN1_C1FIFOINT23.setTXEMPTYIF(thebits : TBits_1); inline;
  81626. begin
  81627. if thebits = 0 then
  81628. pTDefRegMap(@Self)^.clr := $00000100
  81629. else
  81630. pTDefRegMap(@Self)^.&set := $00000100;
  81631. end;
  81632. function TCAN1_C1FIFOINT23.getTXEMPTYIF : TBits_1; inline;
  81633. begin
  81634. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  81635. end;
  81636. procedure TCAN1_C1FIFOINT23.setTXHALFIF; inline;
  81637. begin
  81638. pTDefRegMap(@Self)^.&set := $00000200;
  81639. end;
  81640. procedure TCAN1_C1FIFOINT23.clearTXHALFIF; inline;
  81641. begin
  81642. pTDefRegMap(@Self)^.clr := $00000200;
  81643. end;
  81644. procedure TCAN1_C1FIFOINT23.setTXHALFIF(thebits : TBits_1); inline;
  81645. begin
  81646. if thebits = 0 then
  81647. pTDefRegMap(@Self)^.clr := $00000200
  81648. else
  81649. pTDefRegMap(@Self)^.&set := $00000200;
  81650. end;
  81651. function TCAN1_C1FIFOINT23.getTXHALFIF : TBits_1; inline;
  81652. begin
  81653. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  81654. end;
  81655. procedure TCAN1_C1FIFOINT23.setTXNFULLIF; inline;
  81656. begin
  81657. pTDefRegMap(@Self)^.&set := $00000400;
  81658. end;
  81659. procedure TCAN1_C1FIFOINT23.clearTXNFULLIF; inline;
  81660. begin
  81661. pTDefRegMap(@Self)^.clr := $00000400;
  81662. end;
  81663. procedure TCAN1_C1FIFOINT23.setTXNFULLIF(thebits : TBits_1); inline;
  81664. begin
  81665. if thebits = 0 then
  81666. pTDefRegMap(@Self)^.clr := $00000400
  81667. else
  81668. pTDefRegMap(@Self)^.&set := $00000400;
  81669. end;
  81670. function TCAN1_C1FIFOINT23.getTXNFULLIF : TBits_1; inline;
  81671. begin
  81672. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  81673. end;
  81674. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIE; inline;
  81675. begin
  81676. pTDefRegMap(@Self)^.&set := $00010000;
  81677. end;
  81678. procedure TCAN1_C1FIFOINT23.clearRXNEMPTYIE; inline;
  81679. begin
  81680. pTDefRegMap(@Self)^.clr := $00010000;
  81681. end;
  81682. procedure TCAN1_C1FIFOINT23.setRXNEMPTYIE(thebits : TBits_1); inline;
  81683. begin
  81684. if thebits = 0 then
  81685. pTDefRegMap(@Self)^.clr := $00010000
  81686. else
  81687. pTDefRegMap(@Self)^.&set := $00010000;
  81688. end;
  81689. function TCAN1_C1FIFOINT23.getRXNEMPTYIE : TBits_1; inline;
  81690. begin
  81691. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  81692. end;
  81693. procedure TCAN1_C1FIFOINT23.setRXHALFIE; inline;
  81694. begin
  81695. pTDefRegMap(@Self)^.&set := $00020000;
  81696. end;
  81697. procedure TCAN1_C1FIFOINT23.clearRXHALFIE; inline;
  81698. begin
  81699. pTDefRegMap(@Self)^.clr := $00020000;
  81700. end;
  81701. procedure TCAN1_C1FIFOINT23.setRXHALFIE(thebits : TBits_1); inline;
  81702. begin
  81703. if thebits = 0 then
  81704. pTDefRegMap(@Self)^.clr := $00020000
  81705. else
  81706. pTDefRegMap(@Self)^.&set := $00020000;
  81707. end;
  81708. function TCAN1_C1FIFOINT23.getRXHALFIE : TBits_1; inline;
  81709. begin
  81710. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  81711. end;
  81712. procedure TCAN1_C1FIFOINT23.setRXFULLIE; inline;
  81713. begin
  81714. pTDefRegMap(@Self)^.&set := $00040000;
  81715. end;
  81716. procedure TCAN1_C1FIFOINT23.clearRXFULLIE; inline;
  81717. begin
  81718. pTDefRegMap(@Self)^.clr := $00040000;
  81719. end;
  81720. procedure TCAN1_C1FIFOINT23.setRXFULLIE(thebits : TBits_1); inline;
  81721. begin
  81722. if thebits = 0 then
  81723. pTDefRegMap(@Self)^.clr := $00040000
  81724. else
  81725. pTDefRegMap(@Self)^.&set := $00040000;
  81726. end;
  81727. function TCAN1_C1FIFOINT23.getRXFULLIE : TBits_1; inline;
  81728. begin
  81729. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  81730. end;
  81731. procedure TCAN1_C1FIFOINT23.setRXOVFLIE; inline;
  81732. begin
  81733. pTDefRegMap(@Self)^.&set := $00080000;
  81734. end;
  81735. procedure TCAN1_C1FIFOINT23.clearRXOVFLIE; inline;
  81736. begin
  81737. pTDefRegMap(@Self)^.clr := $00080000;
  81738. end;
  81739. procedure TCAN1_C1FIFOINT23.setRXOVFLIE(thebits : TBits_1); inline;
  81740. begin
  81741. if thebits = 0 then
  81742. pTDefRegMap(@Self)^.clr := $00080000
  81743. else
  81744. pTDefRegMap(@Self)^.&set := $00080000;
  81745. end;
  81746. function TCAN1_C1FIFOINT23.getRXOVFLIE : TBits_1; inline;
  81747. begin
  81748. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  81749. end;
  81750. procedure TCAN1_C1FIFOINT23.setTXEMPTYIE; inline;
  81751. begin
  81752. pTDefRegMap(@Self)^.&set := $01000000;
  81753. end;
  81754. procedure TCAN1_C1FIFOINT23.clearTXEMPTYIE; inline;
  81755. begin
  81756. pTDefRegMap(@Self)^.clr := $01000000;
  81757. end;
  81758. procedure TCAN1_C1FIFOINT23.setTXEMPTYIE(thebits : TBits_1); inline;
  81759. begin
  81760. if thebits = 0 then
  81761. pTDefRegMap(@Self)^.clr := $01000000
  81762. else
  81763. pTDefRegMap(@Self)^.&set := $01000000;
  81764. end;
  81765. function TCAN1_C1FIFOINT23.getTXEMPTYIE : TBits_1; inline;
  81766. begin
  81767. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  81768. end;
  81769. procedure TCAN1_C1FIFOINT23.setTXHALFIE; inline;
  81770. begin
  81771. pTDefRegMap(@Self)^.&set := $02000000;
  81772. end;
  81773. procedure TCAN1_C1FIFOINT23.clearTXHALFIE; inline;
  81774. begin
  81775. pTDefRegMap(@Self)^.clr := $02000000;
  81776. end;
  81777. procedure TCAN1_C1FIFOINT23.setTXHALFIE(thebits : TBits_1); inline;
  81778. begin
  81779. if thebits = 0 then
  81780. pTDefRegMap(@Self)^.clr := $02000000
  81781. else
  81782. pTDefRegMap(@Self)^.&set := $02000000;
  81783. end;
  81784. function TCAN1_C1FIFOINT23.getTXHALFIE : TBits_1; inline;
  81785. begin
  81786. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  81787. end;
  81788. procedure TCAN1_C1FIFOINT23.setTXNFULLIE; inline;
  81789. begin
  81790. pTDefRegMap(@Self)^.&set := $04000000;
  81791. end;
  81792. procedure TCAN1_C1FIFOINT23.clearTXNFULLIE; inline;
  81793. begin
  81794. pTDefRegMap(@Self)^.clr := $04000000;
  81795. end;
  81796. procedure TCAN1_C1FIFOINT23.setTXNFULLIE(thebits : TBits_1); inline;
  81797. begin
  81798. if thebits = 0 then
  81799. pTDefRegMap(@Self)^.clr := $04000000
  81800. else
  81801. pTDefRegMap(@Self)^.&set := $04000000;
  81802. end;
  81803. function TCAN1_C1FIFOINT23.getTXNFULLIE : TBits_1; inline;
  81804. begin
  81805. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  81806. end;
  81807. procedure TCAN1_C1FIFOINT23.setw(thebits : TBits_32); inline;
  81808. begin
  81809. pTDefRegMap(@Self)^.val := thebits;
  81810. end;
  81811. function TCAN1_C1FIFOINT23.getw : TBits_32; inline;
  81812. begin
  81813. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81814. end;
  81815. procedure TCAN1_C1FIFOCI23.setCFIFOCI(thebits : TBits_5); inline;
  81816. begin
  81817. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  81818. end;
  81819. function TCAN1_C1FIFOCI23.getCFIFOCI : TBits_5; inline;
  81820. begin
  81821. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  81822. end;
  81823. procedure TCAN1_C1FIFOCI23.setw(thebits : TBits_32); inline;
  81824. begin
  81825. pTDefRegMap(@Self)^.val := thebits;
  81826. end;
  81827. function TCAN1_C1FIFOCI23.getw : TBits_32; inline;
  81828. begin
  81829. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  81830. end;
  81831. procedure TCAN1_C1FIFOCON24.setTXPRI(thebits : TBits_2); inline;
  81832. begin
  81833. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  81834. end;
  81835. function TCAN1_C1FIFOCON24.getTXPRI : TBits_2; inline;
  81836. begin
  81837. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  81838. end;
  81839. procedure TCAN1_C1FIFOCON24.setRTREN; inline;
  81840. begin
  81841. pTDefRegMap(@Self)^.&set := $00000004;
  81842. end;
  81843. procedure TCAN1_C1FIFOCON24.clearRTREN; inline;
  81844. begin
  81845. pTDefRegMap(@Self)^.clr := $00000004;
  81846. end;
  81847. procedure TCAN1_C1FIFOCON24.setRTREN(thebits : TBits_1); inline;
  81848. begin
  81849. if thebits = 0 then
  81850. pTDefRegMap(@Self)^.clr := $00000004
  81851. else
  81852. pTDefRegMap(@Self)^.&set := $00000004;
  81853. end;
  81854. function TCAN1_C1FIFOCON24.getRTREN : TBits_1; inline;
  81855. begin
  81856. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  81857. end;
  81858. procedure TCAN1_C1FIFOCON24.setTXREQ; inline;
  81859. begin
  81860. pTDefRegMap(@Self)^.&set := $00000008;
  81861. end;
  81862. procedure TCAN1_C1FIFOCON24.clearTXREQ; inline;
  81863. begin
  81864. pTDefRegMap(@Self)^.clr := $00000008;
  81865. end;
  81866. procedure TCAN1_C1FIFOCON24.setTXREQ(thebits : TBits_1); inline;
  81867. begin
  81868. if thebits = 0 then
  81869. pTDefRegMap(@Self)^.clr := $00000008
  81870. else
  81871. pTDefRegMap(@Self)^.&set := $00000008;
  81872. end;
  81873. function TCAN1_C1FIFOCON24.getTXREQ : TBits_1; inline;
  81874. begin
  81875. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  81876. end;
  81877. procedure TCAN1_C1FIFOCON24.setTXERR; inline;
  81878. begin
  81879. pTDefRegMap(@Self)^.&set := $00000010;
  81880. end;
  81881. procedure TCAN1_C1FIFOCON24.clearTXERR; inline;
  81882. begin
  81883. pTDefRegMap(@Self)^.clr := $00000010;
  81884. end;
  81885. procedure TCAN1_C1FIFOCON24.setTXERR(thebits : TBits_1); inline;
  81886. begin
  81887. if thebits = 0 then
  81888. pTDefRegMap(@Self)^.clr := $00000010
  81889. else
  81890. pTDefRegMap(@Self)^.&set := $00000010;
  81891. end;
  81892. function TCAN1_C1FIFOCON24.getTXERR : TBits_1; inline;
  81893. begin
  81894. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  81895. end;
  81896. procedure TCAN1_C1FIFOCON24.setTXLARB; inline;
  81897. begin
  81898. pTDefRegMap(@Self)^.&set := $00000020;
  81899. end;
  81900. procedure TCAN1_C1FIFOCON24.clearTXLARB; inline;
  81901. begin
  81902. pTDefRegMap(@Self)^.clr := $00000020;
  81903. end;
  81904. procedure TCAN1_C1FIFOCON24.setTXLARB(thebits : TBits_1); inline;
  81905. begin
  81906. if thebits = 0 then
  81907. pTDefRegMap(@Self)^.clr := $00000020
  81908. else
  81909. pTDefRegMap(@Self)^.&set := $00000020;
  81910. end;
  81911. function TCAN1_C1FIFOCON24.getTXLARB : TBits_1; inline;
  81912. begin
  81913. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  81914. end;
  81915. procedure TCAN1_C1FIFOCON24.setTXABAT; inline;
  81916. begin
  81917. pTDefRegMap(@Self)^.&set := $00000040;
  81918. end;
  81919. procedure TCAN1_C1FIFOCON24.clearTXABAT; inline;
  81920. begin
  81921. pTDefRegMap(@Self)^.clr := $00000040;
  81922. end;
  81923. procedure TCAN1_C1FIFOCON24.setTXABAT(thebits : TBits_1); inline;
  81924. begin
  81925. if thebits = 0 then
  81926. pTDefRegMap(@Self)^.clr := $00000040
  81927. else
  81928. pTDefRegMap(@Self)^.&set := $00000040;
  81929. end;
  81930. function TCAN1_C1FIFOCON24.getTXABAT : TBits_1; inline;
  81931. begin
  81932. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  81933. end;
  81934. procedure TCAN1_C1FIFOCON24.setTXEN; inline;
  81935. begin
  81936. pTDefRegMap(@Self)^.&set := $00000080;
  81937. end;
  81938. procedure TCAN1_C1FIFOCON24.clearTXEN; inline;
  81939. begin
  81940. pTDefRegMap(@Self)^.clr := $00000080;
  81941. end;
  81942. procedure TCAN1_C1FIFOCON24.setTXEN(thebits : TBits_1); inline;
  81943. begin
  81944. if thebits = 0 then
  81945. pTDefRegMap(@Self)^.clr := $00000080
  81946. else
  81947. pTDefRegMap(@Self)^.&set := $00000080;
  81948. end;
  81949. function TCAN1_C1FIFOCON24.getTXEN : TBits_1; inline;
  81950. begin
  81951. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  81952. end;
  81953. procedure TCAN1_C1FIFOCON24.setDONLY; inline;
  81954. begin
  81955. pTDefRegMap(@Self)^.&set := $00001000;
  81956. end;
  81957. procedure TCAN1_C1FIFOCON24.clearDONLY; inline;
  81958. begin
  81959. pTDefRegMap(@Self)^.clr := $00001000;
  81960. end;
  81961. procedure TCAN1_C1FIFOCON24.setDONLY(thebits : TBits_1); inline;
  81962. begin
  81963. if thebits = 0 then
  81964. pTDefRegMap(@Self)^.clr := $00001000
  81965. else
  81966. pTDefRegMap(@Self)^.&set := $00001000;
  81967. end;
  81968. function TCAN1_C1FIFOCON24.getDONLY : TBits_1; inline;
  81969. begin
  81970. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  81971. end;
  81972. procedure TCAN1_C1FIFOCON24.setUINC; inline;
  81973. begin
  81974. pTDefRegMap(@Self)^.&set := $00002000;
  81975. end;
  81976. procedure TCAN1_C1FIFOCON24.clearUINC; inline;
  81977. begin
  81978. pTDefRegMap(@Self)^.clr := $00002000;
  81979. end;
  81980. procedure TCAN1_C1FIFOCON24.setUINC(thebits : TBits_1); inline;
  81981. begin
  81982. if thebits = 0 then
  81983. pTDefRegMap(@Self)^.clr := $00002000
  81984. else
  81985. pTDefRegMap(@Self)^.&set := $00002000;
  81986. end;
  81987. function TCAN1_C1FIFOCON24.getUINC : TBits_1; inline;
  81988. begin
  81989. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  81990. end;
  81991. procedure TCAN1_C1FIFOCON24.setFRESET; inline;
  81992. begin
  81993. pTDefRegMap(@Self)^.&set := $00004000;
  81994. end;
  81995. procedure TCAN1_C1FIFOCON24.clearFRESET; inline;
  81996. begin
  81997. pTDefRegMap(@Self)^.clr := $00004000;
  81998. end;
  81999. procedure TCAN1_C1FIFOCON24.setFRESET(thebits : TBits_1); inline;
  82000. begin
  82001. if thebits = 0 then
  82002. pTDefRegMap(@Self)^.clr := $00004000
  82003. else
  82004. pTDefRegMap(@Self)^.&set := $00004000;
  82005. end;
  82006. function TCAN1_C1FIFOCON24.getFRESET : TBits_1; inline;
  82007. begin
  82008. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82009. end;
  82010. procedure TCAN1_C1FIFOCON24.setFSIZE(thebits : TBits_5); inline;
  82011. begin
  82012. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82013. end;
  82014. function TCAN1_C1FIFOCON24.getFSIZE : TBits_5; inline;
  82015. begin
  82016. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82017. end;
  82018. procedure TCAN1_C1FIFOCON24.setw(thebits : TBits_32); inline;
  82019. begin
  82020. pTDefRegMap(@Self)^.val := thebits;
  82021. end;
  82022. function TCAN1_C1FIFOCON24.getw : TBits_32; inline;
  82023. begin
  82024. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82025. end;
  82026. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIF; inline;
  82027. begin
  82028. pTDefRegMap(@Self)^.&set := $00000001;
  82029. end;
  82030. procedure TCAN1_C1FIFOINT24.clearRXNEMPTYIF; inline;
  82031. begin
  82032. pTDefRegMap(@Self)^.clr := $00000001;
  82033. end;
  82034. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIF(thebits : TBits_1); inline;
  82035. begin
  82036. if thebits = 0 then
  82037. pTDefRegMap(@Self)^.clr := $00000001
  82038. else
  82039. pTDefRegMap(@Self)^.&set := $00000001;
  82040. end;
  82041. function TCAN1_C1FIFOINT24.getRXNEMPTYIF : TBits_1; inline;
  82042. begin
  82043. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  82044. end;
  82045. procedure TCAN1_C1FIFOINT24.setRXHALFIF; inline;
  82046. begin
  82047. pTDefRegMap(@Self)^.&set := $00000002;
  82048. end;
  82049. procedure TCAN1_C1FIFOINT24.clearRXHALFIF; inline;
  82050. begin
  82051. pTDefRegMap(@Self)^.clr := $00000002;
  82052. end;
  82053. procedure TCAN1_C1FIFOINT24.setRXHALFIF(thebits : TBits_1); inline;
  82054. begin
  82055. if thebits = 0 then
  82056. pTDefRegMap(@Self)^.clr := $00000002
  82057. else
  82058. pTDefRegMap(@Self)^.&set := $00000002;
  82059. end;
  82060. function TCAN1_C1FIFOINT24.getRXHALFIF : TBits_1; inline;
  82061. begin
  82062. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  82063. end;
  82064. procedure TCAN1_C1FIFOINT24.setRXFULLIF; inline;
  82065. begin
  82066. pTDefRegMap(@Self)^.&set := $00000004;
  82067. end;
  82068. procedure TCAN1_C1FIFOINT24.clearRXFULLIF; inline;
  82069. begin
  82070. pTDefRegMap(@Self)^.clr := $00000004;
  82071. end;
  82072. procedure TCAN1_C1FIFOINT24.setRXFULLIF(thebits : TBits_1); inline;
  82073. begin
  82074. if thebits = 0 then
  82075. pTDefRegMap(@Self)^.clr := $00000004
  82076. else
  82077. pTDefRegMap(@Self)^.&set := $00000004;
  82078. end;
  82079. function TCAN1_C1FIFOINT24.getRXFULLIF : TBits_1; inline;
  82080. begin
  82081. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82082. end;
  82083. procedure TCAN1_C1FIFOINT24.setRXOVFLIF; inline;
  82084. begin
  82085. pTDefRegMap(@Self)^.&set := $00000008;
  82086. end;
  82087. procedure TCAN1_C1FIFOINT24.clearRXOVFLIF; inline;
  82088. begin
  82089. pTDefRegMap(@Self)^.clr := $00000008;
  82090. end;
  82091. procedure TCAN1_C1FIFOINT24.setRXOVFLIF(thebits : TBits_1); inline;
  82092. begin
  82093. if thebits = 0 then
  82094. pTDefRegMap(@Self)^.clr := $00000008
  82095. else
  82096. pTDefRegMap(@Self)^.&set := $00000008;
  82097. end;
  82098. function TCAN1_C1FIFOINT24.getRXOVFLIF : TBits_1; inline;
  82099. begin
  82100. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82101. end;
  82102. procedure TCAN1_C1FIFOINT24.setTXEMPTYIF; inline;
  82103. begin
  82104. pTDefRegMap(@Self)^.&set := $00000100;
  82105. end;
  82106. procedure TCAN1_C1FIFOINT24.clearTXEMPTYIF; inline;
  82107. begin
  82108. pTDefRegMap(@Self)^.clr := $00000100;
  82109. end;
  82110. procedure TCAN1_C1FIFOINT24.setTXEMPTYIF(thebits : TBits_1); inline;
  82111. begin
  82112. if thebits = 0 then
  82113. pTDefRegMap(@Self)^.clr := $00000100
  82114. else
  82115. pTDefRegMap(@Self)^.&set := $00000100;
  82116. end;
  82117. function TCAN1_C1FIFOINT24.getTXEMPTYIF : TBits_1; inline;
  82118. begin
  82119. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  82120. end;
  82121. procedure TCAN1_C1FIFOINT24.setTXHALFIF; inline;
  82122. begin
  82123. pTDefRegMap(@Self)^.&set := $00000200;
  82124. end;
  82125. procedure TCAN1_C1FIFOINT24.clearTXHALFIF; inline;
  82126. begin
  82127. pTDefRegMap(@Self)^.clr := $00000200;
  82128. end;
  82129. procedure TCAN1_C1FIFOINT24.setTXHALFIF(thebits : TBits_1); inline;
  82130. begin
  82131. if thebits = 0 then
  82132. pTDefRegMap(@Self)^.clr := $00000200
  82133. else
  82134. pTDefRegMap(@Self)^.&set := $00000200;
  82135. end;
  82136. function TCAN1_C1FIFOINT24.getTXHALFIF : TBits_1; inline;
  82137. begin
  82138. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  82139. end;
  82140. procedure TCAN1_C1FIFOINT24.setTXNFULLIF; inline;
  82141. begin
  82142. pTDefRegMap(@Self)^.&set := $00000400;
  82143. end;
  82144. procedure TCAN1_C1FIFOINT24.clearTXNFULLIF; inline;
  82145. begin
  82146. pTDefRegMap(@Self)^.clr := $00000400;
  82147. end;
  82148. procedure TCAN1_C1FIFOINT24.setTXNFULLIF(thebits : TBits_1); inline;
  82149. begin
  82150. if thebits = 0 then
  82151. pTDefRegMap(@Self)^.clr := $00000400
  82152. else
  82153. pTDefRegMap(@Self)^.&set := $00000400;
  82154. end;
  82155. function TCAN1_C1FIFOINT24.getTXNFULLIF : TBits_1; inline;
  82156. begin
  82157. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82158. end;
  82159. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIE; inline;
  82160. begin
  82161. pTDefRegMap(@Self)^.&set := $00010000;
  82162. end;
  82163. procedure TCAN1_C1FIFOINT24.clearRXNEMPTYIE; inline;
  82164. begin
  82165. pTDefRegMap(@Self)^.clr := $00010000;
  82166. end;
  82167. procedure TCAN1_C1FIFOINT24.setRXNEMPTYIE(thebits : TBits_1); inline;
  82168. begin
  82169. if thebits = 0 then
  82170. pTDefRegMap(@Self)^.clr := $00010000
  82171. else
  82172. pTDefRegMap(@Self)^.&set := $00010000;
  82173. end;
  82174. function TCAN1_C1FIFOINT24.getRXNEMPTYIE : TBits_1; inline;
  82175. begin
  82176. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  82177. end;
  82178. procedure TCAN1_C1FIFOINT24.setRXHALFIE; inline;
  82179. begin
  82180. pTDefRegMap(@Self)^.&set := $00020000;
  82181. end;
  82182. procedure TCAN1_C1FIFOINT24.clearRXHALFIE; inline;
  82183. begin
  82184. pTDefRegMap(@Self)^.clr := $00020000;
  82185. end;
  82186. procedure TCAN1_C1FIFOINT24.setRXHALFIE(thebits : TBits_1); inline;
  82187. begin
  82188. if thebits = 0 then
  82189. pTDefRegMap(@Self)^.clr := $00020000
  82190. else
  82191. pTDefRegMap(@Self)^.&set := $00020000;
  82192. end;
  82193. function TCAN1_C1FIFOINT24.getRXHALFIE : TBits_1; inline;
  82194. begin
  82195. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  82196. end;
  82197. procedure TCAN1_C1FIFOINT24.setRXFULLIE; inline;
  82198. begin
  82199. pTDefRegMap(@Self)^.&set := $00040000;
  82200. end;
  82201. procedure TCAN1_C1FIFOINT24.clearRXFULLIE; inline;
  82202. begin
  82203. pTDefRegMap(@Self)^.clr := $00040000;
  82204. end;
  82205. procedure TCAN1_C1FIFOINT24.setRXFULLIE(thebits : TBits_1); inline;
  82206. begin
  82207. if thebits = 0 then
  82208. pTDefRegMap(@Self)^.clr := $00040000
  82209. else
  82210. pTDefRegMap(@Self)^.&set := $00040000;
  82211. end;
  82212. function TCAN1_C1FIFOINT24.getRXFULLIE : TBits_1; inline;
  82213. begin
  82214. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  82215. end;
  82216. procedure TCAN1_C1FIFOINT24.setRXOVFLIE; inline;
  82217. begin
  82218. pTDefRegMap(@Self)^.&set := $00080000;
  82219. end;
  82220. procedure TCAN1_C1FIFOINT24.clearRXOVFLIE; inline;
  82221. begin
  82222. pTDefRegMap(@Self)^.clr := $00080000;
  82223. end;
  82224. procedure TCAN1_C1FIFOINT24.setRXOVFLIE(thebits : TBits_1); inline;
  82225. begin
  82226. if thebits = 0 then
  82227. pTDefRegMap(@Self)^.clr := $00080000
  82228. else
  82229. pTDefRegMap(@Self)^.&set := $00080000;
  82230. end;
  82231. function TCAN1_C1FIFOINT24.getRXOVFLIE : TBits_1; inline;
  82232. begin
  82233. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  82234. end;
  82235. procedure TCAN1_C1FIFOINT24.setTXEMPTYIE; inline;
  82236. begin
  82237. pTDefRegMap(@Self)^.&set := $01000000;
  82238. end;
  82239. procedure TCAN1_C1FIFOINT24.clearTXEMPTYIE; inline;
  82240. begin
  82241. pTDefRegMap(@Self)^.clr := $01000000;
  82242. end;
  82243. procedure TCAN1_C1FIFOINT24.setTXEMPTYIE(thebits : TBits_1); inline;
  82244. begin
  82245. if thebits = 0 then
  82246. pTDefRegMap(@Self)^.clr := $01000000
  82247. else
  82248. pTDefRegMap(@Self)^.&set := $01000000;
  82249. end;
  82250. function TCAN1_C1FIFOINT24.getTXEMPTYIE : TBits_1; inline;
  82251. begin
  82252. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  82253. end;
  82254. procedure TCAN1_C1FIFOINT24.setTXHALFIE; inline;
  82255. begin
  82256. pTDefRegMap(@Self)^.&set := $02000000;
  82257. end;
  82258. procedure TCAN1_C1FIFOINT24.clearTXHALFIE; inline;
  82259. begin
  82260. pTDefRegMap(@Self)^.clr := $02000000;
  82261. end;
  82262. procedure TCAN1_C1FIFOINT24.setTXHALFIE(thebits : TBits_1); inline;
  82263. begin
  82264. if thebits = 0 then
  82265. pTDefRegMap(@Self)^.clr := $02000000
  82266. else
  82267. pTDefRegMap(@Self)^.&set := $02000000;
  82268. end;
  82269. function TCAN1_C1FIFOINT24.getTXHALFIE : TBits_1; inline;
  82270. begin
  82271. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  82272. end;
  82273. procedure TCAN1_C1FIFOINT24.setTXNFULLIE; inline;
  82274. begin
  82275. pTDefRegMap(@Self)^.&set := $04000000;
  82276. end;
  82277. procedure TCAN1_C1FIFOINT24.clearTXNFULLIE; inline;
  82278. begin
  82279. pTDefRegMap(@Self)^.clr := $04000000;
  82280. end;
  82281. procedure TCAN1_C1FIFOINT24.setTXNFULLIE(thebits : TBits_1); inline;
  82282. begin
  82283. if thebits = 0 then
  82284. pTDefRegMap(@Self)^.clr := $04000000
  82285. else
  82286. pTDefRegMap(@Self)^.&set := $04000000;
  82287. end;
  82288. function TCAN1_C1FIFOINT24.getTXNFULLIE : TBits_1; inline;
  82289. begin
  82290. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  82291. end;
  82292. procedure TCAN1_C1FIFOINT24.setw(thebits : TBits_32); inline;
  82293. begin
  82294. pTDefRegMap(@Self)^.val := thebits;
  82295. end;
  82296. function TCAN1_C1FIFOINT24.getw : TBits_32; inline;
  82297. begin
  82298. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82299. end;
  82300. procedure TCAN1_C1FIFOCI24.setCFIFOCI(thebits : TBits_5); inline;
  82301. begin
  82302. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  82303. end;
  82304. function TCAN1_C1FIFOCI24.getCFIFOCI : TBits_5; inline;
  82305. begin
  82306. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  82307. end;
  82308. procedure TCAN1_C1FIFOCI24.setw(thebits : TBits_32); inline;
  82309. begin
  82310. pTDefRegMap(@Self)^.val := thebits;
  82311. end;
  82312. function TCAN1_C1FIFOCI24.getw : TBits_32; inline;
  82313. begin
  82314. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82315. end;
  82316. procedure TCAN1_C1FIFOCON25.setTXPRI(thebits : TBits_2); inline;
  82317. begin
  82318. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  82319. end;
  82320. function TCAN1_C1FIFOCON25.getTXPRI : TBits_2; inline;
  82321. begin
  82322. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  82323. end;
  82324. procedure TCAN1_C1FIFOCON25.setRTREN; inline;
  82325. begin
  82326. pTDefRegMap(@Self)^.&set := $00000004;
  82327. end;
  82328. procedure TCAN1_C1FIFOCON25.clearRTREN; inline;
  82329. begin
  82330. pTDefRegMap(@Self)^.clr := $00000004;
  82331. end;
  82332. procedure TCAN1_C1FIFOCON25.setRTREN(thebits : TBits_1); inline;
  82333. begin
  82334. if thebits = 0 then
  82335. pTDefRegMap(@Self)^.clr := $00000004
  82336. else
  82337. pTDefRegMap(@Self)^.&set := $00000004;
  82338. end;
  82339. function TCAN1_C1FIFOCON25.getRTREN : TBits_1; inline;
  82340. begin
  82341. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82342. end;
  82343. procedure TCAN1_C1FIFOCON25.setTXREQ; inline;
  82344. begin
  82345. pTDefRegMap(@Self)^.&set := $00000008;
  82346. end;
  82347. procedure TCAN1_C1FIFOCON25.clearTXREQ; inline;
  82348. begin
  82349. pTDefRegMap(@Self)^.clr := $00000008;
  82350. end;
  82351. procedure TCAN1_C1FIFOCON25.setTXREQ(thebits : TBits_1); inline;
  82352. begin
  82353. if thebits = 0 then
  82354. pTDefRegMap(@Self)^.clr := $00000008
  82355. else
  82356. pTDefRegMap(@Self)^.&set := $00000008;
  82357. end;
  82358. function TCAN1_C1FIFOCON25.getTXREQ : TBits_1; inline;
  82359. begin
  82360. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82361. end;
  82362. procedure TCAN1_C1FIFOCON25.setTXERR; inline;
  82363. begin
  82364. pTDefRegMap(@Self)^.&set := $00000010;
  82365. end;
  82366. procedure TCAN1_C1FIFOCON25.clearTXERR; inline;
  82367. begin
  82368. pTDefRegMap(@Self)^.clr := $00000010;
  82369. end;
  82370. procedure TCAN1_C1FIFOCON25.setTXERR(thebits : TBits_1); inline;
  82371. begin
  82372. if thebits = 0 then
  82373. pTDefRegMap(@Self)^.clr := $00000010
  82374. else
  82375. pTDefRegMap(@Self)^.&set := $00000010;
  82376. end;
  82377. function TCAN1_C1FIFOCON25.getTXERR : TBits_1; inline;
  82378. begin
  82379. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  82380. end;
  82381. procedure TCAN1_C1FIFOCON25.setTXLARB; inline;
  82382. begin
  82383. pTDefRegMap(@Self)^.&set := $00000020;
  82384. end;
  82385. procedure TCAN1_C1FIFOCON25.clearTXLARB; inline;
  82386. begin
  82387. pTDefRegMap(@Self)^.clr := $00000020;
  82388. end;
  82389. procedure TCAN1_C1FIFOCON25.setTXLARB(thebits : TBits_1); inline;
  82390. begin
  82391. if thebits = 0 then
  82392. pTDefRegMap(@Self)^.clr := $00000020
  82393. else
  82394. pTDefRegMap(@Self)^.&set := $00000020;
  82395. end;
  82396. function TCAN1_C1FIFOCON25.getTXLARB : TBits_1; inline;
  82397. begin
  82398. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  82399. end;
  82400. procedure TCAN1_C1FIFOCON25.setTXABAT; inline;
  82401. begin
  82402. pTDefRegMap(@Self)^.&set := $00000040;
  82403. end;
  82404. procedure TCAN1_C1FIFOCON25.clearTXABAT; inline;
  82405. begin
  82406. pTDefRegMap(@Self)^.clr := $00000040;
  82407. end;
  82408. procedure TCAN1_C1FIFOCON25.setTXABAT(thebits : TBits_1); inline;
  82409. begin
  82410. if thebits = 0 then
  82411. pTDefRegMap(@Self)^.clr := $00000040
  82412. else
  82413. pTDefRegMap(@Self)^.&set := $00000040;
  82414. end;
  82415. function TCAN1_C1FIFOCON25.getTXABAT : TBits_1; inline;
  82416. begin
  82417. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  82418. end;
  82419. procedure TCAN1_C1FIFOCON25.setTXEN; inline;
  82420. begin
  82421. pTDefRegMap(@Self)^.&set := $00000080;
  82422. end;
  82423. procedure TCAN1_C1FIFOCON25.clearTXEN; inline;
  82424. begin
  82425. pTDefRegMap(@Self)^.clr := $00000080;
  82426. end;
  82427. procedure TCAN1_C1FIFOCON25.setTXEN(thebits : TBits_1); inline;
  82428. begin
  82429. if thebits = 0 then
  82430. pTDefRegMap(@Self)^.clr := $00000080
  82431. else
  82432. pTDefRegMap(@Self)^.&set := $00000080;
  82433. end;
  82434. function TCAN1_C1FIFOCON25.getTXEN : TBits_1; inline;
  82435. begin
  82436. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82437. end;
  82438. procedure TCAN1_C1FIFOCON25.setDONLY; inline;
  82439. begin
  82440. pTDefRegMap(@Self)^.&set := $00001000;
  82441. end;
  82442. procedure TCAN1_C1FIFOCON25.clearDONLY; inline;
  82443. begin
  82444. pTDefRegMap(@Self)^.clr := $00001000;
  82445. end;
  82446. procedure TCAN1_C1FIFOCON25.setDONLY(thebits : TBits_1); inline;
  82447. begin
  82448. if thebits = 0 then
  82449. pTDefRegMap(@Self)^.clr := $00001000
  82450. else
  82451. pTDefRegMap(@Self)^.&set := $00001000;
  82452. end;
  82453. function TCAN1_C1FIFOCON25.getDONLY : TBits_1; inline;
  82454. begin
  82455. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82456. end;
  82457. procedure TCAN1_C1FIFOCON25.setUINC; inline;
  82458. begin
  82459. pTDefRegMap(@Self)^.&set := $00002000;
  82460. end;
  82461. procedure TCAN1_C1FIFOCON25.clearUINC; inline;
  82462. begin
  82463. pTDefRegMap(@Self)^.clr := $00002000;
  82464. end;
  82465. procedure TCAN1_C1FIFOCON25.setUINC(thebits : TBits_1); inline;
  82466. begin
  82467. if thebits = 0 then
  82468. pTDefRegMap(@Self)^.clr := $00002000
  82469. else
  82470. pTDefRegMap(@Self)^.&set := $00002000;
  82471. end;
  82472. function TCAN1_C1FIFOCON25.getUINC : TBits_1; inline;
  82473. begin
  82474. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  82475. end;
  82476. procedure TCAN1_C1FIFOCON25.setFRESET; inline;
  82477. begin
  82478. pTDefRegMap(@Self)^.&set := $00004000;
  82479. end;
  82480. procedure TCAN1_C1FIFOCON25.clearFRESET; inline;
  82481. begin
  82482. pTDefRegMap(@Self)^.clr := $00004000;
  82483. end;
  82484. procedure TCAN1_C1FIFOCON25.setFRESET(thebits : TBits_1); inline;
  82485. begin
  82486. if thebits = 0 then
  82487. pTDefRegMap(@Self)^.clr := $00004000
  82488. else
  82489. pTDefRegMap(@Self)^.&set := $00004000;
  82490. end;
  82491. function TCAN1_C1FIFOCON25.getFRESET : TBits_1; inline;
  82492. begin
  82493. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82494. end;
  82495. procedure TCAN1_C1FIFOCON25.setFSIZE(thebits : TBits_5); inline;
  82496. begin
  82497. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82498. end;
  82499. function TCAN1_C1FIFOCON25.getFSIZE : TBits_5; inline;
  82500. begin
  82501. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82502. end;
  82503. procedure TCAN1_C1FIFOCON25.setw(thebits : TBits_32); inline;
  82504. begin
  82505. pTDefRegMap(@Self)^.val := thebits;
  82506. end;
  82507. function TCAN1_C1FIFOCON25.getw : TBits_32; inline;
  82508. begin
  82509. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82510. end;
  82511. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIF; inline;
  82512. begin
  82513. pTDefRegMap(@Self)^.&set := $00000001;
  82514. end;
  82515. procedure TCAN1_C1FIFOINT25.clearRXNEMPTYIF; inline;
  82516. begin
  82517. pTDefRegMap(@Self)^.clr := $00000001;
  82518. end;
  82519. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIF(thebits : TBits_1); inline;
  82520. begin
  82521. if thebits = 0 then
  82522. pTDefRegMap(@Self)^.clr := $00000001
  82523. else
  82524. pTDefRegMap(@Self)^.&set := $00000001;
  82525. end;
  82526. function TCAN1_C1FIFOINT25.getRXNEMPTYIF : TBits_1; inline;
  82527. begin
  82528. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  82529. end;
  82530. procedure TCAN1_C1FIFOINT25.setRXHALFIF; inline;
  82531. begin
  82532. pTDefRegMap(@Self)^.&set := $00000002;
  82533. end;
  82534. procedure TCAN1_C1FIFOINT25.clearRXHALFIF; inline;
  82535. begin
  82536. pTDefRegMap(@Self)^.clr := $00000002;
  82537. end;
  82538. procedure TCAN1_C1FIFOINT25.setRXHALFIF(thebits : TBits_1); inline;
  82539. begin
  82540. if thebits = 0 then
  82541. pTDefRegMap(@Self)^.clr := $00000002
  82542. else
  82543. pTDefRegMap(@Self)^.&set := $00000002;
  82544. end;
  82545. function TCAN1_C1FIFOINT25.getRXHALFIF : TBits_1; inline;
  82546. begin
  82547. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  82548. end;
  82549. procedure TCAN1_C1FIFOINT25.setRXFULLIF; inline;
  82550. begin
  82551. pTDefRegMap(@Self)^.&set := $00000004;
  82552. end;
  82553. procedure TCAN1_C1FIFOINT25.clearRXFULLIF; inline;
  82554. begin
  82555. pTDefRegMap(@Self)^.clr := $00000004;
  82556. end;
  82557. procedure TCAN1_C1FIFOINT25.setRXFULLIF(thebits : TBits_1); inline;
  82558. begin
  82559. if thebits = 0 then
  82560. pTDefRegMap(@Self)^.clr := $00000004
  82561. else
  82562. pTDefRegMap(@Self)^.&set := $00000004;
  82563. end;
  82564. function TCAN1_C1FIFOINT25.getRXFULLIF : TBits_1; inline;
  82565. begin
  82566. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82567. end;
  82568. procedure TCAN1_C1FIFOINT25.setRXOVFLIF; inline;
  82569. begin
  82570. pTDefRegMap(@Self)^.&set := $00000008;
  82571. end;
  82572. procedure TCAN1_C1FIFOINT25.clearRXOVFLIF; inline;
  82573. begin
  82574. pTDefRegMap(@Self)^.clr := $00000008;
  82575. end;
  82576. procedure TCAN1_C1FIFOINT25.setRXOVFLIF(thebits : TBits_1); inline;
  82577. begin
  82578. if thebits = 0 then
  82579. pTDefRegMap(@Self)^.clr := $00000008
  82580. else
  82581. pTDefRegMap(@Self)^.&set := $00000008;
  82582. end;
  82583. function TCAN1_C1FIFOINT25.getRXOVFLIF : TBits_1; inline;
  82584. begin
  82585. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82586. end;
  82587. procedure TCAN1_C1FIFOINT25.setTXEMPTYIF; inline;
  82588. begin
  82589. pTDefRegMap(@Self)^.&set := $00000100;
  82590. end;
  82591. procedure TCAN1_C1FIFOINT25.clearTXEMPTYIF; inline;
  82592. begin
  82593. pTDefRegMap(@Self)^.clr := $00000100;
  82594. end;
  82595. procedure TCAN1_C1FIFOINT25.setTXEMPTYIF(thebits : TBits_1); inline;
  82596. begin
  82597. if thebits = 0 then
  82598. pTDefRegMap(@Self)^.clr := $00000100
  82599. else
  82600. pTDefRegMap(@Self)^.&set := $00000100;
  82601. end;
  82602. function TCAN1_C1FIFOINT25.getTXEMPTYIF : TBits_1; inline;
  82603. begin
  82604. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  82605. end;
  82606. procedure TCAN1_C1FIFOINT25.setTXHALFIF; inline;
  82607. begin
  82608. pTDefRegMap(@Self)^.&set := $00000200;
  82609. end;
  82610. procedure TCAN1_C1FIFOINT25.clearTXHALFIF; inline;
  82611. begin
  82612. pTDefRegMap(@Self)^.clr := $00000200;
  82613. end;
  82614. procedure TCAN1_C1FIFOINT25.setTXHALFIF(thebits : TBits_1); inline;
  82615. begin
  82616. if thebits = 0 then
  82617. pTDefRegMap(@Self)^.clr := $00000200
  82618. else
  82619. pTDefRegMap(@Self)^.&set := $00000200;
  82620. end;
  82621. function TCAN1_C1FIFOINT25.getTXHALFIF : TBits_1; inline;
  82622. begin
  82623. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  82624. end;
  82625. procedure TCAN1_C1FIFOINT25.setTXNFULLIF; inline;
  82626. begin
  82627. pTDefRegMap(@Self)^.&set := $00000400;
  82628. end;
  82629. procedure TCAN1_C1FIFOINT25.clearTXNFULLIF; inline;
  82630. begin
  82631. pTDefRegMap(@Self)^.clr := $00000400;
  82632. end;
  82633. procedure TCAN1_C1FIFOINT25.setTXNFULLIF(thebits : TBits_1); inline;
  82634. begin
  82635. if thebits = 0 then
  82636. pTDefRegMap(@Self)^.clr := $00000400
  82637. else
  82638. pTDefRegMap(@Self)^.&set := $00000400;
  82639. end;
  82640. function TCAN1_C1FIFOINT25.getTXNFULLIF : TBits_1; inline;
  82641. begin
  82642. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  82643. end;
  82644. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIE; inline;
  82645. begin
  82646. pTDefRegMap(@Self)^.&set := $00010000;
  82647. end;
  82648. procedure TCAN1_C1FIFOINT25.clearRXNEMPTYIE; inline;
  82649. begin
  82650. pTDefRegMap(@Self)^.clr := $00010000;
  82651. end;
  82652. procedure TCAN1_C1FIFOINT25.setRXNEMPTYIE(thebits : TBits_1); inline;
  82653. begin
  82654. if thebits = 0 then
  82655. pTDefRegMap(@Self)^.clr := $00010000
  82656. else
  82657. pTDefRegMap(@Self)^.&set := $00010000;
  82658. end;
  82659. function TCAN1_C1FIFOINT25.getRXNEMPTYIE : TBits_1; inline;
  82660. begin
  82661. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  82662. end;
  82663. procedure TCAN1_C1FIFOINT25.setRXHALFIE; inline;
  82664. begin
  82665. pTDefRegMap(@Self)^.&set := $00020000;
  82666. end;
  82667. procedure TCAN1_C1FIFOINT25.clearRXHALFIE; inline;
  82668. begin
  82669. pTDefRegMap(@Self)^.clr := $00020000;
  82670. end;
  82671. procedure TCAN1_C1FIFOINT25.setRXHALFIE(thebits : TBits_1); inline;
  82672. begin
  82673. if thebits = 0 then
  82674. pTDefRegMap(@Self)^.clr := $00020000
  82675. else
  82676. pTDefRegMap(@Self)^.&set := $00020000;
  82677. end;
  82678. function TCAN1_C1FIFOINT25.getRXHALFIE : TBits_1; inline;
  82679. begin
  82680. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  82681. end;
  82682. procedure TCAN1_C1FIFOINT25.setRXFULLIE; inline;
  82683. begin
  82684. pTDefRegMap(@Self)^.&set := $00040000;
  82685. end;
  82686. procedure TCAN1_C1FIFOINT25.clearRXFULLIE; inline;
  82687. begin
  82688. pTDefRegMap(@Self)^.clr := $00040000;
  82689. end;
  82690. procedure TCAN1_C1FIFOINT25.setRXFULLIE(thebits : TBits_1); inline;
  82691. begin
  82692. if thebits = 0 then
  82693. pTDefRegMap(@Self)^.clr := $00040000
  82694. else
  82695. pTDefRegMap(@Self)^.&set := $00040000;
  82696. end;
  82697. function TCAN1_C1FIFOINT25.getRXFULLIE : TBits_1; inline;
  82698. begin
  82699. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  82700. end;
  82701. procedure TCAN1_C1FIFOINT25.setRXOVFLIE; inline;
  82702. begin
  82703. pTDefRegMap(@Self)^.&set := $00080000;
  82704. end;
  82705. procedure TCAN1_C1FIFOINT25.clearRXOVFLIE; inline;
  82706. begin
  82707. pTDefRegMap(@Self)^.clr := $00080000;
  82708. end;
  82709. procedure TCAN1_C1FIFOINT25.setRXOVFLIE(thebits : TBits_1); inline;
  82710. begin
  82711. if thebits = 0 then
  82712. pTDefRegMap(@Self)^.clr := $00080000
  82713. else
  82714. pTDefRegMap(@Self)^.&set := $00080000;
  82715. end;
  82716. function TCAN1_C1FIFOINT25.getRXOVFLIE : TBits_1; inline;
  82717. begin
  82718. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  82719. end;
  82720. procedure TCAN1_C1FIFOINT25.setTXEMPTYIE; inline;
  82721. begin
  82722. pTDefRegMap(@Self)^.&set := $01000000;
  82723. end;
  82724. procedure TCAN1_C1FIFOINT25.clearTXEMPTYIE; inline;
  82725. begin
  82726. pTDefRegMap(@Self)^.clr := $01000000;
  82727. end;
  82728. procedure TCAN1_C1FIFOINT25.setTXEMPTYIE(thebits : TBits_1); inline;
  82729. begin
  82730. if thebits = 0 then
  82731. pTDefRegMap(@Self)^.clr := $01000000
  82732. else
  82733. pTDefRegMap(@Self)^.&set := $01000000;
  82734. end;
  82735. function TCAN1_C1FIFOINT25.getTXEMPTYIE : TBits_1; inline;
  82736. begin
  82737. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  82738. end;
  82739. procedure TCAN1_C1FIFOINT25.setTXHALFIE; inline;
  82740. begin
  82741. pTDefRegMap(@Self)^.&set := $02000000;
  82742. end;
  82743. procedure TCAN1_C1FIFOINT25.clearTXHALFIE; inline;
  82744. begin
  82745. pTDefRegMap(@Self)^.clr := $02000000;
  82746. end;
  82747. procedure TCAN1_C1FIFOINT25.setTXHALFIE(thebits : TBits_1); inline;
  82748. begin
  82749. if thebits = 0 then
  82750. pTDefRegMap(@Self)^.clr := $02000000
  82751. else
  82752. pTDefRegMap(@Self)^.&set := $02000000;
  82753. end;
  82754. function TCAN1_C1FIFOINT25.getTXHALFIE : TBits_1; inline;
  82755. begin
  82756. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  82757. end;
  82758. procedure TCAN1_C1FIFOINT25.setTXNFULLIE; inline;
  82759. begin
  82760. pTDefRegMap(@Self)^.&set := $04000000;
  82761. end;
  82762. procedure TCAN1_C1FIFOINT25.clearTXNFULLIE; inline;
  82763. begin
  82764. pTDefRegMap(@Self)^.clr := $04000000;
  82765. end;
  82766. procedure TCAN1_C1FIFOINT25.setTXNFULLIE(thebits : TBits_1); inline;
  82767. begin
  82768. if thebits = 0 then
  82769. pTDefRegMap(@Self)^.clr := $04000000
  82770. else
  82771. pTDefRegMap(@Self)^.&set := $04000000;
  82772. end;
  82773. function TCAN1_C1FIFOINT25.getTXNFULLIE : TBits_1; inline;
  82774. begin
  82775. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  82776. end;
  82777. procedure TCAN1_C1FIFOINT25.setw(thebits : TBits_32); inline;
  82778. begin
  82779. pTDefRegMap(@Self)^.val := thebits;
  82780. end;
  82781. function TCAN1_C1FIFOINT25.getw : TBits_32; inline;
  82782. begin
  82783. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82784. end;
  82785. procedure TCAN1_C1FIFOCI25.setCFIFOCI(thebits : TBits_5); inline;
  82786. begin
  82787. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  82788. end;
  82789. function TCAN1_C1FIFOCI25.getCFIFOCI : TBits_5; inline;
  82790. begin
  82791. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  82792. end;
  82793. procedure TCAN1_C1FIFOCI25.setw(thebits : TBits_32); inline;
  82794. begin
  82795. pTDefRegMap(@Self)^.val := thebits;
  82796. end;
  82797. function TCAN1_C1FIFOCI25.getw : TBits_32; inline;
  82798. begin
  82799. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82800. end;
  82801. procedure TCAN1_C1FIFOCON26.setTXPRI(thebits : TBits_2); inline;
  82802. begin
  82803. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  82804. end;
  82805. function TCAN1_C1FIFOCON26.getTXPRI : TBits_2; inline;
  82806. begin
  82807. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  82808. end;
  82809. procedure TCAN1_C1FIFOCON26.setRTREN; inline;
  82810. begin
  82811. pTDefRegMap(@Self)^.&set := $00000004;
  82812. end;
  82813. procedure TCAN1_C1FIFOCON26.clearRTREN; inline;
  82814. begin
  82815. pTDefRegMap(@Self)^.clr := $00000004;
  82816. end;
  82817. procedure TCAN1_C1FIFOCON26.setRTREN(thebits : TBits_1); inline;
  82818. begin
  82819. if thebits = 0 then
  82820. pTDefRegMap(@Self)^.clr := $00000004
  82821. else
  82822. pTDefRegMap(@Self)^.&set := $00000004;
  82823. end;
  82824. function TCAN1_C1FIFOCON26.getRTREN : TBits_1; inline;
  82825. begin
  82826. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  82827. end;
  82828. procedure TCAN1_C1FIFOCON26.setTXREQ; inline;
  82829. begin
  82830. pTDefRegMap(@Self)^.&set := $00000008;
  82831. end;
  82832. procedure TCAN1_C1FIFOCON26.clearTXREQ; inline;
  82833. begin
  82834. pTDefRegMap(@Self)^.clr := $00000008;
  82835. end;
  82836. procedure TCAN1_C1FIFOCON26.setTXREQ(thebits : TBits_1); inline;
  82837. begin
  82838. if thebits = 0 then
  82839. pTDefRegMap(@Self)^.clr := $00000008
  82840. else
  82841. pTDefRegMap(@Self)^.&set := $00000008;
  82842. end;
  82843. function TCAN1_C1FIFOCON26.getTXREQ : TBits_1; inline;
  82844. begin
  82845. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  82846. end;
  82847. procedure TCAN1_C1FIFOCON26.setTXERR; inline;
  82848. begin
  82849. pTDefRegMap(@Self)^.&set := $00000010;
  82850. end;
  82851. procedure TCAN1_C1FIFOCON26.clearTXERR; inline;
  82852. begin
  82853. pTDefRegMap(@Self)^.clr := $00000010;
  82854. end;
  82855. procedure TCAN1_C1FIFOCON26.setTXERR(thebits : TBits_1); inline;
  82856. begin
  82857. if thebits = 0 then
  82858. pTDefRegMap(@Self)^.clr := $00000010
  82859. else
  82860. pTDefRegMap(@Self)^.&set := $00000010;
  82861. end;
  82862. function TCAN1_C1FIFOCON26.getTXERR : TBits_1; inline;
  82863. begin
  82864. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  82865. end;
  82866. procedure TCAN1_C1FIFOCON26.setTXLARB; inline;
  82867. begin
  82868. pTDefRegMap(@Self)^.&set := $00000020;
  82869. end;
  82870. procedure TCAN1_C1FIFOCON26.clearTXLARB; inline;
  82871. begin
  82872. pTDefRegMap(@Self)^.clr := $00000020;
  82873. end;
  82874. procedure TCAN1_C1FIFOCON26.setTXLARB(thebits : TBits_1); inline;
  82875. begin
  82876. if thebits = 0 then
  82877. pTDefRegMap(@Self)^.clr := $00000020
  82878. else
  82879. pTDefRegMap(@Self)^.&set := $00000020;
  82880. end;
  82881. function TCAN1_C1FIFOCON26.getTXLARB : TBits_1; inline;
  82882. begin
  82883. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  82884. end;
  82885. procedure TCAN1_C1FIFOCON26.setTXABAT; inline;
  82886. begin
  82887. pTDefRegMap(@Self)^.&set := $00000040;
  82888. end;
  82889. procedure TCAN1_C1FIFOCON26.clearTXABAT; inline;
  82890. begin
  82891. pTDefRegMap(@Self)^.clr := $00000040;
  82892. end;
  82893. procedure TCAN1_C1FIFOCON26.setTXABAT(thebits : TBits_1); inline;
  82894. begin
  82895. if thebits = 0 then
  82896. pTDefRegMap(@Self)^.clr := $00000040
  82897. else
  82898. pTDefRegMap(@Self)^.&set := $00000040;
  82899. end;
  82900. function TCAN1_C1FIFOCON26.getTXABAT : TBits_1; inline;
  82901. begin
  82902. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  82903. end;
  82904. procedure TCAN1_C1FIFOCON26.setTXEN; inline;
  82905. begin
  82906. pTDefRegMap(@Self)^.&set := $00000080;
  82907. end;
  82908. procedure TCAN1_C1FIFOCON26.clearTXEN; inline;
  82909. begin
  82910. pTDefRegMap(@Self)^.clr := $00000080;
  82911. end;
  82912. procedure TCAN1_C1FIFOCON26.setTXEN(thebits : TBits_1); inline;
  82913. begin
  82914. if thebits = 0 then
  82915. pTDefRegMap(@Self)^.clr := $00000080
  82916. else
  82917. pTDefRegMap(@Self)^.&set := $00000080;
  82918. end;
  82919. function TCAN1_C1FIFOCON26.getTXEN : TBits_1; inline;
  82920. begin
  82921. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  82922. end;
  82923. procedure TCAN1_C1FIFOCON26.setDONLY; inline;
  82924. begin
  82925. pTDefRegMap(@Self)^.&set := $00001000;
  82926. end;
  82927. procedure TCAN1_C1FIFOCON26.clearDONLY; inline;
  82928. begin
  82929. pTDefRegMap(@Self)^.clr := $00001000;
  82930. end;
  82931. procedure TCAN1_C1FIFOCON26.setDONLY(thebits : TBits_1); inline;
  82932. begin
  82933. if thebits = 0 then
  82934. pTDefRegMap(@Self)^.clr := $00001000
  82935. else
  82936. pTDefRegMap(@Self)^.&set := $00001000;
  82937. end;
  82938. function TCAN1_C1FIFOCON26.getDONLY : TBits_1; inline;
  82939. begin
  82940. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  82941. end;
  82942. procedure TCAN1_C1FIFOCON26.setUINC; inline;
  82943. begin
  82944. pTDefRegMap(@Self)^.&set := $00002000;
  82945. end;
  82946. procedure TCAN1_C1FIFOCON26.clearUINC; inline;
  82947. begin
  82948. pTDefRegMap(@Self)^.clr := $00002000;
  82949. end;
  82950. procedure TCAN1_C1FIFOCON26.setUINC(thebits : TBits_1); inline;
  82951. begin
  82952. if thebits = 0 then
  82953. pTDefRegMap(@Self)^.clr := $00002000
  82954. else
  82955. pTDefRegMap(@Self)^.&set := $00002000;
  82956. end;
  82957. function TCAN1_C1FIFOCON26.getUINC : TBits_1; inline;
  82958. begin
  82959. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  82960. end;
  82961. procedure TCAN1_C1FIFOCON26.setFRESET; inline;
  82962. begin
  82963. pTDefRegMap(@Self)^.&set := $00004000;
  82964. end;
  82965. procedure TCAN1_C1FIFOCON26.clearFRESET; inline;
  82966. begin
  82967. pTDefRegMap(@Self)^.clr := $00004000;
  82968. end;
  82969. procedure TCAN1_C1FIFOCON26.setFRESET(thebits : TBits_1); inline;
  82970. begin
  82971. if thebits = 0 then
  82972. pTDefRegMap(@Self)^.clr := $00004000
  82973. else
  82974. pTDefRegMap(@Self)^.&set := $00004000;
  82975. end;
  82976. function TCAN1_C1FIFOCON26.getFRESET : TBits_1; inline;
  82977. begin
  82978. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  82979. end;
  82980. procedure TCAN1_C1FIFOCON26.setFSIZE(thebits : TBits_5); inline;
  82981. begin
  82982. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  82983. end;
  82984. function TCAN1_C1FIFOCON26.getFSIZE : TBits_5; inline;
  82985. begin
  82986. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  82987. end;
  82988. procedure TCAN1_C1FIFOCON26.setw(thebits : TBits_32); inline;
  82989. begin
  82990. pTDefRegMap(@Self)^.val := thebits;
  82991. end;
  82992. function TCAN1_C1FIFOCON26.getw : TBits_32; inline;
  82993. begin
  82994. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  82995. end;
  82996. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIF; inline;
  82997. begin
  82998. pTDefRegMap(@Self)^.&set := $00000001;
  82999. end;
  83000. procedure TCAN1_C1FIFOINT26.clearRXNEMPTYIF; inline;
  83001. begin
  83002. pTDefRegMap(@Self)^.clr := $00000001;
  83003. end;
  83004. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIF(thebits : TBits_1); inline;
  83005. begin
  83006. if thebits = 0 then
  83007. pTDefRegMap(@Self)^.clr := $00000001
  83008. else
  83009. pTDefRegMap(@Self)^.&set := $00000001;
  83010. end;
  83011. function TCAN1_C1FIFOINT26.getRXNEMPTYIF : TBits_1; inline;
  83012. begin
  83013. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83014. end;
  83015. procedure TCAN1_C1FIFOINT26.setRXHALFIF; inline;
  83016. begin
  83017. pTDefRegMap(@Self)^.&set := $00000002;
  83018. end;
  83019. procedure TCAN1_C1FIFOINT26.clearRXHALFIF; inline;
  83020. begin
  83021. pTDefRegMap(@Self)^.clr := $00000002;
  83022. end;
  83023. procedure TCAN1_C1FIFOINT26.setRXHALFIF(thebits : TBits_1); inline;
  83024. begin
  83025. if thebits = 0 then
  83026. pTDefRegMap(@Self)^.clr := $00000002
  83027. else
  83028. pTDefRegMap(@Self)^.&set := $00000002;
  83029. end;
  83030. function TCAN1_C1FIFOINT26.getRXHALFIF : TBits_1; inline;
  83031. begin
  83032. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  83033. end;
  83034. procedure TCAN1_C1FIFOINT26.setRXFULLIF; inline;
  83035. begin
  83036. pTDefRegMap(@Self)^.&set := $00000004;
  83037. end;
  83038. procedure TCAN1_C1FIFOINT26.clearRXFULLIF; inline;
  83039. begin
  83040. pTDefRegMap(@Self)^.clr := $00000004;
  83041. end;
  83042. procedure TCAN1_C1FIFOINT26.setRXFULLIF(thebits : TBits_1); inline;
  83043. begin
  83044. if thebits = 0 then
  83045. pTDefRegMap(@Self)^.clr := $00000004
  83046. else
  83047. pTDefRegMap(@Self)^.&set := $00000004;
  83048. end;
  83049. function TCAN1_C1FIFOINT26.getRXFULLIF : TBits_1; inline;
  83050. begin
  83051. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83052. end;
  83053. procedure TCAN1_C1FIFOINT26.setRXOVFLIF; inline;
  83054. begin
  83055. pTDefRegMap(@Self)^.&set := $00000008;
  83056. end;
  83057. procedure TCAN1_C1FIFOINT26.clearRXOVFLIF; inline;
  83058. begin
  83059. pTDefRegMap(@Self)^.clr := $00000008;
  83060. end;
  83061. procedure TCAN1_C1FIFOINT26.setRXOVFLIF(thebits : TBits_1); inline;
  83062. begin
  83063. if thebits = 0 then
  83064. pTDefRegMap(@Self)^.clr := $00000008
  83065. else
  83066. pTDefRegMap(@Self)^.&set := $00000008;
  83067. end;
  83068. function TCAN1_C1FIFOINT26.getRXOVFLIF : TBits_1; inline;
  83069. begin
  83070. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83071. end;
  83072. procedure TCAN1_C1FIFOINT26.setTXEMPTYIF; inline;
  83073. begin
  83074. pTDefRegMap(@Self)^.&set := $00000100;
  83075. end;
  83076. procedure TCAN1_C1FIFOINT26.clearTXEMPTYIF; inline;
  83077. begin
  83078. pTDefRegMap(@Self)^.clr := $00000100;
  83079. end;
  83080. procedure TCAN1_C1FIFOINT26.setTXEMPTYIF(thebits : TBits_1); inline;
  83081. begin
  83082. if thebits = 0 then
  83083. pTDefRegMap(@Self)^.clr := $00000100
  83084. else
  83085. pTDefRegMap(@Self)^.&set := $00000100;
  83086. end;
  83087. function TCAN1_C1FIFOINT26.getTXEMPTYIF : TBits_1; inline;
  83088. begin
  83089. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  83090. end;
  83091. procedure TCAN1_C1FIFOINT26.setTXHALFIF; inline;
  83092. begin
  83093. pTDefRegMap(@Self)^.&set := $00000200;
  83094. end;
  83095. procedure TCAN1_C1FIFOINT26.clearTXHALFIF; inline;
  83096. begin
  83097. pTDefRegMap(@Self)^.clr := $00000200;
  83098. end;
  83099. procedure TCAN1_C1FIFOINT26.setTXHALFIF(thebits : TBits_1); inline;
  83100. begin
  83101. if thebits = 0 then
  83102. pTDefRegMap(@Self)^.clr := $00000200
  83103. else
  83104. pTDefRegMap(@Self)^.&set := $00000200;
  83105. end;
  83106. function TCAN1_C1FIFOINT26.getTXHALFIF : TBits_1; inline;
  83107. begin
  83108. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  83109. end;
  83110. procedure TCAN1_C1FIFOINT26.setTXNFULLIF; inline;
  83111. begin
  83112. pTDefRegMap(@Self)^.&set := $00000400;
  83113. end;
  83114. procedure TCAN1_C1FIFOINT26.clearTXNFULLIF; inline;
  83115. begin
  83116. pTDefRegMap(@Self)^.clr := $00000400;
  83117. end;
  83118. procedure TCAN1_C1FIFOINT26.setTXNFULLIF(thebits : TBits_1); inline;
  83119. begin
  83120. if thebits = 0 then
  83121. pTDefRegMap(@Self)^.clr := $00000400
  83122. else
  83123. pTDefRegMap(@Self)^.&set := $00000400;
  83124. end;
  83125. function TCAN1_C1FIFOINT26.getTXNFULLIF : TBits_1; inline;
  83126. begin
  83127. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  83128. end;
  83129. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIE; inline;
  83130. begin
  83131. pTDefRegMap(@Self)^.&set := $00010000;
  83132. end;
  83133. procedure TCAN1_C1FIFOINT26.clearRXNEMPTYIE; inline;
  83134. begin
  83135. pTDefRegMap(@Self)^.clr := $00010000;
  83136. end;
  83137. procedure TCAN1_C1FIFOINT26.setRXNEMPTYIE(thebits : TBits_1); inline;
  83138. begin
  83139. if thebits = 0 then
  83140. pTDefRegMap(@Self)^.clr := $00010000
  83141. else
  83142. pTDefRegMap(@Self)^.&set := $00010000;
  83143. end;
  83144. function TCAN1_C1FIFOINT26.getRXNEMPTYIE : TBits_1; inline;
  83145. begin
  83146. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83147. end;
  83148. procedure TCAN1_C1FIFOINT26.setRXHALFIE; inline;
  83149. begin
  83150. pTDefRegMap(@Self)^.&set := $00020000;
  83151. end;
  83152. procedure TCAN1_C1FIFOINT26.clearRXHALFIE; inline;
  83153. begin
  83154. pTDefRegMap(@Self)^.clr := $00020000;
  83155. end;
  83156. procedure TCAN1_C1FIFOINT26.setRXHALFIE(thebits : TBits_1); inline;
  83157. begin
  83158. if thebits = 0 then
  83159. pTDefRegMap(@Self)^.clr := $00020000
  83160. else
  83161. pTDefRegMap(@Self)^.&set := $00020000;
  83162. end;
  83163. function TCAN1_C1FIFOINT26.getRXHALFIE : TBits_1; inline;
  83164. begin
  83165. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83166. end;
  83167. procedure TCAN1_C1FIFOINT26.setRXFULLIE; inline;
  83168. begin
  83169. pTDefRegMap(@Self)^.&set := $00040000;
  83170. end;
  83171. procedure TCAN1_C1FIFOINT26.clearRXFULLIE; inline;
  83172. begin
  83173. pTDefRegMap(@Self)^.clr := $00040000;
  83174. end;
  83175. procedure TCAN1_C1FIFOINT26.setRXFULLIE(thebits : TBits_1); inline;
  83176. begin
  83177. if thebits = 0 then
  83178. pTDefRegMap(@Self)^.clr := $00040000
  83179. else
  83180. pTDefRegMap(@Self)^.&set := $00040000;
  83181. end;
  83182. function TCAN1_C1FIFOINT26.getRXFULLIE : TBits_1; inline;
  83183. begin
  83184. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  83185. end;
  83186. procedure TCAN1_C1FIFOINT26.setRXOVFLIE; inline;
  83187. begin
  83188. pTDefRegMap(@Self)^.&set := $00080000;
  83189. end;
  83190. procedure TCAN1_C1FIFOINT26.clearRXOVFLIE; inline;
  83191. begin
  83192. pTDefRegMap(@Self)^.clr := $00080000;
  83193. end;
  83194. procedure TCAN1_C1FIFOINT26.setRXOVFLIE(thebits : TBits_1); inline;
  83195. begin
  83196. if thebits = 0 then
  83197. pTDefRegMap(@Self)^.clr := $00080000
  83198. else
  83199. pTDefRegMap(@Self)^.&set := $00080000;
  83200. end;
  83201. function TCAN1_C1FIFOINT26.getRXOVFLIE : TBits_1; inline;
  83202. begin
  83203. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  83204. end;
  83205. procedure TCAN1_C1FIFOINT26.setTXEMPTYIE; inline;
  83206. begin
  83207. pTDefRegMap(@Self)^.&set := $01000000;
  83208. end;
  83209. procedure TCAN1_C1FIFOINT26.clearTXEMPTYIE; inline;
  83210. begin
  83211. pTDefRegMap(@Self)^.clr := $01000000;
  83212. end;
  83213. procedure TCAN1_C1FIFOINT26.setTXEMPTYIE(thebits : TBits_1); inline;
  83214. begin
  83215. if thebits = 0 then
  83216. pTDefRegMap(@Self)^.clr := $01000000
  83217. else
  83218. pTDefRegMap(@Self)^.&set := $01000000;
  83219. end;
  83220. function TCAN1_C1FIFOINT26.getTXEMPTYIE : TBits_1; inline;
  83221. begin
  83222. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  83223. end;
  83224. procedure TCAN1_C1FIFOINT26.setTXHALFIE; inline;
  83225. begin
  83226. pTDefRegMap(@Self)^.&set := $02000000;
  83227. end;
  83228. procedure TCAN1_C1FIFOINT26.clearTXHALFIE; inline;
  83229. begin
  83230. pTDefRegMap(@Self)^.clr := $02000000;
  83231. end;
  83232. procedure TCAN1_C1FIFOINT26.setTXHALFIE(thebits : TBits_1); inline;
  83233. begin
  83234. if thebits = 0 then
  83235. pTDefRegMap(@Self)^.clr := $02000000
  83236. else
  83237. pTDefRegMap(@Self)^.&set := $02000000;
  83238. end;
  83239. function TCAN1_C1FIFOINT26.getTXHALFIE : TBits_1; inline;
  83240. begin
  83241. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  83242. end;
  83243. procedure TCAN1_C1FIFOINT26.setTXNFULLIE; inline;
  83244. begin
  83245. pTDefRegMap(@Self)^.&set := $04000000;
  83246. end;
  83247. procedure TCAN1_C1FIFOINT26.clearTXNFULLIE; inline;
  83248. begin
  83249. pTDefRegMap(@Self)^.clr := $04000000;
  83250. end;
  83251. procedure TCAN1_C1FIFOINT26.setTXNFULLIE(thebits : TBits_1); inline;
  83252. begin
  83253. if thebits = 0 then
  83254. pTDefRegMap(@Self)^.clr := $04000000
  83255. else
  83256. pTDefRegMap(@Self)^.&set := $04000000;
  83257. end;
  83258. function TCAN1_C1FIFOINT26.getTXNFULLIE : TBits_1; inline;
  83259. begin
  83260. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  83261. end;
  83262. procedure TCAN1_C1FIFOINT26.setw(thebits : TBits_32); inline;
  83263. begin
  83264. pTDefRegMap(@Self)^.val := thebits;
  83265. end;
  83266. function TCAN1_C1FIFOINT26.getw : TBits_32; inline;
  83267. begin
  83268. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83269. end;
  83270. procedure TCAN1_C1FIFOCI26.setCFIFOCI(thebits : TBits_5); inline;
  83271. begin
  83272. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  83273. end;
  83274. function TCAN1_C1FIFOCI26.getCFIFOCI : TBits_5; inline;
  83275. begin
  83276. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  83277. end;
  83278. procedure TCAN1_C1FIFOCI26.setw(thebits : TBits_32); inline;
  83279. begin
  83280. pTDefRegMap(@Self)^.val := thebits;
  83281. end;
  83282. function TCAN1_C1FIFOCI26.getw : TBits_32; inline;
  83283. begin
  83284. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83285. end;
  83286. procedure TCAN1_C1FIFOCON27.setTXPRI(thebits : TBits_2); inline;
  83287. begin
  83288. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  83289. end;
  83290. function TCAN1_C1FIFOCON27.getTXPRI : TBits_2; inline;
  83291. begin
  83292. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  83293. end;
  83294. procedure TCAN1_C1FIFOCON27.setRTREN; inline;
  83295. begin
  83296. pTDefRegMap(@Self)^.&set := $00000004;
  83297. end;
  83298. procedure TCAN1_C1FIFOCON27.clearRTREN; inline;
  83299. begin
  83300. pTDefRegMap(@Self)^.clr := $00000004;
  83301. end;
  83302. procedure TCAN1_C1FIFOCON27.setRTREN(thebits : TBits_1); inline;
  83303. begin
  83304. if thebits = 0 then
  83305. pTDefRegMap(@Self)^.clr := $00000004
  83306. else
  83307. pTDefRegMap(@Self)^.&set := $00000004;
  83308. end;
  83309. function TCAN1_C1FIFOCON27.getRTREN : TBits_1; inline;
  83310. begin
  83311. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83312. end;
  83313. procedure TCAN1_C1FIFOCON27.setTXREQ; inline;
  83314. begin
  83315. pTDefRegMap(@Self)^.&set := $00000008;
  83316. end;
  83317. procedure TCAN1_C1FIFOCON27.clearTXREQ; inline;
  83318. begin
  83319. pTDefRegMap(@Self)^.clr := $00000008;
  83320. end;
  83321. procedure TCAN1_C1FIFOCON27.setTXREQ(thebits : TBits_1); inline;
  83322. begin
  83323. if thebits = 0 then
  83324. pTDefRegMap(@Self)^.clr := $00000008
  83325. else
  83326. pTDefRegMap(@Self)^.&set := $00000008;
  83327. end;
  83328. function TCAN1_C1FIFOCON27.getTXREQ : TBits_1; inline;
  83329. begin
  83330. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83331. end;
  83332. procedure TCAN1_C1FIFOCON27.setTXERR; inline;
  83333. begin
  83334. pTDefRegMap(@Self)^.&set := $00000010;
  83335. end;
  83336. procedure TCAN1_C1FIFOCON27.clearTXERR; inline;
  83337. begin
  83338. pTDefRegMap(@Self)^.clr := $00000010;
  83339. end;
  83340. procedure TCAN1_C1FIFOCON27.setTXERR(thebits : TBits_1); inline;
  83341. begin
  83342. if thebits = 0 then
  83343. pTDefRegMap(@Self)^.clr := $00000010
  83344. else
  83345. pTDefRegMap(@Self)^.&set := $00000010;
  83346. end;
  83347. function TCAN1_C1FIFOCON27.getTXERR : TBits_1; inline;
  83348. begin
  83349. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  83350. end;
  83351. procedure TCAN1_C1FIFOCON27.setTXLARB; inline;
  83352. begin
  83353. pTDefRegMap(@Self)^.&set := $00000020;
  83354. end;
  83355. procedure TCAN1_C1FIFOCON27.clearTXLARB; inline;
  83356. begin
  83357. pTDefRegMap(@Self)^.clr := $00000020;
  83358. end;
  83359. procedure TCAN1_C1FIFOCON27.setTXLARB(thebits : TBits_1); inline;
  83360. begin
  83361. if thebits = 0 then
  83362. pTDefRegMap(@Self)^.clr := $00000020
  83363. else
  83364. pTDefRegMap(@Self)^.&set := $00000020;
  83365. end;
  83366. function TCAN1_C1FIFOCON27.getTXLARB : TBits_1; inline;
  83367. begin
  83368. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  83369. end;
  83370. procedure TCAN1_C1FIFOCON27.setTXABAT; inline;
  83371. begin
  83372. pTDefRegMap(@Self)^.&set := $00000040;
  83373. end;
  83374. procedure TCAN1_C1FIFOCON27.clearTXABAT; inline;
  83375. begin
  83376. pTDefRegMap(@Self)^.clr := $00000040;
  83377. end;
  83378. procedure TCAN1_C1FIFOCON27.setTXABAT(thebits : TBits_1); inline;
  83379. begin
  83380. if thebits = 0 then
  83381. pTDefRegMap(@Self)^.clr := $00000040
  83382. else
  83383. pTDefRegMap(@Self)^.&set := $00000040;
  83384. end;
  83385. function TCAN1_C1FIFOCON27.getTXABAT : TBits_1; inline;
  83386. begin
  83387. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  83388. end;
  83389. procedure TCAN1_C1FIFOCON27.setTXEN; inline;
  83390. begin
  83391. pTDefRegMap(@Self)^.&set := $00000080;
  83392. end;
  83393. procedure TCAN1_C1FIFOCON27.clearTXEN; inline;
  83394. begin
  83395. pTDefRegMap(@Self)^.clr := $00000080;
  83396. end;
  83397. procedure TCAN1_C1FIFOCON27.setTXEN(thebits : TBits_1); inline;
  83398. begin
  83399. if thebits = 0 then
  83400. pTDefRegMap(@Self)^.clr := $00000080
  83401. else
  83402. pTDefRegMap(@Self)^.&set := $00000080;
  83403. end;
  83404. function TCAN1_C1FIFOCON27.getTXEN : TBits_1; inline;
  83405. begin
  83406. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  83407. end;
  83408. procedure TCAN1_C1FIFOCON27.setDONLY; inline;
  83409. begin
  83410. pTDefRegMap(@Self)^.&set := $00001000;
  83411. end;
  83412. procedure TCAN1_C1FIFOCON27.clearDONLY; inline;
  83413. begin
  83414. pTDefRegMap(@Self)^.clr := $00001000;
  83415. end;
  83416. procedure TCAN1_C1FIFOCON27.setDONLY(thebits : TBits_1); inline;
  83417. begin
  83418. if thebits = 0 then
  83419. pTDefRegMap(@Self)^.clr := $00001000
  83420. else
  83421. pTDefRegMap(@Self)^.&set := $00001000;
  83422. end;
  83423. function TCAN1_C1FIFOCON27.getDONLY : TBits_1; inline;
  83424. begin
  83425. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  83426. end;
  83427. procedure TCAN1_C1FIFOCON27.setUINC; inline;
  83428. begin
  83429. pTDefRegMap(@Self)^.&set := $00002000;
  83430. end;
  83431. procedure TCAN1_C1FIFOCON27.clearUINC; inline;
  83432. begin
  83433. pTDefRegMap(@Self)^.clr := $00002000;
  83434. end;
  83435. procedure TCAN1_C1FIFOCON27.setUINC(thebits : TBits_1); inline;
  83436. begin
  83437. if thebits = 0 then
  83438. pTDefRegMap(@Self)^.clr := $00002000
  83439. else
  83440. pTDefRegMap(@Self)^.&set := $00002000;
  83441. end;
  83442. function TCAN1_C1FIFOCON27.getUINC : TBits_1; inline;
  83443. begin
  83444. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83445. end;
  83446. procedure TCAN1_C1FIFOCON27.setFRESET; inline;
  83447. begin
  83448. pTDefRegMap(@Self)^.&set := $00004000;
  83449. end;
  83450. procedure TCAN1_C1FIFOCON27.clearFRESET; inline;
  83451. begin
  83452. pTDefRegMap(@Self)^.clr := $00004000;
  83453. end;
  83454. procedure TCAN1_C1FIFOCON27.setFRESET(thebits : TBits_1); inline;
  83455. begin
  83456. if thebits = 0 then
  83457. pTDefRegMap(@Self)^.clr := $00004000
  83458. else
  83459. pTDefRegMap(@Self)^.&set := $00004000;
  83460. end;
  83461. function TCAN1_C1FIFOCON27.getFRESET : TBits_1; inline;
  83462. begin
  83463. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  83464. end;
  83465. procedure TCAN1_C1FIFOCON27.setFSIZE(thebits : TBits_5); inline;
  83466. begin
  83467. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  83468. end;
  83469. function TCAN1_C1FIFOCON27.getFSIZE : TBits_5; inline;
  83470. begin
  83471. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  83472. end;
  83473. procedure TCAN1_C1FIFOCON27.setw(thebits : TBits_32); inline;
  83474. begin
  83475. pTDefRegMap(@Self)^.val := thebits;
  83476. end;
  83477. function TCAN1_C1FIFOCON27.getw : TBits_32; inline;
  83478. begin
  83479. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83480. end;
  83481. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIF; inline;
  83482. begin
  83483. pTDefRegMap(@Self)^.&set := $00000001;
  83484. end;
  83485. procedure TCAN1_C1FIFOINT27.clearRXNEMPTYIF; inline;
  83486. begin
  83487. pTDefRegMap(@Self)^.clr := $00000001;
  83488. end;
  83489. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIF(thebits : TBits_1); inline;
  83490. begin
  83491. if thebits = 0 then
  83492. pTDefRegMap(@Self)^.clr := $00000001
  83493. else
  83494. pTDefRegMap(@Self)^.&set := $00000001;
  83495. end;
  83496. function TCAN1_C1FIFOINT27.getRXNEMPTYIF : TBits_1; inline;
  83497. begin
  83498. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83499. end;
  83500. procedure TCAN1_C1FIFOINT27.setRXHALFIF; inline;
  83501. begin
  83502. pTDefRegMap(@Self)^.&set := $00000002;
  83503. end;
  83504. procedure TCAN1_C1FIFOINT27.clearRXHALFIF; inline;
  83505. begin
  83506. pTDefRegMap(@Self)^.clr := $00000002;
  83507. end;
  83508. procedure TCAN1_C1FIFOINT27.setRXHALFIF(thebits : TBits_1); inline;
  83509. begin
  83510. if thebits = 0 then
  83511. pTDefRegMap(@Self)^.clr := $00000002
  83512. else
  83513. pTDefRegMap(@Self)^.&set := $00000002;
  83514. end;
  83515. function TCAN1_C1FIFOINT27.getRXHALFIF : TBits_1; inline;
  83516. begin
  83517. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  83518. end;
  83519. procedure TCAN1_C1FIFOINT27.setRXFULLIF; inline;
  83520. begin
  83521. pTDefRegMap(@Self)^.&set := $00000004;
  83522. end;
  83523. procedure TCAN1_C1FIFOINT27.clearRXFULLIF; inline;
  83524. begin
  83525. pTDefRegMap(@Self)^.clr := $00000004;
  83526. end;
  83527. procedure TCAN1_C1FIFOINT27.setRXFULLIF(thebits : TBits_1); inline;
  83528. begin
  83529. if thebits = 0 then
  83530. pTDefRegMap(@Self)^.clr := $00000004
  83531. else
  83532. pTDefRegMap(@Self)^.&set := $00000004;
  83533. end;
  83534. function TCAN1_C1FIFOINT27.getRXFULLIF : TBits_1; inline;
  83535. begin
  83536. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83537. end;
  83538. procedure TCAN1_C1FIFOINT27.setRXOVFLIF; inline;
  83539. begin
  83540. pTDefRegMap(@Self)^.&set := $00000008;
  83541. end;
  83542. procedure TCAN1_C1FIFOINT27.clearRXOVFLIF; inline;
  83543. begin
  83544. pTDefRegMap(@Self)^.clr := $00000008;
  83545. end;
  83546. procedure TCAN1_C1FIFOINT27.setRXOVFLIF(thebits : TBits_1); inline;
  83547. begin
  83548. if thebits = 0 then
  83549. pTDefRegMap(@Self)^.clr := $00000008
  83550. else
  83551. pTDefRegMap(@Self)^.&set := $00000008;
  83552. end;
  83553. function TCAN1_C1FIFOINT27.getRXOVFLIF : TBits_1; inline;
  83554. begin
  83555. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83556. end;
  83557. procedure TCAN1_C1FIFOINT27.setTXEMPTYIF; inline;
  83558. begin
  83559. pTDefRegMap(@Self)^.&set := $00000100;
  83560. end;
  83561. procedure TCAN1_C1FIFOINT27.clearTXEMPTYIF; inline;
  83562. begin
  83563. pTDefRegMap(@Self)^.clr := $00000100;
  83564. end;
  83565. procedure TCAN1_C1FIFOINT27.setTXEMPTYIF(thebits : TBits_1); inline;
  83566. begin
  83567. if thebits = 0 then
  83568. pTDefRegMap(@Self)^.clr := $00000100
  83569. else
  83570. pTDefRegMap(@Self)^.&set := $00000100;
  83571. end;
  83572. function TCAN1_C1FIFOINT27.getTXEMPTYIF : TBits_1; inline;
  83573. begin
  83574. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  83575. end;
  83576. procedure TCAN1_C1FIFOINT27.setTXHALFIF; inline;
  83577. begin
  83578. pTDefRegMap(@Self)^.&set := $00000200;
  83579. end;
  83580. procedure TCAN1_C1FIFOINT27.clearTXHALFIF; inline;
  83581. begin
  83582. pTDefRegMap(@Self)^.clr := $00000200;
  83583. end;
  83584. procedure TCAN1_C1FIFOINT27.setTXHALFIF(thebits : TBits_1); inline;
  83585. begin
  83586. if thebits = 0 then
  83587. pTDefRegMap(@Self)^.clr := $00000200
  83588. else
  83589. pTDefRegMap(@Self)^.&set := $00000200;
  83590. end;
  83591. function TCAN1_C1FIFOINT27.getTXHALFIF : TBits_1; inline;
  83592. begin
  83593. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  83594. end;
  83595. procedure TCAN1_C1FIFOINT27.setTXNFULLIF; inline;
  83596. begin
  83597. pTDefRegMap(@Self)^.&set := $00000400;
  83598. end;
  83599. procedure TCAN1_C1FIFOINT27.clearTXNFULLIF; inline;
  83600. begin
  83601. pTDefRegMap(@Self)^.clr := $00000400;
  83602. end;
  83603. procedure TCAN1_C1FIFOINT27.setTXNFULLIF(thebits : TBits_1); inline;
  83604. begin
  83605. if thebits = 0 then
  83606. pTDefRegMap(@Self)^.clr := $00000400
  83607. else
  83608. pTDefRegMap(@Self)^.&set := $00000400;
  83609. end;
  83610. function TCAN1_C1FIFOINT27.getTXNFULLIF : TBits_1; inline;
  83611. begin
  83612. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  83613. end;
  83614. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIE; inline;
  83615. begin
  83616. pTDefRegMap(@Self)^.&set := $00010000;
  83617. end;
  83618. procedure TCAN1_C1FIFOINT27.clearRXNEMPTYIE; inline;
  83619. begin
  83620. pTDefRegMap(@Self)^.clr := $00010000;
  83621. end;
  83622. procedure TCAN1_C1FIFOINT27.setRXNEMPTYIE(thebits : TBits_1); inline;
  83623. begin
  83624. if thebits = 0 then
  83625. pTDefRegMap(@Self)^.clr := $00010000
  83626. else
  83627. pTDefRegMap(@Self)^.&set := $00010000;
  83628. end;
  83629. function TCAN1_C1FIFOINT27.getRXNEMPTYIE : TBits_1; inline;
  83630. begin
  83631. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  83632. end;
  83633. procedure TCAN1_C1FIFOINT27.setRXHALFIE; inline;
  83634. begin
  83635. pTDefRegMap(@Self)^.&set := $00020000;
  83636. end;
  83637. procedure TCAN1_C1FIFOINT27.clearRXHALFIE; inline;
  83638. begin
  83639. pTDefRegMap(@Self)^.clr := $00020000;
  83640. end;
  83641. procedure TCAN1_C1FIFOINT27.setRXHALFIE(thebits : TBits_1); inline;
  83642. begin
  83643. if thebits = 0 then
  83644. pTDefRegMap(@Self)^.clr := $00020000
  83645. else
  83646. pTDefRegMap(@Self)^.&set := $00020000;
  83647. end;
  83648. function TCAN1_C1FIFOINT27.getRXHALFIE : TBits_1; inline;
  83649. begin
  83650. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  83651. end;
  83652. procedure TCAN1_C1FIFOINT27.setRXFULLIE; inline;
  83653. begin
  83654. pTDefRegMap(@Self)^.&set := $00040000;
  83655. end;
  83656. procedure TCAN1_C1FIFOINT27.clearRXFULLIE; inline;
  83657. begin
  83658. pTDefRegMap(@Self)^.clr := $00040000;
  83659. end;
  83660. procedure TCAN1_C1FIFOINT27.setRXFULLIE(thebits : TBits_1); inline;
  83661. begin
  83662. if thebits = 0 then
  83663. pTDefRegMap(@Self)^.clr := $00040000
  83664. else
  83665. pTDefRegMap(@Self)^.&set := $00040000;
  83666. end;
  83667. function TCAN1_C1FIFOINT27.getRXFULLIE : TBits_1; inline;
  83668. begin
  83669. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  83670. end;
  83671. procedure TCAN1_C1FIFOINT27.setRXOVFLIE; inline;
  83672. begin
  83673. pTDefRegMap(@Self)^.&set := $00080000;
  83674. end;
  83675. procedure TCAN1_C1FIFOINT27.clearRXOVFLIE; inline;
  83676. begin
  83677. pTDefRegMap(@Self)^.clr := $00080000;
  83678. end;
  83679. procedure TCAN1_C1FIFOINT27.setRXOVFLIE(thebits : TBits_1); inline;
  83680. begin
  83681. if thebits = 0 then
  83682. pTDefRegMap(@Self)^.clr := $00080000
  83683. else
  83684. pTDefRegMap(@Self)^.&set := $00080000;
  83685. end;
  83686. function TCAN1_C1FIFOINT27.getRXOVFLIE : TBits_1; inline;
  83687. begin
  83688. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  83689. end;
  83690. procedure TCAN1_C1FIFOINT27.setTXEMPTYIE; inline;
  83691. begin
  83692. pTDefRegMap(@Self)^.&set := $01000000;
  83693. end;
  83694. procedure TCAN1_C1FIFOINT27.clearTXEMPTYIE; inline;
  83695. begin
  83696. pTDefRegMap(@Self)^.clr := $01000000;
  83697. end;
  83698. procedure TCAN1_C1FIFOINT27.setTXEMPTYIE(thebits : TBits_1); inline;
  83699. begin
  83700. if thebits = 0 then
  83701. pTDefRegMap(@Self)^.clr := $01000000
  83702. else
  83703. pTDefRegMap(@Self)^.&set := $01000000;
  83704. end;
  83705. function TCAN1_C1FIFOINT27.getTXEMPTYIE : TBits_1; inline;
  83706. begin
  83707. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  83708. end;
  83709. procedure TCAN1_C1FIFOINT27.setTXHALFIE; inline;
  83710. begin
  83711. pTDefRegMap(@Self)^.&set := $02000000;
  83712. end;
  83713. procedure TCAN1_C1FIFOINT27.clearTXHALFIE; inline;
  83714. begin
  83715. pTDefRegMap(@Self)^.clr := $02000000;
  83716. end;
  83717. procedure TCAN1_C1FIFOINT27.setTXHALFIE(thebits : TBits_1); inline;
  83718. begin
  83719. if thebits = 0 then
  83720. pTDefRegMap(@Self)^.clr := $02000000
  83721. else
  83722. pTDefRegMap(@Self)^.&set := $02000000;
  83723. end;
  83724. function TCAN1_C1FIFOINT27.getTXHALFIE : TBits_1; inline;
  83725. begin
  83726. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  83727. end;
  83728. procedure TCAN1_C1FIFOINT27.setTXNFULLIE; inline;
  83729. begin
  83730. pTDefRegMap(@Self)^.&set := $04000000;
  83731. end;
  83732. procedure TCAN1_C1FIFOINT27.clearTXNFULLIE; inline;
  83733. begin
  83734. pTDefRegMap(@Self)^.clr := $04000000;
  83735. end;
  83736. procedure TCAN1_C1FIFOINT27.setTXNFULLIE(thebits : TBits_1); inline;
  83737. begin
  83738. if thebits = 0 then
  83739. pTDefRegMap(@Self)^.clr := $04000000
  83740. else
  83741. pTDefRegMap(@Self)^.&set := $04000000;
  83742. end;
  83743. function TCAN1_C1FIFOINT27.getTXNFULLIE : TBits_1; inline;
  83744. begin
  83745. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  83746. end;
  83747. procedure TCAN1_C1FIFOINT27.setw(thebits : TBits_32); inline;
  83748. begin
  83749. pTDefRegMap(@Self)^.val := thebits;
  83750. end;
  83751. function TCAN1_C1FIFOINT27.getw : TBits_32; inline;
  83752. begin
  83753. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83754. end;
  83755. procedure TCAN1_C1FIFOCI27.setCFIFOCI(thebits : TBits_5); inline;
  83756. begin
  83757. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  83758. end;
  83759. function TCAN1_C1FIFOCI27.getCFIFOCI : TBits_5; inline;
  83760. begin
  83761. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  83762. end;
  83763. procedure TCAN1_C1FIFOCI27.setw(thebits : TBits_32); inline;
  83764. begin
  83765. pTDefRegMap(@Self)^.val := thebits;
  83766. end;
  83767. function TCAN1_C1FIFOCI27.getw : TBits_32; inline;
  83768. begin
  83769. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83770. end;
  83771. procedure TCAN1_C1FIFOCON28.setTXPRI(thebits : TBits_2); inline;
  83772. begin
  83773. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  83774. end;
  83775. function TCAN1_C1FIFOCON28.getTXPRI : TBits_2; inline;
  83776. begin
  83777. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  83778. end;
  83779. procedure TCAN1_C1FIFOCON28.setRTREN; inline;
  83780. begin
  83781. pTDefRegMap(@Self)^.&set := $00000004;
  83782. end;
  83783. procedure TCAN1_C1FIFOCON28.clearRTREN; inline;
  83784. begin
  83785. pTDefRegMap(@Self)^.clr := $00000004;
  83786. end;
  83787. procedure TCAN1_C1FIFOCON28.setRTREN(thebits : TBits_1); inline;
  83788. begin
  83789. if thebits = 0 then
  83790. pTDefRegMap(@Self)^.clr := $00000004
  83791. else
  83792. pTDefRegMap(@Self)^.&set := $00000004;
  83793. end;
  83794. function TCAN1_C1FIFOCON28.getRTREN : TBits_1; inline;
  83795. begin
  83796. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  83797. end;
  83798. procedure TCAN1_C1FIFOCON28.setTXREQ; inline;
  83799. begin
  83800. pTDefRegMap(@Self)^.&set := $00000008;
  83801. end;
  83802. procedure TCAN1_C1FIFOCON28.clearTXREQ; inline;
  83803. begin
  83804. pTDefRegMap(@Self)^.clr := $00000008;
  83805. end;
  83806. procedure TCAN1_C1FIFOCON28.setTXREQ(thebits : TBits_1); inline;
  83807. begin
  83808. if thebits = 0 then
  83809. pTDefRegMap(@Self)^.clr := $00000008
  83810. else
  83811. pTDefRegMap(@Self)^.&set := $00000008;
  83812. end;
  83813. function TCAN1_C1FIFOCON28.getTXREQ : TBits_1; inline;
  83814. begin
  83815. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  83816. end;
  83817. procedure TCAN1_C1FIFOCON28.setTXERR; inline;
  83818. begin
  83819. pTDefRegMap(@Self)^.&set := $00000010;
  83820. end;
  83821. procedure TCAN1_C1FIFOCON28.clearTXERR; inline;
  83822. begin
  83823. pTDefRegMap(@Self)^.clr := $00000010;
  83824. end;
  83825. procedure TCAN1_C1FIFOCON28.setTXERR(thebits : TBits_1); inline;
  83826. begin
  83827. if thebits = 0 then
  83828. pTDefRegMap(@Self)^.clr := $00000010
  83829. else
  83830. pTDefRegMap(@Self)^.&set := $00000010;
  83831. end;
  83832. function TCAN1_C1FIFOCON28.getTXERR : TBits_1; inline;
  83833. begin
  83834. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  83835. end;
  83836. procedure TCAN1_C1FIFOCON28.setTXLARB; inline;
  83837. begin
  83838. pTDefRegMap(@Self)^.&set := $00000020;
  83839. end;
  83840. procedure TCAN1_C1FIFOCON28.clearTXLARB; inline;
  83841. begin
  83842. pTDefRegMap(@Self)^.clr := $00000020;
  83843. end;
  83844. procedure TCAN1_C1FIFOCON28.setTXLARB(thebits : TBits_1); inline;
  83845. begin
  83846. if thebits = 0 then
  83847. pTDefRegMap(@Self)^.clr := $00000020
  83848. else
  83849. pTDefRegMap(@Self)^.&set := $00000020;
  83850. end;
  83851. function TCAN1_C1FIFOCON28.getTXLARB : TBits_1; inline;
  83852. begin
  83853. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  83854. end;
  83855. procedure TCAN1_C1FIFOCON28.setTXABAT; inline;
  83856. begin
  83857. pTDefRegMap(@Self)^.&set := $00000040;
  83858. end;
  83859. procedure TCAN1_C1FIFOCON28.clearTXABAT; inline;
  83860. begin
  83861. pTDefRegMap(@Self)^.clr := $00000040;
  83862. end;
  83863. procedure TCAN1_C1FIFOCON28.setTXABAT(thebits : TBits_1); inline;
  83864. begin
  83865. if thebits = 0 then
  83866. pTDefRegMap(@Self)^.clr := $00000040
  83867. else
  83868. pTDefRegMap(@Self)^.&set := $00000040;
  83869. end;
  83870. function TCAN1_C1FIFOCON28.getTXABAT : TBits_1; inline;
  83871. begin
  83872. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  83873. end;
  83874. procedure TCAN1_C1FIFOCON28.setTXEN; inline;
  83875. begin
  83876. pTDefRegMap(@Self)^.&set := $00000080;
  83877. end;
  83878. procedure TCAN1_C1FIFOCON28.clearTXEN; inline;
  83879. begin
  83880. pTDefRegMap(@Self)^.clr := $00000080;
  83881. end;
  83882. procedure TCAN1_C1FIFOCON28.setTXEN(thebits : TBits_1); inline;
  83883. begin
  83884. if thebits = 0 then
  83885. pTDefRegMap(@Self)^.clr := $00000080
  83886. else
  83887. pTDefRegMap(@Self)^.&set := $00000080;
  83888. end;
  83889. function TCAN1_C1FIFOCON28.getTXEN : TBits_1; inline;
  83890. begin
  83891. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  83892. end;
  83893. procedure TCAN1_C1FIFOCON28.setDONLY; inline;
  83894. begin
  83895. pTDefRegMap(@Self)^.&set := $00001000;
  83896. end;
  83897. procedure TCAN1_C1FIFOCON28.clearDONLY; inline;
  83898. begin
  83899. pTDefRegMap(@Self)^.clr := $00001000;
  83900. end;
  83901. procedure TCAN1_C1FIFOCON28.setDONLY(thebits : TBits_1); inline;
  83902. begin
  83903. if thebits = 0 then
  83904. pTDefRegMap(@Self)^.clr := $00001000
  83905. else
  83906. pTDefRegMap(@Self)^.&set := $00001000;
  83907. end;
  83908. function TCAN1_C1FIFOCON28.getDONLY : TBits_1; inline;
  83909. begin
  83910. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  83911. end;
  83912. procedure TCAN1_C1FIFOCON28.setUINC; inline;
  83913. begin
  83914. pTDefRegMap(@Self)^.&set := $00002000;
  83915. end;
  83916. procedure TCAN1_C1FIFOCON28.clearUINC; inline;
  83917. begin
  83918. pTDefRegMap(@Self)^.clr := $00002000;
  83919. end;
  83920. procedure TCAN1_C1FIFOCON28.setUINC(thebits : TBits_1); inline;
  83921. begin
  83922. if thebits = 0 then
  83923. pTDefRegMap(@Self)^.clr := $00002000
  83924. else
  83925. pTDefRegMap(@Self)^.&set := $00002000;
  83926. end;
  83927. function TCAN1_C1FIFOCON28.getUINC : TBits_1; inline;
  83928. begin
  83929. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  83930. end;
  83931. procedure TCAN1_C1FIFOCON28.setFRESET; inline;
  83932. begin
  83933. pTDefRegMap(@Self)^.&set := $00004000;
  83934. end;
  83935. procedure TCAN1_C1FIFOCON28.clearFRESET; inline;
  83936. begin
  83937. pTDefRegMap(@Self)^.clr := $00004000;
  83938. end;
  83939. procedure TCAN1_C1FIFOCON28.setFRESET(thebits : TBits_1); inline;
  83940. begin
  83941. if thebits = 0 then
  83942. pTDefRegMap(@Self)^.clr := $00004000
  83943. else
  83944. pTDefRegMap(@Self)^.&set := $00004000;
  83945. end;
  83946. function TCAN1_C1FIFOCON28.getFRESET : TBits_1; inline;
  83947. begin
  83948. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  83949. end;
  83950. procedure TCAN1_C1FIFOCON28.setFSIZE(thebits : TBits_5); inline;
  83951. begin
  83952. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  83953. end;
  83954. function TCAN1_C1FIFOCON28.getFSIZE : TBits_5; inline;
  83955. begin
  83956. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  83957. end;
  83958. procedure TCAN1_C1FIFOCON28.setw(thebits : TBits_32); inline;
  83959. begin
  83960. pTDefRegMap(@Self)^.val := thebits;
  83961. end;
  83962. function TCAN1_C1FIFOCON28.getw : TBits_32; inline;
  83963. begin
  83964. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  83965. end;
  83966. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIF; inline;
  83967. begin
  83968. pTDefRegMap(@Self)^.&set := $00000001;
  83969. end;
  83970. procedure TCAN1_C1FIFOINT28.clearRXNEMPTYIF; inline;
  83971. begin
  83972. pTDefRegMap(@Self)^.clr := $00000001;
  83973. end;
  83974. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIF(thebits : TBits_1); inline;
  83975. begin
  83976. if thebits = 0 then
  83977. pTDefRegMap(@Self)^.clr := $00000001
  83978. else
  83979. pTDefRegMap(@Self)^.&set := $00000001;
  83980. end;
  83981. function TCAN1_C1FIFOINT28.getRXNEMPTYIF : TBits_1; inline;
  83982. begin
  83983. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  83984. end;
  83985. procedure TCAN1_C1FIFOINT28.setRXHALFIF; inline;
  83986. begin
  83987. pTDefRegMap(@Self)^.&set := $00000002;
  83988. end;
  83989. procedure TCAN1_C1FIFOINT28.clearRXHALFIF; inline;
  83990. begin
  83991. pTDefRegMap(@Self)^.clr := $00000002;
  83992. end;
  83993. procedure TCAN1_C1FIFOINT28.setRXHALFIF(thebits : TBits_1); inline;
  83994. begin
  83995. if thebits = 0 then
  83996. pTDefRegMap(@Self)^.clr := $00000002
  83997. else
  83998. pTDefRegMap(@Self)^.&set := $00000002;
  83999. end;
  84000. function TCAN1_C1FIFOINT28.getRXHALFIF : TBits_1; inline;
  84001. begin
  84002. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84003. end;
  84004. procedure TCAN1_C1FIFOINT28.setRXFULLIF; inline;
  84005. begin
  84006. pTDefRegMap(@Self)^.&set := $00000004;
  84007. end;
  84008. procedure TCAN1_C1FIFOINT28.clearRXFULLIF; inline;
  84009. begin
  84010. pTDefRegMap(@Self)^.clr := $00000004;
  84011. end;
  84012. procedure TCAN1_C1FIFOINT28.setRXFULLIF(thebits : TBits_1); inline;
  84013. begin
  84014. if thebits = 0 then
  84015. pTDefRegMap(@Self)^.clr := $00000004
  84016. else
  84017. pTDefRegMap(@Self)^.&set := $00000004;
  84018. end;
  84019. function TCAN1_C1FIFOINT28.getRXFULLIF : TBits_1; inline;
  84020. begin
  84021. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84022. end;
  84023. procedure TCAN1_C1FIFOINT28.setRXOVFLIF; inline;
  84024. begin
  84025. pTDefRegMap(@Self)^.&set := $00000008;
  84026. end;
  84027. procedure TCAN1_C1FIFOINT28.clearRXOVFLIF; inline;
  84028. begin
  84029. pTDefRegMap(@Self)^.clr := $00000008;
  84030. end;
  84031. procedure TCAN1_C1FIFOINT28.setRXOVFLIF(thebits : TBits_1); inline;
  84032. begin
  84033. if thebits = 0 then
  84034. pTDefRegMap(@Self)^.clr := $00000008
  84035. else
  84036. pTDefRegMap(@Self)^.&set := $00000008;
  84037. end;
  84038. function TCAN1_C1FIFOINT28.getRXOVFLIF : TBits_1; inline;
  84039. begin
  84040. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84041. end;
  84042. procedure TCAN1_C1FIFOINT28.setTXEMPTYIF; inline;
  84043. begin
  84044. pTDefRegMap(@Self)^.&set := $00000100;
  84045. end;
  84046. procedure TCAN1_C1FIFOINT28.clearTXEMPTYIF; inline;
  84047. begin
  84048. pTDefRegMap(@Self)^.clr := $00000100;
  84049. end;
  84050. procedure TCAN1_C1FIFOINT28.setTXEMPTYIF(thebits : TBits_1); inline;
  84051. begin
  84052. if thebits = 0 then
  84053. pTDefRegMap(@Self)^.clr := $00000100
  84054. else
  84055. pTDefRegMap(@Self)^.&set := $00000100;
  84056. end;
  84057. function TCAN1_C1FIFOINT28.getTXEMPTYIF : TBits_1; inline;
  84058. begin
  84059. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  84060. end;
  84061. procedure TCAN1_C1FIFOINT28.setTXHALFIF; inline;
  84062. begin
  84063. pTDefRegMap(@Self)^.&set := $00000200;
  84064. end;
  84065. procedure TCAN1_C1FIFOINT28.clearTXHALFIF; inline;
  84066. begin
  84067. pTDefRegMap(@Self)^.clr := $00000200;
  84068. end;
  84069. procedure TCAN1_C1FIFOINT28.setTXHALFIF(thebits : TBits_1); inline;
  84070. begin
  84071. if thebits = 0 then
  84072. pTDefRegMap(@Self)^.clr := $00000200
  84073. else
  84074. pTDefRegMap(@Self)^.&set := $00000200;
  84075. end;
  84076. function TCAN1_C1FIFOINT28.getTXHALFIF : TBits_1; inline;
  84077. begin
  84078. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  84079. end;
  84080. procedure TCAN1_C1FIFOINT28.setTXNFULLIF; inline;
  84081. begin
  84082. pTDefRegMap(@Self)^.&set := $00000400;
  84083. end;
  84084. procedure TCAN1_C1FIFOINT28.clearTXNFULLIF; inline;
  84085. begin
  84086. pTDefRegMap(@Self)^.clr := $00000400;
  84087. end;
  84088. procedure TCAN1_C1FIFOINT28.setTXNFULLIF(thebits : TBits_1); inline;
  84089. begin
  84090. if thebits = 0 then
  84091. pTDefRegMap(@Self)^.clr := $00000400
  84092. else
  84093. pTDefRegMap(@Self)^.&set := $00000400;
  84094. end;
  84095. function TCAN1_C1FIFOINT28.getTXNFULLIF : TBits_1; inline;
  84096. begin
  84097. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  84098. end;
  84099. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIE; inline;
  84100. begin
  84101. pTDefRegMap(@Self)^.&set := $00010000;
  84102. end;
  84103. procedure TCAN1_C1FIFOINT28.clearRXNEMPTYIE; inline;
  84104. begin
  84105. pTDefRegMap(@Self)^.clr := $00010000;
  84106. end;
  84107. procedure TCAN1_C1FIFOINT28.setRXNEMPTYIE(thebits : TBits_1); inline;
  84108. begin
  84109. if thebits = 0 then
  84110. pTDefRegMap(@Self)^.clr := $00010000
  84111. else
  84112. pTDefRegMap(@Self)^.&set := $00010000;
  84113. end;
  84114. function TCAN1_C1FIFOINT28.getRXNEMPTYIE : TBits_1; inline;
  84115. begin
  84116. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  84117. end;
  84118. procedure TCAN1_C1FIFOINT28.setRXHALFIE; inline;
  84119. begin
  84120. pTDefRegMap(@Self)^.&set := $00020000;
  84121. end;
  84122. procedure TCAN1_C1FIFOINT28.clearRXHALFIE; inline;
  84123. begin
  84124. pTDefRegMap(@Self)^.clr := $00020000;
  84125. end;
  84126. procedure TCAN1_C1FIFOINT28.setRXHALFIE(thebits : TBits_1); inline;
  84127. begin
  84128. if thebits = 0 then
  84129. pTDefRegMap(@Self)^.clr := $00020000
  84130. else
  84131. pTDefRegMap(@Self)^.&set := $00020000;
  84132. end;
  84133. function TCAN1_C1FIFOINT28.getRXHALFIE : TBits_1; inline;
  84134. begin
  84135. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  84136. end;
  84137. procedure TCAN1_C1FIFOINT28.setRXFULLIE; inline;
  84138. begin
  84139. pTDefRegMap(@Self)^.&set := $00040000;
  84140. end;
  84141. procedure TCAN1_C1FIFOINT28.clearRXFULLIE; inline;
  84142. begin
  84143. pTDefRegMap(@Self)^.clr := $00040000;
  84144. end;
  84145. procedure TCAN1_C1FIFOINT28.setRXFULLIE(thebits : TBits_1); inline;
  84146. begin
  84147. if thebits = 0 then
  84148. pTDefRegMap(@Self)^.clr := $00040000
  84149. else
  84150. pTDefRegMap(@Self)^.&set := $00040000;
  84151. end;
  84152. function TCAN1_C1FIFOINT28.getRXFULLIE : TBits_1; inline;
  84153. begin
  84154. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84155. end;
  84156. procedure TCAN1_C1FIFOINT28.setRXOVFLIE; inline;
  84157. begin
  84158. pTDefRegMap(@Self)^.&set := $00080000;
  84159. end;
  84160. procedure TCAN1_C1FIFOINT28.clearRXOVFLIE; inline;
  84161. begin
  84162. pTDefRegMap(@Self)^.clr := $00080000;
  84163. end;
  84164. procedure TCAN1_C1FIFOINT28.setRXOVFLIE(thebits : TBits_1); inline;
  84165. begin
  84166. if thebits = 0 then
  84167. pTDefRegMap(@Self)^.clr := $00080000
  84168. else
  84169. pTDefRegMap(@Self)^.&set := $00080000;
  84170. end;
  84171. function TCAN1_C1FIFOINT28.getRXOVFLIE : TBits_1; inline;
  84172. begin
  84173. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84174. end;
  84175. procedure TCAN1_C1FIFOINT28.setTXEMPTYIE; inline;
  84176. begin
  84177. pTDefRegMap(@Self)^.&set := $01000000;
  84178. end;
  84179. procedure TCAN1_C1FIFOINT28.clearTXEMPTYIE; inline;
  84180. begin
  84181. pTDefRegMap(@Self)^.clr := $01000000;
  84182. end;
  84183. procedure TCAN1_C1FIFOINT28.setTXEMPTYIE(thebits : TBits_1); inline;
  84184. begin
  84185. if thebits = 0 then
  84186. pTDefRegMap(@Self)^.clr := $01000000
  84187. else
  84188. pTDefRegMap(@Self)^.&set := $01000000;
  84189. end;
  84190. function TCAN1_C1FIFOINT28.getTXEMPTYIE : TBits_1; inline;
  84191. begin
  84192. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  84193. end;
  84194. procedure TCAN1_C1FIFOINT28.setTXHALFIE; inline;
  84195. begin
  84196. pTDefRegMap(@Self)^.&set := $02000000;
  84197. end;
  84198. procedure TCAN1_C1FIFOINT28.clearTXHALFIE; inline;
  84199. begin
  84200. pTDefRegMap(@Self)^.clr := $02000000;
  84201. end;
  84202. procedure TCAN1_C1FIFOINT28.setTXHALFIE(thebits : TBits_1); inline;
  84203. begin
  84204. if thebits = 0 then
  84205. pTDefRegMap(@Self)^.clr := $02000000
  84206. else
  84207. pTDefRegMap(@Self)^.&set := $02000000;
  84208. end;
  84209. function TCAN1_C1FIFOINT28.getTXHALFIE : TBits_1; inline;
  84210. begin
  84211. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  84212. end;
  84213. procedure TCAN1_C1FIFOINT28.setTXNFULLIE; inline;
  84214. begin
  84215. pTDefRegMap(@Self)^.&set := $04000000;
  84216. end;
  84217. procedure TCAN1_C1FIFOINT28.clearTXNFULLIE; inline;
  84218. begin
  84219. pTDefRegMap(@Self)^.clr := $04000000;
  84220. end;
  84221. procedure TCAN1_C1FIFOINT28.setTXNFULLIE(thebits : TBits_1); inline;
  84222. begin
  84223. if thebits = 0 then
  84224. pTDefRegMap(@Self)^.clr := $04000000
  84225. else
  84226. pTDefRegMap(@Self)^.&set := $04000000;
  84227. end;
  84228. function TCAN1_C1FIFOINT28.getTXNFULLIE : TBits_1; inline;
  84229. begin
  84230. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  84231. end;
  84232. procedure TCAN1_C1FIFOINT28.setw(thebits : TBits_32); inline;
  84233. begin
  84234. pTDefRegMap(@Self)^.val := thebits;
  84235. end;
  84236. function TCAN1_C1FIFOINT28.getw : TBits_32; inline;
  84237. begin
  84238. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84239. end;
  84240. procedure TCAN1_C1FIFOCI28.setCFIFOCI(thebits : TBits_5); inline;
  84241. begin
  84242. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  84243. end;
  84244. function TCAN1_C1FIFOCI28.getCFIFOCI : TBits_5; inline;
  84245. begin
  84246. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  84247. end;
  84248. procedure TCAN1_C1FIFOCI28.setw(thebits : TBits_32); inline;
  84249. begin
  84250. pTDefRegMap(@Self)^.val := thebits;
  84251. end;
  84252. function TCAN1_C1FIFOCI28.getw : TBits_32; inline;
  84253. begin
  84254. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84255. end;
  84256. procedure TCAN1_C1FIFOCON29.setTXPRI(thebits : TBits_2); inline;
  84257. begin
  84258. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  84259. end;
  84260. function TCAN1_C1FIFOCON29.getTXPRI : TBits_2; inline;
  84261. begin
  84262. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  84263. end;
  84264. procedure TCAN1_C1FIFOCON29.setRTREN; inline;
  84265. begin
  84266. pTDefRegMap(@Self)^.&set := $00000004;
  84267. end;
  84268. procedure TCAN1_C1FIFOCON29.clearRTREN; inline;
  84269. begin
  84270. pTDefRegMap(@Self)^.clr := $00000004;
  84271. end;
  84272. procedure TCAN1_C1FIFOCON29.setRTREN(thebits : TBits_1); inline;
  84273. begin
  84274. if thebits = 0 then
  84275. pTDefRegMap(@Self)^.clr := $00000004
  84276. else
  84277. pTDefRegMap(@Self)^.&set := $00000004;
  84278. end;
  84279. function TCAN1_C1FIFOCON29.getRTREN : TBits_1; inline;
  84280. begin
  84281. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84282. end;
  84283. procedure TCAN1_C1FIFOCON29.setTXREQ; inline;
  84284. begin
  84285. pTDefRegMap(@Self)^.&set := $00000008;
  84286. end;
  84287. procedure TCAN1_C1FIFOCON29.clearTXREQ; inline;
  84288. begin
  84289. pTDefRegMap(@Self)^.clr := $00000008;
  84290. end;
  84291. procedure TCAN1_C1FIFOCON29.setTXREQ(thebits : TBits_1); inline;
  84292. begin
  84293. if thebits = 0 then
  84294. pTDefRegMap(@Self)^.clr := $00000008
  84295. else
  84296. pTDefRegMap(@Self)^.&set := $00000008;
  84297. end;
  84298. function TCAN1_C1FIFOCON29.getTXREQ : TBits_1; inline;
  84299. begin
  84300. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84301. end;
  84302. procedure TCAN1_C1FIFOCON29.setTXERR; inline;
  84303. begin
  84304. pTDefRegMap(@Self)^.&set := $00000010;
  84305. end;
  84306. procedure TCAN1_C1FIFOCON29.clearTXERR; inline;
  84307. begin
  84308. pTDefRegMap(@Self)^.clr := $00000010;
  84309. end;
  84310. procedure TCAN1_C1FIFOCON29.setTXERR(thebits : TBits_1); inline;
  84311. begin
  84312. if thebits = 0 then
  84313. pTDefRegMap(@Self)^.clr := $00000010
  84314. else
  84315. pTDefRegMap(@Self)^.&set := $00000010;
  84316. end;
  84317. function TCAN1_C1FIFOCON29.getTXERR : TBits_1; inline;
  84318. begin
  84319. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  84320. end;
  84321. procedure TCAN1_C1FIFOCON29.setTXLARB; inline;
  84322. begin
  84323. pTDefRegMap(@Self)^.&set := $00000020;
  84324. end;
  84325. procedure TCAN1_C1FIFOCON29.clearTXLARB; inline;
  84326. begin
  84327. pTDefRegMap(@Self)^.clr := $00000020;
  84328. end;
  84329. procedure TCAN1_C1FIFOCON29.setTXLARB(thebits : TBits_1); inline;
  84330. begin
  84331. if thebits = 0 then
  84332. pTDefRegMap(@Self)^.clr := $00000020
  84333. else
  84334. pTDefRegMap(@Self)^.&set := $00000020;
  84335. end;
  84336. function TCAN1_C1FIFOCON29.getTXLARB : TBits_1; inline;
  84337. begin
  84338. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  84339. end;
  84340. procedure TCAN1_C1FIFOCON29.setTXABAT; inline;
  84341. begin
  84342. pTDefRegMap(@Self)^.&set := $00000040;
  84343. end;
  84344. procedure TCAN1_C1FIFOCON29.clearTXABAT; inline;
  84345. begin
  84346. pTDefRegMap(@Self)^.clr := $00000040;
  84347. end;
  84348. procedure TCAN1_C1FIFOCON29.setTXABAT(thebits : TBits_1); inline;
  84349. begin
  84350. if thebits = 0 then
  84351. pTDefRegMap(@Self)^.clr := $00000040
  84352. else
  84353. pTDefRegMap(@Self)^.&set := $00000040;
  84354. end;
  84355. function TCAN1_C1FIFOCON29.getTXABAT : TBits_1; inline;
  84356. begin
  84357. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  84358. end;
  84359. procedure TCAN1_C1FIFOCON29.setTXEN; inline;
  84360. begin
  84361. pTDefRegMap(@Self)^.&set := $00000080;
  84362. end;
  84363. procedure TCAN1_C1FIFOCON29.clearTXEN; inline;
  84364. begin
  84365. pTDefRegMap(@Self)^.clr := $00000080;
  84366. end;
  84367. procedure TCAN1_C1FIFOCON29.setTXEN(thebits : TBits_1); inline;
  84368. begin
  84369. if thebits = 0 then
  84370. pTDefRegMap(@Self)^.clr := $00000080
  84371. else
  84372. pTDefRegMap(@Self)^.&set := $00000080;
  84373. end;
  84374. function TCAN1_C1FIFOCON29.getTXEN : TBits_1; inline;
  84375. begin
  84376. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  84377. end;
  84378. procedure TCAN1_C1FIFOCON29.setDONLY; inline;
  84379. begin
  84380. pTDefRegMap(@Self)^.&set := $00001000;
  84381. end;
  84382. procedure TCAN1_C1FIFOCON29.clearDONLY; inline;
  84383. begin
  84384. pTDefRegMap(@Self)^.clr := $00001000;
  84385. end;
  84386. procedure TCAN1_C1FIFOCON29.setDONLY(thebits : TBits_1); inline;
  84387. begin
  84388. if thebits = 0 then
  84389. pTDefRegMap(@Self)^.clr := $00001000
  84390. else
  84391. pTDefRegMap(@Self)^.&set := $00001000;
  84392. end;
  84393. function TCAN1_C1FIFOCON29.getDONLY : TBits_1; inline;
  84394. begin
  84395. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  84396. end;
  84397. procedure TCAN1_C1FIFOCON29.setUINC; inline;
  84398. begin
  84399. pTDefRegMap(@Self)^.&set := $00002000;
  84400. end;
  84401. procedure TCAN1_C1FIFOCON29.clearUINC; inline;
  84402. begin
  84403. pTDefRegMap(@Self)^.clr := $00002000;
  84404. end;
  84405. procedure TCAN1_C1FIFOCON29.setUINC(thebits : TBits_1); inline;
  84406. begin
  84407. if thebits = 0 then
  84408. pTDefRegMap(@Self)^.clr := $00002000
  84409. else
  84410. pTDefRegMap(@Self)^.&set := $00002000;
  84411. end;
  84412. function TCAN1_C1FIFOCON29.getUINC : TBits_1; inline;
  84413. begin
  84414. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  84415. end;
  84416. procedure TCAN1_C1FIFOCON29.setFRESET; inline;
  84417. begin
  84418. pTDefRegMap(@Self)^.&set := $00004000;
  84419. end;
  84420. procedure TCAN1_C1FIFOCON29.clearFRESET; inline;
  84421. begin
  84422. pTDefRegMap(@Self)^.clr := $00004000;
  84423. end;
  84424. procedure TCAN1_C1FIFOCON29.setFRESET(thebits : TBits_1); inline;
  84425. begin
  84426. if thebits = 0 then
  84427. pTDefRegMap(@Self)^.clr := $00004000
  84428. else
  84429. pTDefRegMap(@Self)^.&set := $00004000;
  84430. end;
  84431. function TCAN1_C1FIFOCON29.getFRESET : TBits_1; inline;
  84432. begin
  84433. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84434. end;
  84435. procedure TCAN1_C1FIFOCON29.setFSIZE(thebits : TBits_5); inline;
  84436. begin
  84437. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84438. end;
  84439. function TCAN1_C1FIFOCON29.getFSIZE : TBits_5; inline;
  84440. begin
  84441. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84442. end;
  84443. procedure TCAN1_C1FIFOCON29.setw(thebits : TBits_32); inline;
  84444. begin
  84445. pTDefRegMap(@Self)^.val := thebits;
  84446. end;
  84447. function TCAN1_C1FIFOCON29.getw : TBits_32; inline;
  84448. begin
  84449. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84450. end;
  84451. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIF; inline;
  84452. begin
  84453. pTDefRegMap(@Self)^.&set := $00000001;
  84454. end;
  84455. procedure TCAN1_C1FIFOINT29.clearRXNEMPTYIF; inline;
  84456. begin
  84457. pTDefRegMap(@Self)^.clr := $00000001;
  84458. end;
  84459. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIF(thebits : TBits_1); inline;
  84460. begin
  84461. if thebits = 0 then
  84462. pTDefRegMap(@Self)^.clr := $00000001
  84463. else
  84464. pTDefRegMap(@Self)^.&set := $00000001;
  84465. end;
  84466. function TCAN1_C1FIFOINT29.getRXNEMPTYIF : TBits_1; inline;
  84467. begin
  84468. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  84469. end;
  84470. procedure TCAN1_C1FIFOINT29.setRXHALFIF; inline;
  84471. begin
  84472. pTDefRegMap(@Self)^.&set := $00000002;
  84473. end;
  84474. procedure TCAN1_C1FIFOINT29.clearRXHALFIF; inline;
  84475. begin
  84476. pTDefRegMap(@Self)^.clr := $00000002;
  84477. end;
  84478. procedure TCAN1_C1FIFOINT29.setRXHALFIF(thebits : TBits_1); inline;
  84479. begin
  84480. if thebits = 0 then
  84481. pTDefRegMap(@Self)^.clr := $00000002
  84482. else
  84483. pTDefRegMap(@Self)^.&set := $00000002;
  84484. end;
  84485. function TCAN1_C1FIFOINT29.getRXHALFIF : TBits_1; inline;
  84486. begin
  84487. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84488. end;
  84489. procedure TCAN1_C1FIFOINT29.setRXFULLIF; inline;
  84490. begin
  84491. pTDefRegMap(@Self)^.&set := $00000004;
  84492. end;
  84493. procedure TCAN1_C1FIFOINT29.clearRXFULLIF; inline;
  84494. begin
  84495. pTDefRegMap(@Self)^.clr := $00000004;
  84496. end;
  84497. procedure TCAN1_C1FIFOINT29.setRXFULLIF(thebits : TBits_1); inline;
  84498. begin
  84499. if thebits = 0 then
  84500. pTDefRegMap(@Self)^.clr := $00000004
  84501. else
  84502. pTDefRegMap(@Self)^.&set := $00000004;
  84503. end;
  84504. function TCAN1_C1FIFOINT29.getRXFULLIF : TBits_1; inline;
  84505. begin
  84506. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84507. end;
  84508. procedure TCAN1_C1FIFOINT29.setRXOVFLIF; inline;
  84509. begin
  84510. pTDefRegMap(@Self)^.&set := $00000008;
  84511. end;
  84512. procedure TCAN1_C1FIFOINT29.clearRXOVFLIF; inline;
  84513. begin
  84514. pTDefRegMap(@Self)^.clr := $00000008;
  84515. end;
  84516. procedure TCAN1_C1FIFOINT29.setRXOVFLIF(thebits : TBits_1); inline;
  84517. begin
  84518. if thebits = 0 then
  84519. pTDefRegMap(@Self)^.clr := $00000008
  84520. else
  84521. pTDefRegMap(@Self)^.&set := $00000008;
  84522. end;
  84523. function TCAN1_C1FIFOINT29.getRXOVFLIF : TBits_1; inline;
  84524. begin
  84525. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84526. end;
  84527. procedure TCAN1_C1FIFOINT29.setTXEMPTYIF; inline;
  84528. begin
  84529. pTDefRegMap(@Self)^.&set := $00000100;
  84530. end;
  84531. procedure TCAN1_C1FIFOINT29.clearTXEMPTYIF; inline;
  84532. begin
  84533. pTDefRegMap(@Self)^.clr := $00000100;
  84534. end;
  84535. procedure TCAN1_C1FIFOINT29.setTXEMPTYIF(thebits : TBits_1); inline;
  84536. begin
  84537. if thebits = 0 then
  84538. pTDefRegMap(@Self)^.clr := $00000100
  84539. else
  84540. pTDefRegMap(@Self)^.&set := $00000100;
  84541. end;
  84542. function TCAN1_C1FIFOINT29.getTXEMPTYIF : TBits_1; inline;
  84543. begin
  84544. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  84545. end;
  84546. procedure TCAN1_C1FIFOINT29.setTXHALFIF; inline;
  84547. begin
  84548. pTDefRegMap(@Self)^.&set := $00000200;
  84549. end;
  84550. procedure TCAN1_C1FIFOINT29.clearTXHALFIF; inline;
  84551. begin
  84552. pTDefRegMap(@Self)^.clr := $00000200;
  84553. end;
  84554. procedure TCAN1_C1FIFOINT29.setTXHALFIF(thebits : TBits_1); inline;
  84555. begin
  84556. if thebits = 0 then
  84557. pTDefRegMap(@Self)^.clr := $00000200
  84558. else
  84559. pTDefRegMap(@Self)^.&set := $00000200;
  84560. end;
  84561. function TCAN1_C1FIFOINT29.getTXHALFIF : TBits_1; inline;
  84562. begin
  84563. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  84564. end;
  84565. procedure TCAN1_C1FIFOINT29.setTXNFULLIF; inline;
  84566. begin
  84567. pTDefRegMap(@Self)^.&set := $00000400;
  84568. end;
  84569. procedure TCAN1_C1FIFOINT29.clearTXNFULLIF; inline;
  84570. begin
  84571. pTDefRegMap(@Self)^.clr := $00000400;
  84572. end;
  84573. procedure TCAN1_C1FIFOINT29.setTXNFULLIF(thebits : TBits_1); inline;
  84574. begin
  84575. if thebits = 0 then
  84576. pTDefRegMap(@Self)^.clr := $00000400
  84577. else
  84578. pTDefRegMap(@Self)^.&set := $00000400;
  84579. end;
  84580. function TCAN1_C1FIFOINT29.getTXNFULLIF : TBits_1; inline;
  84581. begin
  84582. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  84583. end;
  84584. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIE; inline;
  84585. begin
  84586. pTDefRegMap(@Self)^.&set := $00010000;
  84587. end;
  84588. procedure TCAN1_C1FIFOINT29.clearRXNEMPTYIE; inline;
  84589. begin
  84590. pTDefRegMap(@Self)^.clr := $00010000;
  84591. end;
  84592. procedure TCAN1_C1FIFOINT29.setRXNEMPTYIE(thebits : TBits_1); inline;
  84593. begin
  84594. if thebits = 0 then
  84595. pTDefRegMap(@Self)^.clr := $00010000
  84596. else
  84597. pTDefRegMap(@Self)^.&set := $00010000;
  84598. end;
  84599. function TCAN1_C1FIFOINT29.getRXNEMPTYIE : TBits_1; inline;
  84600. begin
  84601. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  84602. end;
  84603. procedure TCAN1_C1FIFOINT29.setRXHALFIE; inline;
  84604. begin
  84605. pTDefRegMap(@Self)^.&set := $00020000;
  84606. end;
  84607. procedure TCAN1_C1FIFOINT29.clearRXHALFIE; inline;
  84608. begin
  84609. pTDefRegMap(@Self)^.clr := $00020000;
  84610. end;
  84611. procedure TCAN1_C1FIFOINT29.setRXHALFIE(thebits : TBits_1); inline;
  84612. begin
  84613. if thebits = 0 then
  84614. pTDefRegMap(@Self)^.clr := $00020000
  84615. else
  84616. pTDefRegMap(@Self)^.&set := $00020000;
  84617. end;
  84618. function TCAN1_C1FIFOINT29.getRXHALFIE : TBits_1; inline;
  84619. begin
  84620. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  84621. end;
  84622. procedure TCAN1_C1FIFOINT29.setRXFULLIE; inline;
  84623. begin
  84624. pTDefRegMap(@Self)^.&set := $00040000;
  84625. end;
  84626. procedure TCAN1_C1FIFOINT29.clearRXFULLIE; inline;
  84627. begin
  84628. pTDefRegMap(@Self)^.clr := $00040000;
  84629. end;
  84630. procedure TCAN1_C1FIFOINT29.setRXFULLIE(thebits : TBits_1); inline;
  84631. begin
  84632. if thebits = 0 then
  84633. pTDefRegMap(@Self)^.clr := $00040000
  84634. else
  84635. pTDefRegMap(@Self)^.&set := $00040000;
  84636. end;
  84637. function TCAN1_C1FIFOINT29.getRXFULLIE : TBits_1; inline;
  84638. begin
  84639. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  84640. end;
  84641. procedure TCAN1_C1FIFOINT29.setRXOVFLIE; inline;
  84642. begin
  84643. pTDefRegMap(@Self)^.&set := $00080000;
  84644. end;
  84645. procedure TCAN1_C1FIFOINT29.clearRXOVFLIE; inline;
  84646. begin
  84647. pTDefRegMap(@Self)^.clr := $00080000;
  84648. end;
  84649. procedure TCAN1_C1FIFOINT29.setRXOVFLIE(thebits : TBits_1); inline;
  84650. begin
  84651. if thebits = 0 then
  84652. pTDefRegMap(@Self)^.clr := $00080000
  84653. else
  84654. pTDefRegMap(@Self)^.&set := $00080000;
  84655. end;
  84656. function TCAN1_C1FIFOINT29.getRXOVFLIE : TBits_1; inline;
  84657. begin
  84658. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  84659. end;
  84660. procedure TCAN1_C1FIFOINT29.setTXEMPTYIE; inline;
  84661. begin
  84662. pTDefRegMap(@Self)^.&set := $01000000;
  84663. end;
  84664. procedure TCAN1_C1FIFOINT29.clearTXEMPTYIE; inline;
  84665. begin
  84666. pTDefRegMap(@Self)^.clr := $01000000;
  84667. end;
  84668. procedure TCAN1_C1FIFOINT29.setTXEMPTYIE(thebits : TBits_1); inline;
  84669. begin
  84670. if thebits = 0 then
  84671. pTDefRegMap(@Self)^.clr := $01000000
  84672. else
  84673. pTDefRegMap(@Self)^.&set := $01000000;
  84674. end;
  84675. function TCAN1_C1FIFOINT29.getTXEMPTYIE : TBits_1; inline;
  84676. begin
  84677. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  84678. end;
  84679. procedure TCAN1_C1FIFOINT29.setTXHALFIE; inline;
  84680. begin
  84681. pTDefRegMap(@Self)^.&set := $02000000;
  84682. end;
  84683. procedure TCAN1_C1FIFOINT29.clearTXHALFIE; inline;
  84684. begin
  84685. pTDefRegMap(@Self)^.clr := $02000000;
  84686. end;
  84687. procedure TCAN1_C1FIFOINT29.setTXHALFIE(thebits : TBits_1); inline;
  84688. begin
  84689. if thebits = 0 then
  84690. pTDefRegMap(@Self)^.clr := $02000000
  84691. else
  84692. pTDefRegMap(@Self)^.&set := $02000000;
  84693. end;
  84694. function TCAN1_C1FIFOINT29.getTXHALFIE : TBits_1; inline;
  84695. begin
  84696. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  84697. end;
  84698. procedure TCAN1_C1FIFOINT29.setTXNFULLIE; inline;
  84699. begin
  84700. pTDefRegMap(@Self)^.&set := $04000000;
  84701. end;
  84702. procedure TCAN1_C1FIFOINT29.clearTXNFULLIE; inline;
  84703. begin
  84704. pTDefRegMap(@Self)^.clr := $04000000;
  84705. end;
  84706. procedure TCAN1_C1FIFOINT29.setTXNFULLIE(thebits : TBits_1); inline;
  84707. begin
  84708. if thebits = 0 then
  84709. pTDefRegMap(@Self)^.clr := $04000000
  84710. else
  84711. pTDefRegMap(@Self)^.&set := $04000000;
  84712. end;
  84713. function TCAN1_C1FIFOINT29.getTXNFULLIE : TBits_1; inline;
  84714. begin
  84715. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  84716. end;
  84717. procedure TCAN1_C1FIFOINT29.setw(thebits : TBits_32); inline;
  84718. begin
  84719. pTDefRegMap(@Self)^.val := thebits;
  84720. end;
  84721. function TCAN1_C1FIFOINT29.getw : TBits_32; inline;
  84722. begin
  84723. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84724. end;
  84725. procedure TCAN1_C1FIFOCI29.setCFIFOCI(thebits : TBits_5); inline;
  84726. begin
  84727. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  84728. end;
  84729. function TCAN1_C1FIFOCI29.getCFIFOCI : TBits_5; inline;
  84730. begin
  84731. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  84732. end;
  84733. procedure TCAN1_C1FIFOCI29.setw(thebits : TBits_32); inline;
  84734. begin
  84735. pTDefRegMap(@Self)^.val := thebits;
  84736. end;
  84737. function TCAN1_C1FIFOCI29.getw : TBits_32; inline;
  84738. begin
  84739. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84740. end;
  84741. procedure TCAN1_C1FIFOCON30.setTXPRI(thebits : TBits_2); inline;
  84742. begin
  84743. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  84744. end;
  84745. function TCAN1_C1FIFOCON30.getTXPRI : TBits_2; inline;
  84746. begin
  84747. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  84748. end;
  84749. procedure TCAN1_C1FIFOCON30.setRTREN; inline;
  84750. begin
  84751. pTDefRegMap(@Self)^.&set := $00000004;
  84752. end;
  84753. procedure TCAN1_C1FIFOCON30.clearRTREN; inline;
  84754. begin
  84755. pTDefRegMap(@Self)^.clr := $00000004;
  84756. end;
  84757. procedure TCAN1_C1FIFOCON30.setRTREN(thebits : TBits_1); inline;
  84758. begin
  84759. if thebits = 0 then
  84760. pTDefRegMap(@Self)^.clr := $00000004
  84761. else
  84762. pTDefRegMap(@Self)^.&set := $00000004;
  84763. end;
  84764. function TCAN1_C1FIFOCON30.getRTREN : TBits_1; inline;
  84765. begin
  84766. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84767. end;
  84768. procedure TCAN1_C1FIFOCON30.setTXREQ; inline;
  84769. begin
  84770. pTDefRegMap(@Self)^.&set := $00000008;
  84771. end;
  84772. procedure TCAN1_C1FIFOCON30.clearTXREQ; inline;
  84773. begin
  84774. pTDefRegMap(@Self)^.clr := $00000008;
  84775. end;
  84776. procedure TCAN1_C1FIFOCON30.setTXREQ(thebits : TBits_1); inline;
  84777. begin
  84778. if thebits = 0 then
  84779. pTDefRegMap(@Self)^.clr := $00000008
  84780. else
  84781. pTDefRegMap(@Self)^.&set := $00000008;
  84782. end;
  84783. function TCAN1_C1FIFOCON30.getTXREQ : TBits_1; inline;
  84784. begin
  84785. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  84786. end;
  84787. procedure TCAN1_C1FIFOCON30.setTXERR; inline;
  84788. begin
  84789. pTDefRegMap(@Self)^.&set := $00000010;
  84790. end;
  84791. procedure TCAN1_C1FIFOCON30.clearTXERR; inline;
  84792. begin
  84793. pTDefRegMap(@Self)^.clr := $00000010;
  84794. end;
  84795. procedure TCAN1_C1FIFOCON30.setTXERR(thebits : TBits_1); inline;
  84796. begin
  84797. if thebits = 0 then
  84798. pTDefRegMap(@Self)^.clr := $00000010
  84799. else
  84800. pTDefRegMap(@Self)^.&set := $00000010;
  84801. end;
  84802. function TCAN1_C1FIFOCON30.getTXERR : TBits_1; inline;
  84803. begin
  84804. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  84805. end;
  84806. procedure TCAN1_C1FIFOCON30.setTXLARB; inline;
  84807. begin
  84808. pTDefRegMap(@Self)^.&set := $00000020;
  84809. end;
  84810. procedure TCAN1_C1FIFOCON30.clearTXLARB; inline;
  84811. begin
  84812. pTDefRegMap(@Self)^.clr := $00000020;
  84813. end;
  84814. procedure TCAN1_C1FIFOCON30.setTXLARB(thebits : TBits_1); inline;
  84815. begin
  84816. if thebits = 0 then
  84817. pTDefRegMap(@Self)^.clr := $00000020
  84818. else
  84819. pTDefRegMap(@Self)^.&set := $00000020;
  84820. end;
  84821. function TCAN1_C1FIFOCON30.getTXLARB : TBits_1; inline;
  84822. begin
  84823. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  84824. end;
  84825. procedure TCAN1_C1FIFOCON30.setTXABAT; inline;
  84826. begin
  84827. pTDefRegMap(@Self)^.&set := $00000040;
  84828. end;
  84829. procedure TCAN1_C1FIFOCON30.clearTXABAT; inline;
  84830. begin
  84831. pTDefRegMap(@Self)^.clr := $00000040;
  84832. end;
  84833. procedure TCAN1_C1FIFOCON30.setTXABAT(thebits : TBits_1); inline;
  84834. begin
  84835. if thebits = 0 then
  84836. pTDefRegMap(@Self)^.clr := $00000040
  84837. else
  84838. pTDefRegMap(@Self)^.&set := $00000040;
  84839. end;
  84840. function TCAN1_C1FIFOCON30.getTXABAT : TBits_1; inline;
  84841. begin
  84842. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  84843. end;
  84844. procedure TCAN1_C1FIFOCON30.setTXEN; inline;
  84845. begin
  84846. pTDefRegMap(@Self)^.&set := $00000080;
  84847. end;
  84848. procedure TCAN1_C1FIFOCON30.clearTXEN; inline;
  84849. begin
  84850. pTDefRegMap(@Self)^.clr := $00000080;
  84851. end;
  84852. procedure TCAN1_C1FIFOCON30.setTXEN(thebits : TBits_1); inline;
  84853. begin
  84854. if thebits = 0 then
  84855. pTDefRegMap(@Self)^.clr := $00000080
  84856. else
  84857. pTDefRegMap(@Self)^.&set := $00000080;
  84858. end;
  84859. function TCAN1_C1FIFOCON30.getTXEN : TBits_1; inline;
  84860. begin
  84861. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  84862. end;
  84863. procedure TCAN1_C1FIFOCON30.setDONLY; inline;
  84864. begin
  84865. pTDefRegMap(@Self)^.&set := $00001000;
  84866. end;
  84867. procedure TCAN1_C1FIFOCON30.clearDONLY; inline;
  84868. begin
  84869. pTDefRegMap(@Self)^.clr := $00001000;
  84870. end;
  84871. procedure TCAN1_C1FIFOCON30.setDONLY(thebits : TBits_1); inline;
  84872. begin
  84873. if thebits = 0 then
  84874. pTDefRegMap(@Self)^.clr := $00001000
  84875. else
  84876. pTDefRegMap(@Self)^.&set := $00001000;
  84877. end;
  84878. function TCAN1_C1FIFOCON30.getDONLY : TBits_1; inline;
  84879. begin
  84880. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  84881. end;
  84882. procedure TCAN1_C1FIFOCON30.setUINC; inline;
  84883. begin
  84884. pTDefRegMap(@Self)^.&set := $00002000;
  84885. end;
  84886. procedure TCAN1_C1FIFOCON30.clearUINC; inline;
  84887. begin
  84888. pTDefRegMap(@Self)^.clr := $00002000;
  84889. end;
  84890. procedure TCAN1_C1FIFOCON30.setUINC(thebits : TBits_1); inline;
  84891. begin
  84892. if thebits = 0 then
  84893. pTDefRegMap(@Self)^.clr := $00002000
  84894. else
  84895. pTDefRegMap(@Self)^.&set := $00002000;
  84896. end;
  84897. function TCAN1_C1FIFOCON30.getUINC : TBits_1; inline;
  84898. begin
  84899. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  84900. end;
  84901. procedure TCAN1_C1FIFOCON30.setFRESET; inline;
  84902. begin
  84903. pTDefRegMap(@Self)^.&set := $00004000;
  84904. end;
  84905. procedure TCAN1_C1FIFOCON30.clearFRESET; inline;
  84906. begin
  84907. pTDefRegMap(@Self)^.clr := $00004000;
  84908. end;
  84909. procedure TCAN1_C1FIFOCON30.setFRESET(thebits : TBits_1); inline;
  84910. begin
  84911. if thebits = 0 then
  84912. pTDefRegMap(@Self)^.clr := $00004000
  84913. else
  84914. pTDefRegMap(@Self)^.&set := $00004000;
  84915. end;
  84916. function TCAN1_C1FIFOCON30.getFRESET : TBits_1; inline;
  84917. begin
  84918. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  84919. end;
  84920. procedure TCAN1_C1FIFOCON30.setFSIZE(thebits : TBits_5); inline;
  84921. begin
  84922. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  84923. end;
  84924. function TCAN1_C1FIFOCON30.getFSIZE : TBits_5; inline;
  84925. begin
  84926. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  84927. end;
  84928. procedure TCAN1_C1FIFOCON30.setw(thebits : TBits_32); inline;
  84929. begin
  84930. pTDefRegMap(@Self)^.val := thebits;
  84931. end;
  84932. function TCAN1_C1FIFOCON30.getw : TBits_32; inline;
  84933. begin
  84934. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  84935. end;
  84936. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIF; inline;
  84937. begin
  84938. pTDefRegMap(@Self)^.&set := $00000001;
  84939. end;
  84940. procedure TCAN1_C1FIFOINT30.clearRXNEMPTYIF; inline;
  84941. begin
  84942. pTDefRegMap(@Self)^.clr := $00000001;
  84943. end;
  84944. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIF(thebits : TBits_1); inline;
  84945. begin
  84946. if thebits = 0 then
  84947. pTDefRegMap(@Self)^.clr := $00000001
  84948. else
  84949. pTDefRegMap(@Self)^.&set := $00000001;
  84950. end;
  84951. function TCAN1_C1FIFOINT30.getRXNEMPTYIF : TBits_1; inline;
  84952. begin
  84953. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  84954. end;
  84955. procedure TCAN1_C1FIFOINT30.setRXHALFIF; inline;
  84956. begin
  84957. pTDefRegMap(@Self)^.&set := $00000002;
  84958. end;
  84959. procedure TCAN1_C1FIFOINT30.clearRXHALFIF; inline;
  84960. begin
  84961. pTDefRegMap(@Self)^.clr := $00000002;
  84962. end;
  84963. procedure TCAN1_C1FIFOINT30.setRXHALFIF(thebits : TBits_1); inline;
  84964. begin
  84965. if thebits = 0 then
  84966. pTDefRegMap(@Self)^.clr := $00000002
  84967. else
  84968. pTDefRegMap(@Self)^.&set := $00000002;
  84969. end;
  84970. function TCAN1_C1FIFOINT30.getRXHALFIF : TBits_1; inline;
  84971. begin
  84972. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  84973. end;
  84974. procedure TCAN1_C1FIFOINT30.setRXFULLIF; inline;
  84975. begin
  84976. pTDefRegMap(@Self)^.&set := $00000004;
  84977. end;
  84978. procedure TCAN1_C1FIFOINT30.clearRXFULLIF; inline;
  84979. begin
  84980. pTDefRegMap(@Self)^.clr := $00000004;
  84981. end;
  84982. procedure TCAN1_C1FIFOINT30.setRXFULLIF(thebits : TBits_1); inline;
  84983. begin
  84984. if thebits = 0 then
  84985. pTDefRegMap(@Self)^.clr := $00000004
  84986. else
  84987. pTDefRegMap(@Self)^.&set := $00000004;
  84988. end;
  84989. function TCAN1_C1FIFOINT30.getRXFULLIF : TBits_1; inline;
  84990. begin
  84991. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  84992. end;
  84993. procedure TCAN1_C1FIFOINT30.setRXOVFLIF; inline;
  84994. begin
  84995. pTDefRegMap(@Self)^.&set := $00000008;
  84996. end;
  84997. procedure TCAN1_C1FIFOINT30.clearRXOVFLIF; inline;
  84998. begin
  84999. pTDefRegMap(@Self)^.clr := $00000008;
  85000. end;
  85001. procedure TCAN1_C1FIFOINT30.setRXOVFLIF(thebits : TBits_1); inline;
  85002. begin
  85003. if thebits = 0 then
  85004. pTDefRegMap(@Self)^.clr := $00000008
  85005. else
  85006. pTDefRegMap(@Self)^.&set := $00000008;
  85007. end;
  85008. function TCAN1_C1FIFOINT30.getRXOVFLIF : TBits_1; inline;
  85009. begin
  85010. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85011. end;
  85012. procedure TCAN1_C1FIFOINT30.setTXEMPTYIF; inline;
  85013. begin
  85014. pTDefRegMap(@Self)^.&set := $00000100;
  85015. end;
  85016. procedure TCAN1_C1FIFOINT30.clearTXEMPTYIF; inline;
  85017. begin
  85018. pTDefRegMap(@Self)^.clr := $00000100;
  85019. end;
  85020. procedure TCAN1_C1FIFOINT30.setTXEMPTYIF(thebits : TBits_1); inline;
  85021. begin
  85022. if thebits = 0 then
  85023. pTDefRegMap(@Self)^.clr := $00000100
  85024. else
  85025. pTDefRegMap(@Self)^.&set := $00000100;
  85026. end;
  85027. function TCAN1_C1FIFOINT30.getTXEMPTYIF : TBits_1; inline;
  85028. begin
  85029. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  85030. end;
  85031. procedure TCAN1_C1FIFOINT30.setTXHALFIF; inline;
  85032. begin
  85033. pTDefRegMap(@Self)^.&set := $00000200;
  85034. end;
  85035. procedure TCAN1_C1FIFOINT30.clearTXHALFIF; inline;
  85036. begin
  85037. pTDefRegMap(@Self)^.clr := $00000200;
  85038. end;
  85039. procedure TCAN1_C1FIFOINT30.setTXHALFIF(thebits : TBits_1); inline;
  85040. begin
  85041. if thebits = 0 then
  85042. pTDefRegMap(@Self)^.clr := $00000200
  85043. else
  85044. pTDefRegMap(@Self)^.&set := $00000200;
  85045. end;
  85046. function TCAN1_C1FIFOINT30.getTXHALFIF : TBits_1; inline;
  85047. begin
  85048. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  85049. end;
  85050. procedure TCAN1_C1FIFOINT30.setTXNFULLIF; inline;
  85051. begin
  85052. pTDefRegMap(@Self)^.&set := $00000400;
  85053. end;
  85054. procedure TCAN1_C1FIFOINT30.clearTXNFULLIF; inline;
  85055. begin
  85056. pTDefRegMap(@Self)^.clr := $00000400;
  85057. end;
  85058. procedure TCAN1_C1FIFOINT30.setTXNFULLIF(thebits : TBits_1); inline;
  85059. begin
  85060. if thebits = 0 then
  85061. pTDefRegMap(@Self)^.clr := $00000400
  85062. else
  85063. pTDefRegMap(@Self)^.&set := $00000400;
  85064. end;
  85065. function TCAN1_C1FIFOINT30.getTXNFULLIF : TBits_1; inline;
  85066. begin
  85067. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85068. end;
  85069. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIE; inline;
  85070. begin
  85071. pTDefRegMap(@Self)^.&set := $00010000;
  85072. end;
  85073. procedure TCAN1_C1FIFOINT30.clearRXNEMPTYIE; inline;
  85074. begin
  85075. pTDefRegMap(@Self)^.clr := $00010000;
  85076. end;
  85077. procedure TCAN1_C1FIFOINT30.setRXNEMPTYIE(thebits : TBits_1); inline;
  85078. begin
  85079. if thebits = 0 then
  85080. pTDefRegMap(@Self)^.clr := $00010000
  85081. else
  85082. pTDefRegMap(@Self)^.&set := $00010000;
  85083. end;
  85084. function TCAN1_C1FIFOINT30.getRXNEMPTYIE : TBits_1; inline;
  85085. begin
  85086. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  85087. end;
  85088. procedure TCAN1_C1FIFOINT30.setRXHALFIE; inline;
  85089. begin
  85090. pTDefRegMap(@Self)^.&set := $00020000;
  85091. end;
  85092. procedure TCAN1_C1FIFOINT30.clearRXHALFIE; inline;
  85093. begin
  85094. pTDefRegMap(@Self)^.clr := $00020000;
  85095. end;
  85096. procedure TCAN1_C1FIFOINT30.setRXHALFIE(thebits : TBits_1); inline;
  85097. begin
  85098. if thebits = 0 then
  85099. pTDefRegMap(@Self)^.clr := $00020000
  85100. else
  85101. pTDefRegMap(@Self)^.&set := $00020000;
  85102. end;
  85103. function TCAN1_C1FIFOINT30.getRXHALFIE : TBits_1; inline;
  85104. begin
  85105. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  85106. end;
  85107. procedure TCAN1_C1FIFOINT30.setRXFULLIE; inline;
  85108. begin
  85109. pTDefRegMap(@Self)^.&set := $00040000;
  85110. end;
  85111. procedure TCAN1_C1FIFOINT30.clearRXFULLIE; inline;
  85112. begin
  85113. pTDefRegMap(@Self)^.clr := $00040000;
  85114. end;
  85115. procedure TCAN1_C1FIFOINT30.setRXFULLIE(thebits : TBits_1); inline;
  85116. begin
  85117. if thebits = 0 then
  85118. pTDefRegMap(@Self)^.clr := $00040000
  85119. else
  85120. pTDefRegMap(@Self)^.&set := $00040000;
  85121. end;
  85122. function TCAN1_C1FIFOINT30.getRXFULLIE : TBits_1; inline;
  85123. begin
  85124. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  85125. end;
  85126. procedure TCAN1_C1FIFOINT30.setRXOVFLIE; inline;
  85127. begin
  85128. pTDefRegMap(@Self)^.&set := $00080000;
  85129. end;
  85130. procedure TCAN1_C1FIFOINT30.clearRXOVFLIE; inline;
  85131. begin
  85132. pTDefRegMap(@Self)^.clr := $00080000;
  85133. end;
  85134. procedure TCAN1_C1FIFOINT30.setRXOVFLIE(thebits : TBits_1); inline;
  85135. begin
  85136. if thebits = 0 then
  85137. pTDefRegMap(@Self)^.clr := $00080000
  85138. else
  85139. pTDefRegMap(@Self)^.&set := $00080000;
  85140. end;
  85141. function TCAN1_C1FIFOINT30.getRXOVFLIE : TBits_1; inline;
  85142. begin
  85143. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  85144. end;
  85145. procedure TCAN1_C1FIFOINT30.setTXEMPTYIE; inline;
  85146. begin
  85147. pTDefRegMap(@Self)^.&set := $01000000;
  85148. end;
  85149. procedure TCAN1_C1FIFOINT30.clearTXEMPTYIE; inline;
  85150. begin
  85151. pTDefRegMap(@Self)^.clr := $01000000;
  85152. end;
  85153. procedure TCAN1_C1FIFOINT30.setTXEMPTYIE(thebits : TBits_1); inline;
  85154. begin
  85155. if thebits = 0 then
  85156. pTDefRegMap(@Self)^.clr := $01000000
  85157. else
  85158. pTDefRegMap(@Self)^.&set := $01000000;
  85159. end;
  85160. function TCAN1_C1FIFOINT30.getTXEMPTYIE : TBits_1; inline;
  85161. begin
  85162. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85163. end;
  85164. procedure TCAN1_C1FIFOINT30.setTXHALFIE; inline;
  85165. begin
  85166. pTDefRegMap(@Self)^.&set := $02000000;
  85167. end;
  85168. procedure TCAN1_C1FIFOINT30.clearTXHALFIE; inline;
  85169. begin
  85170. pTDefRegMap(@Self)^.clr := $02000000;
  85171. end;
  85172. procedure TCAN1_C1FIFOINT30.setTXHALFIE(thebits : TBits_1); inline;
  85173. begin
  85174. if thebits = 0 then
  85175. pTDefRegMap(@Self)^.clr := $02000000
  85176. else
  85177. pTDefRegMap(@Self)^.&set := $02000000;
  85178. end;
  85179. function TCAN1_C1FIFOINT30.getTXHALFIE : TBits_1; inline;
  85180. begin
  85181. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  85182. end;
  85183. procedure TCAN1_C1FIFOINT30.setTXNFULLIE; inline;
  85184. begin
  85185. pTDefRegMap(@Self)^.&set := $04000000;
  85186. end;
  85187. procedure TCAN1_C1FIFOINT30.clearTXNFULLIE; inline;
  85188. begin
  85189. pTDefRegMap(@Self)^.clr := $04000000;
  85190. end;
  85191. procedure TCAN1_C1FIFOINT30.setTXNFULLIE(thebits : TBits_1); inline;
  85192. begin
  85193. if thebits = 0 then
  85194. pTDefRegMap(@Self)^.clr := $04000000
  85195. else
  85196. pTDefRegMap(@Self)^.&set := $04000000;
  85197. end;
  85198. function TCAN1_C1FIFOINT30.getTXNFULLIE : TBits_1; inline;
  85199. begin
  85200. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85201. end;
  85202. procedure TCAN1_C1FIFOINT30.setw(thebits : TBits_32); inline;
  85203. begin
  85204. pTDefRegMap(@Self)^.val := thebits;
  85205. end;
  85206. function TCAN1_C1FIFOINT30.getw : TBits_32; inline;
  85207. begin
  85208. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85209. end;
  85210. procedure TCAN1_C1FIFOCI30.setCFIFOCI(thebits : TBits_5); inline;
  85211. begin
  85212. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  85213. end;
  85214. function TCAN1_C1FIFOCI30.getCFIFOCI : TBits_5; inline;
  85215. begin
  85216. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  85217. end;
  85218. procedure TCAN1_C1FIFOCI30.setw(thebits : TBits_32); inline;
  85219. begin
  85220. pTDefRegMap(@Self)^.val := thebits;
  85221. end;
  85222. function TCAN1_C1FIFOCI30.getw : TBits_32; inline;
  85223. begin
  85224. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85225. end;
  85226. procedure TCAN1_C1FIFOCON31.setTXPRI(thebits : TBits_2); inline;
  85227. begin
  85228. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  85229. end;
  85230. function TCAN1_C1FIFOCON31.getTXPRI : TBits_2; inline;
  85231. begin
  85232. getTXPRI := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  85233. end;
  85234. procedure TCAN1_C1FIFOCON31.setRTREN; inline;
  85235. begin
  85236. pTDefRegMap(@Self)^.&set := $00000004;
  85237. end;
  85238. procedure TCAN1_C1FIFOCON31.clearRTREN; inline;
  85239. begin
  85240. pTDefRegMap(@Self)^.clr := $00000004;
  85241. end;
  85242. procedure TCAN1_C1FIFOCON31.setRTREN(thebits : TBits_1); inline;
  85243. begin
  85244. if thebits = 0 then
  85245. pTDefRegMap(@Self)^.clr := $00000004
  85246. else
  85247. pTDefRegMap(@Self)^.&set := $00000004;
  85248. end;
  85249. function TCAN1_C1FIFOCON31.getRTREN : TBits_1; inline;
  85250. begin
  85251. getRTREN := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85252. end;
  85253. procedure TCAN1_C1FIFOCON31.setTXREQ; inline;
  85254. begin
  85255. pTDefRegMap(@Self)^.&set := $00000008;
  85256. end;
  85257. procedure TCAN1_C1FIFOCON31.clearTXREQ; inline;
  85258. begin
  85259. pTDefRegMap(@Self)^.clr := $00000008;
  85260. end;
  85261. procedure TCAN1_C1FIFOCON31.setTXREQ(thebits : TBits_1); inline;
  85262. begin
  85263. if thebits = 0 then
  85264. pTDefRegMap(@Self)^.clr := $00000008
  85265. else
  85266. pTDefRegMap(@Self)^.&set := $00000008;
  85267. end;
  85268. function TCAN1_C1FIFOCON31.getTXREQ : TBits_1; inline;
  85269. begin
  85270. getTXREQ := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85271. end;
  85272. procedure TCAN1_C1FIFOCON31.setTXERR; inline;
  85273. begin
  85274. pTDefRegMap(@Self)^.&set := $00000010;
  85275. end;
  85276. procedure TCAN1_C1FIFOCON31.clearTXERR; inline;
  85277. begin
  85278. pTDefRegMap(@Self)^.clr := $00000010;
  85279. end;
  85280. procedure TCAN1_C1FIFOCON31.setTXERR(thebits : TBits_1); inline;
  85281. begin
  85282. if thebits = 0 then
  85283. pTDefRegMap(@Self)^.clr := $00000010
  85284. else
  85285. pTDefRegMap(@Self)^.&set := $00000010;
  85286. end;
  85287. function TCAN1_C1FIFOCON31.getTXERR : TBits_1; inline;
  85288. begin
  85289. getTXERR := (pTDefRegMap(@Self)^.val and $00000010) shr 4;
  85290. end;
  85291. procedure TCAN1_C1FIFOCON31.setTXLARB; inline;
  85292. begin
  85293. pTDefRegMap(@Self)^.&set := $00000020;
  85294. end;
  85295. procedure TCAN1_C1FIFOCON31.clearTXLARB; inline;
  85296. begin
  85297. pTDefRegMap(@Self)^.clr := $00000020;
  85298. end;
  85299. procedure TCAN1_C1FIFOCON31.setTXLARB(thebits : TBits_1); inline;
  85300. begin
  85301. if thebits = 0 then
  85302. pTDefRegMap(@Self)^.clr := $00000020
  85303. else
  85304. pTDefRegMap(@Self)^.&set := $00000020;
  85305. end;
  85306. function TCAN1_C1FIFOCON31.getTXLARB : TBits_1; inline;
  85307. begin
  85308. getTXLARB := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  85309. end;
  85310. procedure TCAN1_C1FIFOCON31.setTXABAT; inline;
  85311. begin
  85312. pTDefRegMap(@Self)^.&set := $00000040;
  85313. end;
  85314. procedure TCAN1_C1FIFOCON31.clearTXABAT; inline;
  85315. begin
  85316. pTDefRegMap(@Self)^.clr := $00000040;
  85317. end;
  85318. procedure TCAN1_C1FIFOCON31.setTXABAT(thebits : TBits_1); inline;
  85319. begin
  85320. if thebits = 0 then
  85321. pTDefRegMap(@Self)^.clr := $00000040
  85322. else
  85323. pTDefRegMap(@Self)^.&set := $00000040;
  85324. end;
  85325. function TCAN1_C1FIFOCON31.getTXABAT : TBits_1; inline;
  85326. begin
  85327. getTXABAT := (pTDefRegMap(@Self)^.val and $00000040) shr 6;
  85328. end;
  85329. procedure TCAN1_C1FIFOCON31.setTXEN; inline;
  85330. begin
  85331. pTDefRegMap(@Self)^.&set := $00000080;
  85332. end;
  85333. procedure TCAN1_C1FIFOCON31.clearTXEN; inline;
  85334. begin
  85335. pTDefRegMap(@Self)^.clr := $00000080;
  85336. end;
  85337. procedure TCAN1_C1FIFOCON31.setTXEN(thebits : TBits_1); inline;
  85338. begin
  85339. if thebits = 0 then
  85340. pTDefRegMap(@Self)^.clr := $00000080
  85341. else
  85342. pTDefRegMap(@Self)^.&set := $00000080;
  85343. end;
  85344. function TCAN1_C1FIFOCON31.getTXEN : TBits_1; inline;
  85345. begin
  85346. getTXEN := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  85347. end;
  85348. procedure TCAN1_C1FIFOCON31.setDONLY; inline;
  85349. begin
  85350. pTDefRegMap(@Self)^.&set := $00001000;
  85351. end;
  85352. procedure TCAN1_C1FIFOCON31.clearDONLY; inline;
  85353. begin
  85354. pTDefRegMap(@Self)^.clr := $00001000;
  85355. end;
  85356. procedure TCAN1_C1FIFOCON31.setDONLY(thebits : TBits_1); inline;
  85357. begin
  85358. if thebits = 0 then
  85359. pTDefRegMap(@Self)^.clr := $00001000
  85360. else
  85361. pTDefRegMap(@Self)^.&set := $00001000;
  85362. end;
  85363. function TCAN1_C1FIFOCON31.getDONLY : TBits_1; inline;
  85364. begin
  85365. getDONLY := (pTDefRegMap(@Self)^.val and $00001000) shr 12;
  85366. end;
  85367. procedure TCAN1_C1FIFOCON31.setUINC; inline;
  85368. begin
  85369. pTDefRegMap(@Self)^.&set := $00002000;
  85370. end;
  85371. procedure TCAN1_C1FIFOCON31.clearUINC; inline;
  85372. begin
  85373. pTDefRegMap(@Self)^.clr := $00002000;
  85374. end;
  85375. procedure TCAN1_C1FIFOCON31.setUINC(thebits : TBits_1); inline;
  85376. begin
  85377. if thebits = 0 then
  85378. pTDefRegMap(@Self)^.clr := $00002000
  85379. else
  85380. pTDefRegMap(@Self)^.&set := $00002000;
  85381. end;
  85382. function TCAN1_C1FIFOCON31.getUINC : TBits_1; inline;
  85383. begin
  85384. getUINC := (pTDefRegMap(@Self)^.val and $00002000) shr 13;
  85385. end;
  85386. procedure TCAN1_C1FIFOCON31.setFRESET; inline;
  85387. begin
  85388. pTDefRegMap(@Self)^.&set := $00004000;
  85389. end;
  85390. procedure TCAN1_C1FIFOCON31.clearFRESET; inline;
  85391. begin
  85392. pTDefRegMap(@Self)^.clr := $00004000;
  85393. end;
  85394. procedure TCAN1_C1FIFOCON31.setFRESET(thebits : TBits_1); inline;
  85395. begin
  85396. if thebits = 0 then
  85397. pTDefRegMap(@Self)^.clr := $00004000
  85398. else
  85399. pTDefRegMap(@Self)^.&set := $00004000;
  85400. end;
  85401. function TCAN1_C1FIFOCON31.getFRESET : TBits_1; inline;
  85402. begin
  85403. getFRESET := (pTDefRegMap(@Self)^.val and $00004000) shr 14;
  85404. end;
  85405. procedure TCAN1_C1FIFOCON31.setFSIZE(thebits : TBits_5); inline;
  85406. begin
  85407. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  85408. end;
  85409. function TCAN1_C1FIFOCON31.getFSIZE : TBits_5; inline;
  85410. begin
  85411. getFSIZE := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  85412. end;
  85413. procedure TCAN1_C1FIFOCON31.setw(thebits : TBits_32); inline;
  85414. begin
  85415. pTDefRegMap(@Self)^.val := thebits;
  85416. end;
  85417. function TCAN1_C1FIFOCON31.getw : TBits_32; inline;
  85418. begin
  85419. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85420. end;
  85421. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIF; inline;
  85422. begin
  85423. pTDefRegMap(@Self)^.&set := $00000001;
  85424. end;
  85425. procedure TCAN1_C1FIFOINT31.clearRXNEMPTYIF; inline;
  85426. begin
  85427. pTDefRegMap(@Self)^.clr := $00000001;
  85428. end;
  85429. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIF(thebits : TBits_1); inline;
  85430. begin
  85431. if thebits = 0 then
  85432. pTDefRegMap(@Self)^.clr := $00000001
  85433. else
  85434. pTDefRegMap(@Self)^.&set := $00000001;
  85435. end;
  85436. function TCAN1_C1FIFOINT31.getRXNEMPTYIF : TBits_1; inline;
  85437. begin
  85438. getRXNEMPTYIF := (pTDefRegMap(@Self)^.val and $00000001) shr 0;
  85439. end;
  85440. procedure TCAN1_C1FIFOINT31.setRXHALFIF; inline;
  85441. begin
  85442. pTDefRegMap(@Self)^.&set := $00000002;
  85443. end;
  85444. procedure TCAN1_C1FIFOINT31.clearRXHALFIF; inline;
  85445. begin
  85446. pTDefRegMap(@Self)^.clr := $00000002;
  85447. end;
  85448. procedure TCAN1_C1FIFOINT31.setRXHALFIF(thebits : TBits_1); inline;
  85449. begin
  85450. if thebits = 0 then
  85451. pTDefRegMap(@Self)^.clr := $00000002
  85452. else
  85453. pTDefRegMap(@Self)^.&set := $00000002;
  85454. end;
  85455. function TCAN1_C1FIFOINT31.getRXHALFIF : TBits_1; inline;
  85456. begin
  85457. getRXHALFIF := (pTDefRegMap(@Self)^.val and $00000002) shr 1;
  85458. end;
  85459. procedure TCAN1_C1FIFOINT31.setRXFULLIF; inline;
  85460. begin
  85461. pTDefRegMap(@Self)^.&set := $00000004;
  85462. end;
  85463. procedure TCAN1_C1FIFOINT31.clearRXFULLIF; inline;
  85464. begin
  85465. pTDefRegMap(@Self)^.clr := $00000004;
  85466. end;
  85467. procedure TCAN1_C1FIFOINT31.setRXFULLIF(thebits : TBits_1); inline;
  85468. begin
  85469. if thebits = 0 then
  85470. pTDefRegMap(@Self)^.clr := $00000004
  85471. else
  85472. pTDefRegMap(@Self)^.&set := $00000004;
  85473. end;
  85474. function TCAN1_C1FIFOINT31.getRXFULLIF : TBits_1; inline;
  85475. begin
  85476. getRXFULLIF := (pTDefRegMap(@Self)^.val and $00000004) shr 2;
  85477. end;
  85478. procedure TCAN1_C1FIFOINT31.setRXOVFLIF; inline;
  85479. begin
  85480. pTDefRegMap(@Self)^.&set := $00000008;
  85481. end;
  85482. procedure TCAN1_C1FIFOINT31.clearRXOVFLIF; inline;
  85483. begin
  85484. pTDefRegMap(@Self)^.clr := $00000008;
  85485. end;
  85486. procedure TCAN1_C1FIFOINT31.setRXOVFLIF(thebits : TBits_1); inline;
  85487. begin
  85488. if thebits = 0 then
  85489. pTDefRegMap(@Self)^.clr := $00000008
  85490. else
  85491. pTDefRegMap(@Self)^.&set := $00000008;
  85492. end;
  85493. function TCAN1_C1FIFOINT31.getRXOVFLIF : TBits_1; inline;
  85494. begin
  85495. getRXOVFLIF := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  85496. end;
  85497. procedure TCAN1_C1FIFOINT31.setTXEMPTYIF; inline;
  85498. begin
  85499. pTDefRegMap(@Self)^.&set := $00000100;
  85500. end;
  85501. procedure TCAN1_C1FIFOINT31.clearTXEMPTYIF; inline;
  85502. begin
  85503. pTDefRegMap(@Self)^.clr := $00000100;
  85504. end;
  85505. procedure TCAN1_C1FIFOINT31.setTXEMPTYIF(thebits : TBits_1); inline;
  85506. begin
  85507. if thebits = 0 then
  85508. pTDefRegMap(@Self)^.clr := $00000100
  85509. else
  85510. pTDefRegMap(@Self)^.&set := $00000100;
  85511. end;
  85512. function TCAN1_C1FIFOINT31.getTXEMPTYIF : TBits_1; inline;
  85513. begin
  85514. getTXEMPTYIF := (pTDefRegMap(@Self)^.val and $00000100) shr 8;
  85515. end;
  85516. procedure TCAN1_C1FIFOINT31.setTXHALFIF; inline;
  85517. begin
  85518. pTDefRegMap(@Self)^.&set := $00000200;
  85519. end;
  85520. procedure TCAN1_C1FIFOINT31.clearTXHALFIF; inline;
  85521. begin
  85522. pTDefRegMap(@Self)^.clr := $00000200;
  85523. end;
  85524. procedure TCAN1_C1FIFOINT31.setTXHALFIF(thebits : TBits_1); inline;
  85525. begin
  85526. if thebits = 0 then
  85527. pTDefRegMap(@Self)^.clr := $00000200
  85528. else
  85529. pTDefRegMap(@Self)^.&set := $00000200;
  85530. end;
  85531. function TCAN1_C1FIFOINT31.getTXHALFIF : TBits_1; inline;
  85532. begin
  85533. getTXHALFIF := (pTDefRegMap(@Self)^.val and $00000200) shr 9;
  85534. end;
  85535. procedure TCAN1_C1FIFOINT31.setTXNFULLIF; inline;
  85536. begin
  85537. pTDefRegMap(@Self)^.&set := $00000400;
  85538. end;
  85539. procedure TCAN1_C1FIFOINT31.clearTXNFULLIF; inline;
  85540. begin
  85541. pTDefRegMap(@Self)^.clr := $00000400;
  85542. end;
  85543. procedure TCAN1_C1FIFOINT31.setTXNFULLIF(thebits : TBits_1); inline;
  85544. begin
  85545. if thebits = 0 then
  85546. pTDefRegMap(@Self)^.clr := $00000400
  85547. else
  85548. pTDefRegMap(@Self)^.&set := $00000400;
  85549. end;
  85550. function TCAN1_C1FIFOINT31.getTXNFULLIF : TBits_1; inline;
  85551. begin
  85552. getTXNFULLIF := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85553. end;
  85554. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIE; inline;
  85555. begin
  85556. pTDefRegMap(@Self)^.&set := $00010000;
  85557. end;
  85558. procedure TCAN1_C1FIFOINT31.clearRXNEMPTYIE; inline;
  85559. begin
  85560. pTDefRegMap(@Self)^.clr := $00010000;
  85561. end;
  85562. procedure TCAN1_C1FIFOINT31.setRXNEMPTYIE(thebits : TBits_1); inline;
  85563. begin
  85564. if thebits = 0 then
  85565. pTDefRegMap(@Self)^.clr := $00010000
  85566. else
  85567. pTDefRegMap(@Self)^.&set := $00010000;
  85568. end;
  85569. function TCAN1_C1FIFOINT31.getRXNEMPTYIE : TBits_1; inline;
  85570. begin
  85571. getRXNEMPTYIE := (pTDefRegMap(@Self)^.val and $00010000) shr 16;
  85572. end;
  85573. procedure TCAN1_C1FIFOINT31.setRXHALFIE; inline;
  85574. begin
  85575. pTDefRegMap(@Self)^.&set := $00020000;
  85576. end;
  85577. procedure TCAN1_C1FIFOINT31.clearRXHALFIE; inline;
  85578. begin
  85579. pTDefRegMap(@Self)^.clr := $00020000;
  85580. end;
  85581. procedure TCAN1_C1FIFOINT31.setRXHALFIE(thebits : TBits_1); inline;
  85582. begin
  85583. if thebits = 0 then
  85584. pTDefRegMap(@Self)^.clr := $00020000
  85585. else
  85586. pTDefRegMap(@Self)^.&set := $00020000;
  85587. end;
  85588. function TCAN1_C1FIFOINT31.getRXHALFIE : TBits_1; inline;
  85589. begin
  85590. getRXHALFIE := (pTDefRegMap(@Self)^.val and $00020000) shr 17;
  85591. end;
  85592. procedure TCAN1_C1FIFOINT31.setRXFULLIE; inline;
  85593. begin
  85594. pTDefRegMap(@Self)^.&set := $00040000;
  85595. end;
  85596. procedure TCAN1_C1FIFOINT31.clearRXFULLIE; inline;
  85597. begin
  85598. pTDefRegMap(@Self)^.clr := $00040000;
  85599. end;
  85600. procedure TCAN1_C1FIFOINT31.setRXFULLIE(thebits : TBits_1); inline;
  85601. begin
  85602. if thebits = 0 then
  85603. pTDefRegMap(@Self)^.clr := $00040000
  85604. else
  85605. pTDefRegMap(@Self)^.&set := $00040000;
  85606. end;
  85607. function TCAN1_C1FIFOINT31.getRXFULLIE : TBits_1; inline;
  85608. begin
  85609. getRXFULLIE := (pTDefRegMap(@Self)^.val and $00040000) shr 18;
  85610. end;
  85611. procedure TCAN1_C1FIFOINT31.setRXOVFLIE; inline;
  85612. begin
  85613. pTDefRegMap(@Self)^.&set := $00080000;
  85614. end;
  85615. procedure TCAN1_C1FIFOINT31.clearRXOVFLIE; inline;
  85616. begin
  85617. pTDefRegMap(@Self)^.clr := $00080000;
  85618. end;
  85619. procedure TCAN1_C1FIFOINT31.setRXOVFLIE(thebits : TBits_1); inline;
  85620. begin
  85621. if thebits = 0 then
  85622. pTDefRegMap(@Self)^.clr := $00080000
  85623. else
  85624. pTDefRegMap(@Self)^.&set := $00080000;
  85625. end;
  85626. function TCAN1_C1FIFOINT31.getRXOVFLIE : TBits_1; inline;
  85627. begin
  85628. getRXOVFLIE := (pTDefRegMap(@Self)^.val and $00080000) shr 19;
  85629. end;
  85630. procedure TCAN1_C1FIFOINT31.setTXEMPTYIE; inline;
  85631. begin
  85632. pTDefRegMap(@Self)^.&set := $01000000;
  85633. end;
  85634. procedure TCAN1_C1FIFOINT31.clearTXEMPTYIE; inline;
  85635. begin
  85636. pTDefRegMap(@Self)^.clr := $01000000;
  85637. end;
  85638. procedure TCAN1_C1FIFOINT31.setTXEMPTYIE(thebits : TBits_1); inline;
  85639. begin
  85640. if thebits = 0 then
  85641. pTDefRegMap(@Self)^.clr := $01000000
  85642. else
  85643. pTDefRegMap(@Self)^.&set := $01000000;
  85644. end;
  85645. function TCAN1_C1FIFOINT31.getTXEMPTYIE : TBits_1; inline;
  85646. begin
  85647. getTXEMPTYIE := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  85648. end;
  85649. procedure TCAN1_C1FIFOINT31.setTXHALFIE; inline;
  85650. begin
  85651. pTDefRegMap(@Self)^.&set := $02000000;
  85652. end;
  85653. procedure TCAN1_C1FIFOINT31.clearTXHALFIE; inline;
  85654. begin
  85655. pTDefRegMap(@Self)^.clr := $02000000;
  85656. end;
  85657. procedure TCAN1_C1FIFOINT31.setTXHALFIE(thebits : TBits_1); inline;
  85658. begin
  85659. if thebits = 0 then
  85660. pTDefRegMap(@Self)^.clr := $02000000
  85661. else
  85662. pTDefRegMap(@Self)^.&set := $02000000;
  85663. end;
  85664. function TCAN1_C1FIFOINT31.getTXHALFIE : TBits_1; inline;
  85665. begin
  85666. getTXHALFIE := (pTDefRegMap(@Self)^.val and $02000000) shr 25;
  85667. end;
  85668. procedure TCAN1_C1FIFOINT31.setTXNFULLIE; inline;
  85669. begin
  85670. pTDefRegMap(@Self)^.&set := $04000000;
  85671. end;
  85672. procedure TCAN1_C1FIFOINT31.clearTXNFULLIE; inline;
  85673. begin
  85674. pTDefRegMap(@Self)^.clr := $04000000;
  85675. end;
  85676. procedure TCAN1_C1FIFOINT31.setTXNFULLIE(thebits : TBits_1); inline;
  85677. begin
  85678. if thebits = 0 then
  85679. pTDefRegMap(@Self)^.clr := $04000000
  85680. else
  85681. pTDefRegMap(@Self)^.&set := $04000000;
  85682. end;
  85683. function TCAN1_C1FIFOINT31.getTXNFULLIE : TBits_1; inline;
  85684. begin
  85685. getTXNFULLIE := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85686. end;
  85687. procedure TCAN1_C1FIFOINT31.setw(thebits : TBits_32); inline;
  85688. begin
  85689. pTDefRegMap(@Self)^.val := thebits;
  85690. end;
  85691. function TCAN1_C1FIFOINT31.getw : TBits_32; inline;
  85692. begin
  85693. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85694. end;
  85695. procedure TCAN1_C1FIFOCI31.setCFIFOCI(thebits : TBits_5); inline;
  85696. begin
  85697. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFE0 or ( thebits shl 0 );
  85698. end;
  85699. function TCAN1_C1FIFOCI31.getCFIFOCI : TBits_5; inline;
  85700. begin
  85701. getCFIFOCI := (pTDefRegMap(@Self)^.val and $0000001F) shr 0;
  85702. end;
  85703. procedure TCAN1_C1FIFOCI31.setw(thebits : TBits_32); inline;
  85704. begin
  85705. pTDefRegMap(@Self)^.val := thebits;
  85706. end;
  85707. function TCAN1_C1FIFOCI31.getw : TBits_32; inline;
  85708. begin
  85709. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85710. end;
  85711. procedure TDEVCFG_DEVCFG3.setUSERID(thebits : TBits_16); inline;
  85712. begin
  85713. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF0000 or ( thebits shl 0 );
  85714. end;
  85715. function TDEVCFG_DEVCFG3.getUSERID : TBits_16; inline;
  85716. begin
  85717. getUSERID := (pTDefRegMap(@Self)^.val and $0000FFFF) shr 0;
  85718. end;
  85719. procedure TDEVCFG_DEVCFG3.setFSRSSEL(thebits : TBits_3); inline;
  85720. begin
  85721. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  85722. end;
  85723. function TDEVCFG_DEVCFG3.getFSRSSEL : TBits_3; inline;
  85724. begin
  85725. getFSRSSEL := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  85726. end;
  85727. procedure TDEVCFG_DEVCFG3.setFCANIO; inline;
  85728. begin
  85729. pTDefRegMap(@Self)^.&set := $04000000;
  85730. end;
  85731. procedure TDEVCFG_DEVCFG3.clearFCANIO; inline;
  85732. begin
  85733. pTDefRegMap(@Self)^.clr := $04000000;
  85734. end;
  85735. procedure TDEVCFG_DEVCFG3.setFCANIO(thebits : TBits_1); inline;
  85736. begin
  85737. if thebits = 0 then
  85738. pTDefRegMap(@Self)^.clr := $04000000
  85739. else
  85740. pTDefRegMap(@Self)^.&set := $04000000;
  85741. end;
  85742. function TDEVCFG_DEVCFG3.getFCANIO : TBits_1; inline;
  85743. begin
  85744. getFCANIO := (pTDefRegMap(@Self)^.val and $04000000) shr 26;
  85745. end;
  85746. procedure TDEVCFG_DEVCFG3.setFUSBIDIO; inline;
  85747. begin
  85748. pTDefRegMap(@Self)^.&set := $40000000;
  85749. end;
  85750. procedure TDEVCFG_DEVCFG3.clearFUSBIDIO; inline;
  85751. begin
  85752. pTDefRegMap(@Self)^.clr := $40000000;
  85753. end;
  85754. procedure TDEVCFG_DEVCFG3.setFUSBIDIO(thebits : TBits_1); inline;
  85755. begin
  85756. if thebits = 0 then
  85757. pTDefRegMap(@Self)^.clr := $40000000
  85758. else
  85759. pTDefRegMap(@Self)^.&set := $40000000;
  85760. end;
  85761. function TDEVCFG_DEVCFG3.getFUSBIDIO : TBits_1; inline;
  85762. begin
  85763. getFUSBIDIO := (pTDefRegMap(@Self)^.val and $40000000) shr 30;
  85764. end;
  85765. procedure TDEVCFG_DEVCFG3.setFVBUSONIO; inline;
  85766. begin
  85767. pTDefRegMap(@Self)^.&set := $80000000;
  85768. end;
  85769. procedure TDEVCFG_DEVCFG3.clearFVBUSONIO; inline;
  85770. begin
  85771. pTDefRegMap(@Self)^.clr := $80000000;
  85772. end;
  85773. procedure TDEVCFG_DEVCFG3.setFVBUSONIO(thebits : TBits_1); inline;
  85774. begin
  85775. if thebits = 0 then
  85776. pTDefRegMap(@Self)^.clr := $80000000
  85777. else
  85778. pTDefRegMap(@Self)^.&set := $80000000;
  85779. end;
  85780. function TDEVCFG_DEVCFG3.getFVBUSONIO : TBits_1; inline;
  85781. begin
  85782. getFVBUSONIO := (pTDefRegMap(@Self)^.val and $80000000) shr 31;
  85783. end;
  85784. procedure TDEVCFG_DEVCFG3.setw(thebits : TBits_32); inline;
  85785. begin
  85786. pTDefRegMap(@Self)^.val := thebits;
  85787. end;
  85788. function TDEVCFG_DEVCFG3.getw : TBits_32; inline;
  85789. begin
  85790. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85791. end;
  85792. procedure TDEVCFG_DEVCFG2.setFPLLIDIV(thebits : TBits_3); inline;
  85793. begin
  85794. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  85795. end;
  85796. function TDEVCFG_DEVCFG2.getFPLLIDIV : TBits_3; inline;
  85797. begin
  85798. getFPLLIDIV := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  85799. end;
  85800. procedure TDEVCFG_DEVCFG2.setFPLLMUL(thebits : TBits_3); inline;
  85801. begin
  85802. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFF8F or ( thebits shl 4 );
  85803. end;
  85804. function TDEVCFG_DEVCFG2.getFPLLMUL : TBits_3; inline;
  85805. begin
  85806. getFPLLMUL := (pTDefRegMap(@Self)^.val and $00000070) shr 4;
  85807. end;
  85808. procedure TDEVCFG_DEVCFG2.setUPLLIDIV(thebits : TBits_3); inline;
  85809. begin
  85810. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFF8FF or ( thebits shl 8 );
  85811. end;
  85812. function TDEVCFG_DEVCFG2.getUPLLIDIV : TBits_3; inline;
  85813. begin
  85814. getUPLLIDIV := (pTDefRegMap(@Self)^.val and $00000700) shr 8;
  85815. end;
  85816. procedure TDEVCFG_DEVCFG2.setUPLLEN; inline;
  85817. begin
  85818. pTDefRegMap(@Self)^.&set := $00008000;
  85819. end;
  85820. procedure TDEVCFG_DEVCFG2.clearUPLLEN; inline;
  85821. begin
  85822. pTDefRegMap(@Self)^.clr := $00008000;
  85823. end;
  85824. procedure TDEVCFG_DEVCFG2.setUPLLEN(thebits : TBits_1); inline;
  85825. begin
  85826. if thebits = 0 then
  85827. pTDefRegMap(@Self)^.clr := $00008000
  85828. else
  85829. pTDefRegMap(@Self)^.&set := $00008000;
  85830. end;
  85831. function TDEVCFG_DEVCFG2.getUPLLEN : TBits_1; inline;
  85832. begin
  85833. getUPLLEN := (pTDefRegMap(@Self)^.val and $00008000) shr 15;
  85834. end;
  85835. procedure TDEVCFG_DEVCFG2.setFPLLODIV(thebits : TBits_3); inline;
  85836. begin
  85837. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF8FFFF or ( thebits shl 16 );
  85838. end;
  85839. function TDEVCFG_DEVCFG2.getFPLLODIV : TBits_3; inline;
  85840. begin
  85841. getFPLLODIV := (pTDefRegMap(@Self)^.val and $00070000) shr 16;
  85842. end;
  85843. procedure TDEVCFG_DEVCFG2.setw(thebits : TBits_32); inline;
  85844. begin
  85845. pTDefRegMap(@Self)^.val := thebits;
  85846. end;
  85847. function TDEVCFG_DEVCFG2.getw : TBits_32; inline;
  85848. begin
  85849. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85850. end;
  85851. procedure TDEVCFG_DEVCFG1.setFNOSC(thebits : TBits_3); inline;
  85852. begin
  85853. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFF8 or ( thebits shl 0 );
  85854. end;
  85855. function TDEVCFG_DEVCFG1.getFNOSC : TBits_3; inline;
  85856. begin
  85857. getFNOSC := (pTDefRegMap(@Self)^.val and $00000007) shr 0;
  85858. end;
  85859. procedure TDEVCFG_DEVCFG1.setFSOSCEN; inline;
  85860. begin
  85861. pTDefRegMap(@Self)^.&set := $00000020;
  85862. end;
  85863. procedure TDEVCFG_DEVCFG1.clearFSOSCEN; inline;
  85864. begin
  85865. pTDefRegMap(@Self)^.clr := $00000020;
  85866. end;
  85867. procedure TDEVCFG_DEVCFG1.setFSOSCEN(thebits : TBits_1); inline;
  85868. begin
  85869. if thebits = 0 then
  85870. pTDefRegMap(@Self)^.clr := $00000020
  85871. else
  85872. pTDefRegMap(@Self)^.&set := $00000020;
  85873. end;
  85874. function TDEVCFG_DEVCFG1.getFSOSCEN : TBits_1; inline;
  85875. begin
  85876. getFSOSCEN := (pTDefRegMap(@Self)^.val and $00000020) shr 5;
  85877. end;
  85878. procedure TDEVCFG_DEVCFG1.setIESO; inline;
  85879. begin
  85880. pTDefRegMap(@Self)^.&set := $00000080;
  85881. end;
  85882. procedure TDEVCFG_DEVCFG1.clearIESO; inline;
  85883. begin
  85884. pTDefRegMap(@Self)^.clr := $00000080;
  85885. end;
  85886. procedure TDEVCFG_DEVCFG1.setIESO(thebits : TBits_1); inline;
  85887. begin
  85888. if thebits = 0 then
  85889. pTDefRegMap(@Self)^.clr := $00000080
  85890. else
  85891. pTDefRegMap(@Self)^.&set := $00000080;
  85892. end;
  85893. function TDEVCFG_DEVCFG1.getIESO : TBits_1; inline;
  85894. begin
  85895. getIESO := (pTDefRegMap(@Self)^.val and $00000080) shr 7;
  85896. end;
  85897. procedure TDEVCFG_DEVCFG1.setPOSCMOD(thebits : TBits_2); inline;
  85898. begin
  85899. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFCFF or ( thebits shl 8 );
  85900. end;
  85901. function TDEVCFG_DEVCFG1.getPOSCMOD : TBits_2; inline;
  85902. begin
  85903. getPOSCMOD := (pTDefRegMap(@Self)^.val and $00000300) shr 8;
  85904. end;
  85905. procedure TDEVCFG_DEVCFG1.setOSCIOFNC; inline;
  85906. begin
  85907. pTDefRegMap(@Self)^.&set := $00000400;
  85908. end;
  85909. procedure TDEVCFG_DEVCFG1.clearOSCIOFNC; inline;
  85910. begin
  85911. pTDefRegMap(@Self)^.clr := $00000400;
  85912. end;
  85913. procedure TDEVCFG_DEVCFG1.setOSCIOFNC(thebits : TBits_1); inline;
  85914. begin
  85915. if thebits = 0 then
  85916. pTDefRegMap(@Self)^.clr := $00000400
  85917. else
  85918. pTDefRegMap(@Self)^.&set := $00000400;
  85919. end;
  85920. function TDEVCFG_DEVCFG1.getOSCIOFNC : TBits_1; inline;
  85921. begin
  85922. getOSCIOFNC := (pTDefRegMap(@Self)^.val and $00000400) shr 10;
  85923. end;
  85924. procedure TDEVCFG_DEVCFG1.setFPBDIV(thebits : TBits_2); inline;
  85925. begin
  85926. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFCFFF or ( thebits shl 12 );
  85927. end;
  85928. function TDEVCFG_DEVCFG1.getFPBDIV : TBits_2; inline;
  85929. begin
  85930. getFPBDIV := (pTDefRegMap(@Self)^.val and $00003000) shr 12;
  85931. end;
  85932. procedure TDEVCFG_DEVCFG1.setFCKSM(thebits : TBits_2); inline;
  85933. begin
  85934. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFF3FFF or ( thebits shl 14 );
  85935. end;
  85936. function TDEVCFG_DEVCFG1.getFCKSM : TBits_2; inline;
  85937. begin
  85938. getFCKSM := (pTDefRegMap(@Self)^.val and $0000C000) shr 14;
  85939. end;
  85940. procedure TDEVCFG_DEVCFG1.setWDTPS(thebits : TBits_5); inline;
  85941. begin
  85942. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFE0FFFF or ( thebits shl 16 );
  85943. end;
  85944. function TDEVCFG_DEVCFG1.getWDTPS : TBits_5; inline;
  85945. begin
  85946. getWDTPS := (pTDefRegMap(@Self)^.val and $001F0000) shr 16;
  85947. end;
  85948. procedure TDEVCFG_DEVCFG1.setFWDTEN; inline;
  85949. begin
  85950. pTDefRegMap(@Self)^.&set := $00800000;
  85951. end;
  85952. procedure TDEVCFG_DEVCFG1.clearFWDTEN; inline;
  85953. begin
  85954. pTDefRegMap(@Self)^.clr := $00800000;
  85955. end;
  85956. procedure TDEVCFG_DEVCFG1.setFWDTEN(thebits : TBits_1); inline;
  85957. begin
  85958. if thebits = 0 then
  85959. pTDefRegMap(@Self)^.clr := $00800000
  85960. else
  85961. pTDefRegMap(@Self)^.&set := $00800000;
  85962. end;
  85963. function TDEVCFG_DEVCFG1.getFWDTEN : TBits_1; inline;
  85964. begin
  85965. getFWDTEN := (pTDefRegMap(@Self)^.val and $00800000) shr 23;
  85966. end;
  85967. procedure TDEVCFG_DEVCFG1.setw(thebits : TBits_32); inline;
  85968. begin
  85969. pTDefRegMap(@Self)^.val := thebits;
  85970. end;
  85971. function TDEVCFG_DEVCFG1.getw : TBits_32; inline;
  85972. begin
  85973. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  85974. end;
  85975. procedure TDEVCFG_DEVCFG0.setDEBUG(thebits : TBits_2); inline;
  85976. begin
  85977. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  85978. end;
  85979. function TDEVCFG_DEVCFG0.getDEBUG : TBits_2; inline;
  85980. begin
  85981. getDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  85982. end;
  85983. procedure TDEVCFG_DEVCFG0.setICESEL; inline;
  85984. begin
  85985. pTDefRegMap(@Self)^.&set := $00000008;
  85986. end;
  85987. procedure TDEVCFG_DEVCFG0.clearICESEL; inline;
  85988. begin
  85989. pTDefRegMap(@Self)^.clr := $00000008;
  85990. end;
  85991. procedure TDEVCFG_DEVCFG0.setICESEL(thebits : TBits_1); inline;
  85992. begin
  85993. if thebits = 0 then
  85994. pTDefRegMap(@Self)^.clr := $00000008
  85995. else
  85996. pTDefRegMap(@Self)^.&set := $00000008;
  85997. end;
  85998. function TDEVCFG_DEVCFG0.getICESEL : TBits_1; inline;
  85999. begin
  86000. getICESEL := (pTDefRegMap(@Self)^.val and $00000008) shr 3;
  86001. end;
  86002. procedure TDEVCFG_DEVCFG0.setPWP(thebits : TBits_8); inline;
  86003. begin
  86004. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFF00FFF or ( thebits shl 12 );
  86005. end;
  86006. function TDEVCFG_DEVCFG0.getPWP : TBits_8; inline;
  86007. begin
  86008. getPWP := (pTDefRegMap(@Self)^.val and $000FF000) shr 12;
  86009. end;
  86010. procedure TDEVCFG_DEVCFG0.setBWP; inline;
  86011. begin
  86012. pTDefRegMap(@Self)^.&set := $01000000;
  86013. end;
  86014. procedure TDEVCFG_DEVCFG0.clearBWP; inline;
  86015. begin
  86016. pTDefRegMap(@Self)^.clr := $01000000;
  86017. end;
  86018. procedure TDEVCFG_DEVCFG0.setBWP(thebits : TBits_1); inline;
  86019. begin
  86020. if thebits = 0 then
  86021. pTDefRegMap(@Self)^.clr := $01000000
  86022. else
  86023. pTDefRegMap(@Self)^.&set := $01000000;
  86024. end;
  86025. function TDEVCFG_DEVCFG0.getBWP : TBits_1; inline;
  86026. begin
  86027. getBWP := (pTDefRegMap(@Self)^.val and $01000000) shr 24;
  86028. end;
  86029. procedure TDEVCFG_DEVCFG0.setCP; inline;
  86030. begin
  86031. pTDefRegMap(@Self)^.&set := $10000000;
  86032. end;
  86033. procedure TDEVCFG_DEVCFG0.clearCP; inline;
  86034. begin
  86035. pTDefRegMap(@Self)^.clr := $10000000;
  86036. end;
  86037. procedure TDEVCFG_DEVCFG0.setCP(thebits : TBits_1); inline;
  86038. begin
  86039. if thebits = 0 then
  86040. pTDefRegMap(@Self)^.clr := $10000000
  86041. else
  86042. pTDefRegMap(@Self)^.&set := $10000000;
  86043. end;
  86044. function TDEVCFG_DEVCFG0.getCP : TBits_1; inline;
  86045. begin
  86046. getCP := (pTDefRegMap(@Self)^.val and $10000000) shr 28;
  86047. end;
  86048. procedure TDEVCFG_DEVCFG0.setFDEBUG(thebits : TBits_2); inline;
  86049. begin
  86050. pTDefRegMap(@Self)^.val := pTDefRegMap(@Self)^.val and $FFFFFFFC or ( thebits shl 0 );
  86051. end;
  86052. function TDEVCFG_DEVCFG0.getFDEBUG : TBits_2; inline;
  86053. begin
  86054. getFDEBUG := (pTDefRegMap(@Self)^.val and $00000003) shr 0;
  86055. end;
  86056. procedure TDEVCFG_DEVCFG0.setw(thebits : TBits_32); inline;
  86057. begin
  86058. pTDefRegMap(@Self)^.val := thebits;
  86059. end;
  86060. function TDEVCFG_DEVCFG0.getw : TBits_32; inline;
  86061. begin
  86062. getw := (pTDefRegMap(@Self)^.val and $FFFFFFFF) shr 0;
  86063. end;
  86064. procedure _CORE_TIMER_VECTOR_interrupt; external name '_CORE_TIMER_VECTOR_interrupt';
  86065. procedure _CORE_SOFTWARE_0_VECTOR_interrupt; external name '_CORE_SOFTWARE_0_VECTOR_interrupt';
  86066. procedure _CORE_SOFTWARE_1_VECTOR_interrupt; external name '_CORE_SOFTWARE_1_VECTOR_interrupt';
  86067. procedure _EXTERNAL_0_VECTOR_interrupt; external name '_EXTERNAL_0_VECTOR_interrupt';
  86068. procedure _TIMER_1_VECTOR_interrupt; external name '_TIMER_1_VECTOR_interrupt';
  86069. procedure _INPUT_CAPTURE_1_VECTOR_interrupt; external name '_INPUT_CAPTURE_1_VECTOR_interrupt';
  86070. procedure _OUTPUT_COMPARE_1_VECTOR_interrupt; external name '_OUTPUT_COMPARE_1_VECTOR_interrupt';
  86071. procedure _EXTERNAL_1_VECTOR_interrupt; external name '_EXTERNAL_1_VECTOR_interrupt';
  86072. procedure _TIMER_2_VECTOR_interrupt; external name '_TIMER_2_VECTOR_interrupt';
  86073. procedure _INPUT_CAPTURE_2_VECTOR_interrupt; external name '_INPUT_CAPTURE_2_VECTOR_interrupt';
  86074. procedure _OUTPUT_COMPARE_2_VECTOR_interrupt; external name '_OUTPUT_COMPARE_2_VECTOR_interrupt';
  86075. procedure _EXTERNAL_2_VECTOR_interrupt; external name '_EXTERNAL_2_VECTOR_interrupt';
  86076. procedure _TIMER_3_VECTOR_interrupt; external name '_TIMER_3_VECTOR_interrupt';
  86077. procedure _INPUT_CAPTURE_3_VECTOR_interrupt; external name '_INPUT_CAPTURE_3_VECTOR_interrupt';
  86078. procedure _OUTPUT_COMPARE_3_VECTOR_interrupt; external name '_OUTPUT_COMPARE_3_VECTOR_interrupt';
  86079. procedure _EXTERNAL_3_VECTOR_interrupt; external name '_EXTERNAL_3_VECTOR_interrupt';
  86080. procedure _TIMER_4_VECTOR_interrupt; external name '_TIMER_4_VECTOR_interrupt';
  86081. procedure _INPUT_CAPTURE_4_VECTOR_interrupt; external name '_INPUT_CAPTURE_4_VECTOR_interrupt';
  86082. procedure _OUTPUT_COMPARE_4_VECTOR_interrupt; external name '_OUTPUT_COMPARE_4_VECTOR_interrupt';
  86083. procedure _EXTERNAL_4_VECTOR_interrupt; external name '_EXTERNAL_4_VECTOR_interrupt';
  86084. procedure _TIMER_5_VECTOR_interrupt; external name '_TIMER_5_VECTOR_interrupt';
  86085. procedure _INPUT_CAPTURE_5_VECTOR_interrupt; external name '_INPUT_CAPTURE_5_VECTOR_interrupt';
  86086. procedure _OUTPUT_COMPARE_5_VECTOR_interrupt; external name '_OUTPUT_COMPARE_5_VECTOR_interrupt';
  86087. procedure _SPI_1_VECTOR_interrupt; external name '_SPI_1_VECTOR_interrupt';
  86088. procedure _SPI_1A_VECTOR_interrupt; external name '_SPI_1A_VECTOR_interrupt';
  86089. procedure _UART_1_VECTOR_interrupt; external name '_UART_1_VECTOR_interrupt';
  86090. procedure _UART_1A_VECTOR_interrupt; external name '_UART_1A_VECTOR_interrupt';
  86091. procedure _I2C_3_VECTOR_interrupt; external name '_I2C_3_VECTOR_interrupt';
  86092. procedure _I2C_1A_VECTOR_interrupt; external name '_I2C_1A_VECTOR_interrupt';
  86093. procedure _SPI_3_VECTOR_interrupt; external name '_SPI_3_VECTOR_interrupt';
  86094. procedure _I2C_1_VECTOR_interrupt; external name '_I2C_1_VECTOR_interrupt';
  86095. procedure _CHANGE_NOTICE_VECTOR_interrupt; external name '_CHANGE_NOTICE_VECTOR_interrupt';
  86096. procedure _ADC_VECTOR_interrupt; external name '_ADC_VECTOR_interrupt';
  86097. procedure _PMP_VECTOR_interrupt; external name '_PMP_VECTOR_interrupt';
  86098. procedure _COMPARATOR_1_VECTOR_interrupt; external name '_COMPARATOR_1_VECTOR_interrupt';
  86099. procedure _COMPARATOR_2_VECTOR_interrupt; external name '_COMPARATOR_2_VECTOR_interrupt';
  86100. procedure _SPI_2A_VECTOR_interrupt; external name '_SPI_2A_VECTOR_interrupt';
  86101. procedure _UART_3_VECTOR_interrupt; external name '_UART_3_VECTOR_interrupt';
  86102. procedure _UART_2A_VECTOR_interrupt; external name '_UART_2A_VECTOR_interrupt';
  86103. procedure _I2C_4_VECTOR_interrupt; external name '_I2C_4_VECTOR_interrupt';
  86104. procedure _I2C_2A_VECTOR_interrupt; external name '_I2C_2A_VECTOR_interrupt';
  86105. procedure _SPI_2_VECTOR_interrupt; external name '_SPI_2_VECTOR_interrupt';
  86106. procedure _SPI_3A_VECTOR_interrupt; external name '_SPI_3A_VECTOR_interrupt';
  86107. procedure _UART_2_VECTOR_interrupt; external name '_UART_2_VECTOR_interrupt';
  86108. procedure _UART_3A_VECTOR_interrupt; external name '_UART_3A_VECTOR_interrupt';
  86109. procedure _I2C_5_VECTOR_interrupt; external name '_I2C_5_VECTOR_interrupt';
  86110. procedure _I2C_3A_VECTOR_interrupt; external name '_I2C_3A_VECTOR_interrupt';
  86111. procedure _SPI_4_VECTOR_interrupt; external name '_SPI_4_VECTOR_interrupt';
  86112. procedure _I2C_2_VECTOR_interrupt; external name '_I2C_2_VECTOR_interrupt';
  86113. procedure _FAIL_SAFE_MONITOR_VECTOR_interrupt; external name '_FAIL_SAFE_MONITOR_VECTOR_interrupt';
  86114. procedure _RTCC_VECTOR_interrupt; external name '_RTCC_VECTOR_interrupt';
  86115. procedure _DMA_0_VECTOR_interrupt; external name '_DMA_0_VECTOR_interrupt';
  86116. procedure _DMA_1_VECTOR_interrupt; external name '_DMA_1_VECTOR_interrupt';
  86117. procedure _DMA_2_VECTOR_interrupt; external name '_DMA_2_VECTOR_interrupt';
  86118. procedure _DMA_3_VECTOR_interrupt; external name '_DMA_3_VECTOR_interrupt';
  86119. procedure _FCE_VECTOR_interrupt; external name '_FCE_VECTOR_interrupt';
  86120. procedure _USB_1_VECTOR_interrupt; external name '_USB_1_VECTOR_interrupt';
  86121. procedure _CAN_1_VECTOR_interrupt; external name '_CAN_1_VECTOR_interrupt';
  86122. procedure _UART_1B_VECTOR_interrupt; external name '_UART_1B_VECTOR_interrupt';
  86123. procedure _UART_4_VECTOR_interrupt; external name '_UART_4_VECTOR_interrupt';
  86124. procedure _UART_2B_VECTOR_interrupt; external name '_UART_2B_VECTOR_interrupt';
  86125. procedure _UART_6_VECTOR_interrupt; external name '_UART_6_VECTOR_interrupt';
  86126. procedure _UART_3B_VECTOR_interrupt; external name '_UART_3B_VECTOR_interrupt';
  86127. procedure _UART_5_VECTOR_interrupt; external name '_UART_5_VECTOR_interrupt';
  86128. procedure Vectors; assembler; nostackframe;
  86129. label interrupt_vectors;
  86130. asm
  86131. .section ".init.interrupt_vectors,\"ax\",@progbits"
  86132. interrupt_vectors:
  86133. j _CORE_TIMER_VECTOR_interrupt
  86134. nop
  86135. nop
  86136. nop
  86137. nop
  86138. nop
  86139. nop
  86140. nop
  86141. j _CORE_SOFTWARE_0_VECTOR_interrupt
  86142. nop
  86143. nop
  86144. nop
  86145. nop
  86146. nop
  86147. nop
  86148. nop
  86149. j _CORE_SOFTWARE_1_VECTOR_interrupt
  86150. nop
  86151. nop
  86152. nop
  86153. nop
  86154. nop
  86155. nop
  86156. nop
  86157. j _EXTERNAL_0_VECTOR_interrupt
  86158. nop
  86159. nop
  86160. nop
  86161. nop
  86162. nop
  86163. nop
  86164. nop
  86165. j _TIMER_1_VECTOR_interrupt
  86166. nop
  86167. nop
  86168. nop
  86169. nop
  86170. nop
  86171. nop
  86172. nop
  86173. j _INPUT_CAPTURE_1_VECTOR_interrupt
  86174. nop
  86175. nop
  86176. nop
  86177. nop
  86178. nop
  86179. nop
  86180. nop
  86181. j _OUTPUT_COMPARE_1_VECTOR_interrupt
  86182. nop
  86183. nop
  86184. nop
  86185. nop
  86186. nop
  86187. nop
  86188. nop
  86189. j _EXTERNAL_1_VECTOR_interrupt
  86190. nop
  86191. nop
  86192. nop
  86193. nop
  86194. nop
  86195. nop
  86196. nop
  86197. j _TIMER_2_VECTOR_interrupt
  86198. nop
  86199. nop
  86200. nop
  86201. nop
  86202. nop
  86203. nop
  86204. nop
  86205. j _INPUT_CAPTURE_2_VECTOR_interrupt
  86206. nop
  86207. nop
  86208. nop
  86209. nop
  86210. nop
  86211. nop
  86212. nop
  86213. j _OUTPUT_COMPARE_2_VECTOR_interrupt
  86214. nop
  86215. nop
  86216. nop
  86217. nop
  86218. nop
  86219. nop
  86220. nop
  86221. j _EXTERNAL_2_VECTOR_interrupt
  86222. nop
  86223. nop
  86224. nop
  86225. nop
  86226. nop
  86227. nop
  86228. nop
  86229. j _TIMER_3_VECTOR_interrupt
  86230. nop
  86231. nop
  86232. nop
  86233. nop
  86234. nop
  86235. nop
  86236. nop
  86237. j _INPUT_CAPTURE_3_VECTOR_interrupt
  86238. nop
  86239. nop
  86240. nop
  86241. nop
  86242. nop
  86243. nop
  86244. nop
  86245. j _OUTPUT_COMPARE_3_VECTOR_interrupt
  86246. nop
  86247. nop
  86248. nop
  86249. nop
  86250. nop
  86251. nop
  86252. nop
  86253. j _EXTERNAL_3_VECTOR_interrupt
  86254. nop
  86255. nop
  86256. nop
  86257. nop
  86258. nop
  86259. nop
  86260. nop
  86261. j _TIMER_4_VECTOR_interrupt
  86262. nop
  86263. nop
  86264. nop
  86265. nop
  86266. nop
  86267. nop
  86268. nop
  86269. j _INPUT_CAPTURE_4_VECTOR_interrupt
  86270. nop
  86271. nop
  86272. nop
  86273. nop
  86274. nop
  86275. nop
  86276. nop
  86277. j _OUTPUT_COMPARE_4_VECTOR_interrupt
  86278. nop
  86279. nop
  86280. nop
  86281. nop
  86282. nop
  86283. nop
  86284. nop
  86285. j _EXTERNAL_4_VECTOR_interrupt
  86286. nop
  86287. nop
  86288. nop
  86289. nop
  86290. nop
  86291. nop
  86292. nop
  86293. j _TIMER_5_VECTOR_interrupt
  86294. nop
  86295. nop
  86296. nop
  86297. nop
  86298. nop
  86299. nop
  86300. nop
  86301. j _INPUT_CAPTURE_5_VECTOR_interrupt
  86302. nop
  86303. nop
  86304. nop
  86305. nop
  86306. nop
  86307. nop
  86308. nop
  86309. j _OUTPUT_COMPARE_5_VECTOR_interrupt
  86310. nop
  86311. nop
  86312. nop
  86313. nop
  86314. nop
  86315. nop
  86316. nop
  86317. j _SPI_1_VECTOR_interrupt
  86318. nop
  86319. nop
  86320. nop
  86321. nop
  86322. nop
  86323. nop
  86324. nop
  86325. j _SPI_1A_VECTOR_interrupt
  86326. nop
  86327. nop
  86328. nop
  86329. nop
  86330. nop
  86331. nop
  86332. nop
  86333. j _I2C_1_VECTOR_interrupt
  86334. nop
  86335. nop
  86336. nop
  86337. nop
  86338. nop
  86339. nop
  86340. nop
  86341. j _CHANGE_NOTICE_VECTOR_interrupt
  86342. nop
  86343. nop
  86344. nop
  86345. nop
  86346. nop
  86347. nop
  86348. nop
  86349. j _ADC_VECTOR_interrupt
  86350. nop
  86351. nop
  86352. nop
  86353. nop
  86354. nop
  86355. nop
  86356. nop
  86357. j _PMP_VECTOR_interrupt
  86358. nop
  86359. nop
  86360. nop
  86361. nop
  86362. nop
  86363. nop
  86364. nop
  86365. j _COMPARATOR_1_VECTOR_interrupt
  86366. nop
  86367. nop
  86368. nop
  86369. nop
  86370. nop
  86371. nop
  86372. nop
  86373. j _COMPARATOR_2_VECTOR_interrupt
  86374. nop
  86375. nop
  86376. nop
  86377. nop
  86378. nop
  86379. nop
  86380. nop
  86381. j _SPI_2A_VECTOR_interrupt
  86382. nop
  86383. nop
  86384. nop
  86385. nop
  86386. nop
  86387. nop
  86388. nop
  86389. j _SPI_3A_VECTOR_interrupt
  86390. nop
  86391. nop
  86392. nop
  86393. nop
  86394. nop
  86395. nop
  86396. nop
  86397. j _I2C_2_VECTOR_interrupt
  86398. nop
  86399. nop
  86400. nop
  86401. nop
  86402. nop
  86403. nop
  86404. nop
  86405. j _FAIL_SAFE_MONITOR_VECTOR_interrupt
  86406. nop
  86407. nop
  86408. nop
  86409. nop
  86410. nop
  86411. nop
  86412. nop
  86413. j _RTCC_VECTOR_interrupt
  86414. nop
  86415. nop
  86416. nop
  86417. nop
  86418. nop
  86419. nop
  86420. nop
  86421. j _DMA_0_VECTOR_interrupt
  86422. nop
  86423. nop
  86424. nop
  86425. nop
  86426. nop
  86427. nop
  86428. nop
  86429. j _DMA_1_VECTOR_interrupt
  86430. nop
  86431. nop
  86432. nop
  86433. nop
  86434. nop
  86435. nop
  86436. nop
  86437. j _DMA_2_VECTOR_interrupt
  86438. nop
  86439. nop
  86440. nop
  86441. nop
  86442. nop
  86443. nop
  86444. nop
  86445. j _DMA_3_VECTOR_interrupt
  86446. nop
  86447. nop
  86448. nop
  86449. nop
  86450. nop
  86451. nop
  86452. nop
  86453. nop
  86454. nop
  86455. nop
  86456. nop
  86457. nop
  86458. nop
  86459. nop
  86460. nop
  86461. nop
  86462. nop
  86463. nop
  86464. nop
  86465. nop
  86466. nop
  86467. nop
  86468. nop
  86469. nop
  86470. nop
  86471. nop
  86472. nop
  86473. nop
  86474. nop
  86475. nop
  86476. nop
  86477. nop
  86478. nop
  86479. nop
  86480. nop
  86481. nop
  86482. nop
  86483. nop
  86484. nop
  86485. j _FCE_VECTOR_interrupt
  86486. nop
  86487. nop
  86488. nop
  86489. nop
  86490. nop
  86491. nop
  86492. nop
  86493. j _USB_1_VECTOR_interrupt
  86494. nop
  86495. nop
  86496. nop
  86497. nop
  86498. nop
  86499. nop
  86500. nop
  86501. j _CAN_1_VECTOR_interrupt
  86502. nop
  86503. nop
  86504. nop
  86505. nop
  86506. nop
  86507. nop
  86508. nop
  86509. nop
  86510. nop
  86511. nop
  86512. nop
  86513. nop
  86514. nop
  86515. nop
  86516. nop
  86517. nop
  86518. nop
  86519. nop
  86520. nop
  86521. nop
  86522. nop
  86523. nop
  86524. nop
  86525. j _UART_1B_VECTOR_interrupt
  86526. nop
  86527. nop
  86528. nop
  86529. nop
  86530. nop
  86531. nop
  86532. nop
  86533. j _UART_2B_VECTOR_interrupt
  86534. nop
  86535. nop
  86536. nop
  86537. nop
  86538. nop
  86539. nop
  86540. nop
  86541. j _UART_3B_VECTOR_interrupt
  86542. nop
  86543. nop
  86544. nop
  86545. nop
  86546. nop
  86547. nop
  86548. nop
  86549. .weak _CORE_TIMER_VECTOR_interrupt
  86550. .weak _CORE_SOFTWARE_0_VECTOR_interrupt
  86551. .weak _CORE_SOFTWARE_1_VECTOR_interrupt
  86552. .weak _EXTERNAL_0_VECTOR_interrupt
  86553. .weak _TIMER_1_VECTOR_interrupt
  86554. .weak _INPUT_CAPTURE_1_VECTOR_interrupt
  86555. .weak _OUTPUT_COMPARE_1_VECTOR_interrupt
  86556. .weak _EXTERNAL_1_VECTOR_interrupt
  86557. .weak _TIMER_2_VECTOR_interrupt
  86558. .weak _INPUT_CAPTURE_2_VECTOR_interrupt
  86559. .weak _OUTPUT_COMPARE_2_VECTOR_interrupt
  86560. .weak _EXTERNAL_2_VECTOR_interrupt
  86561. .weak _TIMER_3_VECTOR_interrupt
  86562. .weak _INPUT_CAPTURE_3_VECTOR_interrupt
  86563. .weak _OUTPUT_COMPARE_3_VECTOR_interrupt
  86564. .weak _EXTERNAL_3_VECTOR_interrupt
  86565. .weak _TIMER_4_VECTOR_interrupt
  86566. .weak _INPUT_CAPTURE_4_VECTOR_interrupt
  86567. .weak _OUTPUT_COMPARE_4_VECTOR_interrupt
  86568. .weak _EXTERNAL_4_VECTOR_interrupt
  86569. .weak _TIMER_5_VECTOR_interrupt
  86570. .weak _INPUT_CAPTURE_5_VECTOR_interrupt
  86571. .weak _OUTPUT_COMPARE_5_VECTOR_interrupt
  86572. .weak _SPI_1_VECTOR_interrupt
  86573. .weak _SPI_1A_VECTOR_interrupt
  86574. .weak _UART_1_VECTOR_interrupt
  86575. .weak _UART_1A_VECTOR_interrupt
  86576. .weak _I2C_3_VECTOR_interrupt
  86577. .weak _I2C_1A_VECTOR_interrupt
  86578. .weak _SPI_3_VECTOR_interrupt
  86579. .weak _I2C_1_VECTOR_interrupt
  86580. .weak _CHANGE_NOTICE_VECTOR_interrupt
  86581. .weak _ADC_VECTOR_interrupt
  86582. .weak _PMP_VECTOR_interrupt
  86583. .weak _COMPARATOR_1_VECTOR_interrupt
  86584. .weak _COMPARATOR_2_VECTOR_interrupt
  86585. .weak _SPI_2A_VECTOR_interrupt
  86586. .weak _UART_3_VECTOR_interrupt
  86587. .weak _UART_2A_VECTOR_interrupt
  86588. .weak _I2C_4_VECTOR_interrupt
  86589. .weak _I2C_2A_VECTOR_interrupt
  86590. .weak _SPI_2_VECTOR_interrupt
  86591. .weak _SPI_3A_VECTOR_interrupt
  86592. .weak _UART_2_VECTOR_interrupt
  86593. .weak _UART_3A_VECTOR_interrupt
  86594. .weak _I2C_5_VECTOR_interrupt
  86595. .weak _I2C_3A_VECTOR_interrupt
  86596. .weak _SPI_4_VECTOR_interrupt
  86597. .weak _I2C_2_VECTOR_interrupt
  86598. .weak _FAIL_SAFE_MONITOR_VECTOR_interrupt
  86599. .weak _RTCC_VECTOR_interrupt
  86600. .weak _DMA_0_VECTOR_interrupt
  86601. .weak _DMA_1_VECTOR_interrupt
  86602. .weak _DMA_2_VECTOR_interrupt
  86603. .weak _DMA_3_VECTOR_interrupt
  86604. .weak _FCE_VECTOR_interrupt
  86605. .weak _USB_1_VECTOR_interrupt
  86606. .weak _CAN_1_VECTOR_interrupt
  86607. .weak _UART_1B_VECTOR_interrupt
  86608. .weak _UART_4_VECTOR_interrupt
  86609. .weak _UART_2B_VECTOR_interrupt
  86610. .weak _UART_6_VECTOR_interrupt
  86611. .weak _UART_3B_VECTOR_interrupt
  86612. .weak _UART_5_VECTOR_interrupt
  86613. .text
  86614. end;
  86615. end.